0 'BOMB.BA Modified for the Model 200 CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 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 "; 2 A$=INKEY$:IFA$=""THEN2 3 CLS:IFA$="y"THENGOSUB72 4 IFA$="Y"THEN:PRINT"Use only small letters in this game!":PRINT:PRINT"TURN OFF CAPS LOCK!":FORX=1TO1000:NEXTX:RUN 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 6 GOSUB71:PRINT@0,"Remove which BOLT ";:GOSUB70 7 IFA$=""THEN:GOSUB70:GOTO7 8 IFA$=CHR$(99)THEN83 9 IFA$=CHR$(97)THENB(1)=0ELSEIFA$=CHR$(98)THENB(2)=0ELSEIFA$=CHR$(100)THENB(3)=0ELSEIFA$=CHR$(101)THENB(4)=0 10 FORX=1TO4:IFB(X)=0THENPRINT@D(X),"*"; 11 NEXTX:IFASC(A$)>96ANDASC(A$)<102THEN:FORX=1TO10:SOUND15500,1:NEXTX 12 PRINT@0,"Open PLATE? (Y/N) ";:GOSUB70 13 IFA$=""THEN:GOSUB70:GOTO13 14 IFA$="y"THEN15ELSE6 15 FORX=1TO4:IFB(X)=1THEN83ELSENEXTX 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 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 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 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 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"; 21 PRINT@465,CHR$(152);:PRINT@468,CHR$(153);:PRINT@471,CHR$(152);:GOSUB71 22 PRINT@147,T;:T=T-1:IFT<=0THEN83 23 IFTT=4THEN83ELSEIFE=1THEN:BEEP:T=T-50 24 LINE(120,13)-(102,40),1:PRINT@486,CHR$(229);:PRINT@494,CHR$(229);:PRINT@86,CHR$(239);:IFQ=1ORQ=2ORQ=3THEN26 25 PRINT@0,"Touch (A-H) "; 26 GOSUB70:IFA$=""THEN27ELSE29 27 FORZ=1TO75:NEXTZ:PRINT@486,CHR$(230);:PRINT@494,CHR$(230);:PRINT@86,CHR$(255);:IFF=0THEN:FORZ=1TO75:NEXTZ:GOTO22 28 LINE(120,13)-(102,40),0:LINE(120,13)-(138,40),1:FORZ=1TO75:NEXTZ:LINE(120,13)-(138,40),0:GOTO22 29 IFA$="c"THEN:BEEP:PRINT@0,"...don't touch the TILT switch";:FORZ=1TO300:NEXTZ:T=T-3:TT=TT+1:GOSUB71:GOTO22 30 IFA$="g"THEN:PRINT@0,"Disconnect TIMER (Y/N) ";:GOSUB70:Q=1 31 IFQ=1ANDA$="n"THEN:GOSUB71:Q=0:GOTO22 32 IFQ=1ANDA$="y"THEN83 33 IFA$="a"THEN:PRINT@0,"Yank wire off of POWERPACK (Y/N) ";:GOSUB70:Q=2 34 IFQ=2ANDA$="n"THEN:GOSUB71:Q=0:GOTO22 35 IFQ=2ANDA$="y"THEN83 36 IFA$="b"THEN:A$="a":GOTO33 37 IFA$="h"ANDF=1THEN:BEEP:PRINT@0,"OOPS...Touched PANEL, bumped TILT";:FORZ=1TO300:NEXTZ:T=T-3:TT=TT+1:GOSUB71:GOTO22 38 IFA$="f"ANDF=1THEN:PRINT@471,CHR$(153);:F=0:GOTO22 39 IFA$="f"ANDF=0THEN:PRINT@471,CHR$(152);:F=1:GOTO22 40 IFA$="e"ANDE=0THEN:PRINT@468,CHR$(152);:E=1:GOTO22 41 IFA$="e"ANDE=1THEN:PRINT@468,CHR$(153);:E=0:GOTO22 42 IFA$="d"ANDD=0THEN:PRINT@465,CHR$(152);:D=1:FORZ=10000TO1000STEP-200:SOUNDZ,1:NEXTZ:GOTO22 43 IFA$="d"ANDD=1THEN:PRINT@465,CHR$(153);:D=0:FORZ=1000TO10000STEP200:SOUNDZ,1:NEXTZ:GOTO22 44 IFA$="h"ANDF=0THEN:PRINT@0,"Open the PANEL (Y/N) ";:GOSUB70:Q=3 45 IFQ=3ANDA$="n"THEN:GOSUB71:Q=0:GOTO22 46 IFQ=3ANDA$="y"THEN48 47 GOTO22 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 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 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 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"; 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 53 IFD$=DE$THEN56 54 PRINT@286,T;:T=T-1:IFT<=0THEN83 55 SOUND16000,1:PRINT@168,CHR$(B(CC));:CC=CC+1:IFCC=5THENCC=1 56 GOSUB70:IFA$=""THEN57ELSE60 57 FORZ=1TO75:NEXTZ:IFD$=DE$THEN56 58 PRINT@168,CHR$(B(CC));:CC=CC+1:IFCC=5THENCC=1 59 FORZ=1TO75:NEXTZ:GOTO53 60 IFA$="1"THEN83ELSEIFA$="2"THEN83 61 IFA$="3"ANDA=1THEN:D$=D$+"a":A=0 62 IFA$="4"ANDB=1THEN:D$=D$+"b":B=0 63 IFA$="5"ANDC=1THEN:D$=D$+"c":C=0 64 IFA$="6"ANDD$=DE$THEN87 65 IFA$="6"ANDD$<>DE$THEN83 66 IFA$="3"THEN:FORY=30TO50:PRESET(90,Y):NEXTY 67 IFA$="4"THEN:FORY=30TO50:PRESET(110,Y):NEXTY 68 IFA$="5"THEN:FORY=30TO50:PRESET(130,Y):NEXTY 69 GOTO53 70 A$=INKEY$:RETURN 71 PRINT@0,STRING$(39," ");:RETURN 72 CLS:PRINT" ":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 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" 74 A$=INKEY$:IFA$=""THEN74ELSE:CLS 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 76 PRINT:PRINT"You start by examining the PLATE...":PRINT:PRINT" 77 A$=INKEY$:IFA$=""THEN77ELSE:CLS:RETURN 78 ONERRORGOTO82:XX%=R%:YY%=0:R1%=XX%/2 79 YY%=YY%+1:R1%=R1%-YY%:IFR1%<0THENXX%=XX%-1:R1%=R1%+XX% 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 81 RETURN 82 IFERR=5THENRESUMENEXTELSEPRINT"ERR="ERR:STOP 83 FORX=1000TO0STEP-10:SOUNDX,1:NEXTX:CLS:PRINT@295,"KABOOM!!!";:FORZ=1TO1000:NEXTZ 84 PRINT@0,"Play again (Y/N)";:GOSUB70 85 IFA$=""THENGOSUB70:GOTO85 86 IFA$="y"THENRUNELSE:CLS:MENU 87 CLS:PRINT@295,"YOU DID IT!!!";:FORZ=1TO1000:NEXTZ:GOTO84