5LOMEM :29000
10HOME:HGR2:HCOLOR =12
20READ a, b
30FOR i=1 TO 202
40READ c, d:IF c=0 THEN READ a, b:GOTO 70
50HPLOT (a-20)*.7, (b-20)*.7 TO (c-20)*.7, (d-20)*.7
60 a=c: b=d
70NEXT i
300FOR i=28000 TO 28005:READ a:POKE i, a
350NEXT i
400 mhertz=3597000
500DIM i(102), j(102)
600FOR a=1 TO 102
700READ i(a), j(a)
720 p=i(a)
740 p=mhertz/(32*p)
750 t%=p/16
780 o%=128+(p-t%*16)
800POKE 28006, o%:CALL 28000
820POKE 28006, t%:CALL 28000
850POKE 28006, 144:CALL 28000
900FOR d=1 TO j(a)*900:NEXT
930POKE 28006, 159:CALL 28000
950NEXT
1000DATA 116,172,138,205,151,244,194,252,210,249 
1010DATA 230,218,239,199,228,209,221,212,200,213
1020DATA 186,207,173,193,165,169,165,155,174,155
1030DATA 176,151,184,151,184,149,187,148,188,151
1040DATA 191,151,191,149,194,149,199,155,199,164
1050DATA 194,178,197,182,205,194,208,184,219,181 
1060DATA 216,178,212,178,210,179,206,178,203,179 
1070DATA 203,165,204,148,200,142,193,141,176,141  
1080DATA 168,144,166,140,175,132,184,130,204,118
1090DATA 215,127,239,135,245,139,253,153,254,160
1100DATA 260,166,263,166,264,168,263,170,260,170 
1110DATA 257,174,252,180,251,185,247,189,253,202
1120DATA 247,236,253,235,253,250,262,255,300,255
1130DATA 290,232,292,228,288,226,281,191,279,182 
1140DATA 268,158,273,153,263,134,263,120,266,113 
1150DATA 328,113,272,99,272,96,349,85,266,85
1160DATA 255,78,313,25,233,67,215,64,204,21
1170DATA 194,65,174,67,94,26,153,76,152,78
1180DATA 142,85,59,85,136,96,136,99,78,113
1190DATA 141,113,148,122,136,154,116,172,0,0 
1200DATA 82,112,137,106,136,97,0,0,63,86 
1210DATA 138,90,142,86,0,0,96,26,168,73 
1220DATA 165,80,173,78,180,66,0,0,214,64
1230DATA 199,73,226,76,244,81,244,70,312,26
1240DATA 0,0,256,80,256,88,267,97,267,90
1250DATA 347,86,0,0,271,96,271,105,328,112
1260DATA 0,0,266,150,259,132,255,112,265,103
1270DATA 261,99,250,107,246,104,252,91,247,89
1280DATA 239,102,231,100,235,86,228,83,225,98 
1290DATA 214,97,214,82,208,82,208,97,199,98  
1300DATA 199,83,193,83,194,97,183,97,178,84
1310DATA 173,86,176,99,168,102,159,88,155,91
1320DATA 162,105,168,106,182,102,162,112,156,121
1330DATA 161,126,175,127,187,122,197,116,205,110
1340DATA 224,126,238,131,248,133,253,134,257,140
1350DATA 261,146,263,152,266,151,0,0,217,149
1360DATA 217,147,220,143,229,142,237,143,242,149 
1370DATA 240,151,236,151,234,149,231,149,234,149 
1380DATA 231,149,228,150,226,149,224,149,224,151 
1390DATA 218,149,0,0,153,211,157,184,160,184
1400DATA 160,213,153,212,0,0,192,193,202,188
1410DATA 206,190,210,188,220,193,0,0,192,193,200,198
1420DATA 208,197,210,198,220,193  
2100DATA 58,102,109,211,255,201
2110DATA 394,.75,330,.25,262,1,330,1,394,1,523,2,659,.75,587,.25
2120DATA 523,1,330,1,370,1,394,2,394,.5,394,.5,659,1.5,587,.5
2130DATA 523,1,494,2,440,.5,494,.5,523,1,523,1,392,1,330,1
2140DATA 262,1,394,.75,330,.25,262,1,330,1,394,1,523,2,659,.75
2150DATA 587,.25,523,1,330,1,370,1,394,2,394,.5,394,.5,659,1.5 
2160DATA 587,.5,523,1,494,2,440,.5,494,.5,523,1,523,1,394,1
2170DATA 330,1,262,1,659,.5,659,.5,659,1,698,1,784,1,784,2
2180DATA 698,.5,659,.5,587,1,659,1,698,1,698,2,698,1,659,1.5
2190DATA 587,.5,523,1,494,2,440,.5,494,.5,523,1,330,1,370,1
2200DATA 394,2,394,.5,394,.5,523,1,523,1,523,.5,494,.5,440,1,440,1  
2210DATA 440,1,587,1,698,.5,659,.5,587,.5,523,.5,523,1,494,1.5
2220DATA 394,.5,394,.5,523,1.5,587,.5,659,.5,698,.5,784,2,523,.5
2230DATA 587,.5,659,1.5,698,.5,587,1,523,3



