C64S tape image fileTREASURE GAMES WUMPUS3D TIC TAC TOE 6LUNAR LANDER #x%ROTATE"";9)"WUMPUS_:" COPYRIGHT 1978, COMMODORE BUSINESS MACHINES, INC.rZZ11500:ZZ WUMPUS 1.0 - #G1005 "";8);"HUNT THE WUMPUS!""";"INSTRUCTIONS? ";:5010:7010:I$"N"70R050 (:"(Y/N) ";:202 10101F S(20,3),L(6),M(6),P(5)KP J1 20: K1 3bZ S(J,K) : K: Jx 2,5,8,1,3,10,2,4,12,3,5,14 1,4,6,5,7,15,6,8,17,1,7,9 8,10,18,2,9,11,10,12,19,3,11 13,12,14,20,4,13,15,6,14,16  15,17,20,7,16,18,9,17,19,11 18,20,13,16,197 R(X)(X(1)1)[ J1 6:L(J)R(20):M(J)L(J)bJ" J1 6: KJ 6: JK 330F JK 3306 L(J)L(K) 240J K : JhA5: LL(1)|"HUNT THE WUMPUS" 2000: 2500: G 440,480 3000 : F0 400  490*4000: F0 400GF0560Y"YOU LOSE!"c 5800" THE WUMPUS'LL GETCHA NEXT TIME!!"D J1 6:L(J)M(J): JIN"PLAY ANOTHER ONE? ";:5010:7010:I$"N"710XR0610]:"(Y/N) ";:590 b:c"SAME SET-UP? ";:5010:7010:I$"Y"360GlR0240^v:"(Y/N) ";:611d"WELCOME TO HUNT THE WUMPUS." THE WUMPUS LIVES IN A CAVE"OF 20 ROOMS. EACH ROOM HAS 3""TUNNELS LEADING TO OTHER ROOMS. " THE ROOMS ARE ARRANGED IN A5 $"DODECAHEDRON."` B"(PRESS ANY KEY TO CONTINUE)";:5010 L"LIFE IN THE WUMPUS CAVES HAS V"SOME DANGERS:" `"BOTTOMLESS PITS TWO ROOMS j" HAVE BOTTOMLESS PITS IN t" THEM. IF YOU GO THERE, YOU+ ~" FALL INTO THE PIT (AND LOSE!)V "(PRESS ANY KEY TO CONTINUE)";:5010{ "SUPERBATS TWO OTHER ROOMS "HAVE SUPER BATS. IF YOU GO THERE "A BAT GRABS YOU AND TAKES YOU "TO SOME OTHER ROOM AT RANDOM." "(PRESS ANY KEY TO CONTINUE)";:5010- "AND, OF COURSE,D "THE WUMPUS!!!g " USUALLY HE IS ASLEEP, BUT " TWO THINGS WILL WAKE HIM UP. " 1: YOUR ENTERING HIS ROOM" (" 2: YOUR FIRING AN ARROW " 2" WHEN HE WAKES UP, HE GROGGILY# <"MOVES TO THE NEXT CAVE -- THISI F"IS ONE OF THE CAVES NEXT TO HIMn P"OR THE ONE HE IS IN (LIVING IN Z"CAVES DOES THINGS TO HIS EYES) d"(PRESS ANY KEY TO CONTINUE)";: 5010 n:">>>> THIS MEANS THERE IS A ONE x"IN FOUR CHANCE HE WILL STAY/ "STILL AND A THREE-FOURTH CHANCEV "OF MOVING. IF HE ENDS UP IN YOUR{ "CAVE, HE WILL EAT YOU UP!!(AND "YOU LOSE!!) "(PRESS ANY KEY TO CONTINUE)";:5010 "YOUR OPTIONS ARE: " FIRST, YOU CAN EITHER MOVE OR"SHOOT AN ARROW.2"MOVING YOU CAN GO THRU AW"TUNNEL TO A NEIGHBORING ROOM."z"IF THE ROOM # IS ONE DIGIT,""TERMINATE WITH RETURN.""ARROWS YOU HAVE 5 ARROWS."" FIRST, THE PET WILL ASK YOU"HOW FAR TO SHOOT THE ARROW. AN,"ARROW CAN GO THROUGH 5 ROOMS.N" THEN THE PET WILL ASK YOUr"THE ROOM NUMBERS THE ARROW IS""TO FLY THROUGH.," IF THE ARROW IS TOLD TO GO TO6"A ROOM NOT CONNECTED BY A TUNNEL@"IT WILL FLY AT RANDOM...... J" >> IF IT HITS YOU, YOU LOSE!!NT" >> IF IT HITS THE WUMPUS, YOU WIN!!y^"(PRESS ANY KEY TO CONTINUE)";:5010h"SOME WARNINGS WILL HELP YOU.r"WHEN YOU ARE ONE ROOM AWAY, THE PET|"WILL SAY:"'I SMELL A WUMPUS' WUMPUS"$"'I HEAR WINGFLAPS' BATS"G"'I FEEL A DRAFT' PIT"e"GOOD LUCK..."(PRESS ANY KEY TO CONTINUE)";:5010":Z140:"";: J26:K13S(L(1),K)L(J)2110 J1 2060,2080,2080,2100,2100' "I SMELL A WUMPUS!" : 2110D "I FEEL A DRAFT" :2110d4"I HEAR WINGFLAPS" : 2110n> K,JR"YOU ARE IN ROOM "L(1)\"TUNNELS LEAD TO "S(L,1);S(L,2);S(L,3)p "SHOOT OR MOVE(S-M)? ";:5010:8000:I$"S"2530 R02540 :"";:2500 G1:' G2:/ F0g "HOW FAR TO GO(1-5)? ";:5010:J9(I$):J903030y :"";:3010 J91J953020 "";I$;"" K1J9 "ROOM TO GO THRU? ";:9000:R1 3080 P(K)L K3 3130  P(K)P(K2) 3130>0 "NO 'U' TURNS FOR ARROWS!!! TRY AGAIN": 3080E: K^D LL(1): SHOOT ARROWtN K1J9: K113X S(L,K1)P(K) 3290b K1l LS(L,R(3))v "....BOIIIINGGGG.......ARROW HIT A WALL": 3300 K "MISSED":LL(1) 3370 AA1: A0 # F1:. LP(K)B LL(2) 3340b "AHA! YOU GOT THE WUMPUS"l F1: LL(1) 3210 "OUCH! ARROW GOT YOU!": 3270* KR(4)> K43410H L(2)S(L(2),K)R L(2)L \ "TSK TSK TSK - WUMPUS GOT YOU!"f F1:F00"WHERE TO? ";:9000A R1 4020Y L1 L20 4020v K13: CHECK IF LEGAL S(L(1),K)L4130K LL(1) 4130"NOT POSSIBLE - NO TUNNEL": 4020"L(1)L: CHECK FOR HAZARDS,LL(2)4220: WUMPUS*@"... OOPS! BUMPED A WUMPUS!"4T3370E^ F0 4220Khk|LL(3)LL(4)4260: PIT"YYYYYYYYYIIIIIIIEEEEEEEE":T0TI:G15I$" "J$" : "TIT0454229J135 G5G3/G25G25CGG(5(1)2)n""(I$,G)""J$""(I$,30G)""uJ"FELL IN PIT":F1:LL(5)LL(6) "ZAP---"N120"";:I1R(5):"";: J1R(20):"";:"FLAP";'ZZ1200:.N^"SUPER BAT SNATCH!!"mI1400:LR(20): 413006000:Z0$" ":Z1$" "Z0$"";:ZZ150:I$:I$""ZZ50:::Z$Z1$:Z1$Z0$:Z0$Z$:5020p--CLEAR BUFFERzI$:I$""6010 2bI$"Y"7030El"YES":R0:WvI$"N"7050i"NO":R0:sR1:@--SHOOT/MOVEJI$"S" 8030T"SHOOT":R0:^I$"M" 8050h"MOVE":R0:rR1:(#5010:(I$"0" (I$)0) 9030>2#"";I$;:T$I$:5010:I$"0"(I$)13(I$)09030S<#(I$)13 9025c?#"";I$;""~@#L10(T$)(I$):9040A#I$;:L(T$):9040F#:"HUH?...";:R1:P#R0::"END OF WUMPUS PROPERTY OF COMMODORE dB$"*******************"KnA$" "x""9)B$:" * 3-D TIC TAC TOE *":9)B$F100180"DO YOU WANT INSTRUCTIONS?(Y/N)"Y$:Y$""00150Y$"Y"01420""A$"";:F0 A(75),B(75)G(63),V(63)+N0(3),N1(3)@I075:A(I):IUI075:B(I):IjI03:N0(I):II03:N1(I):II063G(I)0I"I063,V(I)06G(I)000330@V(I)1JIT00980^"LEVEL:?"; hY$:Y$""00360&r(Y$)52(Y$)48003605|L(Y$):LF"COLUMN:?";[Y$:Y$""00400x(Y$)52(Y$)4800400C(Y$):C"ROW:?";Y$:Y$""00440Y$"R""":A$:A$:A$"":00350(Y$)52(Y$)4800440R(Y$):RP16R4LC21"P21LV(P)1""A$:A$:A$"":00350XG(P)1dV(P)1o00980xN1&T00L075:SA(L)DV1B(L)NC0XH0bPSV1lI03vPPV1G(P)100670CC100690G(P)100690HH1!I3HC000810=TT1LH401290WPSV1bI03mPPV1V(P)100800C300790 NPV(P)V(P)N0(H)N1(C) I*L4N101310>T001360HA$:A$:A$:A$ RT" REMAINING LINES": \M1$ fI0637 pMV(I)00910M zMV(I)((TI)5)U PI\ Ix "MY MOVE RATED AT:";M; G(P)1 24)"LEVEL";(P4)4(P16)1 24)"COLUMN";P4(P4)1 24)"ROW";(P16)1 00290 ""::::. "LEVEL 1 LEVEL 2 LEVEL 3 LEVEL 4"4 ? R14J L14U C14i P16R4LC21} G(P)101070 $"O"; .G(P)101090 8"X"; BG(P)001110 L" "; VC4""; `C j" "; tL ~R4" "# R) / q 0,0,0,1,2,3,3,4,8,12,0,0,1,2,3,3,0,0,1,2,3,3,4,4,5,6,7,7,8,8 9,10,11,11,12,12,13,14,15,15,12,12,13,14,15,15,16,16,16,17,18 19,19,20,24,28,32,32,32,33,34,35,35,36,40,44,48,48,48,49,50 51,51,52,56,60L 1,4,5,4,4,3,4,1,1,1,16,17,16,16,15,16,20,21,20,20,19,20,16,17 16,16,15,16,16,17,16,16,15,16,12,13,12,12,11,12,16,17,16,16 15,16,1,4,5,4,4,3,4,1,1,1,1,4,5,4,4,3,4,1,1,1,1,4,5,4,4,3,4 1,1,1 0,3,15,35 1,4,9,40 A$:A$:A$:"YOU WIN" 013705 A$:A$:A$:"I WIN"@ (G(N)1K 200980Q <\ F01370z PA$:A$:A$:"GAME DRAWN" Z"DO YOU WANT ANOTHER GAME?(Y/N)" dY$:Y$""01380 nY$"Y"""A$:A$:A$:A$:A$:A$:00260x""::::::10)"GOODBYE" ?F1:"THE GAME IS PLAYED ON A CUBE 4 4 4"m"THE OBJECT IS TO TO GET A ROW OF 4'O'S""IN ANY DIRECTION (INCLUDING) DIAGONALS""YOU MUST ALSO STOP THE MACHINE GETTING""A ROW OF 'X'S. YOU GO FIRST AND WILL BE"'"ASKED FOR THE LEVEL,COLUMN AND ROW IN"V"WHICH YOU WANT TO PLAY. THE LEVELS ARE""MARKED ON THE BOARD(1-4),THE COLUMNS ARE""NUMBERED ACROSS THE BOARD(1-4) AND THE""ROWS ARE NUMBERED DOWN THE BOARD(1-4)" "IF YOU ENTER 0 TO ALL QUESTIONS THE";"BOARD IS RESET. IF YOU MAKE A MISTAKE"f"ENTER 'R' IN ANSWER TO ROW? AND YOU""CAN REENTER YOUR PLAY.":"PRESS ANY KEY""Y$:Y$""01570,00120 '"ROTATEf:"COPYRIGHT 1978, COMMODORE BUSINESS MACHINES, INC. VERSION 1.0:#G1008 ZZ1 1500:ZZB$(18):W$"":B$"    " "DO YOU WANT INSTRUCTIONS (Y/N)?";:9000::A$"N"800) A$"Y" A$"N" 6O5000:I017:B$(I)(I65)::""BOARD POSITIONS ARE OCCUPIED AT RANDOM":"BY THE LETTERS A TO P."THE OBJECT OF THE GAME IS TO ORDER THE"("LETTERS BY MOVING ANY FOUR OF THEM -!2"ONE POSITION AT A TIME - IN A CLOCKWISE"Q<"DIRECTION. ALL FOUR LETTERS WILL MOVE."F"YOU SPECIFY THE UPPER LEFT POSITION OF"P"THE FOUR LETTERS YOU WISH TO ROTATE."Z"  THIS SHOWS THE DIRECTION d" A  B OF ROTATION....$n"  5x" G" x"  YOU PRESS 'A' TO ROTATE" D Τ C THESE FOUR SQUARES."  A$:A$""170X11150:A$:B$(1)"C":B$(2)"G":B$(5)"B":B$(6)"F"#"":600:T26-"DT);"IF THE BOARD[T);"IS LIKE THISrT);"AT THE STARTA$:A$""240X11150:A$:"";T);"AND IF YOUT);"ROTATE POSI-"T);"TION C, THE,T);"BOARD WILL 1T);"CHANGE.8 @B$(1)"B":B$(2)"C":B$(5)"F":B$(6)"G":ATIL T(TIA)160340U ^600o h" AND YOU WIN! |A$:A$""380  X11150:A$: "YOU ALSO GET ONE 'SPECIAL' MOVE PER "GAME WHICH YOU MAY OR MAY NOT NEED. "THE SPECIAL MOVE ALLOWS YOU TO EXCHANGES "ANY TWO ADJACENT LETTERS IN A ROW OR COLUMN.~ "TO MAKE THIS MOVE, TYPE 'R' AS YOUR "MOVE (THE 'R' STANDS FOR 'RESTRICTED') "THEN YOU WILL BE ASKED WHICH TWO LETTERSYOU WISH TO EXCHANGE. "; "THEY MUST BE AD- JACENT.> " ONLY ONE SPECIAL MOVE PER GAME!j " TO GIVE UP, TYPE 'Q' AS YOUR MOVE. "PRESS ANY KEY TO START THE GAME. 12);"GOOD LUCK! A$:A$""520 X11150:A$: A$"Q"2060 800 X""; bW$") lI084:W$;B$r vW$" "B$(I)"  "B$(I1)"  "B$(I2)"  "B$(I3)" "} W$;B$ W$" :W$;B$ W$" "B$(12)"  "B$(13)"  "B$(14)"  "B$(15)" " W$;B$ W$"& @ I139:ER$ER$" ":Z *I139:ER$ER$"":z 4DN$"" >W$"" B$"    " I017:B$(I)(65I): I015:T(16(1)) T$B$(I):B$(I)B$(T):B$(T)T$'$I:M0:S0:"":1140I8DN$;ER$"LETTER TO ROTATE? ";^L3010:I161500mQI177000V(I3)(I7)((10I)(I16))6000[I187000`MM1:T$B$(I)jB$(I)B$(I4):B$(I4)B$(I5):B$(I5)B$(I1):B$(I1)T$t"":600%I015:(I65)B$(I)1080+e"YOU MADE ";M;" MOVES BEFORE GIVING UP.":2010"YOU ORDERED THE BOARD IN";M;" MOVES.":M1M1M:GG1"DO YOU WANT TO PLAY AGAIN?(Y/N)"9000 A$"Y"1000 A$"N" A$"Y" 2015%"YOU PLAYED";G;"GAMES.";6 G0 2070v" YOU ORDERED THE BOARD IN AN AVERAGE OF";M1G;"MOVES PER"GAME. THAT'S NOT BAD, BELIEVE ME! "THANKS FOR PLAYING. DN$;ER$"BAD MOVE, TRY AGAIN. "; 9000 I017:B$(I)A$" "A$:ER$:3300% :3000+ u "WHEN YOU HAVE READ WHAT IS IS ON THE SCREEN,PRESS ANY KEY."A$:A$""5040X11150:A$:pDN$;ER$"ILLEGAL MOVE - TRY AGAIN!":TTI60zTIT60101080XR17550/bR1:L0:"EXCHANGE WHICH TWO LETTERS? ";:9100KlJ017:B$(J)X$7060_qB$(J1)Y$L2svB$(J4)Y$L4xL27040zL47500|T$B$(J):B$(J)B$(J4):B$(J4)T$~600:1080T$B$(J):B$(J)B$(J1):B$(J1)T$600:10808L"SORRY - ";X$;" AND ";Y$;" ARE NOT ADJACENT.":R0AVATIU`(TIA)907520_j1080~"SORRY - ONLY ONE SPECIAL MOVE PER GAME.":7510(#"";:IC150:A$:A$""2#:" ";:IC150:A$:A$""<#:9000#"";:IC150:X$:X$""91309#:" ";:IC150:X$:X$""9130E#:9100]#X$"A""P"X$9100f#X$;#"";:IC150:Y$:Y$""9180#:" ";:IC150:Y$:Y$""9180#:9150#Y$"A""P"Y$9150#Y$: :"END OF ROTATE PROPERTY OF COMMODORE$Q COPYRIGHT COMMODORE BUSINESS MACHINES INC. 1978: ALL RIGHTS RESERVED "LUNAR LANDER" #G1006:VERSION 1.0 :4/4/78"";4000I4I58000 "" TH0:T0X025000(V0200:F1:S1F1000P60000ZATTI:AGTI7dRR$:((RR$)0RR$"0")((RR$)0)R(RR$)Rn(TIAT)30ATTI:130[x110eTTRqTHTH1A5.4(10.2R)XV00.5A:X0X0XX00230XXX0:F0:X00DV0V02XAD0270DD:S1V0(D)S(X)S1"V00"";4,"";((V0),2,5)"";J6((X0)A$(0),7)T@""rJ"";1200T" "8);THT2000:F09000:10000^T1200R0:140h100A$""A$(0)" "A$(1)" "A$(2)" ߒ "A$(3)"  "A$(4)"USAߒ"/$A$(5)"ߒ"?.A$(6)A$(0)O8""19);ZBI06iLA$(I)A$;oV[" "`"SPEED HEIGHT":1160j" FUEL TIME ":1160tI12:""13)"":"": 19);:R09I1R:"Σ";::IR10:" ";:e"";:I110:" ";::o 5000"THIS GAME SIMULATES THE LANDING OF A""SPACECRAFT ABOVE THE LUNAR SURFACE.":"READINGS ON THE GAUGES ARE:" " VELOCITY IN FT/SEC"3 " HEIGHT IN FEET"M " REMAINING FUEL"u " ELAPSED TIME IN SECONDS": "IF THE VELOCITY SHOULD APPEAR IN" "REVERSE FIELD (EG.,256),YOU ARE GOING" "UP. THE CONTROLS ARE THE NUMBER KEYS."& "THE HIGHER THE NUMBER,THE HIGHER THE"Q "THRUST. A THRUST OF 5 WILL EXACTLY"~ "BALANCE GRAVITY, ALLOWING YOU TO FALL" ""AT A CONSTANT RATE. THE OBJECT IS TO" ,"LAND AT A SPEED OF LESS THAN 15 FT/SEC.": 6"YOU START AT 25000 FEET, FALLING AT A"4 @"RATE OF 200 FT/SEC, WITH 1200 UNITS"a J"OF FUEL. IF YOU RUN OUT OF FUEL, YOU" N"WILL FALL LIKE A ROCK!": P"DO YOU UNDERSTAND? "; Q 40000 R" ";:I1200::" ";:I1200::U$:U$""4178 ^U$"Y"7 _U$"N" 4200 `:"(Y/N) ";: 4176@ h"RE-READ CAREFULLY!":4000I @""V EI1114i ^39(1));"."q I1w  (#H4.5:H$(1)"":H$(2)"":H$(3)"":H$(4)"":H$(5)"":H$(6)"" 2#H$(7)"":H$(8)" " <#"":I140 F#N((1)7)1:(NH)290305 P#HN:H$(H);:I:F '""19);s 'I110:J05:A$(J)A$;::" ";: $'V01520000 .':"CONGRATULATIONS, YOU LANDED SAFELY":30000 N"        "*N""a40000@0u"DO YOU WANT TO TRY AGAIN? ";{1u" ";:I1200::" ";:I1200::G$:G$""30001:uG$"Y"7DuG$"N" 30030Eu"":Nu:"(Y/N) ";: 30000@AA$:AA$"" 40000J`""jATIIt"MOON LANDER GAME STARTS IN"5((TIA)60)" SECONDS "_~(TIA)30060020" ":R0:" END OF LUNAR LANDER PROPERTY OF COMMODORE