home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / bomb.200 < prev    next >
Text File  |  2006-10-19  |  7KB  |  89 lines
  1. 0 'BOMB.BA  Modified for the Model 200     CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:DIMB(4),D(4):T=300:D=1:E=0:F=1:DE$=CHR$(98)+CHR$(99)+CHR$(97):PRINT"Do you want instructions ";
  3. 2 A$=INKEY$:IFA$=""THEN2
  4. 3 CLS:IFA$="y"THENGOSUB72
  5. 4 IFA$="Y"THEN:PRINT"Use only small letters in this game!":PRINT:PRINT"TURN OFF CAPS LOCK!":FORX=1TO1000:NEXTX:RUN
  6. 5 LINE(0,10)-(239,127),1,B:R%=6:FORX=1TO5:READXC%,YC%:GOSUB78:NEXTX:DATA 20,25,220,25,120,70,20,110,220,110:FORX=1TO5:READA,A$:PRINT@A,A$;:NEXTX:FORX=1TO4:B(X)=1:NEXTX:DATA85,A,114,B,300,C,525,D,554,E:D(1)=85:D(2)=114:D(3)=525:D(4)=554
  7. 6 GOSUB71:PRINT@0,"Remove which BOLT ";:GOSUB70
  8. 7 IFA$=""THEN:GOSUB70:GOTO7
  9. 8 IFA$=CHR$(99)THEN83
  10. 9 IFA$=CHR$(97)THENB(1)=0ELSEIFA$=CHR$(98)THENB(2)=0ELSEIFA$=CHR$(100)THENB(3)=0ELSEIFA$=CHR$(101)THENB(4)=0
  11. 10 FORX=1TO4:IFB(X)=0THENPRINT@D(X),"*";
  12. 11 NEXTX:IFASC(A$)>96ANDASC(A$)<102THEN:FORX=1TO10:SOUND15500,1:NEXTX
  13. 12 PRINT@0,"Open PLATE? (Y/N) ";:GOSUB70
  14. 13 IFA$=""THEN:GOSUB70:GOTO13
  15. 14 IFA$="y"THEN15ELSE6
  16. 15 FORX=1TO4:IFB(X)=1THEN83ELSENEXTX
  17. 16 CLS:R%=5:LINE(0,10)-(239,127),1,B:PRINT@0,"Inside view of the TIMEBOMB...";:LINE(30,13)-(210,124),1,B:FORX=1TO4:READXC%,YC%:GOSUB78:NEXTX:LINE(29,12)-(211,125),1,B:DATA 20,25,220,25,20,110,220,110
  18. 17 LINE(35,90)-(75,124),1,B:LINE(83,90)-(123,124),1,B:LINE(30,13)-(90,80),1,B:LINE(100,13)-(140,60),1,B:LINE(160,20)-(195,35),1,B:Y=79:FORX=91TO95:LINE(X,Y)-(X,13),1:Y=Y-1:NEXTX:Y=59:FORX=141TO145:LINE(X,Y)-(X,13),1:Y=Y-1:NEXTX
  19. 18 Y=123:FORX=76TO79:LINE(X,Y)-(X,Y-35),1:LINE(X+48,Y)-(X+48,Y-35),1:Y=Y-1:NEXTX:X=36:FORY=89TO85STEP-1:LINE(X,Y)-(X+39,Y),1:LINE(X+47,Y)-(X+87,Y),1:X=X+1:NEXTY:LINE(147,80)-(157,100),1,B:LINE(165,80)-(175,100),1,B:LINE(183,80)-(193,100),1,B
  20. 19 Y=34:FORX=196TO199:LINE(X,Y)-(X,Y-14),1:Y=Y-1:NEXTX:X=161:FORY=20TO17STEP-1:LINE(X,Y)-(X+34,Y),1:X=X+1:NEXTY:Y=99:FORX=158TO159:LINE(X,Y)-(X,Y-19),1:LINE(X+18,Y)-(X+18,Y-19),1:LINE(X+36,Y)-(X+36,Y-19),1:Y=Y-1:NEXTX
  21. 20 PRINT@208,"panel";:PRINT@338,"tilt";:PRINT@227,"timer";:PRINT@567,"power";:PRINT@575,"power";:PRINT@585,"switches";:PRINT@290,"H";:PRINT@260,"C";:PRINT@145,"G";:PRINT@489,"A";:PRINT@497,"B";:PRINT@385,"D";:PRINT@388,"E";:PRINT@391,"F";
  22. 21 PRINT@465,CHR$(152);:PRINT@468,CHR$(153);:PRINT@471,CHR$(152);:GOSUB71
  23. 22 PRINT@147,T;:T=T-1:IFT<=0THEN83
  24. 23 IFTT=4THEN83ELSEIFE=1THEN:BEEP:T=T-50
  25. 24 LINE(120,13)-(102,40),1:PRINT@486,CHR$(229);:PRINT@494,CHR$(229);:PRINT@86,CHR$(239);:IFQ=1ORQ=2ORQ=3THEN26
  26. 25 PRINT@0,"Touch (A-H) ";
  27. 26 GOSUB70:IFA$=""THEN27ELSE29
  28. 27 FORZ=1TO75:NEXTZ:PRINT@486,CHR$(230);:PRINT@494,CHR$(230);:PRINT@86,CHR$(255);:IFF=0THEN:FORZ=1TO75:NEXTZ:GOTO22
  29. 28 LINE(120,13)-(102,40),0:LINE(120,13)-(138,40),1:FORZ=1TO75:NEXTZ:LINE(120,13)-(138,40),0:GOTO22
  30. 29 IFA$="c"THEN:BEEP:PRINT@0,"<WHEW>...don't touch the TILT switch";:FORZ=1TO300:NEXTZ:T=T-3:TT=TT+1:GOSUB71:GOTO22
  31. 30 IFA$="g"THEN:PRINT@0,"Disconnect TIMER (Y/N) ";:GOSUB70:Q=1
  32. 31 IFQ=1ANDA$="n"THEN:GOSUB71:Q=0:GOTO22
  33. 32 IFQ=1ANDA$="y"THEN83
  34. 33 IFA$="a"THEN:PRINT@0,"Yank wire off of POWERPACK (Y/N) ";:GOSUB70:Q=2
  35. 34 IFQ=2ANDA$="n"THEN:GOSUB71:Q=0:GOTO22
  36. 35 IFQ=2ANDA$="y"THEN83
  37. 36 IFA$="b"THEN:A$="a":GOTO33
  38. 37 IFA$="h"ANDF=1THEN:BEEP:PRINT@0,"OOPS...Touched PANEL, bumped TILT";:FORZ=1TO300:NEXTZ:T=T-3:TT=TT+1:GOSUB71:GOTO22
  39. 38 IFA$="f"ANDF=1THEN:PRINT@471,CHR$(153);:F=0:GOTO22
  40. 39 IFA$="f"ANDF=0THEN:PRINT@471,CHR$(152);:F=1:GOTO22
  41. 40 IFA$="e"ANDE=0THEN:PRINT@468,CHR$(152);:E=1:GOTO22
  42. 41 IFA$="e"ANDE=1THEN:PRINT@468,CHR$(153);:E=0:GOTO22
  43. 42 IFA$="d"ANDD=0THEN:PRINT@465,CHR$(152);:D=1:FORZ=10000TO1000STEP-200:SOUNDZ,1:NEXTZ:GOTO22
  44. 43 IFA$="d"ANDD=1THEN:PRINT@465,CHR$(153);:D=0:FORZ=1000TO10000STEP200:SOUNDZ,1:NEXTZ:GOTO22
  45. 44 IFA$="h"ANDF=0THEN:PRINT@0,"Open the PANEL (Y/N) ";:GOSUB70:Q=3
  46. 45 IFQ=3ANDA$="n"THEN:GOSUB71:Q=0:GOTO22
  47. 46 IFQ=3ANDA$="y"THEN48
  48. 47 GOTO22
  49. 48 CLS:PRINT@0,"Inside view of CONTROL PANEL...";:LINE(30,13)-(140,120),1,B:XC%=50:YC%=33:R%=15:GOSUB78:LINE(35,52)-(70,67),1,B:LINE(35,90)-(80,110),1,B:Y=89:FORX=36TO78STEP3:PSET(X,Y):PSET(X,Y-1):NEXTX
  50. 49 Y=111:FORX=36TO78STEP3:PSET(X,Y):PSET(X,Y+1):NEXTX:Y=68:FORX=36TO69STEP3:PSET(X,Y):NEXTX:LINE(109,110)-(130,127),1,BF:LINE(75,75)-(80,78),1,B:LINE(115,75)-(120,78),1,B:LINE(85,95)-(90,98),1,B:LINE(40,75)-(45,78),1,B
  51. 50 Y=29:FORX=89TO91:PSET(X,Y):PSET(X+20,Y):PSET(X+40,Y):NEXTX:Y=51:FORX=89TO91:PSET(X,Y):PSET(X+20,Y):PSET(X+40,Y):NEXTX:FORY=30TO50:PSET(90,Y):PSET(110,Y):PSET(130,Y):NEXTY
  52. 51 PRINT@168,CHR$(239);:PRINT@295,"A";:PRINT@298,"B";:PRINT@301,"C";:PRINT@488,"IC1";:PRINT@539,"J1";:PRINT@286,T;:PRINT@105,"1) Remove IC1";:PRINT@185,"2) Pull Out J1";
  53. 52 PRINT@265,"3) Cut LINK A";:PRINT@345,"4) Cut LINK B";:PRINT@425,"5) Cut LINK C";:PRINT@505,"6) REMOVE";:PRINT@548,"DETONATOR";:A=1:B=1:C=1:B(1)=239:B(2)=230:B(3)=239:B(4)=229:GOSUB71:CC=1
  54. 53 IFD$=DE$THEN56
  55. 54 PRINT@286,T;:T=T-1:IFT<=0THEN83
  56. 55 SOUND16000,1:PRINT@168,CHR$(B(CC));:CC=CC+1:IFCC=5THENCC=1
  57. 56 GOSUB70:IFA$=""THEN57ELSE60
  58. 57 FORZ=1TO75:NEXTZ:IFD$=DE$THEN56
  59. 58 PRINT@168,CHR$(B(CC));:CC=CC+1:IFCC=5THENCC=1
  60. 59 FORZ=1TO75:NEXTZ:GOTO53
  61. 60 IFA$="1"THEN83ELSEIFA$="2"THEN83
  62. 61 IFA$="3"ANDA=1THEN:D$=D$+"a":A=0
  63. 62 IFA$="4"ANDB=1THEN:D$=D$+"b":B=0
  64. 63 IFA$="5"ANDC=1THEN:D$=D$+"c":C=0
  65. 64 IFA$="6"ANDD$=DE$THEN87
  66. 65 IFA$="6"ANDD$<>DE$THEN83
  67. 66 IFA$="3"THEN:FORY=30TO50:PRESET(90,Y):NEXTY
  68. 67 IFA$="4"THEN:FORY=30TO50:PRESET(110,Y):NEXTY
  69. 68 IFA$="5"THEN:FORY=30TO50:PRESET(130,Y):NEXTY
  70. 69 GOTO53
  71. 70 A$=INKEY$:RETURN
  72. 71 PRINT@0,STRING$(39," ");:RETURN
  73. 72 CLS:PRINT"           <TIMEBOMB>":PRINT:PRINT"The Minneapolis Police have discovered":PRINT"a timebomb at the airport.  You have":PRINT"been assigned to open and diffuse the":PRINT"bomb.  The bomb is built into a large
  74. 73 PRINT"steel box with a plate used to gain":PRINT"access.  Simply select what you want":PRINT"to do with the choices given.":PRINT"BE CAREFUL!  Causing too many tilts":PRINT"will explode the bomb!":PRINT:PRINT"      <press ENTER for more>
  75. 74 A$=INKEY$:IFA$=""THEN74ELSE:CLS
  76. 75 PRINT:PRINT"Different portions of the bomb are":PRINT"rigged to explode if touched.":PRINT"Also, if the timer expires, so do you!":PRINT"If you can diffuse the bomb, then you":PRINT"receive the medal of honor!":PRINT
  77. 76 PRINT:PRINT"You start by examining the PLATE...":PRINT:PRINT"     <press ENTER to begin>
  78. 77 A$=INKEY$:IFA$=""THEN77ELSE:CLS:RETURN
  79. 78 ONERRORGOTO82:XX%=R%:YY%=0:R1%=XX%/2
  80. 79 YY%=YY%+1:R1%=R1%-YY%:IFR1%<0THENXX%=XX%-1:R1%=R1%+XX%
  81. 80 PSET(XX%+XC%,YY%+YC%):PSET(XC%+YY%,YC%+XX%):PSET(XC%-YY%,YC%+XX%):PSET(XC%-XX%,YC%+YY%):PSET(XC%-XX%,YC%-YY%):PSET(XC%-YY%,YC%-XX%):PSET(XC%+YY%,YC%-XX%):PSET(XC%+XX%,YC%-YY%):IFXX%>YY%THEN79
  82. 81 RETURN
  83. 82 IFERR=5THENRESUMENEXTELSEPRINT"ERR="ERR:STOP
  84. 83 FORX=1000TO0STEP-10:SOUNDX,1:NEXTX:CLS:PRINT@295,"KABOOM!!!";:FORZ=1TO1000:NEXTZ
  85. 84 PRINT@0,"Play again (Y/N)";:GOSUB70
  86. 85 IFA$=""THENGOSUB70:GOTO85
  87. 86 IFA$="y"THENRUNELSE:CLS:MENU
  88. 87 CLS:PRINT@295,"YOU DID IT!!!";:FORZ=1TO1000:NEXTZ:GOTO84
  89.