Listing of file='ASTEROID' on disk='vmedia/games-droz00.wvd.zip'
# Sector 472, program filename = 'ASTEROID' 0010 REM Asteroid Space Challenge 0020 DIM D$80 0030 PRINT HEX(03060A020404000F0E);TAB(24);"VP SPACE CHALLENGE" 0040 PRINT 0050 PRINT TAB(18);"Hit any key to start program ..." 0060 PRINT 0070 KEYIN A$ 0090 PRINT TAB(2);"OBJECT: To pilot your spacecraft saftely "; 0092 PRINT "through the asteroid belt." 0095 PRINT 0100 PRINT TAB(22);"\C3\EF\EE\F4\F2\EF\EC\F3\A0\CB\E5\F9\F3" 0105 PRINT 0110 PRINT TAB(22);"1 = forward" 0120 PRINT TAB(22);"2 = reverse" 0130 PRINT TAB(22);"3 = fast forward" 0140 PRINT TAB(22);"0 = stop" 0145 PRINT 0150 PRINT "Spacecraft maintains constant velocity until altered by controls." 0160 DIM C(240) 0170 FOR A=1TO 240 0180 C(A)=INT(RND(9)*60) : IF C(A)<5THEN 180 0190 NEXT A 0200 B$="PREPARING SHIP" 0210 PRINT : PRINT 0220 IF H$<>" "THEN 270 0230 PRINT TAB(22);"HIT ANY KEY TO CONTINUE" : PRINT HEX(06); 0240 KEYIN Z$,250,250 : GOTO 240 0250 A$="0" : D=1 0260 REM 0270 PRINT TAB(C(D));HEX(0E);"*" 0280 IF D>24THEN 1170 0290 FOR E1=1TO 10 : NEXT E1 0300 PRINT HEX(0D0A) 0310 Z9=1 : GOTO 370 0320 D=D+1 0330 IF D=240THEN 1160 0340 GOTO 270 0350 Z9=2 : GOTO 370 0360 GOTO 180 0370 IF B$<>"===>"THEN 1180 0380 PRINT HEX(01);TAB(X);B$ 0390 IF X>=59THEN 800 0400 IF D<22THEN 420 : F=D-21 0410 GOTO 440 0420 F=240-(21-D) 0430 KEYIN A$,580,430 0440 IF C(F)=XTHEN 700 0450 IF C(F)=X+1THEN 700 0460 IF C(F)=X+2THEN 700 0470 IF C(F)=X+3THEN 700 0480 IF C(F)=X+4THEN 700 0490 GOSUB 560 0500 KEYIN A$,580,500 0510 IF A$="1"THEN 670 0520 IF A$="0"THEN 640 0530 IF A$="2"THEN 620 0540 IF A$="3"THEN 660 0550 IF Z9=1THEN 320 : GOTO 360 0560 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A) : FOR A8=1 TO 2 : $BREAK 255 : NEXT A8 0570 RETURN 0580 IF A$="1"THEN 670 0590 IF A$="0"THEN 640 0600 IF A$="2"THEN 620 0610 IF A$="3"THEN 660 0620 X=X-1 : IF X<0THEN 670 0630 GOTO 550 0640 X=X 0650 GOTO 550 0660 X=X+1 0670 X=X+1 0680 GOTO 550 0690 PRINT 0700 REM CRASH 0710 T2=T2+1 0720 PRINT HEX(01);TAB(X);"BOOM" 0730 PRINT : PRINT 0740 A$="0" : X=0 0750 B$="REPAIRING SHIP" 0760 GOSUB 1080 0770 IF T2=10THEN 890 0780 FOR Q=1TO 300 : NEXT Q : GOTO 250 0790 REM MADE IT! 0800 PRINT HEX(01);TAB(20);"MISSION ACCOMPLISHED!!" 0810 PRINT : PRINT 0820 T2=T2+1 0830 T1=T1+1 0840 GOSUB 1080 0850 IF T2=10THEN 890 0860 B$="COOLING REACTORS" 0870 X=0 : A$="0" : FOR Q=1TO 300 : NEXT Q : GOTO 250 0880 PRINT 0890 PRINT : PRINT TAB(15); : IF T1>=7THEN 950 0900 IF T1=6THEN 970 0910 IF T1>=4THEN 990 0920 IF T1>=2THEN 1010 0930 IF T1=1THEN 1030 0940 IF T1=0THEN 1050 0950 PRINT "YOU CHEATED YOU BUM!!!" 0960 GOTO 1060 0970 PRINT "YOU ARE A REGULAR NEIL ARMSTRONG!!!" 0980 GOTO 1060 0990 PRINT "N.A.S.A. NEEDS YOU!!!" 1000 GOTO 1060 1010 PRINT "HOW DOES IT FEEL TO BE MEDIOCRE?!!" 1020 GOTO 1060 1030 PRINT "IT COULD HAVE BEEN WORSE!!!" 1040 GOTO 1060 1050 PRINT "YOU ARE A REGULAR SPIRO AGNEW!!!" 1060 PRINT : PRINT TAB(15);"KEYIN 1 TO PLAY AGAIN OF 2 TO STOP" 1070 KEYIN H$,1100,1100 : GOTO 1070 1080 PRINT TAB(15);"THAT'S ";T1;"SUCCESSES FOR ";T2;"ATTEMPTS" 1090 RETURN 1100 IF H$="2"THEN 1190 1110 T1,T2,X=0 1120 PRINT HEX(030A0A0A0A0A0A0A);TAB(20);"SETTING UP FOR NEXT RUN" 1130 A$="0" 1140 D=1 1150 B$="*" : GOTO 290 1160 D=1 1170 B$="===>" : GOTO 290 1180 X=0 : A$="0" : GOTO 380 1190 END 9999 %SCRATCH T "ASTEROID": SAVE T()"ASTEROID"