100 CLS :RANDOMIZE

110 PRINT "SOUND ON (Y/N)?"

120 A$=INKEY$ :IF A$="Y" GOTO 150

130 IF A$="N" GOTO 170

140 GOTO 120

150 SOUND=1

160 GOTO 180

170 SOUND=0

180 CLS :STG=0:OBS=20:DELAY=32

190 X=100:Y=10

200 GCURSOR (X,Y)

210 GPRINT "807E0000003C000000FF"

220 GCURSOR (X+10,Y)

230 GPRINT "00000010282444428200"

240 GCURSOR (X+20,Y)

250 GPRINT "0004748E0454888A5502"

260 GCURSOR (X+30,Y)

270 GPRINT "00001E201080403F0000"

280 A$=INPUT $1

290 STG=STG+1

300 IF STG>15 GOTO 320

310 OBS=OBS+1:DELAY=DELAY-1

320 CLS

330 LINE (19,0)-(229,0)

340 LINE (19,0)-(19,31)

350 LINE (19,31)-(229,31)

360 LINE (229,0)-(239,10)

370 LINE (230,0)-(239,9)

380 LINE (229,31)-(239,21)

390 LINE (230,31)-(239,22)

400 LINE (238,10)-(238,21)

410 LOCATE 0,0:PRINT USING "##";STG

420 IF STG=3 THEN GOTO 480

430 IF STG=6 THEN GOTO 650

440 IF STG=9 THEN GOTO 680

450 IF STG=15 THEN GOTO 780

460 IF STG=12 THEN GOTO 960

470 GOTO 1050

480 REM STAGE 3

490 LINE (60,0)-(60,10)

500 LINE (60,21)-(60,31)

510 LINE (80,0)-(80,5)

520 LINE (80,12)-(80,31)

530 LINE (100,0)-(100,18)

540 LINE (100,24)-(100,31)

550 LINE (120,0)-(120,18)

560 LINE (120,24)-(120,31)

570 LINE (140,0)-(140,8)

580 LINE (140,20)-(140,31)

590 LINE (160,0)-(160,22)

600 LINE (180,0)-(180,5)

610 LINE (190,15)-(190,31)

620 LINE (200,0)-(200,13)

630 LINE (210,20)-(210,31)

640 GOTO 1140

650 REM STAGE 6

660 LINE (49,15)-(229,15)

670 GOTO 1140

680 REM STAGE 9

690 LINE (49,0)-(49,15)

700 LINE (49,15)-(89,15)

710 LINE (99,23)-(130,23)

720 LINE (130,23)-(130,10)

730 LINE (130,10)-(140,10)

740 LINE (160,10)-(160,21)

750 LINE (180,12)-(200,19),B

760 LINE (228,12)-(228,19)

770 GOTO 1140

780 REM STAGE 15

790 LINE (50,21)-(70,10)

800 LINE (51,21)-(70,11)

810 LINE (70,10)-(90,21)

820 LINE (70,11)-(89,21)

830 LINE (100,10)-(110,21)

840 LINE (101,10)-(110,20)

850 LINE (110,21)-(120,10)

860 LINE (110,20)-(119,10)

870 LINE (130,0)-(140,21)

880 LINE (131,0)-(140,20)

890 LINE (140,21)-(150,0)

900 LINE (140,20)-(149,0)

910 LINE (170,31)-(180,10)

920 LINE (171,31)-(180,11)

930 LINE (180,10)-(229,31)

940 LINE (180,11)-(228,31)

950 GOTO 1140

960 REM STAGE 12

970 LINE (50,5)-(60,17),B

980 LINE (75,14)-(85,26),B

990 LINE (100,5)-(110,17),B

1000 LINE (125,14)-(135,26),B

1010 LINE (150,5)-(160,17),B

1020 LINE (175,14)-(185,26),B

1030 LINE (200,5)-(210,17),B

1040 GOTO 1140

1050 FOR I=0TO OBS

1060 X=(RND (239-45))+35:Y=RND 30

1070 PSET (X,Y):PSET (X+1,Y)

1080 PSET (X,Y+1):PSET (X+1,Y+1)

1090 IF STG<5 THEN GOTO 1130

1100 PSET (X+2,Y):PSET (X+2,Y+1)

1110 IF STG<10 THEN GOTO 1130

1120 PSET (X+3,Y):PSET (X+3,Y+1)

1130 NEXT

1140 X=20:Y=15

1150 IF POINT (X,Y)<>0 GOTO *CRASHED

1160 PSET (X,Y)

1170 X=X+1,Y=Y-1-(INKEY$ ="")*2

1180 FOR H=0TO DELAY:NEXT

1190 GOTO 1150

1200 *CRASHED

1210 IF X=238 THEN 1300

1220 IF SOUND=0 GOTO 1240

1230 BEEP 1,255,5:FOR I=0TO 10:NEXT I:BEEP 1,255,30

1240 PRINT "CRASHED!"

1250 PRINT "GAME OVER...."

1260 PRINT "TRY AGAIN (Y/N)?"

1270 A$=INKEY$ :IF A$="Y" GOTO 180

1280 IF A$="N" GOTO *END

1290 GOTO 1270

1300 IF STG=15 THEN GOTO 1420

1310 PRINT "STAGE CLEAR!"

1320 IF SOUND=0 THEN GOTO 1390

1330 BEEP 1,141,50:FOR I=0TO 80:NEXT

1340 BEEP 1,141,30:FOR I=0TO 40:NEXT

1350 BEEP 1,141,30:FOR I=0TO 40:NEXT

1360 BEEP 1,123,60:FOR I=0TO 80:NEXT

1370 BEEP 1,107,60:FOR I=0TO 80:NEXT

1380 BEEP 1,100,60:FOR I=0TO 80:NEXT

1390 IF STG=99 THEN PRINT "YOU ARE THE MASTER OF THIS GAME!!!"

1400 IF STG=99 THEN GOTO *END

1410 GOTO 1640

1420 PRINT "*** ALL STAGE CLEARED!!! ***"

1430 IF SOUND=0 THEN GOTO 1640

1440 BEEP 1,69,300:FOR I=0TO 50:NEXT

1450 BEEP 1,69,100:FOR I=0TO 50:NEXT

1460 BEEP 1,69,100:FOR I=0TO 50:NEXT

1470 BEEP 1,69,300:FOR I=0TO 50:NEXT

1480 BEEP 1,86,100:FOR I=0TO 50:NEXT

1490 BEEP 1,69,100:FOR I=0TO 50:NEXT

1500 BEEP 1,59,400:FOR I=0TO 50:NEXT

1510 BEEP 1,50,200:FOR I=0TO 50:NEXT

1520 BEEP 1,46,500:FOR I=0TO 50:NEXT

1530 BEEP 1,50,200:FOR I=0TO 50:NEXT

1540 BEEP 1,59,200:FOR I=0TO 50:NEXT

1550 BEEP 1,69,200:FOR I=0TO 50:NEXT

1560 BEEP 1,46,200:FOR I=0TO 50:NEXT

1570 BEEP 1,50,200:FOR I=0TO 50:NEXT

1580 BEEP 1,59,200:FOR I=0TO 50:NEXT

1590 BEEP 1,50,200:FOR I=0TO 50:NEXT

1600 BEEP 1,69,200:FOR I=0TO 50:NEXT

1610 BEEP 1,50,200:FOR I=0TO 50:NEXT

1620 BEEP 1,39,300:FOR I=0TO 50:NEXT

1630 BEEP 1,46,1200:FOR I=0TO 50:NEXT

1640 PRINT "READY FOR THE NEXT STAGE (Y)?"

1650 A$=INKEY$

1660 IF A$="Y" THEN GOTO 290

1670 GOTO 1650

1680 *END

1690 CLEAR