0REM FROM 19F 1MODE1 15 VDU19,1,3,0,0,0,19,2,1,0,0,0,19,3, 4,0,0,0 20 FOR Y1=0 TO 3 30 FOR Y2=0 TO 1 40 FOR Y3=0 TO 4 50 MOVE 0,40+Y3*16+Y2*96+Y1*240 60 DRAW 1280,40+Y3*16+Y2*96+Y1*240 70 NEXT:NEXT:NEXT 80 VDU 5 90 X1=50:Y1=720 95 ENVELOPE1,3,0,0,0,0,0,0,60,-5,-1,- 3,120,90 100 D=3 110 T=-30 120 A4=1 130 READ A 140 A3=A DIV 10000 150 A2=(A DIV 100) MOD 100 160 A1=A MOD 100 165 REPEATUNTILADVAL(-6)=15 170 SOUND 1,A4,A1*4+T,D 180 MOVE X1,Y1+4*A1:GCOL 0,1:PRINT "o" ; 185 REPEATUNTILADVAL(-7)=15 190 IF A2=0 THEN SOUND 2,0,1,D:GOTO 22 0 200 SOUND 2,A4,A2*4+T,D 210 MOVE X1,Y1+4*A2:GCOL 0,2:PRINT "o" ; 220 IF A3=0 THEN SOUND 3,0,1,D:GOTO 25 0 225 REPEATUNTILADVAL(-8)=15 230 SOUND 3,A4,A3*4+T,D 240 MOVE X1,Y1+4*A3:GCOL 0,3:PRINT "o" ; 250 X1=X1+32 260 IF X1>1200 THEN X1=100:Y1=Y1-240 270 ON ERROR GOTO 290 280 GOTO 130 290 IF ERR=17 THEN CHAIN":2.$.MENU" 300 RESTORE 310GOTO1 320 DATA 40,38,40,36,40,35,40,33,40,32 ,40 330 DATA 33,40,35,40,36,40 340 DATA 28,40,30,40,32,40,33,40,32,40 ,33,40,35,40,36 350 DATA 3645,3743,3745,3841,3845 360 DATA 3340,3345,2638,2645,2137,2145 ,2638,2645,3340,3345 370 DATA 3841,3845,2133,2145,2135,2145 ,2137,2145,2138,2145,2137,2145 380 DATA 2138,2145,2140,2145,2641,2638 ,2633,2638,2641,2638,2633,2638 390 DATA 3146,3143,3138,3143,3143,3138 ,3134,3138 400 DATA 2443,2440,2436,2440,2443,2440 ,2436,2440 410 DATA 2945,2941,2936,2941,2941,2936 ,2933,2936 420 DATA 2241,2238,2234,2238,2241,2238 ,2234,2238 430 DATA 2840,2835,2832,2835,28