C64S tape image fileTREASURE GAMES LUNAR LANDER E ROTATE WUMPUS s6TIC TAC TOE 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'"ROTATEf:"COPYRIGHT 1978, COMMODORE BUSINESS MACHINES, INC. VERSION 1.0:#G1008 ZZ1 1500:ZZB$(20):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-"XT);"IF THE BOARD":T);"IS LIKE THISoT);"AT THE STARTX$:X$""245"";T);"AND IF YOUT);"ROTATE POSI-":T);"TION C, THE,T);"BOARD WILL":T);"CHANGE. @B$(1)"B":B$(2)"C":B$(5)"F":B$(6)"G":ATI/ T(TIA)1603408 ^600R h" AND YOU WIN!e |A$:A$""380z  X11150:A$: "YOU ALSO GET ONE 'SPECIAL' MOVE PER "GAME WHICH YOU MAY OR MAY NOT NEED. "THE SPECIAL MOVE ALLOWS YOU TO EXCHANGE6 "ANY TWO ADJACENT LETTERS IN A ROW OR COLUMN.a "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!M " TO GIVE UP, TYPE 'Q' AS YOUR MOVE.u "PRESS ANY KEY TO START THE GAME. 12);"GOOD LUCK! A$:A$""520 X11150:A$: A$"Q"2060 800 X""; bW$" lI084:W$;B$U 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$" ":= *I139:ER$ER$"":] 4DN$""n >W$"" B$"    " I017:B$(I)(65I): I015:T(16(1)) T$B$(I):B$(I)B$(T):B$(T)T$:I($M0:S0:"":R$B$(1):B$(1)B$(2):B$(2)R$:1140<81190:G02000^9DN$;ER$"LETTER TO ROTATE? ";sL3010:I161500QI177000V(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:1190:1080IG0:I015:(I65)B$(I)G1Q:"YOU MADE ";M;" MOVES BEFORE GIVING UP.":2010"YOU ORDERED THE BOARD IN";M;"MOVES.";:M1M1M:GGGG1M2". """:"DO YOU WANT TO PLAY AGAIN?(Y/N)";9000$ A$"Y"1000C A$"N" A$"Y" 2015v"":"YOU PLAYED";GG;"GAMES.";:GG2". " GG0 2070"YOU ORDERED THE BOARD IN AN AVERAGE OF"M1GG;"MOVES PER GAME.M1GG2""M1GG;"MOVE PER GAME. ""THAT'S NOT BAD, BELIEVE ME!: "THANKS FOR PLAYING.@e DN$;ER$"BAD MOVE, TRY AGAIN. ";o 9000 I017:B$(I)A$" "A$:ER$:3300 :3000  "WHEN YOU HAVE READ WHAT IS ON THE SCREEN PRESS ANY KEY."A$:A$""5040X11150:A$:LpDN$;ER$"ILLEGAL MOVE - TRY AGAIN!":TTI60[zTIT6010e1080sXR17550bR1:L0:"EXCHANGE WHICH TWO LETTERS? ";:9100lJ017:B$(J)X$7060qB$(J1)Y$L2rJ0B$(J1)Y$L5vB$(J4)Y$L4wJ3B$(J4)Y$L6,xL27040:yL67055HzL57057W{L47500|T$B$(J):B$(J)B$(J4):B$(J4)T$:7070T$B$(J):B$(J)B$(J1):B$(J1)T$:7070T$B$(J):B$(J)B$(J4):B$(J4)T$:7070T$B$(J):B$(J)B$(J1):B$(J1)T$:7070 "MM1:600:1080ZL"SORRY - ";X$;" AND ";Y$;" ARE NOT ADJACENT.":R0cVATIw`(TIA)907520j1080~"SORRY - ONLY ONE SPECIAL MOVE PER GAME.":7510(#"";:IC150:A$:A$""2#:" ";:IC150:A$:A$"" <#:90002#"";:IC150:X$:X$""9130[#:" ";:IC150:X$:X$""9130g#:9100#X$"A""P"X$9100#X$;#"";:IC150:Y$:Y$""9180#:" ";:IC150:Y$:Y$""9180#:9150#Y$"A""P"Y$9150#Y$:B:"END OF ROTATE PROPERTY OF COMMODORE$M"COPYRIGHT COMMODORE BUSINESS MACHINES INC. 1978. ALL RIGHTS RESERVED." WUMPUS - #G1005 V1.0 3/78 - FROM THE ORIGINAL BY GREGORY YOB "";8);"HUNT THE WUMPUS!""";"INSTRUCTIONS? ";:5010:7010:I$"N"70R050(:"(Y/N) ";:202 1010<F S(20,3),L(6),M(6),P(5)VP J1 20: K1 3mZ 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,19B R(X)(X(1)1)f J1 6:L(J)R(20):M(J)L(J)mJ" 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+ 49054000E F0 400RF0560d"YOU LOSE!"n 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) ";:590bEc"SAME SET-UP? ";:5010:7010:I$"Y"360RlR0240iv:"(Y/N) ";:611o"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 A@ $"DODECAHEDRON."k 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, YOU6 ~" FALL INTO THE PIT (AND LOSE!)a "(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)";:50108 "AND, OF COURSE,O "THE WUMPUS!!!r " 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 -- THIST F"IS ONE OF THE CAVES NEXT TO HIMy 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 CHANCEa "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.="MOVING YOU CAN GO THRU Ab"TUNNEL TO A NEIGHBORING ROOM.""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. AN7"ARROW CAN GO THROUGH 5 ROOMS.Y" THEN THE PET WILL ASK YOU}"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!!YT" >> IF IT HITS THE WUMPUS, YOU WIN!!^"(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"R"'I FEEL A DRAFT' PIT"p"GOOD LUCK..."(PRESS ANY KEY TO CONTINUE)";:5010":Z140:"";: J26:K13S(L(1),K)L(J)2110 J1 2060,2080,2080,2100,21002 "I SMELL A WUMPUS!" : 2110O "I FEEL A DRAFT" :2110o4"I HEAR WINGFLAPS" : 2110y> 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:2 G2:: F0r "HOW FAR TO GO(1-5)? ";:5010:J9(I$):J903030 :"";:3010 J91J953020 "";I$;"" K1J9 "ROOM TO GO THRU? ";:9000:R1 3080 P(K)L K3 3130 P(K)P(K2) 3130I0 "NO 'U' TURNS FOR ARROWS!!! TRY AGAIN": 3080P: KiD LL(1): SHOOT ARROWN 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:9 LP(K)M LL(2) 3340m "AHA! YOU GOT THE WUMPUS"w 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:"F0;"WHERE TO? ";:9000L R1 4020d L1 L20 4020 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: WUMPUS5@"... OOPS! BUMPED A WUMPUS!"?T3370P^ F0 4220Vhv|LL(3)LL(4)4260: PIT"YYYYYYYYYIIIIIIIEEEEEEEE":T0TI:G15I$" "J$" : "TIT0454229J135+G5G3:G29G29NGG(5(1)2)y""(I$,G)""J$""(I$,30G)""J"FELL IN PIT":F1:LL(5)LL(6) "ZAP---"N120"";:I1R(5):"";:J1R(20):"";:""FLAP";2ZZ1200:9Ni"SUPER BAT SNATCH!!"xI1400:LR(20): 41300 6000" ";:ZZ1150::" ";:ZZ1150::I$:I$""5020X11150:A$::p--CLEAR BUFFERzI$:I$""60100bI$"Y"7030Cl"YES":R0:UvI$"N"7050g"NO":R0:qR1:@--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$)09030Q<#(I$)13 9025a?#"";I$;""|@#L10(T$)(I$):9040A#I$;:L(T$):9040F#:"HUH?...";:R1:P#R0::"END OF WUMPUS PROPERTY OF COMMODORE P COPYRIGHT COMMODORE BUSINESS MACHINES INC. 1978: ALL RIGHTS RESERVED"TIC-TAC-TOE"#G1007: VERSION 1.0 :4/4/780,1,2,3,4,5,6,7,8,9,21 C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,CTdTC0nS(C8)xIC0C8S(I)C0TC0180>2450:"ANOTHER GAME?";:3000:A$"Y"A$"N"170VA$"N""":63999eTC1:"";rIC1C3JC1C6"   ""   ";I3IC3230" " " "&J"123";u"654";"789";830ZC5290S(C4)C7330"S(C0)C0320,S(C0)C76330@S(C2)C7J920T830^1110(hRC0410?rS(ZC1)C1:S(B)C0Hv920R|2450w"YOU WIN,YOU CHEAT!";120AC0IC0C8S(I)C0450AC1AC1500S(ZC1)C19202450"YOU WERE SAVEDBY A GOOD";K"FAIRY! THEGAME IS A DRAWT120d RC2590pS(B)C7z1110RC1570S(B)C7920$2450&"I WIN! HA! HA!0120:920D340NRC3620XS(B)C7b540 lS(C4)C0650 vS(C4)C7& 5709 S(C0)C0680F S(C0)C7O 570b S(C2)C0710o S(C2)C7x 570 S(C6)C0740 S(C6)C7 570 S(C8)C0770 S(C8)C7 570 IC1 S(I)C0810 S(I)C7 570 *IIC2 4780 >AC0:IC0C81 @S(I)0836: BAC1K D:AC1470U F2450g H"YOUR MOVE";q R3000 W(A$"0")(A$"9")850 YZ(A$) Z2450 [" "; \Z0910 aS(ZC1)C0900 f2450 p"HUH?YOU CAN'T MOVETHERE DUMMY!";/ rIC11000:9 t2450t v"   ";} z838 S(ZC1)C1:920  IC0C6C3 ""; LC1C3IC1 "";::""; JC0C2 KIJ BS(K) BC01000 "";# 10403 BC11030d "   ߑ  ";n 1040 "      "; JC21060 ""; $J,I VVC3 `1330:RVRC0: VCT 1330:RVRC1:1330 V14% 1330:RVRC3:. VC2D 1330:RVRC2:O RC4:b 2FC0:EC2:IC1s P1800:RV nFC3:EC5:IC1 1800:RV FC6:EC8:IC1 1800:RV FC0:EC6:IC3 1800:RV "FC1:EC7:IC3@1800:RV^FC2:EC8:IC3'|1800:RV:FC0:EC8:IC4K1800:RV^FC2:EC6:IC2j1800:sRC0JFEIRRS(J)&S(J)C0BJ:D "";  " ";:IC1150: IC125:" ";:A$ A$""! :3000*120p:"END OF TIC-TAC-TOE PROPERTY OF COMMODORE