start tok64 d64-p503DR
5 GOSUB200
12 PRINT"{clear}{white}{cm p*40}"
13 PRINT"{reverse on}{W*23}"
14 PRINT"{reverse on}{white} {black}c{white} {black}d{white} {cm g}{black}f{white} {black}g{white} {black}a{white} {cm g}{black}c{white} {black}d{white} {cm g}{black}f{white} {black}g{white} {black}a{white}"
15 PRINT"{reverse on}{white} {black}#{white} {black}#{white} {cm g}{black}#{white} {black}#{white} {black}#{white} {cm g}{black}#{white} {black}#{white} {cm g}{black}#{white} {black}#{white} {black}#{white}"
16 PRINT"{reverse on}{white} {black} {white} {black} {white} {cm g}{black} {white} {black} {white} {black} {white} {cm g}{black} {white} {black} {white} {cm g}{black} {white} {black} {white} {black} {white}"
17 PRINT"{reverse on}{white} {black}2{white} {black}3{white} {cm g}{black}5{white} {black}g{white} {black}h{white} {cm g}{black}8{white} {black}9{white} {cm g}{black}-{white} {black}={white} {black}:{white}"
18 PRINT"{reverse on} B B {cm g}B B B {cm g}B B {cm g}B B{space*2}"
19 PRINT"{light green}{reverse on}c d ef g a hc d ef g a "
25 FORl=54272TO54296:POKEl,0:NEXT
30 POKE54296,15
40 POKE54277,a
50 POKE54278,b
60 GETa$
61 IF a$="q"THENh=17:l=37:GOTO130
62 IF a$="2"THENh=18:l=42:GOTO130
63 IF a$="w"THENh=19:l=63:GOTO130
64 IF a$="3"THENh=20:l=100:GOTO130
65 IF a$="e"THENh=21:l=154:GOTO130
66 IF a$="r"THENh=22:l=227:GOTO130
67 IF a$="5"THENh=24:l=63:GOTO130
68 IFa$="t"THENh=25:l=177:GOTO130
69 IFa$="6"THENh=27:l=56:GOTO130
70 IFa$="y"THENh=28:l=214:GOTO130
71 IFa$="7"THENh=30:l=141:GOTO130
72 IFa$="u"THENh=32:l=94:GOTO130
73 IFa$="i"THENh=34:l=75:GOTO130
74 IFa$="9"THENh=36:l=85:GOTO130
75 IFa$="o"THENh=38:l=126:GOTO130
76 IFa$="0"THENh=40:l=200:GOTO130
77 IFa$="p"THENh=43:l=52:GOTO130
78 IFa$="]"THENh=45:l=198:GOTO130
79 IFa$="="THENh=48:l=127:GOTO130
80 IFa$="@"THENh=51:l=97:GOTO130
81 IFa$=":"THENh=54:l=111:GOTO130
82 IFa$="^"THENh=57:l=172:GOTO130
83 IFa$="{home}"THENh=61:l=126:GOTO130
84 IFa$="{f8}"THENGOTO5
90 GOTO 60
130 POKE54273,h:POKE54272,l
140 POKE54575,0:POKE54274,255
150 POKE54276,c
160 FORt = 1TO100:NEXT
170 POKE54276,16
180 GOTO60
200 POKE53280,0:POKE53281,0:PRINT"{clear}{cyan}";
210 PRINT"{space*16}{reverse on}synth -64"
220 PRINT"{down}f1 = piano"
230 PRINT"f2 = fl{pound}jt"
240 PRINT"f3 = cembalo"
250 PRINT"f4 = xylofon"
260 PRINT"f5 = orgel"
270 PRINT"f6 = dragspel"
280 PRINT"f7 = trumpet"
290 PRINT"f8 = instrument-val"
300 GETb$
301 IFb$="{f1}"THENa=9:b=0:c=65:RETURN
302 IFb$="{f2}"THENa=96:b=0:c=17:RETURN
303 IFb$="{f3}"THENa=9:b=0:c=33:RETURN
304 IFb$="{f4}"THENa=9:b=0:c=17:RETURN
305 IFb$="{f5}"THENa=0:b=240:c=17:RETURN
306 IFb$="{f6}"THENa=102:b=0:c=17:RETURN
307 IFb$="{f7}"THENa=96:b=0:c=33:RETURN
308 GOTO300
stop tok64
(bastext 1.0)