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>B1ANDC2B2THENPRINT"You're southwest.":GOTO292 260 IFC1>B1THENPRINT"You're too far east." 270 IFC1B2THENPRINT"You're too far south." 290 IFC2B3THENPRINT"You're too deep." 294 IFC3