3 REM *** CODE *** 4 REM *** NAME *** 5 REM *** FIREFLY *** 6 REM *** FOR BBS *** 7 PRINT : PRINT "INITIALISING VARIABLES..." 9 GOTO 60260 10 D$ = CHR$ (13) + CHR$ (4) 15 LC = 0:CN = 0 20 DIM N(39),S(39),E(39),W(39),U(39),D(39),R$(39),IL(37),V$(20),I$(37),M$(37) 110 PRINT D$;"OPENCNF.TXT" 120 PRINT D$;"READCNF.TXT" 130 FOR I = 1 TO 39: INPUT N(I): INPUT S(I): INPUT E(I): INPUT W(I): INPUT U(I): INPUT D(I): NEXT I 135 FOR N = 1 TO 39: INPUT R$(N): NEXT N 136 FOR N = 1 TO 37: INPUT IL(N): INPUT I$(N): NEXT N 137 FOR N = 1 TO 20: INPUT V$(N): NEXT N 138 FOR N = 1 TO 37: INPUT M$(N): NEXT N 140 PRINT D$;"CLOSECNF.TXT" 145 RETURN 150 LC = 1:NL = 1:WV = 5:AI = 3 151 & DEF 155 HR = 20:MN = 0:DY = 1 160 HOME 165 GOSUB 50000 170 LC = NL: GOTO 270 175 PRINT "YOU ARE ";:Y$ = "IN A ": IF LC = 3 OR LC = 11 OR LC = 16 OR LC = 18 THEN Y$ = "ON AN " 180 IF LC = 4 OR LC = 10 OR LC = 12 THEN Y$ = "NEAR A " 190 PRINT Y$;R$(LC);: PRINT : PRINT "VISIBLE ITEMS: "; 195 FOR I = 1 TO 37: IF ABS (IL(I)) = LC THEN S$ = I$(I): GOSUB 60000 196 NEXT I 200 PRINT : PRINT "SOME EXITS:";: IF N(LC) < > 0 THEN PRINT " NORTH."; 210 IF S(LC) < > 0 THEN PRINT " SOUTH."; 220 IF E(LC) < > 0 THEN PRINT " EAST."; 230 IF W(LC) < > 0 THEN PRINT " WEST."; 240 IF U(LC) < > 0 THEN PRINT " UP."; 250 IF D(LC) < > 0 THEN PRINT " DOWN."; 260 PRINT 265 RETURN 270 HTAB 1: PRINT : PRINT "COMMAND:";:X9 = 30: GOSUB 10010:CM$ = A$ 271 MN = MN + 5: IF MN > 55 THEN HR = HR + 1:MN = 0: IF HR > 23 THEN HR = 0:DY = DY + 1 272 IF DY > 2 AND HR > 10 THEN GOTO 60380 274 IF LC = 35 AND IL(16) < > 99 AND IL(19) < > 98 THEN PRINT "THE GUARD SAYS 'WHAT ARE YOU DOING HERE'":NL = 4: GOTO 170 275 IF CM$ = "QUIT" GOTO 60250 277 IF CM$ = "DIG" THEN GOTO 660 278 IF CM$ = "SAVE" THEN GOTO 10000 279 IF CM$ = "WHERE" OR CM$ = "LOCATION" OR CM$ = "L" THEN GOSUB 175: GOTO 170 280 IF CM$ = "N" THEN GOTO 300 282 IF CM$ = "S" THEN GOTO 305 284 IF CM$ = "E" THEN GOTO 310 286 IF CM$ = "W" THEN GOTO 315 288 IF CM$ = "U" THEN GOTO 320 290 IF CM$ = "D" THEN GOTO 325 292 IF CM$ = "INV" OR CM$ = "I" OR CM$ = "INVENTORY" THEN GOTO 340 299 GOTO 400 300 IF N(LC) < > 0 THEN NL = N(LC): GOTO 1500 302 GOTO 330 305 IF S(LC) < > 0 THEN NL = S(LC): GOTO 1600 307 GOTO 330 310 IF E(LC) < > 0 THEN NL = E(LC): GOTO 1650 312 GOTO 330 315 IF W(LC) < > 0 THEN NL = W(LC): GOTO 170 317 GOTO 330 320 IF U(LC) < > 0 THEN NL = U(LC): GOTO 170 322 GOTO 330 325 IF D(LC) < > 0 THEN NL = D(LC): GOTO 170 330 PRINT "YOU CAN'T GO THAT DIRECTION": GOTO 170 340 PRINT : PRINT "YOU ARE CARRYING:" 345 FL = 0 350 FOR I = 1 TO 37: IF IL(I) = 99 THEN PRINT I$(I):FL = 1 360 NEXT I: IF FL = 0 THEN PRINT "NOTHING AT ALL" 370 GOTO 270 400 FOR I = 1 TO LEN (CM$): IF MID$ (CM$,I,1) = " " THEN GOTO 420 410 NEXT I: PRINT "TWO WORDS PLEASE....": GOTO 270 420 IF I = 1 THEN I = LEN (CM$) + 1:VB$ = " ": GOTO 450 425 IF RIGHT$ (CM$,1) = " " THEN I = LEN (CM$) + 1: NEXT I: PRINT "GET IT RIGHT BERK....": GOTO 270 430 VB$ = LEFT$ (CM$,I - 1):NN$ = RIGHT$ (CM$, LEN (CM$) - I):I = LEN (CM$) + 1: NEXT I 440 FOR I = 1 TO 20: IF VB$ = V$(I) THEN GOTO 460 450 NEXT I: PRINT "I DON'T KNOW HOW TO ";:: PRINT VB$;: NORMAL : PRINT " SOMETHING": GOTO 270 460 VN = I:I = 21: NEXT I 465 IF VN = 7 THEN GOTO 920 470 FOR I = 1 TO 37: IF NN$ = I$(I) THEN GOTO 490 480 NEXT I: PRINT "WHAT IS A";:A$ = NN$: GOSUB 60100:: PRINT NN$: NORMAL : GOTO 270 490 CN = I:I = 40: NEXT I 500 ON VN GOTO 520,545,600,700,760,860,920,980,2010,2010,2070,2090,2160,2200,2250,2280,2300,2340,2400,2500 510 GOTO 270 520 IF IL(CN) < > 99 THEN PRINT "YOU DON'T HAVE IT": GOTO 270 530 IF IL(3) < > 99 THEN PRINT "WHAT WITH ?": GOTO 270 535 IF LC > 12 THEN GOTO 60200 540 PRINT "O.K.":IL(CN) = 98:AI = AI - 1: GOTO 270 545 IF CN = 8 OR CN = 31 THEN FOR I = 1 TO 1: GOTO 480 546 IF CN = 37 AND LC = 13 THEN PRINT M$(37): GOTO 270 547 IF CN < > 4 THEN GOTO 550 548 IF LC = 2 OR (LC < 9 AND LC > 4) THEN PRINT M$(4): GOTO 270 550 IF ABS (IL(CN)) < > LC AND IL(CN) < > 99 THEN PRINT "I DON'T SEEM TO SEE IT HERE": GOTO 270 560 IF CN = 2 THEN GOTO 580 565 IF CN = 12 AND LC = 17 AND IL(11) = 0 THEN IL(11) = 17: PRINT "YOU FOUND SOMETHING": GOTO 170 570 PRINT M$(CN): GOTO 270 580 PRINT "IT READS ";HR;":";: IF MN = 0 OR MN = 5 THEN PRINT "0"; 583 PRINT MN;" DAY:#";DY: GOTO 270 600 IF IL(CN) = 99 THEN PRINT "YOU ALREADY HAVE IT": GOTO 270 610 IF CN = 8 OR CN = 31 THEN GOTO 545 620 IF IL(CN) < 0 THEN PRINT "I CAN'T DO THAT": GOTO 270 630 IF ABS (IL(CN)) < > LC THEN GOTO 550 635 IF CN = 36 OR CN = 37 THEN PRINT "I HAVEN'T GOT THE STRENGTH": GOTO 270 640 IF AI > 5 THEN PRINT "I CAN'T CARRY ANY MORE": GOTO 270 643 IF CN = 17 AND IL(15) = - 29 THEN PRINT "THE TRADESMAN SAYS 'I NEED THEM, NOW GET OUT OF MY WORKSHOP'":NL = 30: GOTO 170 644 IF CN = 10 AND IL(7) = - 21 THEN PRINT "SHE SAYS 'I`M COOKING, AND I NEED THAT KNIFE THANK YOU'": GOTO 270 645 PRINT "O.K." 650 AI = AI + 1:IL(CN) = 99: GOTO 170 660 IF IL(3) < > 99 THEN PRINT "WHAT WITH ?": GOTO 270 670 IF LC < 13 AND LC < > 7 THEN PRINT "YOU FOUND NOTHING UNUSUAL": GOTO 270 680 IF LC = 7 AND IL(18) = 0 THEN IL(18) = 7: PRINT "YOU FOUND SOMETHING": GOTO 170 690 PRINT "YOU CAN'T DIG HERE": GOTO 270 700 IF IL(CN) < > 99 AND ABS (IL(CN)) < > LC AND IL(CN) > 0 THEN GOTO 550 710 IF IL(CN) < 0 AND ABS (IL(CN)) = LC AND CN < > 7 THEN PRINT "I CAN'T DO THAT": GOTO 270 720 IF CN = 7 THEN PRINT "TRY SOMETHING ELSE": GOTO 270 730 IF CN = 4 AND LC = 2 THEN NL = 39: PRINT "O.K.": GOTO 170 740 IF CN = 4 AND (LC = 2 OR (LC > 4 AND LC < 9)) THEN PRINT "THAT COULD BE SUSPICIOUS": GOTO 270 745 IF CN = 4 THEN PRINT "I DON'T SEEM TO SEE IT HERE": GOTO 270 750 PRINT "I DON'T SEEM TO UNDERSTAND": GOTO 270 760 IF CN < > 6 THEN GOTO 770 763 IF LC = 10 THEN PRINT "O.K.":NL = 15: GOTO 170 765 CN = 4: GOTO 745 770 IF CN < > 13 THEN GOTO 780 773 IF LC = 3 THEN PRINT "O.K.":NL = 30: GOTO 170 775 GOTO 765 780 IF CN < > 14 THEN GOTO 790 783 IF LC = 30 THEN PRINT "O.K.": PRINT "OOPS ! ONE OF THE PILOTS SAW YOU AND TURNED YOU OVER TO A GUARD": GOTO 1040 787 GOTO 765 790 IF CN < > 34 AND CN < > 24 THEN GOTO 800 793 IF LC = 12 AND OD = 1 THEN PRINT "O.K.":NL = 13: GOTO 170 795 IF LC = 12 AND OD = 0 THEN PRINT "THE DOOR IS NOT OPEN": GOTO 170 797 GOTO 765 800 IF CN < > 25 THEN GOTO 810 803 IF LC = 24 AND OS = 1 THEN PRINT "O.K.":NL = 25: GOTO 170 805 IF LC = 24 THEN PRINT "IT IS LOCKED": GOTO 270 807 GOTO 765 810 IF CN < > 28 THEN GOTO 820 813 IF LC = 13 OR LC = 14 THEN PRINT "NO THANKS. IT'S TOO DIRTY": GOTO 270 815 GOTO 765 820 IF CN < > 33 THEN GOTO 830 823 IF LC = 9 THEN PRINT "YOU ARE IN TOWN": GOTO 270 825 PRINT "YOU MUST FIND IT ON YOUR OWN": GOTO 270 830 IF CN < > 35 THEN GOTO 838 833 IF LC = 4 AND IL(16) = 99 THEN NL = 34: PRINT "O.K.": GOTO 170 835 IF LC = 4 THEN PRINT "THE GUARD WON'T LET YOU": GOTO 270 837 GOTO 765 838 IF LC = 11 AND IL(36) = 11 THEN GOTO 60350 839 IF CN = 4 THEN GOTO 740 840 IF ABS (IL(CN)) = LC THEN PRINT "I CAN'T DO THAT": GOTO 270 845 IF IL(CN) = 99 THEN PRINT "I CAN'T DO THAT": GOTO 270 850 GOTO 765 860 IF CN < > 7 THEN GOTO 870 865 IF ABS (IL(7)) = LC THEN PRINT "SHE REPLIES 'IS THAT ALL YOUR GOOD FOR'": GOTO 270 867 GOTO 765 870 IF CN < > 15 THEN GOTO 880 875 IF ABS (IL(15)) = LC THEN PRINT "O.K. IF YOU WANT TO": GOTO 270 876 GOTO 765 880 IF CN < > 21 THEN GOTO 890 885 IF LC = 27 AND SS = 0 THEN PRINT "SHE REPLIES 'OOOOH ! HOW TEMPTING'": GOTO 270 887 IF LC = 27 AND SS = 1 THEN PRINT "NO ! NOT AGAIN, I'M TOO TIRED": GOTO 270 888 GOTO 765 890 IF CN < > 19 THEN GOTO 900 895 IF ABS (IL(19)) = LC THEN PRINT "HE SMILED FOR A SECOND AND THEN REPLIED WITH 'YOU CAN`T BRIBE ME'": GOTO 270 900 IF ABS (IL(CN)) < > LC AND IL(CN) < > 99 THEN PRINT "I DON'T SEEM TO SEE IT HERE": GOTO 270 910 PRINT "BLAAGH !!!!!": GOTO 270 920 IF LC = 27 AND SS = 0 THEN PRINT "SHE REPLIES 'I AM TRYING TO WORK'": GOTO 270 921 IF LC = 27 AND SS = 1 THEN PRINT "SHE REPLIES 'OOOOH ! AM I SORE'": GOTO 270 930 IF ABS (IL(7)) = LC AND NN$ < > "HELLO" THEN PRINT "SHE REPLIES 'YOU HAVE A STRANGE ACCENT'": GOTO 270 940 IF ABS (IL(7)) = LC AND NN$ = "HELLO" THEN PRINT "SHE REPLIES 'HELLO, I AM MAJOR SIMMEL`S DAUGHTER. BUT ENOUGH OF THE FORMALITIES'": PRINT "AND SHE KISSES YOU.": GOTO 270 950 IF ABS (IL(15)) = LC THEN PRINT "HE REPLIES 'I DON`T NEED ANY HELP, SO GET OUT PLEASE' AND YOU DO":NL = 30: GOTO 170 960 IF ABS (IL(19)) = LC THEN PRINT "HE REPLIES 'DON`T PUSH YOUR LUCK'": GOTO 270 970 PRINT "O.K.": PRINT CHR$ (34);NN$; CHR$ (34): GOTO 270 980 IF CN = 18 THEN PRINT "IF I NEW, I WOULDN'T BE WRITING ADVENTURE GAMES. AND ANYWAY, I WOULDN'T TELL YOU": GOTO 270 990 IF CN < > 8 THEN GOTO 2000 993 IF ABS (IL(7)) < > LC THEN GOTO 1010 995 PRINT "SHE QUICKLY CONSENTS, GRABS YOU AND DRAGS YOU INTO A SMALL BEDROOM.": PRINT "AFTER A VERY EXHAUSTING NIGHT, YOU FINALLY AWAKE":NL = 22:IL(7) = 0:IL(9) = 17: GOSUB 52000: GOTO 170 1010 IF LC = 27 AND SS = 1 THEN PRINT "SHE SAYS 'I`M NOT AT YOUR COMMAND YOU KNOW, BUT YOU ARE CUTE'": GOTO 270 1015 IF LC = 27 THEN PRINT "SHE SAYS 'HAVE YOU EVER MADE LOVE IN A COFFEE ROOM ?'": PRINT "SHE DRAGS YOU INTO THE COFFEE ROOM AND GIVES YOU A REAL RUN FOR YOUR MONEY.": PRINT "THIS CHICK CAN REALLY PERFORM." 1016 IF LC < > 27 THEN GOTO 1020 1017 FOR I = 1 TO 37: IF IL(I) = 99 THEN IL(I) = 28:AI = AI - 1: IF I = 16 THEN IL(16) = 99:AI = AI + 1 1018 NEXT I:SS = 1: IF IL(20) = 28 THEN IL(20) = 38 1019 NL = 4:HR = 8:MN = 0:DY = DY + 1:TD = 0: PRINT "YOU AWAKE WITH A BUMP ON THE HEAD.": GOTO 170 1020 IF ABS (IL(15)) < > LC THEN GOTO 1030 1025 PRINT "HE SAYS 'WILL YOU GET LOST CREEP, AND CHANGE YOUR CLOTHES IF YOUR GOING TO WORK ON THE BASE'":NL = 30: GOTO 170 1030 IF ABS (IL(19)) < > LC THEN GOTO 2000 1040 PRINT "THE GUARD GRABS YOU AND PUTS YOU IN THE CELL BLOCK":NL = 33: FOR I = 1 TO 37: IF IL(I) = 99 THEN IL(I) = 28:AI = AI - 1: IF I = 16 THEN IL(16) = 99:AI = AI + 1 1050 NEXT I: IF IL(20) = 28 THEN IL(20) = 38 1055 DY = DY + 1 1060 GOTO 170 1500 IF LC = 27 AND NL = 24 AND IL(11) < > 99 THEN PRINT "THE SECRETARY SAYS 'MAJOR SIMMEL IS SICK AND WON'T BE IN TODAY.": PRINT "CAN I HELP YOU AT ALL (ANYTHING AT ALL)'":NL = LC: IF SS = 1 THEN PRINT "JUST REMEMBER LAST TIME." 1510 GOTO 170 1600 IF LC = 23 THEN PRINT "THE MAJOR HAS BEEN WATCHING YOU SINCE YOU ENTERED HIS ROOM.": PRINT "HE CALLS FOR HIS GUARDS.": GOTO 1040 1620 IF LC = 1 AND IL(1) = 99 THEN PRINT "A LOCAL FARMER SAW YOU CARRYING A PARACHUTE. (A LITTLE SUSPICIOUS) AND CALLED A GUARD.":IL(1) = 98:AI = AI - 1: GOTO 1040 1625 IF LC = 1 AND IL(1) = 1 THEN PRINT "A LOCAL FARMER FOUND YOUR PARACHUTE AND CALLED A GUARD.": GOTO 1040 1630 IF LC = 24 AND IL(26) = 99 THEN PRINT "THE SECRETARY SAYS 'GIVE ME THOSE'":IL(26) = 25:AI = AI - 1 1649 GOTO 170 1650 IF LC = 35 AND NL = 36 AND ABS (IL(19)) = 35 THEN PRINT "THE GUARD SAYS 'THAT AREA IS RESTRICTED'";:NL = LC: GOTO 170 1665 IF LC = 1 AND IL(1) = 1 THEN PRINT "A LOCAL FARMER FOUND YOUR PARACHUTE AND CALLED A GUARD": GOTO 1040 1690 IF LC < > 27 OR NL < > 28 OR IL(20) = 99 THEN GOTO 170 1700 IF LC = 27 AND NL = 28 AND IL(20) < > 99 THEN PRINT "SHE SAYS 'THAT ROOM IS NONE OF YOUR BUSINESS";: IF SS = 1 THEN PRINT ", BUT REMEMBER LAST TIME ?"; 1710 PRINT "'":NL = LC: GOTO 170 2000 PRINT "I CAN'T DO THAT": GOTO 270 2010 IF IL(10) < > 99 THEN PRINT "WHAT WITH ?": GOTO 270 2020 IF CN = 7 AND LC = 21 AND IL(7) < > 98 THEN IL(7) = 98: PRINT "YOU STAB HER AND HIDE THE BODY.": GOTO 170 2030 IF CN = 15 AND LC = 29 AND IL(15) < > 98 THEN IL(15) = 98:IL(16) = 29: PRINT "YOU STAB HIM AND HIDE THE BODY.": GOTO 170 2040 IF CN = 19 AND LC = 35 THEN PRINT "AS YOU STAB THE GUARD, HE GIVES OUT A SMALL SCREAM.": PRINT "SUDDENLY HUNDREDS OF GUARDS COME RUNNING.": GOTO 60300 2050 IF CN = 21 AND LC = 27 THEN PRINT "THE BLOOD STAINED BODY OF THE SECRETARY, FLOPS ONTO THE DESK.": PRINT "THE SOUND WAS LOUD ENOUGH FOR THE GUARDS TO HEAR. HUNDREDS OF THEM COME RUNNING": GOTO 60300 2060 PRINT "I CAN'T DO THAT": GOTO 270 2070 IF IL(CN) < > 99 THEN GOTO 520 2080 PRINT "O.K.":IL(CN) = LC:AI = AI - 1: GOTO 170 2090 IF IL(18) < > 99 THEN PRINT "WITH WHAT ?": GOTO 270 2100 IF CN < > 19 THEN GOTO 2110 2103 IF LC < > 35 THEN PRINT "I DON'T SEE HIM AROUND": GOTO 270 2104 AI = AI - 1 2105 PRINT "HE TAKES THE MONEY, RUNS AND SHOUTS OUT 'MY SALARY IS INTOLERABLE'":IL(19) = 98:IL(18) = 98: GOTO 170 2110 IF CN < > 7 THEN GOTO 2120 2115 IF LC < > 21 THEN PRINT "I DON'T SEE HER AROUND": GOTO 270 2116 AI = AI - 1 2117 PRINT "SHE'S INSULTED AND SAYS 'YOU CAN`T BUY MY BODY' AND CALLS A GUARD":IL(18) = 98: GOTO 1040 2120 IF CN < > 21 THEN PRINT "I CAN'T DO THAT": GOTO 270 2130 IF LC < > 27 THEN PRINT LC = 21: GOTO 2115 2140 PRINT "SHE'S INSULTED AND SAYS 'I AM NOT FOR SALE";: IF SS = 1 THEN PRINT ", AND AFTER ALL I`VE DONE"; 2145 IL(18) = 98:AI = AI - 1 2150 PRINT : GOTO 1040 2160 IF CN < > 23 THEN PRINT "I CAN'T DO THAT": GOTO 270 2170 IF IL(23) < > 99 THEN PRINT "I HAVEN'T GOT IT": GOTO 270 2175 IF CF = 1 THEN PRINT "IT'S ALREADY LOADED": GOTO 270 2180 IF IL(22) < > 99 THEN PRINT "WITH WHAT ?": GOTO 270 2190 IL(22) = 98:AI = AI - 1:CF = 1: PRINT "O.K.": GOTO 270 2200 IF CN = 24 AND LC = 12 THEN PRINT "I DON'T HAVE THE RIGHT TOOLS": GOTO 270 2205 IF CN = 25 AND LC = 24 AND OS = 1 THEN PRINT "IT'S ALREADY OPEN": GOTO 270 2210 IF CN = 25 AND LC = 24 AND IL(17) = 99 THEN PRINT "THE SAFE IS NOW OPEN":OS = 1: GOTO 270 2220 IF CN < > 25 OR LC < > 24 THEN PRINT "I CAN'T DO THAT": GOTO 270 2230 IF IL(17) < > 99 THEN PRINT "WHAT WITH ?": GOTO 270 2240 GOTO 270 2250 IF FU = 1 THEN PRINT "YOU HAVE ALREADY USED UP THE FILM": GOTO 270 2255 IF CN < > 26 THEN PRINT "YOUR A GOOD PHOTOGRAPHER":FU = 1: GOTO 270 2260 IF LC < > IL(26) AND IL(26) < > 99 THEN PRINT "I DON'T KNOW WHERE THEY ARE": GOTO 270 2265 IF IL(23) < > 99 THEN PRINT "WHAT WITH ?": GOTO 270 2267 IF CF = 0 THEN PRINT "BUT THE CAMERA HAS NO FILM": GOTO 270 2270 PRINT "O.K.":FU = 1:PF = 1: GOTO 270 2280 IF CN = 2 OR CN = 5 OR CN = 11 OR CN = 26 OR CN = 27 OR CN = 29 THEN GOTO 545 2290 PRINT "I CAN'T DO THAT": GOTO 270 2300 IF CN < > 24 THEN PRINT "I CAN'T DO THAT": GOTO 270 2310 IF LC < > 12 THEN PRINT "I DON'T KNOW WHERE IT IS": GOTO 270 2315 IF LD = 1 THEN PRINT "IT'S NOT LOCKED": GOTO 270 2320 IF IL(9) < > 99 THEN PRINT "WITH WHAT ?": GOTO 270 2330 LD = 1: PRINT "IT'S UNLOCKED": GOTO 270 2340 IF CN < > 28 THEN PRINT "NOTHING HAPPENED": GOTO 270 2350 IF IL(32) < > 99 THEN PRINT "NOTHING HAPPENED": GOTO 270 2360 IF LC < > 13 THEN PRINT "NOTHING HAPPENED": GOTO 270 2370 IF LC = 13 THEN NL = 14: GOTO 2390 2380 NL = 13 2390 PRINT "THE WALL JUST SPUN AROUND": GOTO 170 2400 IF CN < > 31 THEN PRINT "I CAN'T DO THAT": GOTO 270 2410 IF LC < > 14 THEN PRINT "ON WHAT ?": GOTO 270 2420 PRINT "O.K.": IF IL(5) < > 99 THEN PRINT "NOTHING HAPPENED": GOTO 270 2430 IF HR = 17 AND MN < 35 THEN PRINT "THEY ARE SENDING A HELICOPTER FOR YOU":IL(36) = 11: GOTO 270 2440 PRINT "THE GUARDS WERE TRACKING ALL RADIO SIGNALS IN THE AREA.": GOTO 1040 2500 IF CN < > 25 THEN GOTO 2600 2505 IF LC < > 24 THEN PRINT "I CAN'T SEE IT": GOTO 270 2510 IF OS = 1 THEN PRINT "IT'S OPEN": GOTO 270 2520 PRINT "IT'S LOCKED": GOTO 270 2600 IF CN < > 24 THEN GOTO 2700 2610 IF LC < > 12 THEN PRINT "I CAN'T SEE IT": GOTO 270 2620 IF LD = 0 THEN PRINT "IT'S LOCKED": GOTO 270 2630 IF OD = 1 THEN PRINT "IT'S ALREADY OPEN": GOTO 270 2640 PRINT "O.K.":OD = 1: GOTO 270 2700 IF CN = 5 OR CN = 11 OR CN = 12 OR CN = 17 OR CN = 26 OR CN = 27 OR CN = 29 THEN GOTO 2720 2710 PRINT "I CAN'T DO THAT": GOTO 270 2720 GOTO 545 10000 PRINT : PRINT "I'M AFRAID NOT !!!" 10005 GOTO 170 10010 & INPUT X9:A$ = A$ + "": RETURN 49999 END 50000 VTAB 24: PRINT "YOU HAVE PARACHUTED BEHIND ENEMY LINES. YOUR PROVISIONS INCLUDE ALL THE ITEMS NECESSARY TO COMPLETE THE MISSION.": PRINT : PRINT "ON THE WAY DOWN, YOUR PACK BLEW OPEN AND A FEW ITEMS WERE LOST.": PRINT : PRINT "OPERATION 'FIREFLY' IS THE MOST"; 50010 PRINT " IMPORTANT MISSION YOU WILL EVER GO ON.": PRINT : PRINT "SO GOOD LUCK !!!" 50020 PRINT : PRINT "WE HOPE TO SEE YOU BACK AT OUR H.Q. IN UNDER 38 HOURS." 51000 RETURN 52000 IF HR < 8 THEN HR = 8:MN = 0: RETURN 52010 DY = DY + 1:HR = 8:MN = 0: RETURN 59999 & LOAD 60000 P = 40 - PEEK (36): IF LEN (S$) > P + 2 THEN PRINT 60010 PRINT S$;". ";: RETURN 60100 S$ = LEFT$ (A$,1): IF S$ = "A" OR S$ = "E" OR S$ = "I" OR S$ = "O" OR S$ = "U" THEN PRINT "N"; 60110 PRINT " ";: RETURN 60200 PRINT "YOU CAN'T DO THAT HERE": GOTO 270 60250 PRINT : PRINT "DO YOU WANT TO PLAY AGAIN:";:X9 = 1: GOSUB 10010: IF A$ < > "Y" THEN & LOAD 60260 CLEAR :A$ = "" + "": GOSUB 10: GOTO 150 60300 PRINT "YOU DID NOT COMPLETE YOUR MISSION.": GOTO 60250 60350 IF PF < > 1 THEN PRINT "YOU HAVEN'T GOT THE PLANS.": GOTO 60300 60355 IF IL(23) < > 99 THEN PRINT "YOU HAVEN'T GOT THE CAMERA.": GOTO 270 60360 PRINT "YOU ESCAPED TO FREEDOM WITH THE PLANS. OPERATION 'FIREFLY' WAS A SUCCESS.": GOTO 60250 60380 PRINT "IT'S PAST 10 O'CLOCK ON THE THIRD DAY, AND GUESS WHAT ?": GOTO 60300 61000 PRINT : PRINT CHR$ (4);"open /ram5/a" 61010 PRINT CHR$ (4);"write /ram5/a" 61020 LIST 61030 PRINT CHR$ (4);"close"