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