-
Notifications
You must be signed in to change notification settings - Fork 1
/
bronsk.bas
103 lines (103 loc) · 5.63 KB
/
bronsk.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
10 REM BRONSKI BEAT: SMALLTOWN BOY
20 REM
30 REM een van de prijswinnaars in
40 REM de programmeerwedstrijd van
50 REM MSX Computer Magazine
60 REM nummer 3
70 REM
80 REM Inzender: A.R.Lont, Amsterdam
90 REM
100 KEYOFF
110 CLS
120 LOCATE6,2
130 PRINT"BRONSKI BEAT:"
140 LOCATE6,5
150 PRINT"-SMALLTOWN BOY-"
160 REM BRONSKI
170 SOUND7,49:SOUND6,5
180 T$="t150R4L64O6V13BV11BV7BR64R4V13BV11BV7BR64"
190 U$="T150L32V0B"
200 SOUND7,49:SOUND6,5
210 V$="t150R2L32O6V13BV11BV8Bv5b"
220 PLAY"XU$;","t125V9O3L1C"
230 PLAY"XU$;","O2L1A+"
240 PLAY"XU$;","O2L1F"
250 PLAY"XU$;","O2L1D+"
260 PLAY"XU$;","T130O3L1C","t130V9L1O4G"
270 PLAY"XU$;","O2L1A+","L1O4F
280 PLAY"XU$;","O2L1F","L1O4C"
290 PLAY"XU$;","O2L1D+","L1O4D+
300 PLAY"T130O3L1C","T130L1O4G","V10T130L1O5C"
310 PLAY"O2L1A+","L1O4F","L1O4A+"
320 PLAY"O2L1F","L1O4C","L1O4F"
330 PLAY"O2L1D+","V8L1O3D+","L1O4D+"
340 PLAY"XU$;","T152V10L1O5C","m2000s9T140L8O3CO4CO3CO4CO3CO4CO3CO4C"
350 PLAY"XU$;","T152V10L1O4A+","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
360 PLAY"XU$;","T152V10L1O4F","O3FO4FO3FO4FO3FO4FO3FO4F"
370 PLAY"XU$;","T152V10L1O4D+","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
380 PLAY"XU$;","M2000S9T140L8O3CO4CO3CO4CO3CO4CO3CO4C"
390 PLAY"XU$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
400 PLAY"XU$;","O3FO4FO3FO4FO3FO4FO3FO4F"
410 PLAY"T150V10M2100S9R4l8ccR8L8CCL16CC","M2000S9T140L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
420 LETX=0
430 LETX=X+1
440 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
450 PLAY"XT$;","M2000S9T150L8O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
460 PLAY"XT$;","M2000S9T150L8O3FO4FO3FO4FO3FO4FO3FO4F"
470 PLAY"XT$;","M2000S9T150L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
480 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
490 PLAY"XT$;","M2000S9T150L8O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
500 PLAY"XT$;","M2000S9T150L8O3FO4FO3FO4FO3FO4FO3FO4F"
510 PLAY"T150V10M2100S9R4L8CCR8L8CCL16CC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
520 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8D+","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
530 PLAY"XT$;","M2500S9T138R8L8O5CL8DR8L8CL8DR8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
540 PLAY"XT$;","M2500S9T138R8L8O5CL8FR8L8CL8FR8L8F","O3FO4FO3FO4FO3FO4FO3FO4F"
550 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","m2000s9O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
560 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
570 PLAY"XT$;","M2500S9T138R8L8O5CL8DR8L8CL8DR8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
580 PLAY"XT$;","M2500S9T138R8L8O5CL8FR8L8CL8FR8L8F","O3FO4FO3FO4FO3FO4FO3FO4F"
590 PLAY"T150M2100S9R4L8CCR8L8CCL16CC","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
600 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
610 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
620 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O3FO4FO3FO4FO3FO4FO3FO4F"
630 PLAY"T150V11M2500S9L8R2C","M2000S9T150L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
640 PLAY"T150V11M2500S9R2L8C","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
650 PLAY"T150V11M2500S9R2L8C","M2000S9T150L8O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
660 PLAY"T150V11M2500S9R2L8C","M2000S9T150L8O3FO4FO3FO4FO3FO4FO3FO4F"
670 PLAY"T150V11M2500S9R4L8CR4CCL16CC","M2000S9T150L8O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
680 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8D+","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
690 PLAY"XT$;","M2500S9T138R8L8O5CL8DR8L8CL8DR8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
700 PLAY"XT$;","M2500S9T138R8L8O5CL8FR8L8CL8FR8L8F","O3FO4FO3FO4FO3FO4FO3FO4F"
710 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","m2000s9O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
720 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8D+","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C"
730 PLAY"XT$;","M2500S9T138R8L8O5CL8DR8L8CL8DR8L8D","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+"
740 PLAY"XT$;","M2500S9T138R8L8O5CL8FR8L8CL8FR8L8F","O3FO4FO3FO4FO3FO4FO3FO4F"
750 PLAY"XT$;","M2500S9T138R8L8O5CL8D+R8L8CL8D+R8L8D+","m2000s9O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D"
760 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V10L1O5G"
770 PLAY"XT$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+","L1O5F"
780 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","L1O5G+"
790 PLAY"T150V10M2100S9R4L8CCR8L8CCC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D","L1O5G"
800 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T155L1O5G"
810 PLAY"XT$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+","L1O5F"
820 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","L1O5G+"
830 PLAY"T150V10M2100S9R4L8CCR8L8CCC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D","L1O5G"
840 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V11R8L8O6CO5A+O6CD+FFC"
850 PLAY"XT$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+","L8R8O6CO5A+O6CD+FF"
860 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","L8R8O6CO5A+O6CD+FFD+"
870 PLAY"T150M2100S9R4L8CCR4L8CC","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D","L8R8O6F+FD+F+L16FL8D+"
880 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V11R8L8O6CO5A+O6CD+FFC"
890 PLAY"XT$;","O2A+O3A+O2A+O3A+O2A+O3A+O2A+O3A+","L8R8O6CO5A+O6CD+FF"
900 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","L8R8O6CO5A+O6CD+FFD+"
910 PLAY"XT$;","O3D+O4D+O3D+O4D+O3D+O4D+O3DO4D","L8R8O6F+FD+F+L16FL8D+"
920 IFX=1THENGOTO940
930 GOTO430
940 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V10M2500S9R8L8O5GFGA+L16O6CO5A+"
950 PLAY"XT$;","O3D+O4D+O3D+O4D+O3D+O4D+O3D+O4D+","R8L8O5GFGA+L16O6CO5A+"
960 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","R8L8O5GFGA+L16O6CO5A+"
970 PLAY"XT$;","O2G+O3G+O2G+O3G+O2G+O3G+O2A+O3A+","R8L8O5GFGA+L16O6CO5A+"
980 PLAY"XT$;","M2000S9T150L8O3CO4CO3CO4CO3CO4CO3CO4C","T150V9M2500S9R8L8O5GFGA+L16O6CO5A+"
990 PLAY"XT$;","O3D+O4D+O3D+O4D+O3D+O4D+O3D+O4D+","R8L8O5GFGA+L16O6CO5A+"
1000 PLAY"XT$;","O3FO4FO3FO4FO3FO4FO3FO4F","R8L8O5GFGA+L16O6CO5A+"
1010 PLAY"XT$;","O2G+O3G+O2G+O3G+O2G+O3G+O2A+O3A+","R8L8O5GFGA+L16O6CO5A+"
1020 GOTO420