Jump to content
IGNORED

Bomb Squad (American Software, 1982)


InfernalKeith

Recommended Posts

maybe not the same... but similar:

 

1 REM    BOMB SQUAD BY               KEN TRACTON   
2 REM    24 READY-TO-RUN             GAME PROGRAMS               IN BASIC    
3 REM    TRANSLATED TO               TI 99/4 BASIC    
4 REM      BY BOB CASHMAN              LAWRENCE MASS.           
5 REM                   01841 
6 REM  
10 REM   THIS IS THE PROGRAM         OF BOMB DISPOSAL            SQUAD    
20 REM   THE BOMB CONSISTS           OF 4 STICKS OF              DYNAMITE   
30 REM   AND IS CONNECTED TO         A DIGITAL 
40 REM   CLOCK AND OTHER             SENSORS.  
50 REM   UNFORTUNATELY YOU           CAN'T JUST  
60 REM   CUT THE WIRES FROM          THE CLOCK  
70 REM   IF THE WIRES ARE            NOT CUT ACCORDING  
80 REM   TO SEQUENCE,BANG!!!!        YOU BLOW UP!  
90 PRINT
100 PRINT
110 PRINT
120 PRINT "TIME BOMB"
130 PRINT "---------"
140 PRINT
150 PRINT "THE INSTRUCTIONS ARE AS     FOLLOWS"
170 PRINT
180 PRINT "THE TIME BOMB IS SET TO     EXPLODE"
190 PRINT "AFTER 6 MOVES."
200 PRINT "YOU MUST DEFUSE THE BOMB    BEFORE THEN,"
210 PRINT "OR ELSE THE RESULTING"
220 PRINT "EXPLOSION WILL GET YOU..."
225 PRINT
230 PRINT "THERE ARE 10 WIRES,         LABELLED 1"
240 PRINT "TO 10. 2 OF THESE WIRES WILL"
250 PRINT "CAUSE IMMEDIATE EXPLOSION,"
260 PRINT "IF CUT..."
270 PRINT "OF THE REMAINING 8 WIRES"
280 PRINT "4 ARE NOT CONNECTED TO ANY"
290 PRINT "SENSOR,INCLUDING THE CLOCK."
300 PRINT "THE BOMB MAKER PLANTS THESE"
310 PRINT "FALSE WIRES JUST            TO GIVE YOU A"
320 PRINT "HARD TIME IN DEFUSING THE   BOMB."
330 PRINT
350 REM   SET UP WIRE                 CONNECTIONS  
360 DIM W(10)
370 REM  THE WIRES ARE 
380 A=INT(10*RND)+1
390 B=INT(10*RND)+1
400 IF B=A THEN 390
410 W(A)=3
420 W(B)=3
430 REM   THE ABOVE TWO WIRES         CAUSE EXPLOSION  
440 T=0
450 REM   THE HARMLESS WIRES,         W(X)=1  
460 C=INT(10*RND)+1
470 IF C=A THEN 460
471 IF C=B THEN 460
480 W(C)=1
490 D=INT(10*RND)+1
500 IF D=C THEN 490
501 IF D=B THEN 490
502 IF D=A THEN 490
510 W(D)=1
520 E=INT(10*RND)+1
530 IF E=D THEN 520
531 IF E=C THEN 520
532 IF E=B THEN 520
533 IF E=A THEN 520
540 W(E)=1
550 F=INT(10*RND)+1
560 IF F=E THEN 550
561 IF F=D THEN 550
562 IF F=C THEN 550
563 IF F=B THEN 550
564 IF F=A THEN 550
570 W(F)=1
580 REM   SET UP LIVE WIRES           W(X)=2  
590 G=INT(10*RND)+1
600 IF G=F THEN 590
601 IF G=E THEN 590
602 IF G=B THEN 590
603 IF G=C THEN 590
610 IF G=A THEN 590
620 W(G)=2
630 H=INT(10*RND)+1
640 IF H=G THEN 630
641 IF H=F THEN 630
642 IF H=E THEN 630
643 IF H=D THEN 630
644 IF H=C THEN 630
645 IF H=B THEN 630
650 IF H=A THEN 630
660 W(H)=2
670 I=INT(10*RND)+1
680 IF I=H THEN 670
681 IF I=G THEN 670
682 IF I=F THEN 670
683 IF I=E THEN 670
684 IF I=D THEN 670
685 IF I=C THEN 670
686 IF I=B THEN 670
690 IF I=A THEN 670
700 W(I)=2
710 REM   SET UP LAST WIRE            W(X)=2   
720 FOR J=1 TO 10
730 IF W(J)=3 THEN 760
731 IF W(J)=1 THEN 760
740 IF W(J)=2 THEN 760
750 W(J)=2
760 NEXT J
770 REM   ALL WIRES ARE NOT           CONNECTED  
780 M=0
790 M=M+1
800 PRINT "WHICH WIRE TO CUT?"
810 INPUT L
820 IF L<>INT(L)THEN 800
830 IF L<1 THEN 800
831 IF L>10 THEN 800
840 IF W(L)=3 THEN 870
850 IF W(L)=1 THEN 1030
860 GOTO 1060
870 PRINT
880 PRINT "NICE GOING. YOU HAVE        EXPLODED"
890 PRINT "THE BOMB...."
900 PRINT
910 PRINT "!!!!!BANG!!!!!"
920 PRINT
930 PRINT
940 PRINT "TO PLAY AGAIN TYPE 1,"
950 PRINT "IF NOT TYPE 0"
960 INPUT C
970 IF C=1 THEN 1010
980 PRINT
990 PRINT "NEVER DID LIKE EXPLOSIONS,  DID YOU?"
1000 STOP
1010 PRINT
1020 GOTO 380
1030 IF M>6 THEN 870
1040 PRINT "SORRY,THAT WAS A HARMLESS   WIRE."
1050 GOTO 790
1060 IF M>6 THEN 870
1070 W(L)=1
1080 T=T+1
1090 IF T=4 THEN 1110
1100 GOTO 790
1110 PRINT "YOU SHOULD BE WITH THE BOMB SQUAD"
1120 PRINT "YOU HAVE SUCCESSFULLY       DEFUSED THE"
1130 PRINT "DEVICE IN ONLY";M;"MOVES"
1140 GOTO 930

 

  • Like 2
Link to comment
Share on other sites

I'm using real hardware and a reliable TI tape recorder set to the default settings.  It's the tape, it drags in several places and the integrity of the audio gets noticeably choppy.  I'm going to try tightening it up by rewinding and FF'ing it a few times -- I had another tape do the same thing last night, but then play fine the second time through.  

 

 

Edited by InfernalKeith
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...