home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
gam
/
depth.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
48 lines
1 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE
5 'DEPTH CHARGE BY RUSS HALL
100 CLS
120 FORF=1TOVAL(RIGHT$(TIME$,2)):R=RND(1):NEXT
130 PRINT:PRINTTAB(11)"* DEPTH CHARGE *"
140 FORF=1TO500:NEXT
150 GOSUB1010
210 CLS:PRINT@45,"ENTER E/W COORDINATE 1st, (comma)":PRINT@85,"THEN N/S, (comma) THEN DEPTH."
220 GOSUB1300
225 CLS:PRINT:D=0
230 IFD>4THEN150
235 B1=INT(RND(1)*5)+1:B2=INT(RND(1)*5)+1:B3=INT(RND(1)*5)+1
240 D=0
250 INPUT" YOUR GUESS (W/E,N/S,DEP)";C1,C2,C3
252 IFC1>B1ANDC2>B2THENPRINT"You're southeast.":GOTO292
254 IFC1>B1ANDC2<B2THENPRINT"You're northeast.":GOTO292
256 IFC1<B1ANDC2<B2THENPRINT"You're northwest.":GOTO292
258 IFC1<B1ANDC2>B2THENPRINT"You're southwest.":GOTO292
260 IFC1>B1THENPRINT"You're too far east."
270 IFC1<B1THENPRINT"You're west."
280 IFC2>B2THENPRINT"You're too far south."
290 IFC2<B2THENPRINT"You're north."
292 IFC3>B3THENPRINT"You're too deep."
294 IFC3<B3THENPRINT"You're shallow."
300 D=D+1
310 IFC1=B1ANDC2=B2ANDC3=B3THENPRINT"Good, you got it in"D"guesses!":PRINT" The submarine is destroyed.":GOTO400
320 GOTO250
400 FORF=1TO500:NEXT
500 PRINT"Do you wish to play again?"
510 K$=INKEY$:IFK$=""THEN510
520 IFK$="Y"ORK$="y"THENPRINT:GOTO230
530 MENU
1010 CLS:PRINT@110,"E Ü"
1020 LINE(90,20)-(130,50),1,B
1030 LINE(90,20)-(110,10)
1040 LINE(130,20)-(150,10)
1050 LINE(110,10)-(150,10)
1060 LINE(130,50)-(150,39)
1070 LINE(150,10)-(150,39)
1080 FORF=1TO5
1085 PRINT@F*40+52,F
1090 NEXT
1095 PRINT@18,"1 2 3 4 5"
1100 PRINT@80,"The sub is":PRINT@120,"somewhere in":PRINT@160,"this portion":PRINT@200,"of sea."
1300 PRINT@300,"Hit any key...";
1310 K$=INKEY$:IFK$=""THEN1310
1320 RETURN