Listing of file='SUBMARIN' on disk='vmedia/gamesall.wvd.zip'
# Sector 422, program filename = 'SUBMARIN'
0010 PRINT HEX(03);,"SUBMARINE COMMANDER"
: SELECT P
0020 PRINT
: PRINT "YOU ARE THE COMMANDER OF A SUBMARINE WHO IS TRYING TO SINK A CR
UISER. THE CRUISER MOVES ALL OVER THE SEA AND YOU MUST PRESS THE S.F. KE
YS, (THE FLAT ONES ON TOP), TO ";
0030 PRINT "PLACE THE SUBMARINE";
: PRINT "UNDER THE CRUISER. IF YOU PRESS A KEY ON THE RIGHT, THE SUB WI
LL GO RIGHT, IF YOU PRESS A KEY ON THE LEFT, THE SUB WILL GO LEFT."
0040 PRINT "WHEN YOU ARE UNDER THE CRUISER, PRESS *RETURN* TO FIRE*TORPEDO. IF
YOU DO NOT FIRE TORPEDO FAST ENOUGH, CRUISER WILL DROP A DEPTH CHARG
E AND BLOW YOU UP."
0050 PRINT "ENTER RANK OF CRUISER COMMANDER (A HIGH RANK FOR A HARD GAME)"
: R=3
0060 PRINT "ADMIRAL=1, CAPTAIN=2, ENSIGN=3, YEOMAN=4, DECKHAND=5";
: INPUT R
: R=R*10-5
0070 SELECT P
: PRINT HEX(03)
: B$=HEX(08)
0080 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A0A)
: PRINTUSING 120,D,F,T,H
: A=57*RND(12*A)
: BIN(B$)=B*15/55
: SELECT P
: IF Q<>1THEN 100
: PRINT HEX(03)
: Q=0
0090 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A0A)
: PRINTUSING 120,D,F,T,H
0100 PRINT HEX(010A);TAB(A);"CRUISER";TAB(64)
: SELECT P
0110 PRINT HEX(2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FF
C2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC2FFC)
0120 %DAYS AT SEA=### TORPEDOES=### HITS=### DEPTH CHARGES=###
0130 D=D+1
: IF D>100THEN 280
: FOR I=1TO R
: BIN(B$)=B*15/55
0140 PRINT HEX(010A0A0A0A0A0A0A0A0A0A);TAB(B);"SUBMARINE";TAB(64)
0150 KEYIN B$,200,160
0160 B=VAL(B$)*55/15
0170 IF B>57THEN 150
0180 NEXT I
0190 IF ABS(A-B)>4THEN 80
: PRINT HEX(010A0A0A)
: FOR I=1TO 6
: PRINT TAB(A+3);"<DC>";TAB(64)
: NEXT I
: Q=1
: H=H+1
: PRINT TAB(A);" INE"
: PRINT TAB(A);" MAR "
: PRINT TAB(A);"SUB "
: SELECT P7
: GOTO 80
0200 I=100
: NEXT I
: IF B$<>HEX(0D)THEN 80
0210 PRINT HEX(01)
: F=F+1
0220 FOR J=9TO 3STEP -1
0230 FOR I=1TO J
0240 PRINT HEX(0A);
: NEXT I
0250 PRINT TAB(B+3);"^";TAB(64);HEX(01)
: NEXT J
: Q=1
0260 IF ABS(A-B)<=4THEN 270
: PRINT TAB(B);"MISSED"
: SELECT P7
: GOTO 80
0270 T=T+1
: PRINT ;TAB(A);"VVVVVV";TAB(64)
: PRINT TAB(A);" VVV";TAB(64)
: SELECT P7
: GOTO 80
0280 PRINT HEX(01);"100 DAYS AT SEA IS ENOUGH"