100 PING 
  110 ENVELOPE NUMBER1;0,64,64,1;12,-63,-63,20
  120 !CLOSE £105
  130 !CLOSE £103
  140 !CLOSE £104
  150 OUT 191,12
  170 LET BB=33
  180 LET QQ=96:LET WW=40:LET EE=104:LET RR=WW
  190 GOSUB  1940
  200 SET STATUSOFF
  210 SET BORDERBB
  220 SET KEYCLICKOFF
  230 TEXT 40
  240 !WAIT 1
  250 !POKE 56,201
  260 CLOSE #102
  270 SET VIDEOCOLOR3
  280 OPEN #102:"video:"
  290 PRINT #102:CHR$(27)&"o";
  300 CALL COLCHAR
  310 CALL TITLE
  311 RANDOMIZE 
  320 DIM HE(20)
  330 STRING L$*41
  331 RESTORE  840
  340 FOR X=1TO16
  350   READ HE(X)
  360 NEXT X
  370 SET VIDEOX40
  380 SET VIDEOY15*4+1
  390 OPEN #1:"video:"
  400 PRINT #1:CHR$(27)&"o";
  410 PRINT #102:CHR$(27)&"o";
  420 !SET £1:PALETTE 8,9,32
  430 !SET £102:PALETTE 8,9,32
  440 SET BORDERBB
  450 RESTORE  850
  460 FOR X=1TO15*4
  470   READ A$
  480   PRINT #1:A$
  490 NEXT X
  500 LET ENE=37
  510 LET L$="PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP"
  520 DISPLAY #102:AT1FROM1TO1
  530 DISPLAY #102:AT24FROM23TO23
  540 DISPLAY #102:AT25FROM23TO23
  550 DISPLAY #102:AT26FROM23TO23
  560 PRINT #102,AT1,1:"@f@f@f@f@f@f@f@f@f@f@f@f@f@f@f@f@f@f@f@f";
  570 LET SCO=0
  580 LET Y=1
  590 LET LAC=0:LET LLIM=35
  600 LET ANICO=0:LET ROTC=1
  610 CALL ROTCHAR
  620 LET HEI=15+ANICO*15
  630 IF HE(Y)=0THENLET HEI=HEI-1
  640 DISPLAY #1:AT9-HE(Y)+1FROM1+ANICO*15TOHEI
  650 PRINT #102,AT23,1:L$;
  660 LET LAC=LAC+2
  670 IF LAC>40THENLET LAC=1-RND(10)
  680 IF LAC>LLIMTHEN
  690   LET LA$="YY":LET LLIM=20+RND(15):LET SCO=SCO+1
  700 ELSE 
  710   LET LA$="PP"
  720 END IF 
  730 LET L$=L$(3:40)&LA$
  740 IF Y<16THENLET Y=Y+1
  750 IF Y=16THENLET ANICO=ANICO+1
  760 IF ANICO=4THENLET ANICO=0
  770 IF L$(6:14)<>"PPPPPPPPP"ANDY=16THENSET BORDER89:PRINT #102,AT1,ENE:"TTTT":LET ENE=ENE-4:SET BORDERBB:SOUND SOURCE3,DURATION1,STYLE35
  780 IF JOY(0)=16ANDY=16THENLET Y=1:SOUND SOURCE1,STYLE32,PITCH85,ENVELOPE1,DURATION20,INTERRUPT
  790 !IF JJJ=4 THEN GOTO 1600
  800 CALL ROTCHAR
  810 IF ENE>0THENGOTO  620
  820 CALL GAMEOVER
  830 GOTO  500
  840 DATA 0,1,2,3,4,5,6,7,7,6,5,4,3,2,1,0
  850 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  860 DATA " Ä▮ΩøÄ▮kkÄ▮kyÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  870 DATA " Ä▮Ωøkyyyykyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  880 DATA " ÄkkøyiiyyyiiyyΩky▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  890 DATA " kyyyi@@iyi@@iykyyyΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  900 DATA " k))y@@4@y@@4vyy))yΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  910 DATA " y))y@44vy@44vyy))yΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  920 DATA " yyyiivviyivviiyyyiΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  930 DATA " ÄyiøyiihyhiiiøΩyi▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  940 DATA " Ä▮ΩøkyyhhhyyyøΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  950 DATA " Ä▮ΩkyyΩyyyΩyyyΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  960 DATA " Ä▮ΩkyiΩøÄ▮ΩkyiΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  970 DATA " Ä▮kyyiiøÄ▮kyyiiøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  980 DATA " Ä▮kiiiiøÄ▮kyiiiøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
  990 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1000 !
 1010 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1020 DATA " Ä▮ΩøÄ▮kkÄ▮kyÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1030 DATA " Ä▮Ωøkyyyykyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1040 DATA " Ä▮køyiiyyyiiyyΩkÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1050 DATA " Äkyyi@@iyi@@iykyk▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1060 DATA " Äk)y@t@@y@t@vyy)k▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1070 DATA " Äk)y@44vy@44vyy)k▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1080 DATA " Äkyiivviyivviiyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1090 DATA " Ä▮iøyiihyhiii▮ΩyÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1100 DATA " Ä▮Ωøkyyhhhyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1110 DATA " Ä▮ΩkyyΩyyyΩøkyyøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1120 DATA " Ä▮kyy▮ΩøÄ▮ΩøkyiiÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1130 DATA " ÄkyyyiΩøÄ▮ΩkkyiiÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1140 DATA " Ä▮ΩøiiΩøÄ▮ΩkyiΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1150 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1160 !
 1170 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1180 DATA " Ä▮ΩøÄ▮kkÄ▮kyÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1190 DATA " Ä▮Ωøkyyyykyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1200 DATA " Ä▮ΩkyiiyyyiiyykøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1210 DATA " Ä▮kyi@@iyi@@iykkÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1220 DATA " Ä▮ky@tt@y@ttvyykÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1230 DATA " Ä▮ky@t@vy@t@vyykÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1240 DATA " Ä▮kiivviyivviiykÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1250 DATA " Ä▮Ωyyiihyhiii▮køÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1260 DATA " Ä▮ΩøkyyhhhyyyyΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1270 DATA " ÄykkyiΩyyy▮ΩyyyiÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1280 DATA " kkyyi▮ΩøÄ▮ΩøkyiiÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1290 DATA " Ä▮yiÄ▮ΩøÄ▮ΩøkiΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1300 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1310 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1320 !
 1330 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1340 DATA " Ä▮ΩøÄ▮kkÄ▮kyÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1350 DATA " Ä▮Ωøkyyyykyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1360 DATA " Ä▮køyiiyyyiiyyΩkÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1370 DATA " Äkyyi@@iyi@@iykyk▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1380 DATA " Äk)y@tt@y@ttvyy)k▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1390 DATA " Äk)y@@4vy@@4vyy)k▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1400 DATA " Äkyiivvyyyvviiyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1410 DATA " Ä▮iøyiihyhiiiøΩyÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1420 DATA " Ä▮Ωøkyyhhhyyy▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1430 DATA " Ä▮ΩkyyΩyyyΩøkyyøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1440 DATA " Ä▮kyy▮ΩøÄ▮ΩøkyiiÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1450 DATA " ÄkyyyiΩøÄ▮ΩkkyiiÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1460 DATA " Ä▮ΩøiiΩøÄ▮ΩkyiΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1470 DATA " Ä▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮ΩøÄ▮"
 1480 !
 1490 DEF COLCHAR
 1500   FOR X=0TO127
 1510     LET Y=X+128
 1520     LET B=XBORBIN(11111100)
 1530     LET D=XBANDBIN(11111)
 1540     SET CHARACTERX,B,Y,Y,Y,Y,Y,X,X,D
 1550   NEXT X
 1560   SET CHARACTER32,BB,BB,BB,BB,BB,BB,BB,BB,BB
 1570   !SET CHARACTER ORD("▮"),32,32,32,32,32,32,32,32,32
 1580   !SET CHARACTER ORD("è"),56,56,56,56,56,56,56,56,56
 1590   SET CHARACTERORD("@"),255,255,255,255,255,255,255,191,191
 1600 END DEF 
 1610 CLEAR FONT:TEXT 40
 1620 END 
 1630 DEF TITLE
 1631   CALL MUS
 1640   DISPLAY #102:AT1FROM1TO22
 1650   PRINT "                   yyyyyyyyyyyyyyyyy "
 1660   PRINT "       kk  ky      y               y "
 1670   PRINT "     kyyyykyyy       tt4 4 n n   6   "
 1680   PRINT "  kk yiiyyyiiyy ky     n n 6 66 66   "
 1690   PRINT " kyyyi66iyi66iykyyy  n 6 6 6 6 6 6   "
 1700   PRINT " k))y6v46y6v4vyy))y   6  666 6   6   "
 1710   PRINT " y))y644vy644vyy))y                  "
 1720   PRINT " yyyiivviyivviiyyyi 66  66  6 66 6n  "
 1730   PRINT "  yi yiiyyyiii  yi  6 6 6 6 6 6  n   "
 1740   PRINT "     kyyhhhyyy      66  66  n nn 44  "
 1750   PRINT "    kyy yyy yyy     6   6 n n  4 t   "
 1760   PRINT "    kyi     kyi     n   n n 4 tt tt  "
 1770   PRINT "   kyyii   kyyii   y               y "
 1780   PRINT "   kiiii   kyiii   yyyyyyyyyyyyyyyyy "
 1790   PRINT "                                     "
 1800   PRINT "   @@ @@   @   @  @@    @@@  @@  @   "
 1810   PRINT "   @  @ @ @ @ @ @ @  @ @    @  @ @   "
 1820   PRINT "   @@ @@  @@@ @   @@   @ @@ @  @ @   "
 1830   PRINT "    @ @   @ @ @ @ @  @ @  @ @  @     "
 1840   PRINT "   @@ @   @ @  @  @@    @@   @@  @   "
 1850   PRINT "                                     "
 1860   LET JJJ=JOY(0)
 1870   LET MM=RND(256):LET NN=MMBORBIN(1001001)
 1880   SET CHARACTERORD("@"),255,NN,NN,NN,NN,MM,MM,MM
 1890   LET JJJ=JOY(0)
 1900   IF JJJ<>16THENGOTO  1870
 1910   DISPLAY #102:AT1FROM0
 1920   SET CHARACTERORD("@"),255,255,255,255,255,255,255,191,191
 1921   CLEAR SOUND
 1930 END DEF 
 1940 STRING NU$(5)
 1950 RESTORE  2010
 1960 FOR X=1TO5
 1970   READ NU$(X)
 1980 NEXT X
 1990 RESTORE 
 2000 RETURN 
 2010 DATA "[[[dd[dd[[[d[[[d[ddd[[[d[[[d[[[d[[[d[[[d"
 2020 DATA "[d[d[[dddd[ddd[d[ddd[ddd[ddddd[d[d[d[d[d"
 2030 DATA "[d[dd[dd[[[dd[[d[[[d[[[d[[[dd[dd[[[d[[[d"
 2040 DATA "[d[dd[dd[ddddd[dd[dddd[d[d[d[ddd[d[ddd[d"
 2050 DATA "[[[d[[[d[[[d[[[dd[dd[[[d[[[d[ddd[[[d[[[d"
 2060 CALL GAMEOVER
 2070 DEF GAMEOVER
 2071   CALL ENDSOUND
 2080   SET BORDERBB
 2090   CLEAR #102
 2100   DISPLAY #102:AT1FROM1TO24
 2110   ! SET VIDEO X 42
 2120   ! SET VIDEO Y 5
 2130   ! OPEN £2:"video:"
 2140   !display £2:at 10 from 1 to 5
 2150   PRINT #102,AT5,10:"555555555555555555555555"
 2160   PRINT #102,AT6,10:"5ddddddddddddddddddddddd"
 2170   PRINT #102,AT7,10:"5d  ggg  g   g  ggg   dd"
 2180   PRINT #102,AT8,10:"5d  g    gg  g  g  g  dd"
 2190   PRINT #102,AT9,10:"5d  gg   g g g  g   g dd"
 2200   PRINT #102,AT10,10:"5d  g    g  gg  g  g  dd"
 2210   PRINT #102,AT11,10:"5d  ggg  g   g  ggg   dd"
 2220   PRINT #102,AT12,10:"5ddddddddddddddddddddddd"
 2230   PRINT #102,AT13,10:"5ddddddddddddddddddddddd"
 2240   PRINT #102,AT14,10:"5ddddddddddddddddddddddd"
 2250   PRINT #102,AT15,10:"5ddddddddddddddddddddddd"
 2260   PRINT #102,AT16,10:"5ddddddddddddddddddddddd"
 2270   PRINT #102,AT17,10:"5ddddddddddddddddddddddd"
 2280   PRINT #102,AT18,10:"5ddddddddddddddddddddddd"
 2290   PRINT #102,AT19,10:"5ddddddddddddddddddddddd"
 2300   PRINT #102,AT20,10:"5ddddddddddddddddddddddd"
 2310   FOR I=1TO20
 2320     CALL KIIR(STR$(SCO),15,13)
 2330   NEXT I
 2340   DISPLAY #102:AT2FROM0TO15
 2341   CLEAR SOUND
 2350 END DEF 
 2360 DEF KIIR(BE$,BEX,BEY)
 2370   DO 
 2380     IF LEN(BE$)<4THENLET BE$="0"&BE$
 2390   LOOP UNTILLEN(BE$)=4
 2400   FOR X=0TOLEN(BE$)-1
 2410     LET N=(ORD(BE$(X+1))-48)*4
 2420     FOR Y=1TO5
 2430       PRINT #102,ATBEY+Y,BEX+X*4:NU$(Y)(N+1:N+3);
 2440     NEXT Y
 2450   NEXT X
 2460 END DEF 
 2470 DEF ROTCHAR
 2480   SELECT CASEROTC
 2490   CASE 1
 2500     SET CHARACTER150,96,96,96,96,96,96,96,96,96
 2510     SET CHARACTER130,40,40,40,40,40,40,40,40,40
 2520     SET CHARACTER142,104,104,104,104,104,104,104,104,104
 2530     SET CHARACTER141,96,96,96,96,96,96,96,96,96
 2540   CASE 2
 2550     SET CHARACTER150,40,40,40,40,40,40,40,40,40
 2560     SET CHARACTER130,104,104,104,104,104,104,104,104,104
 2570     SET CHARACTER142,40,40,40,40,40,40,40,40,40
 2580     SET CHARACTER141,96,96,96,96,96,96,96,96,96
 2590   CASE 3
 2600     SET CHARACTER150,104,104,104,104,104,104,104,104,104
 2610     SET CHARACTER130,40,40,40,40,40,40,40,40,40
 2620     SET CHARACTER142,96,96,96,96,96,96,96,96,96
 2630     SET CHARACTER141,40,40,40,40,40,40,40,40,40
 2640   CASE 4
 2650     SET CHARACTER150,40,40,40,40,40,40,40,40,40
 2660     SET CHARACTER130,96,96,96,96,96,96,96,96,96
 2670     SET CHARACTER142,40,40,40,40,40,40,40,40,40
 2680     SET CHARACTER141,104,104,104,104,104,104,104,104,104
 2690   END SELECT 
 2700   LET ROTC=ROTC+1
 2710   IF ROTC>4THENLET ROTC=1
 2720 END DEF 
 2730 DEF ENDSOUND
 2740   CLEAR SOUND
 2750   LET P=40
 2760   LET D=200
 2770   ENVELOPE NUMBER3;0,63,63,1;0,-1,-1,D-1
 2780   ENVELOPE NUMBER4;0,63,63,1;-7,-1,-1,D-1
 2790   SOUND ENVELOPE4,SOURCE0,SYNC2,PITCHP,DURATIOND,STYLE64+128
 2800   SOUND ENVELOPE4,SOURCE2,SYNC2,PITCHP,DURATIOND,STYLE64
 2810   SOUND ENVELOPE3,SOURCE1,SYNC2,PITCHP,DURATIOND,STYLE64
 2830 END DEF 
 4000 DEF MUS
 5000   CLEAR SOUND
 5001   RESTORE  5100
 5010   ENVELOPE NUMBER6;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R;R,R,R,R
 5011   FOR I=1TO10
 5020     LET P=RND(30)+4
 5030     SOUND ENVELOPE6,DURATION140,SOURCE0,SYNC1,PITCHP,STYLE128
 5040     SOUND ENVELOPE6,DURATION140,SOURCE2,SYNC1,PITCHP+7.1+12,STYLE0
 5050   NEXT I
 5060   DEF R
 5070     READ A
 5080     LET R=A
 5090   END DEF 
 5100   DATA  0, 63, 63,2
 5110   DATA  0,-63,-63,16
 5120   DATA  4, 63, 63,2
 5130   DATA  0,-13,-63,8 
 5140   DATA -3, 63, 63,2
 5150   DATA  0,-63,-13,16
 5160   DATA -5, 63, 63,2
 5170   DATA  0,-13,-63,8 
 5180   DATA -2, 63, 63,2
 5190   DATA  0,-63,-13,16
 5200   DATA  2, 63, 63,2
 5210   DATA  0,-13,-63,8
 5220   DATA  3, 63, 63,2
 5230   DATA  0,-63,-13,16
 5240   DATA  2, 63, 63,2
 5250   DATA  0,-13,-63,8
 5260   DATA  3, 63, 63,2
 5270   DATA  0,-63,-63,16
 6000 END DEF