Listing of file='ASTEROID' on disk='vmedia/gamesall.wvd.zip'
# Sector 482, program filename = 'ASTEROID' 0001 REM "ASTEROID SPACE CHALLENGE" - FINAL VERSION COMPLETED 12/16/74 BY B. K ELLY CRUMP OF THE MEMPHIS WANG OFFICE 0002 DIM D$64 0003 PRINT HEX(030A);TAB(25);"SPACE CHALLENGE" 0004 PRINT 0005 PRINT TAB(18);"HIT ANY KEY TO START PROGRAM" 0006 PRINT 0007 KEYIN A$,9,9 0008 Z1=RND(9) : GOTO 7 0009 PRINT TAB(2);"OBJECT: TO PILOT YOUR SPACECRAFT THROUGH THE ASTEROID BELT" 0010 PRINT TAB(14);"CONTROLS FUNCTION AS FOLLOWS:" 0011 PRINT TAB(22);"1 = FORWARD" 0012 PRINT TAB(22);"2 = REVERSE" 0013 PRINT TAB(22);"3 = FAST FORWARD" 0014 PRINT TAB(22);"0 = STOP" 0015 PRINT "SPACECRAFT MAINTAINS CONSTANT VELOCITY UNTIL ALTERED BY CONTROLS" 0016 DIM C(160) 0017 FOR A=1TO 160 0018 C(A)=INT(RND(9)*60) : IF C(A)<5THEN 18 0019 NEXT A 0020 B$="PREPARING SHIP" 0021 PRINT : PRINT 0022 IF H$<>" "THEN 27 0023 PRINT TAB(22);"HIT ANY KEY TO CONTINUE" 0024 KEYIN Z$,25,25 : GOTO 24 0025 A$="0" : D=1 0026 REM 0027 PRINT TAB(C(D));"*" 0028 IF D>15THEN 117 0029 FOR E1=1TO 10 : NEXT E1 0030 PRINT HEX(0A) 0031 Z9=1 : GOTO 37 0032 D=D+1 0033 IF D=160THEN 116 0034 GOTO 27 0035 Z9=2 : GOTO 37 0036 GOTO 18 0037 IF B$<>"===>"THEN 118 0038 PRINT HEX(01);TAB(X);B$ 0039 IF X>=59THEN 80 0040 IF D<14THEN 42 : F=D-13 0041 GOTO 44 0042 F=160-(13-D) 0043 KEYIN A$,58,43 0044 IF C(F)=XTHEN 70 0045 IF C(F)=X+1THEN 70 0046 IF C(F)=X+2THEN 70 0047 IF C(F)=X+3THEN 70 0048 IF C(F)=X+4THEN 70 0049 GOSUB 56 0050 KEYIN A$,58,50 0051 IF A$="1"THEN 67 0052 IF A$="0"THEN 64 0053 IF A$="2"THEN 62 0054 IF A$="3"THEN 66 0055 IF Z9=1THEN 32 : GOTO 36 0056 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A) 0057 RETURN 0058 IF A$="1"THEN 67 0059 IF A$="0"THEN 64 0060 IF A$="2"THEN 62 0061 IF A$="3"THEN 66 0062 X=X-1 : IF X<0THEN 67 0063 GOTO 55 0064 X=X 0065 GOTO 55 0066 X=X+1 0067 X=X+1 0068 GOTO 55 0069 PRINT 0070 REM CRASH 0071 T2=T2+1 0072 PRINT HEX(0107);TAB(X);"BOOM" 0073 PRINT : PRINT 0074 A$="0" : X=0 0075 B$="REPAIRING SHIP" 0076 GOSUB 108 0077 IF T2=10THEN 89 0078 FOR Q=1TO 300 : NEXT Q : GOTO 25 0079 REM MADE IT! 0080 PRINT HEX(01);TAB(20);"MISSION ACCOMPLISHED!!" 0081 PRINT : PRINT 0082 T2=T2+1 0083 T1=T1+1 0084 GOSUB 108 0085 IF T2=10THEN 89 0086 B$="COOLING REACTORS" 0087 X=0 : A$="0" : FOR Q=1TO 300 : NEXT Q : GOTO 25 0088 PRINT 0089 PRINT : PRINT TAB(15); : IF T1>=7THEN 95 0090 IF T1=6THEN 97 0091 IF T1>=4THEN 99 0092 IF T1>=2THEN 101 0093 IF T1=1THEN 103 0094 IF T1=0THEN 105 0095 PRINT "YOU CHEATED YOU BUM!!!" 0096 GOTO 106 0097 PRINT "YOU ARE A REGULAR NEIL ARMSTRONG!!!" 0098 GOTO 106 0099 PRINT "N.A.S.A. NEEDS YOU!!!" 0100 GOTO 106 0101 PRINT "HOW DOES IT FEEL TO BE MEDIOCRE?!!" 0102 GOTO 106 0103 PRINT "IT COULD HAVE BEEN WORSE!!!" 0104 GOTO 106 0105 PRINT "YOU ARE A REGULAR SPIRO AGNEW!!!" 0106 PRINT : PRINT TAB(15);"KEYIN 1 TO PLAY AGAIN OF 2 TO STOP" 0107 KEYIN H$,110,110 : GOTO 107 0108 PRINT TAB(15);"THAT'S ";T1;"SUCCESSES FOR ";T2;"ATTEMPTS" 0109 RETURN 0110 IF H$="2"THEN 119 0111 T1,T2,X=0 0112 PRINT HEX(030A0A0A0A0A0A0A);TAB(20);"SETTING UP FOR NEXT RUN" 0113 A$="0" 0114 D=1 0115 GOTO 16 0116 D=1 0117 B$="===>" : GOTO 29 0118 X=0 : A$="0" : GOTO 38 0119 END