image of READY prompt

Wang2200.org

Listing of file='SHOOT'EM' on disk='vmedia/best_of_BD_fules.wvd.zip'

# Sector 241, program filename = 'SHOOT'EM'
0000 PRINT HEX(03)
0010 DIM O$64,O(2),D(2)
   : INIT(0A)D$
   : INIT(09)O$
   : STR(D$,1,1)=HEX(01)
0020 O=30
   : FOR I=1TO 2
   : O(I)=INT(RND(1)*60)+1
   : D(I)=1
   : NEXT I
   : FOR T=1TO 1
0030 NEXT T
   : FOR T=1TO 2
   : PRINT STR(D$,1,D(T));STR(O$,1,O(T));"    "
   : D(T)=D(T)+1
   : ON D(T)-13GOSUB 90
   : PRINT STR(D$,1,D(T));STR(O$,1,O(T));"X**X"
0040 KEYIN A$,40,40
   : ON (VAL(A$)-51)GOTO 50,60,70
   : O2=0
   : GOTO 80
0050 IF O<2THEN 30
   : O2=-2
   : GOTO 80
0060 IF F1=1THEN 80
   : F1=1
   : F2=O
   : F=14
   : A$=" "
   : GOTO 80
0070 IF O>62THEN 30
   : O2=2
   : GOTO 80
0080 PRINT STR(D$,1,15);STR(O$,1,O);" "
   : IF O+O2<1THEN 100
   : IF O+O2>63THEN 100
   : O=O+O2
   : GOTO 100
0090 D(T)=1
   : S=S-1
   : IF S<0THEN 91
   : PRINT HEX(01);S
   : RETURN
0091 RETURN CLEAR
   : PRINT HEX(01);"YOU WERE TRANSFERED FROM 'The Alien Defense Squad' TO THE
     POTATOPEELING SQUAD."
   : STOP
0100 PRINT STR(D$,1,15);STR(O$,1,O);"^";HEX(01)
   : IF F1<>1THEN 30
   : PRINT STR(D$,1,F);STR(O$,1,F2);" "
   : F=F-1
   : F1=0
   : IF F<1THEN 30
   : F1=1
   : PRINT STR(D$,1,F);STR(O$,1,F2);"."
   : FOR G=1TO 2
   : IF (INT((D(G)-F)/2)+1)*(INT((F2-O(G))/4)+1)=1THEN 110
   : NEXT G
   : GOTO 30
0110 PRINT STR(D$,1,D(G));STR(O$,1,O(G));"BOOM"
   : S=S+10
   : PRINT STR(D$,1,D(G)-1);STR(O$,1,O(G));"    "
   : PRINT STR(O$,1,O(G));"    ";HEX(010D);S
   : O(G)=INT(RND(1)*60)+1
   : D(G)=1
   : F1=0
   : IF S>=2000 THEN 120
   : NEXT G
   : GOTO 30
0120 PRINT "YOU WERE PROMOTED TO THE POSITION OF FIVE STAR GENERAL."
   : GOTO 130
0130 END