home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / sub100.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  63 lines
  1. 0 'SUB100  Joe Wasserman
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 CLEAR300
  4. 20 ONERRORGOTO510
  5. 30 CLS:PRINT@84,CHR$(235):PRINT@123,STRING$(2,239):PRINT@161,CHR$(252)+STRING$(6,239)+CHR$(254)
  6. 40 PRINT@201,CHR$(253)+STRING$(6,239)+CHR$(251)
  7. 50 FORZ=1TO300:NEXT
  8. 60 T$="     SINK THE SUBMARINE"
  9. 70 FORX=1TO2
  10. 80 FORZ=209TO238
  11. 90 PRINT@Z," "+CHR$(232)
  12. 100 PRINT@Z,MID$(T$,Z-208,1)
  13. 110 NEXTZ:PRINT@238,"  ":FORY=1TO300:NEXTY
  14. 120 T$="  by Joe Wasserman 73117,3600"
  15. 130 NEXTX:CLS
  16. 140 PRINT"There is an enemy sub within 50 to 200  miles of your ship.":PRINT
  17. 150 PRINT"You have 12 missiles to destroy it but  your sonar is being jammed. It can tell by how much you missed the sub ";
  18. 160 PRINT"but not  the direction.":PRINT@290,"Any Key to continue";
  19. 170 IFINKEY$=""THEN170
  20. 180 CLS:PRINT"You must detonate within 3 miles of the sub to destroy it.";
  21. 190 PRINT" Enter RANGE and ANGLEand your computer will keep you posted  of the co-ordinates of your closest hit."
  22. 200 PRINT@290,"Any Key to Continue";
  23. 210 IFINKEY$=""THEN210
  24. 220 CLS
  25. 230 LINE(77,20)-(120,63):LINE(120,3)-(120,63):LINE(162,21)-(120,63)
  26. 240 PRINT@289,"0";:PRINT@91,"45":PRINT@108,"135":PRINT@311,"180";
  27. 250 PRINT@0,"RANGE":PRINT@25,"ANGLE":PRINT@120,"Miss>":PRINT@200,"closest":PRINT@281,"r   a";
  28. 260 RESTORE:FORZ=1TO37:READX1,Y1:PSET(X1,Y1):NEXT
  29. 270 IFMAXRAM=61104THENPOKE63277,PEEK(61983)ELSEPOKE64634,PEEK(63791)
  30. 280 FORZ=1TOVAL(RIGHT$(TIME$,2)):X=RND(1):NEXT
  31. 290 R1=INT(RND(1)*151+50):A1=INT(RND(1)*180+1)
  32. 300 CL=400:FORU=1TO12:PRINT@191,USING"READY ##";U
  33. 310 PRINT@5,"";:INPUTR:IFR<50ORR>200THENPRINT@6,"     ":GOTO310
  34. 320 PRINT@30,"";:INPUTA:IFA<0ORA>180THENPRINT@31,"     ":GOTO320
  35. 330 X=R*.3*COS(A*.0174533):Y=R*.3*SIN(A*.0174533)
  36. 340 LINE(119-X,63-Y)-(121-X,63-Y):LINE(120-X,63-Y)-(120-X,62-Y)
  37. 350 PRINT@191,CHR$(27)"p"" FIRE "CHR$(27)"q":FORZ=4000TO9000STEP100:SOUNDZ,1:NEXTZ
  38. 360 D=SQR(R*R+R1*R1-(2*R*R1*COS((A-A1)*.0174533))):IFD<CLTHENCL=D:R2=R:A2=A
  39. 370 PRINT@125,USING"###.##";D:PRINT@240,USING"### ###";R2;A2:IFD<=3THEN420
  40. 380 PRINT@5,"     ":PRINT@30,"      "
  41. 390 NEXTU
  42. 400 PRINT@0,CHR$(27)"p"" MISSILES ":PRINT@25," EXHAUSTED ":GOSUB530:PRINT@0,"SUB AT"R1"MILES":PRINT@25,A1"DEGREES"CHR$(27)"q"
  43. 410 FORZ=1TO2E3:NEXT:GOTO220
  44. 420 IFY<2THENY=2
  45. 430 FORZ=1TO15
  46. 440 FORW=1TO2
  47. 450 LINE(119-X,62-Y)-(121-X,64-Y),W,B:LINE(118-X,61-Y)-(122-X,65-Y),W,B
  48. 460 NEXTW:SOUND4184,3
  49. 470 NEXTZ
  50. 480 PRINT@0,CHR$(27)"p"" SUB DESTROYED AT"R1"MILES"A1"DEGREES"CHR$(27)"q":FORZ=1TO1500:NEXT:GOTO220
  51. 490 DATA60,63,60,57,60,52,62,47,63,42,65,37,68,32,70,28,74,24,77,20,81,17,85,13,90,11,94,8,99,6,104,5,109,3,114,3,120,3,125,3
  52. 500 DATA130,3,135,5,140,6,145,8,150,11,154,13,158,17,162,20,165,24,169,28,171,33,174,37,176,42,177,47,180,52,180,57,180,63
  53. 510 IFERL=350THENRESUMENEXT
  54. 520 PRINTERL;ERR:STOP
  55. 530 X=R1*.3*COS(A1*.0174533):Y=R1*.3*SIN(A1*.0174533):Y=Y-1*(Y<=0)
  56. 540 FORZ=1TO10
  57. 550 FORV=1TO2
  58. 560 LINE(119-X,62-Y)-(121-X,64-Y),V,B
  59. 570 FORW=1TO35:NEXTW
  60. 580 NEXTV:SOUND4184,2
  61. 590 NEXTZ:PSET(120-X,63-Y)
  62. 600 RETURN
  63.