0 REM FROM 19F 1 MODE1 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 220 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 250 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 310 GOTO1 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