L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96Kp::::QXWbsl "THE DUNKING MACHINE"yv A LOW-RES ANIMATED GAME FOR ONE PLAYER BY JIM GANZ FEB, 1981FIRE. YOU HAVE 3":B"TRIES BEFORE YOU LOSE. <<>>"h20:"PRESS 'RETURN' TO BEGIN";A$nPOKE TONE ROUTINET112:TI::T770790:TI:T,TI:TONE & MUSIC DATA=170,80,170,70,200,80,150,80,170,100,200,120,173 Y69:11,14Y::6,715:12,1315D 2:12,6:14,6:8:11,148J \INSTRUCTIONSg::511::" THE DUNKING MACHINE ":16:"BY JIM GANZ"::"USE PADDLES 1 AND 2 TO CONTROL SIGHT,":"PRESS EITHER BUTTON TO 21,2710:11,145:12,1343l 21,2712:21,2713Kv 10,1120:13,1420\ 2:21,2211{ 21,2214:12,20:20,2215 12:Y1618:10,15Y: Y1214:10,15Y: 11,1411:12,149:13,148:7,14:12,1416 11:12,1310:10,6:15,6%,TL h -66?$$LII66v- $$tI266.-------'?,'$$$d --d$??$?6??6v--66667/5?$$6o -?$=$-?66- $d6&<5n$$6' ` w! g0 pd w` g w g w g  X ,Q L HH  h}h} h}LD>>`PQRSU T Riΰ.x"xH `+4ꠀ  * L ` hh L 0` 0`hhȱeiHH$ȱ% " `QT X P` %L  )u66?$$ -  666-?? -.-=--u?6.-=$466&m--??6-u6?I9.-?$--6,)u?v- ?d)u6?d-6/?se\OA6+0H֍i ` h L"1000'A$"N"10000!t': R: YOU MUST";"LAND AT A HORIZONTAL AND VERTICAL SPEED"a"OF 10 FEET PER SECOND, OR LESS"24:"HIT < SPACE BAR > WHEN READY *";:33:A$:A$;:A$(32)Ė1:8130:120'22:"PLAY AGAIN (Y/N) ?";:18:A$:A$;:A$"Y"ī1000'A$"Y424243F3F3F3F372D2D2D2D3636363636363E3F3F24242424241C12363F1709313E36372E0500"::10:16:"TOO BAD."::" THE OLD MINE JUST DIDN'T PAN OUT."::::D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D353636363636363F3F3F3F3F3F3F3F3F3F3F2424243C3F3F3F3F36363636363636363636363F0700"n "2C3E2C06002D2D2D2D25242424242424243F3F3F3F372D2D2D2D3636363636363E3F3F3F07002C242D3626242424243E363F2D360600"Nx "2D2D2D2D2524242424263E242424242424240400242424242424242C2D2D2D2D363636363636363E3F3F3F27242424242424"Z "2C2D2D2D3636363636363E3F3F2724242424242C2D2D36363636363E3F27242424242C2D363636363E3F252424242C3636363600"pd "242424242434363636363624242424242424242424242424242D2L16384: LOAD SHAPE TABLE*MX162B$CI1(B$)2ZAD((B$,I,1))48lAD9ADAD7 CH((B$,I1,1))48CH9CHCH7L,AD16CH(LL1:I2MX<F "0700100021007300C500CA00EB00FB00"RP "3636363636363JH2H2<C(J,I)2C(J,I)0:1:2(J10)3,(I2)161CJJIS710Y}::10:14::"BANKRUPT !!!":::9)"YOU HAVE GONE BANKRUPT"::" WOULD YOU LIKE TO PLAY AGAIN (Y/N) ";:R$R$"Y"30R$"N"ľR$:1221:O DEATH BY ELECTROCUTION."::"YOU LOSE.":"STOP AFTER ";T;" TURNS.":255:%""JUDGE: YOU ARE HEREBY SENTENCED TO":" "SE" YEARS IN PRISON. BAILIFF, PLEASE":" REMOVE THE PRISONER... NEXT CASE!"%":L28%"A1NI:IL%(A)0IL%(A)29%"M(M)&A VERDICT.":A11500:A&${"$~""JURY: THE WORD OF A ROBOT IS MORE RELIABLE THAN THAT OF A MERE HUMAN. THEREFORE, I FIND THE DEFENDANT GUILTY AS CHARGED."$"$" SENTENCING$"SE2K%"CH1ĺ"JUDGE: YOU ARE HEREBY SENTENCED T"ROBOT: JUST ";((1)59)" MINUTES, "(1)59:" SECONDS AGO."C#"`#$""D.A.: I REST MY CASE."f#)"w#`" YOUR REPLY#j""JUDGE: WHAT DOES THE DEFENDANT HAVE TO SAY FOR HIMSELF?"#o"#t""DEFENDANT: ";I$#v" $y""JUDGE: THE JURY WILL NOW REACH UTES, "(1)59:" SECONDS AGO."%"!B"!"D.A.: I REST MY CASE."H"!R"!8800j"! THEFT OF SERVICES"""ROBOT: THIS MAN HAD A MEAL AT THE RESTAURANT IN WHICH I WORK, AND WOULD NOT PAY."" """"D.A.: WHEN DID THIS HAPPEN?"""=#"L UPON THE ";$!!R%(L)1ĺ"CLERK "!"* A POLICE ROBOT ARRIVES. *"C!@H!"POLICE: YOU ARE UNDER ARREST. YOU HAVE A RIGHT TO REFRAIN FROM INPUTTING ANYOP', WHICH CONTAINS THE CURRENT POPULATION OF THE U.S.A. HAVE FUN!"VD |l " T O P S E C R E T"v "TO: WORKERS ON PROJECT CHRONOS"_ :"THE CURRENT COMBINATION TO THE DOOR OF ROOM ";RM" IS POSTED ON THE GOVERNMENT":"COMLES THROUGH ANY MODEM-EQUIPPED COMPUTER. TO DO THIS SIMPLY TYPE:"X " PR#3"& "THEN, YOU SELECT THE GOVERNMENT NETWORK BY TYPING:":" GOVT"0 "NOW YOU ARE ASKED THE NAME OF THE FILE YOU WANT. FILES YOU HAVE ACCESS TO"P: "INCLUDE 'P APPEAR TO BE THE FRAGMENTS OF A BUTCHER'S KNIFE.":KFW%(1)118200_FW%(1)138300}"NOTHING INTERESTING.": "TITLE: HOW TO MAKE THE MOST OF COMPUTER NETWORKS"J :"YOU CAN ACCESS THE GOVERNMENT'S PUBLIC INFORMATION DATA FINS, BUT THERE ARE SOME $2.50 PIECES.":S|FW%(1)4ĺ"IT IS HOOKED TO A MODEM.":FW%(1)8ĺ"IT IS THE ADVENTURES OF SUPERROBOT.":FW%(1)12ĺ"IT BELONGS TO SECRET AGENT BILL SMITH, AND HAS HIGHEST SECURITY CLEARANCE.":7FW%(1)14ĺ"THEY READ8EFW%(1)200ĺ"THE BARS LOOK RUSTY AND WEAK.":iJFW%(1)1FW%(1)NIĺ"NO SUCH THING HERE.":TIL%(FW%(1))LIL%(FW%(1))0ĺ"NO SUCH THING HERE.":^FW%(1)5ĺ"THE SIGN SAYS: INSERT $2.50":'rFW%(1)10ĺ"THEY ARE MOSTLY DOLLAR COI(2)0ĺ"THERE IS NO SCALE.":OlFW%(1)2ĺ"YOU CAN'T WEIGH IT ON ITSELF!":vFW%(1)1FW%(1)NIĺ"THERE IS NO SUCH ITEM HERE.":IL%(FW%(1))LIL%(FW%(1))0ĺ"THERE IS NO SUCH ITEM HERE.":"IT WEIGHS ";IW(FW%(1));" POUNDS."@L:B1NI:IL%(B):B:WT:T9B1NL:R%(B):B:M:EOB1NI:PR(B):B^CM%:R:JrJLV%(28,8)27~PW:RMD$"CLOSE"216,0 ONERR216,0D$"CLOSE""GAME NOT FOUND."X WEIGHbIL%(2)LIL% REQUIREMENTS:* APPLESOFT ][ AND= GAME PADDLESCZ CLASSIFIEDt -PUBLIC DOMAIN-  NOVEMBER, 1981 PLEASE RETAIN LINES*7000-72304IN ALL COPIES.> -THANK YOU!!BBY JIM GANZV "GT" "55 5"X COORD="GX" "20)"Y COORD="GY" "55"Q TOLERANCE="((1)1000)" "20)"X-Y DECLENSION="((1)100)" ";555 55*515:GX,GY545(0).75Ġ((1)15):((1)40),((1)40):"";5>5I(16384):16368,05C5GAGX:GBGY6E5L34:XX1:4l4"44 PLAY GAME744:"COST: $2.50"\44M2.5ĺ"YOU CAN'T AFFORD IT.":e44255q44MM2.5y44:44GX20:GY20:GT200:GS044GH044"**** SUPER STELLAR ALIEN KAPOW! ****"4413570:13600 55"SCORE="GS" "20)"TIME LEFT::"THE WALL SLIDES OPEN, AND YOU ARE BRISKLY CARRIED ON A PLATFORM FLOATING INCHES ABOVE THE FLOOR, THROUGH SEVERAL HALLWAYS. YOU COME TO A STOP."34L36:XX1:3X4 HALL 4b4"ROBOT: DO YOU WANT TO GO BACK TO THE LOBBY?":"";I$:(I$,1)"Y"MMUNICATE WITH IT!"::"STOP AFTER ";T;" TURNS.":E23"ROBOT: YES?"Q23" ";I$w23"ROBOT: TELL THAT TO THE JUDGE!"}2323 UNIVERSITY23"ROBOT: WHAT ROOM NUMBER DO YOU NEED?":"";I$24(I$)RMĺ"ROBOT: SORRY, THAT ROOM IS NOT OPEN.":34";I$1 3I$""1306013520513FW%(0)10İ9500:M13FW%(1)4L3100001"3"ROBOT: I AM NOT PROGRAMMED TO ANSWER QUERIES OF THIS TYPE."1313 GUARD AND BERZERK ROBOTS223R%(L)3ĺ"THE ROBOT KILLS YOU WHILE YOU ARE ATTEMPTING TO CO002 CALL ROBOT402R%(L)0ĺ"NOBODY TO CALL.":H02R%(L)113200W02L611000g02L3413300w02L361340002L3ĺ"ROBOT: WOULD YOU LIKE TO TRY OUT THE APPLE X?":"";I$:(I$,1)"Y"1000002L3ı02"ROBOT: CAN I HELP YOU?"13" "";I$:I2:(I$,1)"N"I1//.LV%(L,1)0I2C//LV%(L,2)0I1R//LLV%(L,I)q//"NEXT STATION: ";LD$(L,1)/!/LV%(L,I)0ĺ"END OF THE LINE.":LLV%(L,8):XX1:/&//0/"DO YOU WANT TO GET OFF HERE? ";I$:(I$,1)"Y"LLV%(L,8):XX1:0:/:1205ES GOOD.".W+ET2.\+:"ROBOT: YOUR CHECK, SIR."Y.p+:"YOU DO NOT HAVE ENOUGH MONEY!"h.z+CH0:8500u.. SUBWAY..LLV%(L,6).."YOU ENTER AT THE ";LD$(L,1):"STATION."../.LV%(L,1)0LV%(L,2)0ĺ"WHICH TRAIN: NORTHBOUND OR SOUTHBOUND?":IAL OF THE WEEK!)"$-+" $140"F- +" (3) CAVIAR AND CHAMPAGNE"X-%+" $350"-'+"(HIT RETURN IF YOU DO NOT WANT TO ORDER.)"-*+:"YOUR ORDER: ";I$-4+I$""ı->+(I$)1(I$)311050-H+:"YOU ARE SERVED." .R+"MMM. IT TAST FILE":10120,' CHRONOS1,'"PASSWORD: ";I$^,'I$PW$(PW)ĺ"IMPROPER PASSWORD":10120},'"THE COMBINATION IS ";CM%,(10120,* RESTAURANT,+"ROBOT: HERE IS THE MENU:", +" (1) MARSBURGER",+" $120"-+" (2) GREEN GOOP (SPECOPER DATA BANK REFERENCE":101207+'"FILE NAME: ";I$+'I$"POP"ĺ"CURRENT POPULATION OF USA ACCORDING TO CENSUS BUREAU AS OF 7/6/2121: EXACTLY 0 PERSONS, 23,241,203 ROBOTS.":10120+'I$"CHRONOS"10200,'"NO SUCH'"IMPROPER DELIMITER ERROR":E*V'"UNBALANCED COORDINATE ERROR":k*['"UNFORMATTED REFERENCE ERROR":*`'"UNINDEXABLE ADDRESS ERROR":*t' MODEM*~':"YOU ARE NOW IN NETWORK MODE."*':")";I$*'I$"OFF"XX1:128:!+'I$"GOVT"ĺ"INPR RETURN TO TURN APPLE X ON. ";I$))'255M)':" A P P L E X":j)$'2252000;" BYTES FREE"x).':">";I$)8'I$"PR#3"10100)='I$"OFF"XX1:128:)B'I((1)5)1)G'I10060,10065,10070,10075,10080:10030)L'"SYNTAX ERROR":*QHERE IS NO PRICE ON IT.":+(0%PPR(FW%(1))V(:%PMĺ"YOU DON'T HAVE ENOUGH MONEY!":`(D%MMPq(N%PR(FW%(1))0{(X%3000(' COMPUTER('IL%(4)Lĺ"NOTHING TO TURN ON.": )'"ROBOT: WHEN YOU ARE FINISHED, TYPE 'OFF' TO SHUT IT OFF."::"HIT;'Z#"INVULNERABLE FORCE-FIELD. YOUR SHOT DESTROYS IT."G'd#R%(L)0M'n#W'% BUY'%FW%(1)1FW%(1)NIĺ"NO SUCH THING HERE.":'%IL%(FW%(1))0ĺ"YOU ARE ALREADY CARRYING IT!":'!%IL%(FW%(1))Lĺ"NO SUCH THING HERE.":(&%PR(FW%(1))0ĺ"T"A&"XX1:&(# SHOOT9&2#IL%(9)0ĺ"WITH WHAT?":`&<#R%(L)0ĺ"NOTHING TO SHOOT AT.":&F#R%(L)3ĺ"THE ROBOT'S FORCE FIELD REPELS THE RAY.":CH1:8500&P#"THE DEFECT WHICH CAUSED THE ROBOT TO MALFUNCTION ALSO AFFECTED ITS NORMALLY"TINUE ***";I$:hEH:"'GO NORTH' MAY BE ABBREVIATED 'N', AND"::"THE SAME CAN BE DONE WITH THE OTHER"EH:"COMPASS DIRECTIONS."EH:"THE OBJECT IS TO GET BACK TO THE 20TH"::"CENTURY. GOOD LUCK!"FH:"SOME UTILITY COMMANDS:":" QUIT - EXITS ADVENTURE-GAME FASHION, SUCH"MDH:"AS 'ATTACK ROBOT' OR 'EXAMINE COIN'.":DH"IF A ROBOT IS IN THE ROOM, YOU MAY "::"ATTEMPT TO TALK TO IT BY"DH:"TYPING 'CALL ROBOT', BUT POSITIVE"::"RESULTS ARE NOT GUARANTEED!"EH:"*** HIT RETURN TO CONAND ROBOTS DON'T KNOW THIS, AND KEEP":hCH"GOING ABOUT THEIR BUSINESS AS IF NOTHING":"HAS HAPPENED."CH:"*** HIT RETURN TO CONTINUE ***";I$:CH::"YOU EXPLORE THE WORLD YOU ARE THRUST"::"INTO USING SIMPLE SENTENCES, IN THE"DH:"STANDARD INSTRUCTIONSBNH:DBXH"A TIME WARP HAS SUDDENLY TRANSPORTED":qBbH"YOU INTO THE FUTURE, WHEN A WAR USING"wBlHBvH"NEUTRON BOMBS AND BACTERIOLOGICAL":BH"WARFARE HAS COMPLETELY WIPED OUT THE"::"HUMAN RACE. HOWEVER, THE COMPUTERS"'CH:" ROBOT":" ATTACK ROBOT"5A@" SHOOT ROBOT":" LOOK"=A@:CAFFXAPF OPENING TITLES`AZF:jAdF4:3AnF"**** PLANET OF THE ROBOTS ****"AxF:3AF"BY DANIEL TOBIAS NOV. 1981"AFAF3:"INSTRUCTIONS? (Y/N) ";I$:(I$,1)"N"ė::BDHE DOORS OPEN AND CLOSE AUTOMATICALLY, SO THERE IS NO NEED TO OPEN THEM OR CLOSE THEM."i@>t@t@ HELP|@~@:@@"SOME AVAILABLE COMMANDS: ":@@" INV":" GET (OBJECT)":" BUY (OBJECT)":" DROP (OBJECT)"A@" EXAMINE (OBJECT)":" CALLE OF FIGHTING A TOUGH METAL ROBOT WITH YOUR BARE HANDS.":x?<"THE KNIFE SHATTERS AGAINST THE ROBOT'S TOUGH SIDE."? OPENc@>"ALL THM0 >8!>: BREAK OUT OF JAIL7>:L28ĺ"WHAT?":>:"THE RUSTY, WEAKENED BARS GIVE WAY AND THERE IS AN OPENING OUT.">:LV%(28,8)27:J1>:>< ATTACK>8FW%(1)10M ANY ADVENTURE GAME FOR THAT CENTURY, AND THE TIME MACHINE IS OUT OF POWER. YOU'RE ON YOUR OWN."<(7"STOP AFTER "T" TURNS.":255:<8 EAT<8FW%(1)0L611000<8FW%(1)1FW%(1)NIĺ"EAT WHAT?":<8IL%(FW%(1))0ĺ"EAT WHAT?":$=8IW900ĺ"WELL, AT LEAST YOU MADE IT TO THE 20TH CENTURY, BUT YOU'LL HAVE TO WAIT AROUND A WHILE FOR APPLE COMPUTERS TO COME.":Y1939ĺ"PS: BUY ACTION COMICS #1 FOR 10 CENTS WHEN IT COMES OUT."h<7Y1900ĺ"YOU END UP IN THE YEAR ";Y;". I DIDN'T":"PROGRA:"IRRELEVANT TO THE ADVENTURE, BUT I THREWIT IN FOR THE HECK OF IT.": 7Y2000ĺ"WHY DID YOU GO TO THE FUTURE AGAIN? I DIDN'T PROGRAM ANY ADVENTURE GAME FOR THAT CENTURY, AND THE TIME MACHINE IS OUT OF POWER. YOU'RE ON YOUR OWN.";7Y1970Y1RRS..."96A11000:A196"YOU HAVE ARRIVED!"y97Y1970Y2000ĺ"BACK IN THE 20TH CENTURY AT LAST! YOU WIN!"E:7Y1970Y2000ĺ" FOR EXTRA CREDIT YOU CAN TRY TO FIGUREOUT THE RULES TO THE ARCADE GAME, IF YOUHAVEN'T ALREADY. IT IS TOTALLY" V E R"::6)"FINAL SCORE: "GS:*85128;85XX0:1000:N86 TIME MACHINEr86"YOU ARE IN THE TIME MACHINE!"86"NOW SET THE CONTROLS."86"YEAR: ";Y86"MONTH: ";I$:"DAY: ";I$:"HOUR: ";I$:"MINUTE: ";I$:"SECOND: ";I$96:"THE MACHINE WHI5GA,A):"";?75A,GB)0A,GB)15GSGS5A,GB):"";q75A:15:0,39GB:0,39GA:0:0,39GB:0,39GA7515:GA,GB:GXGA:GYGB7522:1:1357075GTGT1:GT01360075GSGH1000ĺ"";:GHGS:GT75:13600!85::12:6:"G A M E OGF0"6H5I136GAGX1:GA0GA0B6R5I149GAGX1:GA39GA39`6\5I141GBGY1:GB0GB06f5I175GBGY1:GB39GB396k5I160GF16p50:GX,GY6z5GA,GB)0ĺ"";:GSGS10GA,GB)6|5GF0137007}5A039:GA,A)0GA,A)15GSGSE SUBWAY.","YOU'RE IN UNIVERSITY LOBBY."UO"YOU ARE ON A PLAIN WHERE A BOMB BLAST HAS COMPLETELY DESTROYED THE TOWN. THERE IS RUBBLE ALL AROUND. THE PLAIN STRETCHES INTO THE MIST.","YOU'RE BY SUBWAY STOP."VO"YOU ARE IN FRONT OF A DOOR.","YO","ENDSVILLE"{T~O "YOU ARE ON A STREET WHICH IS BLOCKED IN BOTH DIRECTIONS BY FALLEN DEBRIS.","YOU'RE ON BLOCKED STREET."(UO "YOU ARE IN THE MAIN LOBBY OF THE METRO UNIVERSITY BUILDING. NO DOORS OF ANY KIND ARE VISIBLE BESIDES THE ENTRANCE TO THO THE SOUTH AND A CLOSET TO THENORTH. A STAIRWAY LEADS UP.","YOU'RE IN JAIL HALLWAY."SLO "YOU ARE IN A JAIL CELL.","YOU'RE IN JAIL CELL."SVO "YOU ARE IN A CLOSET.","YOU'RE IN A CLOSET."S`O "S","MARKET STREET"SjO "S","METRO UNIVERSITY" TtO "S"eR$O "THERE IS AN OFFICE TO THE NORTH AND ANOTHER TO THE SOUTH.","YOU'RE BETWEEN TWO OFFICES."R.O "YOU ARE IN AN OFFICE.","YOU'RE IN OFFICE"R8O "YOU ARE IN AN OFFICE.","YOU'RE IN OFFICE"VSBO "YOU ARE IN A HALLWAY IN THE JAIL. A CELL IS THERE.","YOU'RE IN CITY HALL LOBBY."QO "THE ROAD ENDS HERE. THERE IS A STAIRWAY LEADING DOWN TO A SUBWAY STATION.","YOU'RE BY SUBWAY STATION."QO "S","CITY HALL"RO "YOU ARE IN A HALLWAY LEADING TOWARDS OFFICES TO THE EAST.","YOU'RE IN HALLWAY. IN PHONE BOOTH."PN "I","I"TPN "YOU ARE IN THE LIBRARY.","YOU'RE IN LIBRARY."PN "TO THE WEST IS A LIBRARY, AND THE CITY HALL IS TO THE EAST.","YOU'RE BY LIBRARY AND CITY HALL."#QO "YOU'RE IN THE LOBBY OF THE CITY HALL. THERE IS A STAIRWAY O ANY FURTHER.","YOU'RE AT DEAD END"ON"YOU ARE NEXT TO AN INFORMATION BOOTH MANNED BY A ROBOT. THE ROAD CONTINUES SOUTH.","YOU'RE BY INFO BOOTH."PN "YOU ARE IN A PHONE BOOTH. THE PHONE IS OUT OF ORDER, AND THE CASH BOX HAS BURSTOPEN.","YOU'RETORE."9NN "YOU ARE IN A GROCERY.","YOU'RE IN GROCERY."NN"YOU ARE ON A N-S ROAD. THERE IS A SHOPPING MALL TO THE WEST.","YOU'RE ON ROAD BY MALL."$ON "AFTER GOING ABOUT 100 FEET YOU FIND THATTHE ROAD IS BLOCKED BY FALLEN DEBRIS ANDYOU CAN'T GYOU'RE IN ARCADE."MN "TO THE WEST IS A BUTCHER SHOP, AND TO THE EAST IS A CLOTHING STORE.","YOU'RE BY BUTCHER AND CLOTHING STORE."MN "YOU ARE IN A BUTCHER SHOP.","YOU'RE IN BUTCHER SHOP."NN "YOU ARE IN A CLOTHING STORE.","YOU'RE IN CLOTHING SLL EXIST EVEN IN THE FUTURE.)","YOU'RE IN COMIC STORE."ALuN 6:zLzN "YOU ARE IN A RESTAURANT.","YOU'RE IN RESTAURANT."LN "TO THE WEST IS AN ARCADE, AND TO THE EAST A GROCERY STORE.","YOU'RE BY ARCADE AND GROCERY."MN "YOU ARE IN AN ARCADE.","YOU ARE IN THE COMPUTER STORE.","YOU'RE IN COMPUTER STORE."KfN "TO THE WEST IS A BACK-ISSUE COMIC BOOK STORE; TO THE EAST IS A RESTAURANT.","YOU'RE BY COMIC STORE AND RESTAURANT."8LpN "THIS IS A STORE CATERING TO COMIC BOOK COLLECTORS (YEP, THEY STI>N PLACE DESC,SHORT DESCJHN "YOU ARE IN THE PARKING LOT OF A SHOPPINGMALL. A ROAD IS TO THE EAST.","YOU'RE IN PARKING LOT TO MALL"JRN "YOU ARE IN THE SHOPPING MALL. THERE IS A COMPUTER STORE NEXT TO YOU.","YOU'RE IN MALL AT COMPUTER STORE.";K\N "0:R00IJ::"LOAD GAME FROM DISK? (Y/N) ";I$[IJDUMMY((79)256(78)):RANDOM SEEDoIJPW((1)10)1IJCM%((1)9999):RM((1)900)100IJ(I$,1)"Y"İ6500IJI N DATAI%N "N ","S ","E ","W ","U ","D ","IN ","OUT"I*N #PLACESJ8:LV%(A,B):B:R%(A):A/H`JA1NL:L%(A)0:A7HjJA1qHtJID$(A),IL%(A),IW(A),PR(A):IL%(A)999AA1:19060|HyJNIA1H{JA110:PW$(A):AH~JA1HJWD$(A),W%(A,0),W%(A,1):WD$(A)""AA1:19075HJNWA1HJL1:T1HJW0:M119IJE0:J 'GAME.PLANET.OF.THE.ROBOTS'."YGH:"*** HIT RETURN TO BEGIN ***";I$:::kG8J INITIALIZE G:J"PLEASE WAIT. INITIALIZING DATA."G=JA18:DN$(A):AGLJA1GQJB01:LD$(A,B):B:LD$(A,0)""AA1:19025GSJNLA1HVJA1NL:B1GAME"FH" SAVE - SAVES GAME TO DISK: YOU WILL BE ASKED TO SPECIFY A GAME NUMBER. THIS CAN BE ANY POSITIVE INTE- GER, AND THE GAME WILL BE SAVED";+GH" IN THE RECORD OF THAT NUMBER OF RANDOM-ACCESS DISK FILEPONSES FROM YOUR":"FIRST TWO GUESSES,":" YOU WILL KNOW 9 & 0 ARE IN THE":" SECRET NUMBER.":"WHAT DO YOU KNOW IF YOU HAVE THREE":"RESPONSES FROM YOUR FIRST TWO GUESSES?":" ... GOOD LUCK ...":(22):(12):"** HIT RETURN **"!----! !----! !----! !TONE! !TONE! !TONE! !TONE! ! 6 ! ! 3 ! ! 4 ! ! 8 ! ------ ------ ------ ------":::10::"HIT ANY KEY TO CONTINUE...";::A$80INE! !TONE! !TONE! ! 5 ! ! 1 ! ! 2 ! ! 7 ! ------ ------ ------ ------"15:3:"------ ------ ------ ------":" ! D ! ! F ! ! G ! ! H !"" ! ! ! ! ! ! ! ! !----! ETURN TO CONTINUE"::A$>:3:11:"SIMPLE SIMON KEYBOARD"7:3:"------ ------ ------ ------":" ! E ! ! R ! ! T ! ! Y !"h" ! ! ! ! ! ! ! ! !----! !----! !----! !----! !TONE! !TOT,1,104aXa UP,1,105'a]a DOWN,1,106S 0,0,0,0,0,30,0,0,0ZHS 0,0,0,0,0,31,0,0,1ZRS 39,39,39,39,0,32,0,0,0Z\S 0,0,0,0,0,0,37,0,1[fS ,0,15,1 YR 0,0,0,0,0,0,0,19,0";:"90,1600,1610,1620,1630,1640!p20:1:868:21:868:20:1:"INPUT TICKET AMMOUNT CATAGORY (1-4) ";:A$A$(13)1800: SAME AS LAST TIMEBT(A$):BT1BT41740TP(TP$(S,BT)):TP01740 TP=TICKET PRICE A$=TICKET PRICE STRIN:" 15-SPOT ==> $1.50 $7.50 $15.00":,r6| F INPUT BETk20:"INPUT RATE (# OF SPOTS) "21:"(1-15) ";A$A$""1732: SAME AS LAST TIMES(A$):S1S15S7ī1720S1530,1540,1550,1555,1557,1560,0,1570,1580,150 $4.00":@613:" 10-SPOT ==> $ .25 $ .50 $1.00 $2.50":n@14:" 11-SPOT ==> $ .55 $1.10 $2.75":J15:" 12-SPOT ==> $ .40 $ .80 $2.40":T16:" 13-SPOT ==> $ .95 $2.85 $5.70":^17:" 14-SPOT ==> $1.25 $5.00 $10.00":&h18-SPOT ==> $ .25 $ .50 $1.00":M8:" 4-SPOT ==> $ .25 $ .50 $1.00":z9:" 5-SPOT ==> $ .50 $1.00 $5.00":10:" 6-SPOT ==> $ .50 $1.00 $5.00":"11:" 8-SPOT ==> $ .50 $1.00 $7.00": ,12:" 9-SPOT ==> $ .50 $1.00 $2.0TS ": ;"CATAGORY==> 1 2 3 4":I115:I1530,1540,1550,1555,1557,1560,1570,1580,1590,1600,1610,1620,1630,1640:I5:" 1-SPOT ==> $1.00 $2.00 $3.00":6:" 2-SPOT ==> $ .25 $ .50 $1.00": 7:" 3...)".::"WHICH (1-10) (0 TO EXIT) ";:A$FSP(A$):SP01810s:"INPUT BEGINING VALUE ";:A$:BG(A$)BG01460XIS:S(X)BG:BGBGSP:BG80BG1X1900  DISPLAY BETTING OPTIONS:11::" PLACE YOUR BE" 5..ALTERNATING <5> (1,6,11,16.....)"U" 6..ALTERNATING <6> (1,7,13,19.....)"" 7..ALTERNATING <7> (1,8,15,22.....)"" 8..ALTERNATING <8> (1,9,17,25.....)"" 9..ALTERNATING <9> (1,10,19,28....)""10..ALTERNATING <10> (1,11,21,31  x SPECIAL BETS5 ZZ723:ZZ:1:868:ZZM 7::"SPECIAL"::y " 1..CONSECUTIVE <1> (1,2,3,4.......)" " 2..ALTERNATING <2> (1,3,5,7.......)" " 3..ALTERNATING <3> (1,4,7,10......)" " 4..ALTERNATING <4> (1,5,9,13......)") PAY-OFF DATA 2 I115) X14N TP$(I,X): INPUT TICKET PRICESU X\ Ib m   PAY-OFF DATA 3 I115 X14 (PO%(I,X) 2X <I A: F GET HOUSE PERCENTAGE PI115 UHP$(I) Z d:16:B(I)(RN255)(RN255)1 mB(I)(B(I)255)E rRNRN(RN255)L wI |201,B(1):202,B(2):203,B(3):204,B(4):205,B(5):206,B(6) :  GET WINNINGS DATA BI1:X1 LSR(I,X) VXX1:XIII1:X1:I15ı `1100   RANDOM NUMBER0 -23:"PRESS ANY KEY TO SEED."I .20:"SEED GAME ==>"h /I19:20:16I:(95);:p 1I1x 3Z0 620:16I:Z; ;KE(16384):KE128350 @ZZ1:Z9Z0 E310 ^16368,0:A$A$(Z):II1:I10307 cRN(A$) hITA 2! F1300: PAY-OFF DATA 3; K1350: GET HOUSE % ` P1500: DISPLAY BETTING OPTIONSx d1700: INPUT BETS x2000: GET #'S 3100: FIND WINNINGS QT1İ9000: QUIT SEQUENCE 80 +  ,:A$"":16368,0: SEED&\ SR(16,16),PI(100),P(30),S(20),TP$(16,5),PO%(16,5),HP$(16),B(10):SS16336: SOUNDu6000: TITLE PAGE300: SEED RANDOM NUMBER#7000: INSTRUCTIONS(5000: INTRO21000: GET PAY-OFF DATA 1 <1200: GET PAY-OFF DA                       BX26SCSC50:B0B01:600F 0BX89BX122SCSC100:N0N01:600f :BX159BX186D0D01:600 DBX249SCSC50:M0M01:600 NBX137BX143L0L01:600 X CHECK END OF GAME bB03N03D03M03L03Āl22:3:B0;:15:N0;:120: GET NEW BOMB " BXBXBD6 BX1BXBX279L BX279BXBX279b 3:BYBY1:BX,BY| BY155500: BOOOOM! 600  BOOOM! BF0 2:I13:I:1BX,BY:Z(16336)(16336)(16336)(16336)(16336)  SCSC25 &  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>  ɖfLLm L! L!m LG LGmɎ?; I8LmLf  L $ .  L L?d [ % [$JT  '  dd   2   Ȍ   @L; $  .  L? ` ɖfLL lACj NI DLI BʗNY790wJpڄF]6)]wp3khEMѮUnKv3N*Q=D%N+di7s2jBuhP)cI'o077>> d5%<<2N %<'gI)..>>>7..g?I$',,$,l((>75?6555-,((8355555EE?L,,<<7?`A%?>%7>77,,%%-$%?<<'%?-  -e3--..<<>7..<<55>>>$$?O)-?<$',%-,-5..5>7?>?$$$e666%$$ܓ:?.----6668?OI --$.-d6>$$I - -%2 -% -%$2&)- -%2 -% -%$6&??'2D?'?'$2&;??'2D?'?'$6&IIIIIIIIIII @,EdUeRU QJJJ` $ H h .#` L}%J u H h h #` L W A #` W #`#2 '( H() 91 -dh`JJ`(6?$JȱJLh*17?6.-.%-%$?<$''',,,5` H XN7<6NWRU@ TPhhHNɍ-Ɉ+$$Ln`*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`        206:777,1:778,3779,240:780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0::::10:8:" ":10:9:" RADAR DEFENSE ":10:10:" "+22:10:"COPYRIGH:25000,4:25001,0:25002,25:25003,0:25004,45:25005,0w25025,40:25026,54:25027,63:25028,36:25029,5:25030,0:25045,164:25046,42:25047,221:25048,127:25049,49:25050,6:25051,0:770,173:771,48:772,192:773,136:774,208:775,5:776,I149)J8:768,I:769,J:770:G:K:VK12:J25:I70:768,I:769,J:770:K:J15:I50:K130:768,I:769,J:770:K:G15:I120:J75:768,I:769,J:770:I140:768,I:769,J:770:G: SHAPES AND TONE GENERATOR8232,168:233,97OT GOOD. ONE MILLION PEOPLE DIED FROM THE NUCLEAR ATTACK.":2320\DE50DE0ĺ"PRETTY GOOD. VERY FEW CASULTIES":2320fDE0ĺ"TREMENDOUS. NONE PERISHED BECAUSE OF YOUR FINE PERFORMANCE. YOU WIN THE MEDAL OF VALOR."p2320zG20E0 "STATISTICS"e*"MISSLES";" DESTRUCTION";" ";"ENEMY LEFT":3:LRM;:11:DE;"%";:30:E4:"*** DIFFICULTY FACTOR ";DF;" ***">10:"YOUR PERFORMANCE IS...."HDE100ĺ"AWFUL. A CITY OF 2,000,000 HAS PERISHED":2320FRDE50ĺ"N2NX(Y),NY(Y)2040#Z14=(X(Z)NX(Y))62000G2030a(Y(Z)NY(Y))620304:2X(Z),Y(Z):768,100:769,100:770:2X(Z),Y(Z):2:1X(Z),Y(Z):X(Z)0:NL(Y)0EE1ZY1380  ENDING OF THE GAME:1:E,NY(Y)3ZZ(DL(Y)RA)8:NXNX(Y):NX(Y)NX(Y)ZZ`YY(DL(Y)RA)8:NYNY(Y):NY(Y)NY(Y)YYRGRA(Y):RA(Y)RA(Y)((ZZ2)(YY2)):RA(Y)0ZZ(DL(Y)RA)RG:NX(Y)NXZZ:YY(DL(Y)RA)RG:NY(X)NYYY:2NX(Y),NY(Y):2NX(Y),NY(Y):NL(Y)0:197024:1:"RANGE? ";AN$:RA(X)(AN$)::24:1:" ":RA(X)01810bRA(X)4.91790o&NL(X)990RA(X)(RA(X)20)5:NX(X)140:NY(X)95D2NX(X),NY(X):NL(X)99NXXX35b MOVING LRMlY1E:NL(Y)02040v2NX(Y)02060DE100İ2490:2060B(16384)127Ĺ16384,0:1890QNL1:1720WcX135vNL(X)0ī17601870NLNL1:NL11880LRMLRM1:LRM02060AN$""24:1:"DIR.?";A$:DL(X)(A$)24:1:" "NX(X)0:EE1R 6G15:I100:J10:768,I:769,J:770:I150:768,I:769,J:770:G:k @1:1:" "x JDEDE10 T1050 ^X:DE100DE100:1650 hJ25:I70:768,I:769,J:770 r2:34:LRM;" " |24:32:DE 22:32:E;" "EX)1 D1(X(X)140)2:D2(Y(X)95)2:D3(D1D2)A D3151630 D315Ģ1:1:"DANGER!!":G13:I120:J75:768,I:769,J:770:I140:768,I:769,J:770:1:1:" " D315D37DEDE2 D371620 "1:1:"DESTRUCTION" ,1X(X),Y(X):$ Y(X)(A(X)RA)95:Y(X)Y(X)95; 2:0:1X(X),Y(X)Z E4X(X)1:Y(X)1:A(X)0:t X(X)1EN(X)1:1630 0:2:1X(X),Y(X) SP2((1)DF): SPEED OF ENEMY Z(A(X)RA)SP:X(X)X(X)Z ZZ(A(X)RA)SP:Y(X)Y(X)ZZ 1X(X),Y(13:"90" 21:24:"0"/ (1:32:"MISSLES"J 223:30:"% DESTRUCT."` <21:32:"ENEMY "} F2420:0:0:54,0:55,96 P MOVING ENEMY BOMBERS Z dX14 nX(X)01460 xE41630 A(X)(1)360 X(X)(A(X)RA)95:X(X)X(X)140R159520 tX140:Y95( ~R5S207 R20S13F R20S10V A136010g X1(ARA)Rs X1X1X Y1(ARA)R Y1Y1Y X11,Y11 A R 140,1140,188 45,95235,95 20:1:"180" 4:13:"270" 36:Y# *** RADAR DEFENSE ***)/91060[24:32:DE:22:32:E;" ":g$:::.2220:(4);"BLOAD RADAR.OBJ":23408NL(60):LRM27:E20BNX(60):NY(60):RA(60):DL(60)L3V0:0:54,0:55,96`RA57.2955795 j           --- HINT ---"::"MAKE YOUR FIRST TWO GUESSES"::" 1234 AND 5678":"THEN IF YOU HAVE FOUR RESPONSES FROM":"YOUR FIRST TWO GUESSES,":" YOU WILL KNOW 9 & 0 ARE NOT IN":" THE SECRET NUMBER."e:"IF YOU HAVE TWO RES"7032"::"THEN THESE ARE EXAMPLES OF GUESSES AND":"RESPONSES.":(13):"1243 2 COWS":(13):"2703 4 COWS":(13):"8039 2 BULLS":(13):"8079 1 BULL & 1 COW":(13):"7032 4 BULLS (WIN)"(22):(12):"** HIT RETURN **";R$[:" :" NUMBER BUT NOT IN THE CORRECT":" POSITION YOU ARE AWARDED ONE 'COW'.":" 3. DIGITS THAT DO NOT APPEAR IN THE":" NUMBER AT ALL GENERATE NO RESPONSE."(22):(12):"** HIT RETURN **";R$B:"ASSUME THE SECRET NUMBER IS:"::(13):BER WINS."::/(12):"** HIT RETURN **";R$:"THIS IS HOW THE APPLE EVALUATES YOUR":"GUESS---"::" 1. FOR EACH DIGIT THAT YOU HAVE IN THE":" CORRECT POSITION YOU ARE AWARDED":" ONE 'BULL'.P:" 2. FOR A DIGIT THAT IS IN THE SECRET"D YOUR GUESS WAS."::" 3. YOU RECORD YOUR GUESS AND THE":" EPNET T" 4 HNYUFRUAEAOHRGES:" BASED ON PREVIOUS GUESSES AND"" RESPONSES." 5 H IS ESNT US H" PL' ERTNM 9870"*t(12):"** HIT RETURN **";R$y:"PLAY GOES LIKE THIS---"::" 1. YOU MAKE A GUESS AS TO WHAT YOU":" THINK THE SECRET NUMBER IS."::" 2. YOUR APPLE EVALUATES YOUR GUESS":" AND RESPONDS WITH AN INDICATION"~" OF HOW GOOYOUR APPLE GENERATES THE SECRET NUMBER":"AT RANDOM ACCORDING TO THE FOLLOWING":"RESTRICTIONS:"j:" 1. THE NUMBER HAS FOUR DIGITS"::" 2. NO DIGIT MAY BE REPEATED" o:"VALID EXAMPLES ARE:"::" 1234":" 0526 (MAY START WITH ZERO)":" Y OR N) ";R$.R$"N"1990#8PB"COWS & BULLS IS DESIGNED TO STIMULATE"nG"YOUR DEDUCTIVE POWERS."L:"UP TO TEN PLAYERS MAY PLAY."V:"THE OBJECT OF COWS & BULLS IS TO GUESS"`"A SECRET NUMBER KNOWN ONLY TO YOUR":"APPLE."`e:"E"::I13000:-5400 ------------------------- GAME.INSTRUCTIONS -------------------------:(8):(14)"COWS & BULLS"(12) $"DO YOU NEED INSTRUCTIONS? (--------------------- 1000J  GAME.INSTRUCTIONS... T 2000z  GET.PLAYER'S.NAMES... 3000  PLAY.A.GAME... &AG$"Y"560 ' ANOTHER GAME??? +:(12):(15)::"NEW GAM ------------------------- HOUSEKEEPING.MODULE -------------------------t @PN$(10) JSN(4) TGS(4)  ------------------------- EXECUTIVE.MODULE ---- AG$ = ANOTHER GAME SWITCH f WN$ = WIN SWITCH I = GENERAL INDEX J = GENERAL INDEX g , ? GS$ = STRING.FOR.GUESS G()=FU II US BU = BULLS C OS +Ҁ ABLE? NP = NUMBER OF PLAYERS z PN$(10) = PLAYER'S NAMES SN(4) = FOUR DIGITS FOR SECRET NUMBER TN = TURN NUMBER b* *** COWS.&.BULLS *** d ------------------------- DOCUMENTATION.MODULE ------------------------- x R$ = GENERAL RESPONSE VARI            EXPLOSION9146,37,37,37,60,60,60,55,55,55,46,46,46,00V SHAPE #2 : CROSS HAIRSz50,14,8,8,56,199,228,146,63,00 SHAPE #3 : ABM54,54,9,60,60,55,55,06010:17:"A.B.M":15:11:"APPLESOFT VERSION":17:19:"BY":19:15:"JAC154,159,159,156,156,159,159,159,159,159,159,151,151,159,159,153,153,159,159,156,156,159,159,153,153,159,159,159,159,159,159,156,156,159,159,153,153,159,159,153,153,159,159,148,148,159 PARAMETERS OF SHAPE TABLE3,0,8,0,22,0,32,0  SHAPE #1 : ,156,159159,156,156,159159,156,156,159,159,154,154,159,159,152,152,159,159,154,154,159,159,156,156,159,159,159,159,159,159,148,148,159,159,159,159,159,159,156,156,159,159,156,156,159,159,156,156,159,159,156,156,159159,154,154,159,159,154,59,159,150,150,159,159,154,154,159 159,147,147,159,159,156,156,159,159,147,147,159,159,159,159,159,159,150,150,159,159,148,148,159,159,150,150,159,159,159,159,159,159,150,150,159,159,154,154,159,159,152,152,159,159,159,159,159,159,154,154,159,159,156"WASHINGTON";:35:"MIAMI"5\AD768807:D:AD,D:Gf232,0:233,3]p DATA FOR CITIES"z159,156,156,159,159,154,154,159,159,156,156,159,159,152,152,159,159,156,156,159,159,159,159,159,159,156,156,159,159,154,154,159,159,156,156,159,159,159,159,1,Y1X,Y2:X D.C. X1616 Y1,Y2:X,Y1X,Y2[X162184:Y1,Y2:X,Y1X,Y2:Xg  MIAMIq*X2514Y1,Y2:X,Y1X,Y2>X252276:Y1,Y2:X,Y1X,Y2:XH0,159279,159:0:138,159142,159R21:1:"BOSTON";:12:"NEW YORK";:22:26:D0;:38:M0;Hv23:1:"SCORE: "SC" ";:25:"HIGH SCORE: "HS" ";P60b DRAW CITIEShq:3~ BOSTONX1Y1,Y2:X,Y1X,Y2X224:Y1,Y2:X,Y1X,Y2:X NYCX91Y1,Y2:X,Y1X,Y2 X92120:Y1,Y2:X0,800,2500,12000,25000,25000,2,8,21,75,240,2400,8000,25000,25000,25000ORE!";A$FLAG1:190 3,12,1,42,1,4,113,1,9,820,1,3,90,1800,1,20,410,8100,9,90,1650,18000,3,45,335,4700,18500,2,20,142,1000,4500,19000,10,75,380,2000,12500,19500F 6,28,200,850,2400,13000,25000,2,16,78,700,3600,9000,25000,25000,3,8,32,30POT(A)BME D,B) WIN(A)BET(A)MB SCR(A)SCR(A)WIN(A)O *M0::AW 420x >"HIT RETURN FOR SCORING";A$~ H RA1PLR \16:"PLAYER #";A f"WINNINGS: ";WIN(A);" BET: ";BET(A);" TOTAL: ";SCR(A) p zA"HIT RETURN FOR M SCORE lA1PLR6 vB(A1)301(A1)30SPOT(A)B C120f KENO(C)NUM(B)WIN(A)WIN(A)1q C,B,A~ A1PLR B1SPOT(A) B1C1 B2C2 B5C3 B7C4 B8C5 B11C6 DCB E WIN(A)DSB,A  34,0" A120; KENO(A)((1)80)1H A1490U B1A1p KENO(A)KENO(B)AA1w B~ A A120 B110.5 J(KENO(A)) K(KENO(A))  &C(B):BCĞ 0KENO(A) :B DA N18 X b1ī300 @A1PLRQ J"PLAYER #";A;" ENTER BET ";:BET(A):SCR(A)SCR(A)BET(A) T"HOW MANY SPOTS PLAYER #";A;" ";:SPOT(A) ^SPOT(A)1SPOT(A)15340 h"ENTER NUMBERS:" rB(A1)301(A1)30SPOT(A) |CB(A1)30 C;") ";:NUM(B) 33 K(A10B)A23 B,A8 A110:WIN(A)0:AV A180:J(A):K(A):A:Al 1:"K";:39:"K" 5:"E";:39:"E" 9:"N";:39:"N" 13:"O";:39:"O" 18 34,17 FLAG1320 ,"HOW MANY PLAYERS ";PLR 6PLR10PLRG  FLAG0J(100),K(100)-SPOT(10);(KENO(20)H2WIN(15)U<SCR(10)bFBET(10)pPNUM(200)}ZMUL(10)dA110:SCR(A)100:AnxA19:J(A)A34:K(A)1:AJ(10)33:K(10)1A07B1120 J(A10B)(B10)     z#XǴ   ŠΠ ҠàԠĠҠ   ǠϠΧӠĠ ԠƠŠӠ[ҠŠ Үʠ!Π"Ġ  ٠ŠǠŠҭέנϠ ӠϭŠҠ"Πˠǰ ®ͮӠӭӠԠ ϠϠ(ӠӠGORY SELECTIONb15:"FINAL ROLL--->"H(1);H(2);H(3);H(4);H(5);" ENTER OPTION ";:N$:N$""540o&T1(N$)0T149T154T165T171540:TM(T1)DT1T14540NA(T).5Ģ17:(7):(7):"YOU USED THAT ALREADY":DL11500:DL:19:" O(N2150:18:20:" "JQ1N:H(P(Q))((1)6)1:QRC0]Q14sH(Q)H(Q1)500TH(Q):H(Q)H(Q1):H(Q1)T:CC1QC046015:"NEXT ROLL IS...";H(1);H(2);H(3);H(4);H(5):SS1S2280 *CATA360# ^" WHICH ";"(";N;")";" "T hN5P(1)1:P(2)2:P(3)3:P(4)4:P(5)5:450f rN0S2:460q |O1N P$(O):18:" " 15:(33N):" ";:P$(O)"0"P$(O)"5"390 P(O)(P$(O)):18:20:"CHANGED #";P(O) D1500:X15:H(X)((1)6)1:X& 1760Y 15:"YOUR ROLL IS..."H(1);H(2);H(3);H(4);H(5)h 16:(24) "17:" HOW MANY CHANGES ";N$:N(N$) ,17:" " 6N$""290 @N0N5290 JN$"53"N$"0" TN$"5"N$"0"īES------,2-TWOS------,3-THREES----,4-FOURS-----,5-FIVES-----,6-SIXES-----,A-3 OF KIND-,B-4 OF KIND-,C-FULL HOUSE,D-SM.STRT---,E-LG.STRT---,F-YAHTZEE---,G-CHANCE---- 1:1:"Y A H T Z E E" Q911:S0 *ROLL DICE AND CHANGE SELECTED DICE 0N5290G 1:15:" ":1280l *DISPLAY CATAGORIES AND SCORES A113:B$:(A):(15):B$:(A):27:P1$(A);" ":(A):32:P2$(A);" ":A:G1261370 1:11:P3$;"'S ":" TURN"; A11730,1740 1-ON xN$:N$"Y"İ1970] C11:P1(14),B(13),B$(13),P2(14),A(14),P1$(13),P2$(13),P3(14),P4(14) :"ENTER 1ST PLAYER'S NAME ";P1$:"ENTER SECOND PLAYER'S NAME ";P2$ G10::A113:A(A).5:P1(A).5:P1$(A)" *":P2$(A)" *":P2(A).5:A:A(14).5: N YAHTZEE:3Z *INITIALIZE VARIABLESd:M(72):M(49)1:M(50)2:M(51)3:M(52)4:M(53)5:M(54)6:M(65)7:M(66)8:M(67)9:M(68)10:M(69)11:M(70)12:M(71)13:M(72)14:LT500n:"M I C R O - Y A H T Z E E"::"INSTRUCTIONS? (Y) OR (N)";   ETS HARDER AND HARDER TO"Tj"SPOT THE NEXT BOMB."::15)"GOOD LUCK!":1140:1050t23:8:"TYPE ANY KEY TO CONTINUE ";:I$::TOUND, POINTS ARE DEDUCTED FROM YOUR SCORE WHEN A WARHEAD DOES HIT.`:"THE GAME IS OVER WHEN ANY CITY (OR YOUR LAUNCH SITE) RECEIVES THREE HITS."::" BY THE WAY, THE FALLING WARHEADS WILLLEAVE A SMOKEY TRAIL AS THEY FALL. IN A LONG GAME IT GOW FAR YOU MUST LEAD THE WARHEAD."B:" POSITION THE CROSS HAIRS WITH THE GAME PADDLES, PRESS EITHER BUTTON TO FIRE, THE ABM WILL EXPLODE UPON ARRIVAL."L1140JV:" YOU RECEIVE POINTS BY DESTROYING WAR-HEADS BEFORE THEY REACH THE GRG A PORTION OF THE EAST COAST."::" TO DESTROY A FALLING WARHEAD, YOU MUST CAUSE AN ABM TO EXPLODE CLOSE TO IT. THE DIFFICULTY LEVEL YOU SELECT"%8"WILL DETERMINE JUST HOW CLOSE YOUR ABM MUST BE, AND THE ABM SPEED YOU SELECT WILL DETERMINE HK KENNE"E22:7:"DO YOU WANT INSTRUCTIONS ?";:I$::I$"Y"1060K$:" ANY MOMENT NOW THE ORBITING NUCLEAR WARHEADS WILL BEGIN THEIR RE-ENTRY..."::" YOU ARE IN CONTROLL OF AN ANTI-BALLIS-TIC MISSLE LAUNCHING SITE WHICH IS"."COVERIN28: 10XC0164+YC8285;MCYCYC3KXC,XC2MCYMC,YC,XC`6pXC21374YC8285 MCYCYC3XC,XC2MCMC,YC,XC':12:9:"HAVE A NICE DAY ";N$"TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTS ":540"XG1G11]b *SUBRT. PUTS NEW SCORE INTO ACTIVE PLAYERS VARIABLESlT710,710,710,710,710,710,770,770,890,1040,1040,1210,1240,1370vC12(C12)ī670A113:P1(A)A(A):A1590170A113:P2(A)A(A):A WINNER IS ";M$;" !!!":G:" DO YOU WANT TO PLAY AGAIN?";:A$:A$WA$"Y"140a1150:::"THE WINNER IS ";N$;" !!!":1180 (H2,U2)A(H3,U3)(X20X2411602UU19TG$HH1:U7N.Nh8 CHECK FOR TIE GAME sBT17LA(1,T)01130VT`1140jt:" TIED GAME":1180~::12:12:"THANKS FOR PLAYING"::X241210:::"THE)RX20X241160\HH1%f3pH1:UU1:zNFH4:U1QN02\T03XA(H,U)A(H1,U1)A(H2,U2)A(H3,U3)X20X241160UU1TU1:HH1NH4:U7N02T03XA(H,U)A(H1,U1)AHECKING FOR A WINNER":::20(T$)2:T$5H1:U1@N05KT03sXA(H,U)A(H,U1)A(H,U2)A(H,U3)X20X241160UU1 THH1:L1:UL:LLL N*H1:U14NO6>T02HXA(H,U)A(H1,U)A(H2,U)A(H3,US FULLNX,W)15550YXD14:SOUND(16336):X,YW:WW1:D:WW1:X,W)15650~b15:D14:X,YZ:ZZ1:D:ZZ1lJ:VV1:590vJ1450420A(V,A)J57001080J1450420 CHECK FOR WIN)T$"I'M C!"D11200:D:450:::"THAT COLUMN IS FULL !!"PD11200:D:420l1:J1:570: PLAYER #10:J0:570: PLAYER #2 CHECK FOR NEXT PLAYER WHEN ROW IS FULL&J15000480:X(A5)2:YX3:W2:ZW:V1D CHECK IF ROW IOUR MOVE, ";N$:"(CHOOSE COLUMNS 1 TO 7) ?";U25:A$:A$;:(A$)49(A$)55ī420fA(A$):520::"WHAT IS YOUR MOVE, ";M$:"(CHOOSE COLUMNS 1 TO 7) ?";25:A$:A$;:(A$)49(A$)55ī450A(A$):530::"THAT COLUMN IS FULL !633:33,3736-h:"WHO IS PLAYER # 1 ";N$Lr:"WHO IS PLAYER # 2 ";M$\|D11000:}:"YOUR COLOUR IS RED, ";N$"YOUR COLOUR IS BLACK, ";M$24:"HIT < SPACE BAR > TO CONTINUE *";:34:A$:A$;:(A$)32ĺ:410,::"WHAT IS Y1137A 6(14(1)):14,1633:15,1635:14,1637:16,34:16,36o @(14(1)):33,3519:33,3721:19,2135 J(14(1)):24,2633:24,2635:24,2637:24,34:26,36 T(14(1)):29,3133:29,3135:29,3137:33,3729:31,36^(14(1)):34,32:A,BA:A,BB:B,AC:A,BA:AA1:BB1:CC1:0,39D:DD1:T 0,322:0,3237{ A7:B0:C32:X16:B,CA:AA5: A2:B37:C6:X15:A,BC:CC5: (14(1)) "4,33:33,375:4,637 ,(14(1)):9,1133:11,34:9,1135:9,36:9,{ :"DUE TO THE FORCE OF GRAVITY THE PIECES":"WILL FALL TO THE BOTTOM OF THE GAME":"BOARD OR ON TOP OF ANOTHER PIECE." :::"HIT ANY KEY TO BEGIN ";:A$:A$ DRAW GAME BOARD :15:X039:0,39X:? 14:A0:D39:B39:C32:X1"THE RULES OF THE GAME ARE VERY SIMPLE." :"THIS IS A TWO PLAYER GAME."::"THE OBJECT OF THE GAME IS TO GET FOUR":"OF YOUR PIECES IN A ROW, EITHER UP AND":"DOWN, ACROSS OR DIAGONALLY" :"THE FIRST PLAYER TO GET FOUR IN A ROW":"IS A WINNER!"******************** d n> x REQUIRES 16 K APPLESOFT T$"FOUR-IN-A-ROW":U$"BY J.A. ROGAN":::10:20(T$)2::T$::20:20:U$:D11500: :::9:12:"DO YOU WANT INSTRUCTIONS?";:A$:A$ A$"Y"220) ::16:"RULES"::::  "";""&N$(12),M$(12),A(7,6)H ***************************j( * *2 * FOUR-IN-A-ROW PROGRAM *< * BY J.A. ROGAN *F * MODIFIED BY CRS *P * * Z *******     XC0:YC18:"XC4:YC18:3XC8:YC18:EXC12:YC18:WXC16:YC18:hXC0:YC23:yXC4:YC23:XC8:YC23:XC12:YC23:XC16:YC23:XC0:YC28:XC4:YC28:XC8:YC28:XC12:YC28:XC16:YC,1419,1420,1421,1422,1423,1424,14253MCYCYC3I(XCXA,XCXA2MCQ2MCW<gyXC0:YC8:wzXC4:YC8:{XC8:YC8:|XC12:YC8:}XC16:YC8:~XC0:YC13:XC4:YC13:XC8:YC13:XC12:YC13:XC16:YC13:255:::12D"DO YOU WANT TO TRY ANOTHER GAME ";N$;" ";:A$::]A$"YES"A$"Y"270vA$"NO"A$"N"999911:"YES OR NO PLEASE ! ";A$:1245#R11401,1402,1403,1404,1405,1406,1407,1408,1409,1410,1411,1412,1413,1414,1415,1416,1417,1418130:YF,XFEe:4:"MY OUTPOSTS WERE AT ";C;",";D;",";E;" AND ";F]jR1C:XA21:9:1300loR1D:1300{tR1E:1300yR1F:1300zXF165:YF165:YF,XF~1235PP1:NP1T1NMM(T)570TXM:M(P)M576 411109:7::"I GOT YOU. POST ";X;" WAS HIT."::l3:"NOW YOU ONLY HAVE ";4Z;" OUTPOSTS LEFT."XF130:YF130:YF,XF500V:14::"I WIN "N$:[8:"THAT'S YOUR LAST OUTPOST.": `9:"BETTER LUCK NEXT TIME!":XF130:YF7:"THAT'S ";Q;" DOWN AND ";4Q;" TO GO.":XF120:YF120:YF,XFN570z::"YOU WIN ";N$;", THAT'S MY LAST OUTPOST"::XF135:YF135:YF,XF1235ZZ1R1X:XA0:11:1300XF130:Z9(16336)(16336)(16336):XFZ):XFR1X:XA0:15:1300A:9:"AW DARN ! I MISSED YOU."^XF130:YF130:YF,XFg500qQQ1R1Y:XA21:11:1300Q4890XF130:Z9(16336)(16336)(16336):XF:"YOU TURKEY ! YOU GOT ONE OF MY OUTPOSTS.":EYF7100630$:M((1)25)1.?11604@MDXGXHXLXK920Vl670v:"HA, HA, YOU MISSED ME ";N$;" ! MY TURN.":XF115:YF115:YF,XF570:5:"MY TURN ! I CHOOSE ";M;" - FIRE !":XF130:Z9(16336)(16336)(16336R1K:1300R1L:1300P255::2:"TAKE YOUR BEST SHOT ";N$;" - FIRE !":{8:"SELECT POSITION (1-25) > ";Y:100Y1Y25Y(Y)513515:4::"ILLEGAL ENTRY ";N$;" - TRY AGAIN":::510R1Y:XA21:15:1300YCYDYE1 :" OK ";N$;", CHOOSE YOUR 4 POSITIONS !":] "SELECT OUTPOSTS (A,B,C,D) > ";G,H,K,L G25H25K25L25G1H1K1L1484 485 :N$;" ";G;",";H;",";K;",";L;" IS ILLEGAL. TRY AGAIN"::481 R1G:XA0:1:1300 R1H:1300 10:"21 22 23 24 25"8 XF175:YF175:YF,XFD M(100)\ Z0:Q0:P0::1500o |C((1)25)1 D((1)25)1 E((1)25)1 F((1)25)1 CD390 CE400 CF410 DE400 DF410 EF410 100 YOU WANT THE BODIES SENT!":: XF175:YF175:YF,XFC :5w "HERE IS THE FORMAT OF THE BATTLEFIELD."::: 11:"1 2 3 4 5":: 11:"6 7 8 9 10":: 10:"11 12 13 14 15":: 10:"16 17 18 19 20":: OON AT EACH OUTPOST. 2 XF175:YF175:YF,XF< :10j "YOU WILL FIRE MISSLES AT MY OUTPOSTS": "AND I WILL FIRE AT YOURS. WHOEVER": "DESTROYS ALL THE ENEMY'S PLATOONS": "FIRST IS THE WINNER. GOOD LUCK AND": "TELL ME WHEREA$"N"2600 -11:"YES OR NO PLEASE ! ";A$:35: d:10h i"YOU ARE AT WAR WITH ME AND HAVE FOUR": n"PLATOONS TO FIGHT WITH. THE BATTLE-": s"FIELD HAS 25 OUTPOSTS WHERE YOU CAN": x"HIDE YOUR PLATOONS. YOU CAN ONLY PUT": }"ONE PLAT" :10:14:"BOMBARDMENT"::=14:"MODIFIED BY"::t12:"ROBERT R. DEVINE":XF175:YF175:YF,XF:10:10:"WHAT IS YOUR NAME ? ";N$:::10:3:"DO YOU WANT INSTRUCTIONS ";N$;" ";:A$::#A$"YES"A$"Y"100 (A$"NO"     ATER.J125A8C(J,I)2C(J,I)3:2:2(J10)3,(I2)161HBJOLIXV710a`0:j34,20:"CAVE-IN":((1)5)1ĺ"YOU LOSE ALL YOUR GOLD !!":GC0kI11000:I:710oV31200: CAVE IN AREA AROUND MINERtIV2V2y1 ~I:MM4:710:E34,20::"SOLID ROCK":I11000:I:MM25:710:34,20::G((1)31):GCGCG:G;" OUNCE GOLD NUGGET":I11000:I:710:34,20::"UNDERGROUND SPRING":I11000:I$IV18: FILL TUNNELLED AREAS BELOW MINER WITH BLUE W,P:YP: : MOVEMENT DOWN-P150860EEPEP1:SS1:VV1zPP16:7257,P:7257,P16:259,0259,P16:860 : ROUTINE TO ETERMINE TYPE OF PROSPECTSZ((1)6)1Z1020,1030,1040,1050,113034,20::"SOLID ROCK":I11000:60,860,960#z : MOVE ELEVATOR UP1P32860ISS1:EPEP1:VV1 : DRAW NEW ELEVATOR, ERASE OLD AND DRAW CABLE TO NEW ELEVATOR POSITIONPP16:7257,P:7257,P16:3:259,P259,P16:0:860 : MOVE ELEVATOR LEFT7257,P:5257MINING COMPANY AND RETIRE ON THE ROYALTIES."S*:"PLAY AGAIN (Y/N) ";:A$b/A$"Y"30p0A$"N"Āy18104 : ELEVATOR ROUTINE>Y32Ē3:6X,Y:850H0:6X,YR0:7257,P\A$fA$"I"A$"M"860 p(A$)72900,940,810.34,20::"GM $ ";GP;:16):GC;" OZS."M"CASH $ ";M;:M7000İ780\M01210bh  : FLASH WINNING FIGURES:34,0::I019:P(1.5I)::P);::"CASH $ ";M:S1100:S:I:3 :"YOU CAN NOW SELL YOUR CLAIM TO A BIG YN1:C(H,V)2: DRAW TUNNEL AND SAVE AS 2?0:Y30X250Ē3XXN:YYN1:6X,Y:X200Y32PR0MM(GPGC):PR1:GC0:710: DRAW MINER AT PREDETERMINED INCREMENTSN0:N10290 : FIGURE PRICE OF GOLDGP((1)600)300:GP4517MENT DOWN0Y32X250610':N116;DC(H,V1)3290KNVV1:SS1iXY32C(H,V)0MM5:730}bY30X249670l3:Y30X250Ē0: CHOOSING THE MINER'S COLOURvY32Ē0:670C(H,V)1İ1000: MINER HITS PROSPECT)2X,Y:2XN,2C(H,V)0MM5:7306108PR0: MOVEMENT RIGHT^X240SEPİ830:Y32650ELSE230xX240SEPY32230X240Y30290N10:Y33Ē3:6X,YC(H1,V)3290HH1Y32C(H,V)0MM5:730610 &Y150610: MOVET(A$)72350,410,470,290,550A ^Y55X253610: MOVEMENT UPL hN116` rC(H,V1)3290p |VV1:SS1 Y32C(H,V)0MM5:730 610 X7X203Y32610: MOVEMENT LEFT N10:Y33Ē3:6X,Y C(H1,V)3290 HH1Y3(XY)D(F)FL1 F- FL1FL0:110F X245X15Y31110y C(H,V)1: MARK MATRIX TO REPRESENT A PROSPECT 1X,Y I 710 H23:V0 X226:Y30 0:6X,Y "A$ ,(A$)3İ1410 6N0:N10 JA$"I"A$"M"290 2:1:0,0:624540 <3:I031:0,I276,I:IM FI257276:I,0I,159:Iw P0:3191,29:259,0259,P16:5257,P Z0:0,31191,31 dI130: GENERATE PROSPECTS nX((1)251)10 xHX10 Y((1)101)16 VY161 F1I1 :"YOU CAN CASH IN YOUR GOLD AT THE COMPANYOFFICE WHENEVER YOU WANT.":"TO WIN, YOU NEED $7000 IN CASH OR GOLD."::"HIT ANY KEY TO BEGIN.";:R$ :10:14::"GOOD LUCK !!": D(30):C(26,10) 1:0:EP0:S0:P31:M500 (1230:232,0:233,64::18)"-----" I11500:I :10:"TO MOVE YOUR 'MINER', MOVE THE 'I', 'J','K' AND 'M' KEYS.":"EACH TIME YOU DIG, IT COSTS YOU $5. TO USE THE ELEVATOR, USE THE 'I' AND 'M'KEYS. IF YOU BECOME HOPELESSLY TRAPPED,HIT 'CONTROL-C' TO END."  *********************9 * *U * MINER *q * BY PHILLIP CASE * * SOFTSIDE 1981 * * MODIFIED: CRS * * * *********************  ::10:18:"MINER"        ING SPOT OF YOUR SPECIFICATIONS."N|"FROM THERE, YOU MUST CONTROL THE SHIP""MANUALLY. THE MAIN ROCKET IS CONTROLLED";"BY ONE PADDLE, WHILE THE SIDE THRUSTERS""ARE CONTROLLED BY THE OTHER PADDLE." ::"A WORD OF CAUTION IS IN ORDE0:5X,Y34:1:E@:4:"YOU ARE IN COMMAND OF THE 'EALGE' LUNAR"sJ"LANDER! SELECT THE MINIMUM ACCEPTABLE"T"LANDING SPOT SIZE, AND THE CRAFT'S"^"GUIDANCE SYSTEM WILL FIND AND BRING YOU"h"WITHIN A REASONABLE DISTANCE OF A"!r"LAND,48,192,136,208,5,206,200,29,240,9,202,208,245,174,199,29,76,201,29,96,215,203,173,48,192,232,236,222,29,240,29,76,242,29,200,204,223,29,240,238,96n3:4X,Y3:B140::0:4X,Y3x3:5X,Y17:B140::0:5X,Y172:3:5X,Y34:B140:: 44,32,0 219,219,219,219,219,219,27,5,32,193,193,32,53,69,65,32,63,73,65,65,37,77,9,77,73,13,13,21,141,141,50,109,137,18,150,146 18,86,49,150,18,54,150,26,183,146,223,250,219,27,63,255,219,219,59,223,31,31,223,27,32,32,3,96,67,5,0 0,0,17363,63,63,63,44,45,45,45,45,45,229,255,59,255,59,12,45,13,13,45,28,63,63,63,12,45,45,6,0q 18,21,31,28,77,57,0{ 7,0 99,177,223,63,1,32,12,104,13,21,182,183,109,28,12,228,100,28,223,223,31,254,50,174,254,142,42,44,85,41,77,109,5,40,56,3201SI%)201))100004P74247666:N:P,N:G232,0:233,29Mr 5,0,12,0,84,0,91,0,93,0,133,0  45,45,45,54,54,46,39,60,28,36,63,63,63,63,63,54,54,62,37,44,12,36,39,45,45,45,45,45,60,63,63,63,63,63,40,45,45,45,45,45W 37,63,63,:"YOU HAVE JUST DESTROYED A FIFTY MILLION"::9)"DOLLAR SPACECRAFT !!!"X::10000 G11T%:0:2X,Y3G1::B13000:::T$"THE EAGLE HAS LANDED. CONGRATULATIONS !":10:T$13:" YOUR RATING AS A PILOT IS ";((F%500)(10V)((1J,B3:DB1B30XJB2SI%2101:1940::lB1B3dJB2SI%21279:1940::16304,0:(1).6B1B11.3:1980B1B11.3J,B1:7912J,B1:V1XB2SI%23XB2SI%23ī20600:1X,Y:6510J812000:I::10>";(H10);" ";:1740-"<";((H10));" "i(23):36,5:F%;" ";:F%F%40(T%1):F%1T%1:F%0(23):36,25:(B3Y5);" ";B2((1)280):B2SI%22B2279SI%221800B3159(((1)30))0JB2SI%2B2SI%2:J,B3:7912H:YYV:Y11Y11# X21X214 X259X259> 1200Z ,R%0X10:Y1.5:1640x @R%10X1.8:Y1.5:1640 TR%54X1.8:Y1.5:1640 hHH(T%X13.5):VV(T%Y13.5).428571429: (21):36,13:(V10);" ";(21):36,34:H0ĺ"1.8,Y1: 1:0:0:1X,Y( 2035F G11T%:0:2X,Y3G1:Q 216,0 (Y((7912X))20Ē3:B2SI%2,B3B2SI%2,B3 <1680 PF%1T(1):T%T35:T%:T%0T%1 dR(0):R70R%10:1440 xR130R%54:1440 R%0 1580:XXR%54Ē3:G11T%:X8G11.8,Y1:Q T%1R%10Ē3:G11T%:X8G11.8,Y1: 7623,(200Y):7624,10:7625:T%1āY816T%:7648: Y((7912X))6İ2000 T%1R%54Ē0:G11T%:X8G11.8,Y1::1280 T%1R%10Ē0:G11T%:X8G1ASE":20(T$)2:T$! 3:1800G LH10:V4:A300:X20:Y20:F%20000w `23:"VERT. SPEED=";:" HORIZ. SPEED=" t:"FUEL ";:" ALTITUDE = " 3 2035 1:3:0:1X,Y 216,0 T%1āG11T%:5:2X,Y3G1:# T%1::"LANDING":# iPAUSE11500:k n20:"DO YOU WANT INSTRUCTIONS (Y/N) ?";:32:A$:A$;:A$"Y"ī8000} sA$"N"ī110 x5000 : :T%1:12:"INPUT LANDING SPOT SIZE (15 TO 100) ";SI% SI%15SI%1001020 :10:T$"ONE MOMENT PLE# ********************7 * *R * MOON LANDING *m * HERB SANDY * * SOFTSIDE: 1980 * * MODIFIED CRS * * * ********************  d:11:16::"MOON";::" ";       L    䭀,a`,4``L` 8 8 m  8     L H@i Ɇ` h꽃 L]  H H  h h  * )  -j)   MH )H MJ ) h * R,x܊8 B `ܽ L)B P><<,,>>>>,,$?I<<65;7 Lh  W  W `܍8 BL  H H hh    &Lm 8  8 B0)Je`JJJJӊ)I;ȄҤѢԆբ8eЅԐ e҅Ր JJJ`,U,R@ ,T,SWP ~)` & Q&%0Q&&` hhhhLL䩠 W`---5.%???6#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ԮҠ`, 9,Th LB H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()&E%0Q&&e)j00',"&,i8i D D D D`L,,-65>><77<<$%,,$',,-'%-/.6-55557755757?<>><<><,,,,'%-,5-6-6>7>>'WJ$26ڒ$%$,,$%%%$%%՚??>>>>>...,mP00 :ЮԠجٺԠجٺҺԠήԠƮC߻i Mi MIi ??;?i Mi Mmi ߻i M-M)m M))mI-M -M)-M)-J --;??WMIiI Mii MM??;?;IiiI Mii MW)mI-m mIMi)-m `ܽ      LH J I K L*K I L꽘)B `ɻLL܍8 B` HH hh LUɕ$ %H J I K ,LC emjjC LMi)m -Mi LB8 `  L,8 ` B C  D  H  J    $  D D D D 0J  ` ) PB L    ɖɠ LɈ, %<}12:9:"K- RIGHT H H hh  H H hh        % }     LL 8        } ɰ ` 8  `  H H hh ` W P٠ˠ``  x x  - LEFT THRUST" ӠՠӠ+,a  JJJJJ) H %hL,,`    '%$ J  `ŠӠҠŠӨ˯Щ ŠӠ ŠĠˡӠ٠٠ϠԠŠ ȧҠ ŠҧϠ ӠԠҠϠɠĠŠ  ̧Ӡՠ ӠՠӠՠӠ   d x     K 4  @ ɛ` X ` L Q X d x   L ӠՠӠ 8    ` ŠӠԠ٠ҠŠĠŠήĠ     SCORE WAS BY ";LT$;"=";LT:"HIGHEST SCORE WAS BY ";HT$;"=";HT:P1$;"'S";" BONUS =";PO;" OF ";T5:P2$;"'S";" BONUS =";PT;" OF ";T5:P1$;"=";W4;" ";P2$;"=";W2;" ";"TIES=";W3"PRESS ANY KEY TO START NEW GAME":N$: START,1=,2=,3=,4=,5=,DA$"START"ī1850)N" ";P1$,P2$hXA114:A$:A$;" ";:(P3(A)T5.49),(P4(A)T5.49):AbHTP1(14)HTP1(14):HT$P1$lLTP1(14)LTP1(14):LT$P1$vHTP2(14)HTP2(14):HT$P2$LTP2(14)LTP2(14):LT$P2$:"LOWEST  *SORT DICE INTO ORDER!C0,Q14CH(Q)H(Q1)1800iTH(Q):H(Q)H(Q1):H(Q1)T:CC1pQ~C01760& *TOTAL ALL SCORES AND DISPLAY SUMMARY0:A114:P3(A)P3(A)P1(A):P4(A)P4(A)P2(A):A:A$:A$"START"1870A).5P1$(A)" *"^AhIr *SETS PLAYER TWO'S SCORES TO STRINGSU|A113iP2$(A)(P2(A))P2(A)0P2$(A)" X"P2(A).5P2$(A)" *"A *PLAYER TURN INDICATOR14:28:"^";" ":14:28:" ";"^":OW SCORET1T2W4W41.T1T2W2W21AT1T2W3W31{T3T31:T4T4T2:T5T51:"PRESS ANY KEY TO CONTINUE"L5$:1840"150, *SETS PLAYER ONE'S SCORES TO STRINGS6A113@P1$(A)(P1(A))JP1(A)0P1$(A)" X"TP1(F762F735)F735PTPT1:PT(1)35DA113:B7B7P2(A):Ab *TOTALS SCORES FOR GAMEB7B7F7:T2(B7):20:P1$;"=";T1;" BONUS=";PO(1):PO(1)0:21:P2$;"=";T2;" BONUS=";PT(1):PT(1)0:B70:P1(14)T1:P2(14)T2* CHECK FOR NEW HIGH OR L113:A(A)P2(A):A:7P *CHECK FOR BONUS ELIGIBILITY@ZF70ZdA16:F7F7P1(A):AjnF763F70{xF762F735F735POPO1:PO(1)35A113:B7B7P1(A):AB7B7F7:T1(B7):B70F70:A16:F7F7P2(A):AF763F70 50:A(12)0:1* TOTALS DICE FOR CHANCE=A(13)0\A15:A(13)A(13)H(A):Ab *SET UP TEMP. SET OF CATAGORY NUMBERSC1C11:C12(C12)1330 P3$P1$A11A113:A(A)P1(A):A(2P3$P2$<A12FAA1)1140`W1W11$jW(W1)H(A)+tAY~W(1)1W(2)W(2)1W(3)W(3)1W(4)1180W(2)1W(3)W(3)1W(4)W(4)1W(5)1180A(10)0:A(10)35:A(11)40: *CHECKS FOR YAHTZEEH(1)H(2)H(2)H(3)H(3)H(4)H(4)H(5)A(12)3970M33970((M2M3)5970;A(9)35:M20:e *CHECKS FOR SMALL OR LARGE STRAIGHTsG30:L10T101080$H(1)H(2)1H(2)H(3)1H(3)H(4)1H(4)H(5)11190.A(11)0:8W10BA15:W(A)0:ALA15 VH(A)H(870 RB2\B60:A(T)0:FfA(T)H(1)H(2)H(3)H(4)H(5):B60:cp *CHECKS FOR FULL HOUSElzM31xF225H(1)H(F2)930M2M21:D(M2)H(F2):940M3M31F2E11M2D(1)D(E1)980A(9)0:M20:E1M2 16601700 *COUNTS DICE FOR BONUS8V0CU15UH(U)TVV1\UkA(T)VT:* CHECKS FOR 3 AND 4 OF A KINDT7B53 T8B54B215 B315*H(B2)H(B3)B6B614B3>B6B5B60HB6B5.6-55557755757?<>><<><,,,,'%-,5-6-6>7>>'WJ$26ڒ$%$,,$%%%$%%՚??>>>>>...,@ e0MMi)m -Mi ߻i Mi MIi ??;?i Mi Mmi ߻i M-M)m M))mI-M -M)-M)-J --;??WMIiI Mii MM??;?;IiiI Mii MW)mI-m mIMi)-m,,-65>><77<<$%,,$',,-'%-/  CH TURN YOU GET TO ROLL THE DICE 3 TIMES AND CAN DECIDE ON ROLLS TWO AND THREE TO RE-ROLL JUST THE ONES YOU WANT.WHEN THE COMPUTER ASKS 'WHICH ONES', YOURESPOND WITH THE DIE NUMBER (1 TO 5 - LEFT TO RIGHT)."22:"PUSH ANY KEY TO CONTINUE INSTRUCTI6=,A=,B=,C=,D=,E=,F=,G=,AV6 *DISPLAY INSTRUCTIONS:8:"HERE'S THE INSTRUCTIONS"::"THE GAME INVOLVES THE 'ROLLING' OF FIVE DICE AND GETTING COMBINATIONS THAT MATCHEACH OF THE 13 CATAGORIES. (E.G. 3 OF A KIND, LARGE STRAIGHT ETC.)":"ON EA,150,82,73,113,14,14,4,0,36,36,53,37,21,46,62,159,45,53,63,14,245,30,39,55,39,23,7,32,39,45,5,56,63,44,60,12,37,53,6,0,60,54,45,36,60,63,54,54,45,45,36,36,4,0232,0:233,317680A%(30,17):HS1000:N$""3Y OF 50).(23:1:"PLEASE STAND BY."II76807702: SOUND ROUTINEWK:I,K: 169, 8,133,255,173,48,192,136,208,4,198,255,240,8,202,208,246,166,232,76,4,30,96I79368001: SHAPE TABLESK:I,K:3,0,8,0,20,0,51,0,28,28,28,28:"THE TIME LIMIT OF 1000. YOU WILL HAVEY:"TEN TARGETS TO HIT. TO DIRECT THE BALL:"PRESS THE '.' KEY TO DISPLAY A '";(220);"' AND:"THE '/' KEY TO DISPLAY A '/'. :"IF YOU'RE IN TROUBLE PRESS 'ESC'(BUT"::"THERE IS A TIME PENALT( A%(X%,Y%)0A%(30X%,17Y%)0770.; 255::H*3:1:0`4:17:"DEFLECTO":>9);"WRITTEN BY CARLOS COSTAH16);"JULY 1980 R:\"RULES? ";:A$:A$"Y"940f6:":"p:"TO PLAY, TRY TO HIT THE TARGET WITHIN *z:2A$"Y"Ģ23:1:"PLEASE STANDBY.":110WA$"N"ĺ"Y OR N, PLEASE.":670o"BYE-BYE...LOVE":::"SO SORRY,BUT YOUR TIME HAS RUN OUT."670 FIND AT RANDOM AN EMPTY PART ON SCREEN.X%(1)272:Y%(1)142A$N$ĺ"CONGRATULATIONS ";A$:"ON BEATING YOUR OLD LOW SCORE.":670kv"CONGRATULATIONS ";A$:N$""650"ON BEATING THE LOW SCORE OF ";N$N$A$:670"NOT ";:"A NEW LOW SCORE, SO SORRY.""DOES ANYONE WANT TO TRY ANOTHER GAME? ";:A$;10HIT;" TO GO!"!I11500:*180@ SCORING SECTIONd::"YOUR TIME OF ";SC;" IS ";&HSSCāI140:7680:I:6600HSSC:I1010010:255,I:7684:ID"A NEW LOW SCORE!"N:"WHAT IS YOUR NAME? ";A$X:b24:1El%(X%,Y%)2T%DH%:DH%DV%1:DV%T%1:340W A%(X%,Y%)3T%DH%:DH%DV%:DV%T%:340e HITHIT1~ HIT9SCTIME%:540 I130:T(16336)(16336)(16336): A%(X%,Y%)0 2X%95,Y%95 3XO%95,YO%95:"HIT# ";HIT;", "ROUTINE ^X%X%DH%:Y%Y%DV%Q hTIME%TIME%1:TIME%1000Ĺ255,255:7684:720d r21:23:TIME%z |A%(X%,Y%)0410 3X%95,Y%95:3XO%95,YO%95:XO%X%:YO%Y% 250 A%(X%,Y%)1DH%DH%1:DV%DV%1:X%X%DH%:Y%Y%DV%:340+ A REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23A ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USEDONS":N$:8:"AFTER THE LAST ROLL YOU MUST CHOOSE A CATAGORY (EVEN IF YOUR ROLL DOES NOT MATCH ONE). YOU MUST CHOOSE ONE, AND IF YOUR ROLL DOESN'T MATCH THEN THAT CATAGORY WILL JUST BE 'X' OUT (ZERO POINTS)."c :"THE 'BONUS' CATAGO"YOU WIN!"5=qX(16336):12:16:"Y O U W I N !"<=vNE={595I(Y2Y1) E$"OO"JT5:E$U34,23]24c3,23,43,63,15,27,39,51,4,23,42,61p8,23,38,53,12,27,42,57,16,27,38,49,1,21,41,61,1,18,35,52,4,19,34,49,4,24,44,64,13,25,37,49,13,30,47,64,16,31,46,61,16,28,40,52z:T0(X4.75)T1((X4.1)4X)T4(T04.1)234,0:T01,17,33,49,2,18,34,50,3,19,35,51,4,20,36,52,5,21,37,53,6,22,38,54,7,23,39,55,8,24,40,56,9,25,41,57,10,26,42,58,11,27,43,59,12,28,44,60,13,29,45,61,14,30,46,62,15,31,47,63,16,32,48,64!f1,22,43,64,5,22,39,56,9,26,43,60,13,26,39,52,2,22,42,62,14,26,38,50,}H33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,33,37,41,45,34,38,42,46,35,39,43,47,36,40,44,48,33,38,43,48,36,39,42,45R49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,49,53,57,61,50,54,58,62,51,55,59,63,52,56,60,64,49,54,59,64,52,55,58,61\1030:P(3)2:P(4)3*43041,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,1,5,9,13,2,6,10,14,3,7,11,15,4,8,12,16,1,6,11,16,4,7,10,13>17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,17,21,25,29,18,22,26,30,19,23,27,31,20,24,28,32,17,22,27,32,20,23,26,29"YOU WON! CUBES ";W(0,C);" ";W(1,C);" ";W(2,C);" ";W(3,C);p FF1:P(0)7:P(1)22:P(2)147:P(3)2:P(4)3" AGAIN?";Z$:(Z$,1)"Y"āA176:T(A)0:A:A164:S(A)0:V(A)0:A:140:FF1FF0:480 (Z$,1)"N"ĉ::%P(0)22:P(1)147:P(2);W(2,A);" ";W(3,A);:790@F03:GW(F,A):S(G)0V(G)V(G)BIF:fA06:CN(A,X):C0740vT(C)0740T(C)T(C)P:T(C)4740T(C)4A6:A:770D(T(C)5):D5T(C)T(C)1A:"IT'S A DRAW ";:790A590DQV(A):XA.NV(A)0:A:Q0Z1760<XQ0640ZbA164:S(A)0A1A:A64klA:A10760vS(A1)1:XA1:A10S(X)1:P5:690910:750:VV$(X):440C03:XW(C,A):910:C:"COMPUTER WINS CUBES ";W(0,A);" ";W(1,A);" "X1X64440 S(X)0440+ YY1:9106 S(X)1C P1:690e Q0:A176Z:CT(A):C0560 C15A2A:A76:A:AA2:660 C0530 B1:670:560 C4550 BP(C1):670:560 &C(C5)2:BP(C):670 0A:A164:V(A)Q030:P(3)2:P(4)3J |A176:W(0,A),W(1,A),W(2,A),W(3,A):B03:CW(B,A)h D06:N(D,C)0D1D:D6o D N(D1,C)A:D16:B:A "0 TO 9 - 0 = HARDEST 9 = EASIEST ";Z:Z1(Z10)  24:20:"COMPUTER WENT ";VV$;" ";:2:"YOUR MOVE";X:1 C B& CV(37):CV1:1Q "6:"********************************"^ ,A4320 66:"********************************" @A J34,23 T ^ hS(64),W(3,76),T(76),N(6,64),P(4),V(64) rC1$"0123456789":P(0)22:P(1)147:P(2)1WAYS TO WIN)":7 _"HIT RETURN TO GET ON WITH IT.";A$? dE1E nN x140W 360l :::E1:VV$""w A14 D6 B14 D "* "; C14 E$(E):(E$)1E$"0"E$ E$;:C4ĺ" *" C4EE1:260 32);:EE DIMENSION"6 2:"TIC-TAC-TOE GAME UTILIZING A FOUR"c 7:"BY FOUR BY FOUR GAME BOARD. TO WIN " <:"YOU MUST GET FOUR CUBES IN ANY ROW" A:"BEFORE THE COMPUTER GETS FOUR IN A ROW." F:"THE BEST WAY TO LEARN IS TO TRY IT."::"(THERE ARE 76 d $ BY J ROEHRIG (BYTE MARCH 80)? ADAPTED TO APPLESOFTU BY RANDY WRIXONr ::" INSTRUCTIONS ";A$(A$,1)"N"100:" INSTRUCTIONS":" ************"::" SUPER TIC ":: ("SUPER TIC IS A THREE     $#R:10:"NOTE: PUSHING 5 AT 'HOW MANY CHANGES', RE-ROLLS ALL THE DICE."::"NOTE: PUSHING 0 AT 'HOW MANY CHANGES' PROMPTS THE 'WHICH OPTION'."#f22:"PUSH ANY KEY TO START GAME":N$:UENCE":12:"= 35 POINTS"Y"*" (E) LARGE STRAIGHT.5 IN SEQUENCE":12:"= 40 PTS.""4" (F) YAHTZEE. ALL 5 SAME.= 50 PTS.";">" (G) CHANCE. ANY COMBINATION.":12:"ALL DICE ADDED"#H22:"PUSH ANY KEY TO CONTINUE INSTRUCTIONS.":NTCHING":12:"CATAGORY ARE ADDED"Z!" (A) 3 OF A KIND. ALL DICE ARE":12:"ADDED"! " (B) 4 OF A KIND. ALL DICE ARE":12:"ADDED"!" (C) FULL HOUSE. (3 AND 2 OF ANY":12:"KIND) = 35 PTS." " (D) SMALL STRAIGHT.4 IN SEQL"RA$(8)"HAN SOLO"P TNTAL HYPERSPACE FLYER":CR(6)0/RA$(0)"CUB"GRA$(1)"SENIOR CUB"fRA$(2)"PILOT IN TRAINING"RA$(3)"LICENCED CIVILIAN"RA$(4)"QUALIFIED FIGHTER PILOT"RA$(5)"WING COMMANDER"RA$(6)"SQUADRON COMMANDER" RA$(7)"5 STAR GENERATO CONTINUE."+ X(16286):X127ī23065 2240> HS0cCR$(1)"SHUTTLE CRAFT":CR(1)500CR$(2)"SCOUT":CR(2)240CR$(3)"STAR CRUISER":CR(3)110CR$(4)"STARFIGHTER":CR(4)50CR$(5)"X-WING FIGHTER":CR(5)20CR$(6)"EXPERIME "/(15)MX(16286):X127ī2270U10mSCB250RPRP1.6RP3B6RP0:BB1:HS0:IN0:"WITH THAT FANTASTIC SCORE YOUR LEADER":"HAS RECOMMENDED YOU FLY THE":CR$(B):YYCR(B):IM0  "HIT BUTTON 000:P:(8):"IN ORDER FOR SAFE TAKE OFF THE CONTROLS"b"MUST BE IN THE NEUTRAL POSITION.""ROTATE CONTROL UNTIL & (YOUR ROCKET)""IS CENTERED. PUSH BUTTON TO LAUNCH"(20):(2):"^"(12((1)801.5)20):(1):"&"%(1):" ESSURE, YOU")f"WILL BE AWARDED RANK."Lz"PUSH RETURN TO CONTINUE";A$Rr"THE AVAILABLE CRAFT ARE:"xI16:I". ";CR$(I):I"WHICH CRAFT WOULD YOU LIKE?(THE LOWER NUMBERED ONES ARE EASIEST)";B:YYCR(B)P11"STOP THE CRAFT FROM HITTING THE WALLS"? *"OF THE CANYON."k 4:"YOU WILL BE ABLE TO CHOOSE A CRAFT" >"SO THAT THE SPEED AND RESPONSIVENESS" H"MATCH YOUR ABILITIES." R"BASED ON YOUR SKILL,ABILITY TO LEARN," \"AND PERFORMANCE UNDER PR 50001 "SPACE CANYON TRAINING COURSE"U "****************************"_ :: "DO YOU WANT INSTRUCTIONS (Y/N)?";A$ (A$,1)"Y"ī2180 :"YOU WILL BE AT THE CONTROLS OF A SPACE" "CRAFT GOING DOWN A CANYON. YOU MUST") GO3200IM /QU0QU0/ 0QU1798QU1798L 8"YOUR PRESENT RANK IS:"c B7)RA$((QU200)) L(QU200)(QO200)(QO200)0ĺ"CONGRATULATIONS FOR THE IMPROVEMENT!" VQO0(QU300)N1ĺ"EXCELLENT SCORE FOR FIRST FLIGHT!" `QOQU   ! (5):(1ZZ):"&":ZZZ4 PP11500:PP: R GOSC100IMIM.5m NN1:N1GOSC:1045 GO(GO(N1)SC)N SCHSHSSC (24)::"SCORE=";SC100;" HIGH SCORE="HS100 $IM3B6IM1 %IM1B6IM0 .QUSC322)0ī1000 (1Z):(5):" "E (24):((PO)):"XXX";AA);"XXX"` (5):(1ZZ):"&":ZZZl SCSC2v I,II AA265 AAAA1:65 (1Z):(5):" " U125:X(16336):U (24):((PO)):"XXX";AA);"XXX" SC((SCB.7)1.5) 2000  SC0)Z20:ZZ205I125T" : :"[(Id2AA7m7SC0w<PO16AII120FA4(1)2PI17ZPOPOA(1)_KK1YY:KKdPO5A2iPO25A1.5nZZZ(1)801.5 xZZ,1      1. A PAGE NUMBER IS SPECIFIED""" 2. A PAGE CORNER IS SPECIFIED""" 3. A LENGTH IS SPECIFIED""(8000"2:(4)#<"FOR EXAMPLE THE APPLE MIGHT SPECIFY:":F#F"PAGE 116 - LOWER LEFT - 3 INCHES":q#P"THE DICTIONARY HOLDER WOULD TURN TO"AMES OF ALL THE PLAYERS."!:"NEXT THE APPLE SELECTS A PLAYER"!"TO BE THE DICTIONARY HOLDER."!"(THIS DUTY WILL BE ROTATED)":$""THE APPLE PROCEEDS TO DIRECT THE"N""DICTIONARY HOLDER TO A WORD IN THE"i""FOLLOWING MANNER:":" " CONVERSATION." t:"THE PRIMARY PART THE APPLE PLAYS IS TO" ~"RANDOMLY SELECT A WORD FROM THE" "DICTIONARY. THE APPLE ALSO KEEPS" !"SCORE."!8000"!:(4)C!"HERE'S HOW PLAY GOES ----"i!:"FIRST THE APPLE ASKS FOR THE"!"N)$"DO YOU NEED INSTRUCTIONS? (Y OR N) ";R$.R$"N"19908:(6)B"DICTIONARY.GAME REQUIRES AN APPLE," L"A DICTIONARY, A RULER AND AT LEAST TWO"# V"PLAYERS.Q `:"THE OBJECT OF THE GAME IS TO SHARPEN" j"VOCABULARY AND STIMULATE IVE.MODULE ------------------------100020003000&540: ------------------------ GAME.INSTRUCTIONS ------------------------B:Q(8):(14)h"DICTIONARY GAME"r(12S SCORES WD = WORD NUMBER, ------------------------ HOUSEKEEPING.MODULE ------------------------$6PL$(20)0@SC(20) ------------------------ EXECUT PL = PLAYER NUMBER PL$(20) = ARRAY FOR PLAYER NAMES& R$ = GENERAL RESPONSE VARIABLEy SC(20) = ARRAY FOR PLAYER' I = GENERAL INDEX LG = LENGTH LP = LAST PAGE% NP = NUMBER OF PLAYERST PG = PAGE NUMBER 1 *** DICTIONARY.GAME ***d ----------------------- DOCUMENTATION.MODULE -----------------------3n CR = CORNER OF PAGEhx DH = DICTIONARY HOLDER      ɰ$0 $` d''cS gɯ; Y ?ɀ> А H >Ii>?Ii> А,L gʆ ɯɰɹ)3} & &ee &}થi @ HIiIi @⩰# 祝.=D5֤4 J :3 g YɯLɠɤ ɓΊ x=    &B&C= 4ݴ ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL㎹ɠ`ޅ3 gʆ ɯY[ Y( Lh:h; G :LhHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8LyLjJ?>ʊ:>Ș;k/=:   S;:L O4 40K14 L= BC D./ʈ3 g Y ɨH40 ^4Lم O4LHH11`HLiLˏ4Hh uLLLqli h,h-~<,ɓ,ɯL:B/ \`HL_l\@8)I:< ?L<EhH 0l    1,37:22,36:23,35b 1:6,1820:20,2320:5,1821:20,2221:4,1822:20,2122:3,1823:20,23 0:22,2722:18,2628:18,2636:28,3617:28,3627& 15:Y1826:29,35Y:0 9:Y1925:30,34Y:N DRAW JACKX 6:21,279:10,1519b 15:2,1839. 2,14:3,13:4,12:5,11:6,10^ 10,246:20,14:21,13:22,12:23,11:24,10u 7,2310:11,3424 14:Y2938:2,18Y: 3,1828:4,1827:5,1826:6,1825 Y2534:20,23Y: 20,2235:20,2136:20,37 4:20,38:215Y:"d AQ:Y2628:10,15Y:2n T049:AQKx 28,5(1)22(1)2\ TI(16336) 4:2,1815:20,14:21,13:22,12:23,11:15,2819 : SET UP GRAPHICS  7:Y033:0,39Y::8:Y3439:0,39Y::4:15,391:15,3919:2,18,25:14,1825:20,2125 ; MG:21,259:AQ:26,279M BB:21,2711_ BL:21,2712q MG:20,2713( BB:21,2714:20,27152 < LB:Y49:6,20Y::4:6,2010F LB:Y1114:7,19Y:P Y1619:7,18Y:Z MG:Y2025:10,t BK:27,21:LB:27,22&~ WH:32,25, E LB:3,23:MG:21,23^ LB:4,22:MG:22,22w LB:5,21:MG:23,21 MG:4,824 11,24:14,1824 20,2124 LB:23,244:MG:23,2422 LB:22,245:MG:22,2323 MG:6,825 11,22BK:15,2634.33,16:28,28:22,23@ WH:19,2533R 29,27:33,17h 30,19:OG:30,26~$ BK:28,29:29,28. 29,188 LB:28,18:29,17B 22,23:23,22L 4:24,22V BK:22,25:23,24:24,23` WH:30,26j OG:19,243217,186z1:12,139#DUNKıE768,0:TI120:769,2:770:V11:12,139gTI150::wVSCVSC1:DUNKING ANIMATION2100LB:17,2736:BK:16,2735WH:18,2634:OG:19,2533LB:16,273534,27:28,17:221,Y:C(4):X2,Y:C(5):X,Y2:C(6):X,Y1I0C(7):X,Y1:C(8):X,Y2Y44:6,1515>7:12,1416:7,914:8,913:9,12H12:10,1110:10,1115:8,119:7,108:7,87R8,1116:7,1017:7,818\11:7,86:8,5:17,5fT16p11:12,6:14,6:2:11,6:13,6:<11,6:13,6:2:12,6:14,6:ICHATTERf12,9)1Ġ11:12,139:y TI18(1)51:12,139:768,150(100(1)):769,(3(1))1:770:11:12,139 :*RAISE ARMS+/C(1):X2,Y:C(2):X1,Y:C(3):X 14:"PLAYER...... "PLSC9 STST0::2039,32:1460t :" PRESS PADDLE BUTTON TO TRY AGAIN ";:2039,32 (16286)127(16287)1271460 1440 24:1:39);:DUNK0:3020 1000 ANIMATION SHIFT EYES11:12,6)2čTI / TI05:X,Y:768,X:769,Y:770:9 (2240^ 2768,200:TI115:769,40:770:t <PLSCPLSC1:TRY0 F:ST1370 Z:" CURRENT SCORE: ";: dVSPLğ n14:"JACK NIFE... "VSC xPLSCVSCĝ PLVSğC(7):X,Y1:C(8):X,Y2" 1010C 768,5:TI15:769,4:770:Q TRYTRY1c X,Y)91260 768,255:TI150:769,3:770: TRY3TRY0:2090:1350 1160 DUNK HIM! DUNK1 TI03 T2557510:768,T:769,8:770: / BX2,X1Y:X1,X2Y:Y1,Y2X:Y1,Y2XL L768,(XY)3:769,4:770Y VBUTTON?e `TI05 j(16286)127(16287)1271190 t ~REDRAW BACKGROUND C(1):X2,Y:C(2):X1,Y:C(3):X1,Y:C(4):X2,Y:C(5):X,Y2:C(6):X,Y1 (X37) YY(Y37)(Y37)A (10(1))5İ2020:SHIFT EYES_ (10(1))5İ2050:TALK| STORE BACKGROUND COLORS $C(1)X2,Y):C(2)X1,Y):C(3)X1,Y):C(4)X2,Y):C(5)X,Y2):C(6)X,Y1):C(7)X,Y1):C(8)X,Y2) .1 8DRAW SIGHT THE DUNKING MACHINE iBK0:MG1:BL2:BB6:LB7:OG9:AQ14:WH15:COLORS (MG=MAGENTA,BB=BLUE)t6000(4000:TITLE25000:TONE POKES7ST1::1350MAIN LOOPX10(1)(0)9.112:Y22(1)(255(1))11.12 XX(X37)     " " " " " """""""J(24):(12)/T"** HIT RETURN ** ";R$/^:1|.3I.R$.R$"X"SC(I)SC(I)1.R$;:3:"SCORE = ";SC(I).I.24.868."HIT RETURN FOR A NEW WORD ";R$/n/@ ------------------------ ASK.FOR.RETURN ------------------------~/----------- GET.SCORES -------------------------z:"ENTER AN X FOR CREDIT,"-"HIT SPACE BAR FOR NO CREDIT"-*.WDWD1:24:12:"WORD NUMBER ";WD;:48.I1PL1^.3:"SCORE = ";SC(I);:15:PL$(I)e.Is.I1PL ";PG,(14):(12),CR1ĺ"UPPER LEFT",CR2ĺ"UPPER RIGHT",CR3ĺ"LOWER LEFT",CR4ĺ"LOWER RIGHT",16:(12)-LG;" INCHES"- 22@-"HIT RETURN WHEN READY TO POST SCORES ";R$F--p ------------- IS"+DHDH1:DHNPDH1+:15+PL$(DH)+, ------------------------ SELECT.A.WORD ------------------------.,PG((1)(LP1))A,CR((1)4)1V,LG((1)80)10f,(12):(12)v,"PAGE---------- PLAY.A.TURN ------------------------* 4000* 5000* 6000* E+ ------------------------ SELECT.DICTIONARY.HOLDER ------------------------N+:4U+8u+"THE DICTIONARY HOLDERTH NO INPUT WHEN THRU ";::"*":)PLPL1) (14):868)*"PLAYER NO. ";PL;:" ";PL$(PL))4PL$(PL)""2070)9NPPL1)>:12*H"IN YOUR DICTIONARY,"E*R:"ON WHAT PAGE IS THE WORD ZYME? ";LP* ------------------------------------ GET.PLAYER'S.NAMES ------------------------(:(4)(" TELL ME THE NAMES OF ALL PLAYERS")(8):(2).)"FIRST NAME AND INITIAL OF LAST NAME"K)" WILL DO"V)20:3) :"*";::" RETURN WITRUCTED TO"'|"SELECT A NEW WORD, A NEW DICTIONARY"'"HOLDER IS SELECTED ALSO."':"YOU MAY SET YOUR OWN END OF GAME POLICY"!("BASED ON TIME OR NUMBER OF WORDS."/(::(12)A("GOOD LUCK!"K(8000Q(( --N."&,:"REMEMBER, THE PURPOSE OF THE GAME IS TO"&6"STIMULATE CONVERSATION."&@8000&J:(4)'T"YOU MIGHT WANT TO DIVIDE UP INTO TEAMS"4'^"AND WRITE YOUR DEFINITIONS DOWN PRIOR"N'h"TO REVEALING THEM."|'r:"EACH TIME THE APPLE IS INSSE"%"BUT THEY SHOULD CONVEY THAT YOU KNOW"%"WHAT THE WORD MEANS."%:"YOU CAN ADOPT YOUR OWN HOUSE RULES BUT"&"I GIVE AS MUCH CREDIT TO A PLAYER WHO"G&"AGREES WITH A CORRECT DEFINITION AS TO"t&""THE PLAYER WHO STATED THE DEFINITIOHOLDER SPELLS AND"$"PRONOUNCES IT."$8000$:(4)$"THE PLAYERS THEN ATTEMPT TO DEFINE THE"%"WORD. THE DICTIONARY HOLDER IS THE"6%"JUDGE OF WETHER A DEFINITION IS CORRECT"E%"OR NOT."t%:"DEFINITIONS DO NOT HAVE TO BE PRECI#Z"PAGE 116 AND STARTING AT THE LOWER "#d"LEFT HAND CORNER OF THE PAGE; MEASURE"#n"UP 3 INCHES." $x:"THE WORD NEAREST TO THE END OF THE"2$"RULER WOULD BE THE SELECTED WORD."_$:"ONCE THE WORD HAS BEEN SELECTED THE"$"DICTIONARY Ԡ˨˨Ԡ˨˨A"L:B1NI:IL%(B):B:WT:T>B1NL:R%(B):B:M:ETB1NI:PR(B):BcCM%:R:JoPW:RM~D$"CLOSE"128:d LOAD GAMEn6900x"GAME #";A}A06520D$"OPEN GAME."NA$",L500"D$"READ GAME."NA$",R"A"YOU ARE CARRYING: ""A1NI1A105540NIL%(A)0ĺ" "ID$(A):X1UAtM0ĺ" $"M" IN CASH.":X1X0ĺ"NOTHING."p SAVE GAMEu255z"GAME #";AA06010D$"OPEN GAME."NA$",L500"D$"WRITE GAME."NA$",R"W%(1))0ĺ"YOU ARE NOT CARRYING ONE.":KIL%(FW%(1))L:WTWTIW(FW%(1))V"OK."L39ĺ"IT SLIDES INTO A CREVICE IN THE RUINS AND IS LOST.":IL%(FW%(1))1FW%(1)10M(M) LOOKXX1L%(L)0| INVX0P.":9 IW(FW%(1))150ĺ"TOO HEAVY FOR YOU TO LIFT.":i IW(FW%(1))0ĺ"IT IS SECURELY FASTENED.": IL%(FW%(1))0:WTWTIW(FW%(1)) "OK." FW%(1)10M(M)  DROPFW%(1)1FW%(1)NIĺ"YOU ARE NOT CARRYING ONE.":(IL%(FLĺ"NO SUCH THING HERE.": PR(FW%(1))0R%(L)1ĺ"ROBOT: YOU CAN'T TAKE THAT WITHOUT PAYING FOR IT! PLEASE BUY IT IF YOU WANT IT.": WTIW(FW%(1))150IW(FW%(1))150ĺ"TOO HEAVY. YOU MUST DROP SOMETHING FIRST BEFORE YOU PICK IT U$(X,0)"S"İ12000:[*L36X37Ą"ENTER COMBINATION: ";A$:(A$)CM%ĺ"SORRY. WRONG!":k4X3814000zLX:XX1: PICK UP FW%(1)0FW%(1)NIĺ"NO SUCH THING HERE.": IL%(FW%(1))0ĺ"YOU ARE ALREADY CARRYING IT!": IL%(FW%(1))GOOD DAY, MR. SMITH.":2060|R%(L)20FW%(1)100ĺ"ROBOT: I'M SORRY, BUT YOU CANNOT GO THAT WAY WITHOUT AN I.D. CARD.": L39X39(1).35PL1PL:X35:PL0X40X17ĺ"ROBOT: SORRY, THIS INFORMATION BOOTH IS OUT OF ORDER.": LD^X6IL%(7)0ĺ"ROBOT: I'M SORRY, BUT THE DRESS CODE REQUIRES THAT YOU WEAR A TIE.":L6R0ĺ"ROBOT: I'M SORRY. YOU ARE A BAD CREDIT RISK. YOU CAN'T ENTER.":R%(L)20FW%(1)100IL%(12)0ĺ"ROBOT: I.D. ACCEPTED. YOU CAN PASS. WHERE?":"XLV%(L,FW%(1)100)FX0XNLĺ"NOT DEFINED YET.":eL28I$"BREAK OUT"15000X0ĺ"YOU CAN'T GO THAT WAY.":R%(L)3ĺ"ROBOT: TRYING TO ESCAPE, HUH? IT WON'T WORK! ZAP! YOU'RE DEAD!"::"STOP AFTER "T" TURNS.":255: .A" 8X0ĺ"THERE ARE NONE."2 =R%(L)0ĺT BR%(L)1ĺ"CLERK ROBOT HERE." LR%(L)20R%(L)29ĺ"GUARD ROBOT HERE." VR%(L)3ĺ"BERSERK ROBOT HERE!" `TE100ĺ:"YOU ARE GETTING HUNGRY!"   MOVE FW%(1)101FW%(1)108ĺ"GO"THE BARS ARE BROKEN LEAVING A PATH OUT."/ ; L%(L)1p "OPEN PATHWAYS: ";:A18:LV%(L,A)0ĺDN$(A);w A}  "VISIBLE OBJECTS:" X0 A1NI $IL%(A)Lĺ" "ID$(A);:X1:PR(A)0R%(L)1ĺ" (PRICE: $"PR(A)")"; )IL%(A)LĺD bB1NW:WD$(B)WD$İ6502 lB:WD$"":AA1A vA(I$)ıJ 530U C01t W%(B,C)0FW%(C)W%(B,C){ C   PRINT DESC LD$(L,0)"S"İ12000  LD$(L,L%(L)) L28J0ĺ"THERE IS A DOOR WITH BARS.") L28J0ĺ FW%(0)99ĺ"QUIT AFTER ";T;" TURNS.":255:9 TT1B 110U  HANDLE INPUTc 16368,0y FW%(0)0:FW%(1)0  "-->";I$ I$""510 WD$"":A1 (I$,A,1)" "600 WD$WD$(I$,A,1) &AA1:A(I$)530 X FOUND WOR 2SP128:SP <:! d START* lXX1: nXX1İ1000C x500Z }XXXX1:XX5XX1v FW%(0)0ĺ"WHAT?":110 FW%(0)2000,3000,4000,5000,5500,6000,7000,8000,9000,9500 FW%(0)10ĴFW%(0)1013000,13500,14500,15000,15500,16000,16500,10000/tY PLANET.OF.THE.ROBOTS; BY DANIEL TOBIAS 11/81Y AN ADVENTURE-STYLE GAMExNA$"PLANET.OF.THE.ROBOTS" D$(4)LV%(100,8),LD$(100,1),R%(100),ID$(50),IL%(50),PR(50),IW(50),L%(100)WD$(100),W%(100,1),FW%(1)18000:19000                                   EPEATS THE TONE/LIGHT"::"COMBINATION BY PRESSING THE APPROPRIATE"::"KEY. AFTER A CORRECT RESPONSE, THE "::"COMPUTER ADDS A TONE/LIGHT TO ITS"::"SEQUENCE. THE GAME ENDS WHEN THE PLAYER":"DOES NOT KEY IN THE CORRECT SEQUENCE.":::"HIT R1430 nx3(16384)128Ĺ16368,0:520FII1:I9I1L::7:"THIS IS A COMPUTER VERSION OF"::"'SIMPLE SIMON' OR 'FOLLOW ME'."::"THE COMPUTER WILL SOUND A TONE AND"::"LIGHT THE CORRESPONDING BOX.":"THE PLAYER THEN R1410! 7,1013:7,1014:7,12'Q12,143:12,144:12,1413:12,1414^(5,1213d2<3,1416:3,1420:17,4:19,4:5,618FP3,1422:3,1425:3,423:3,424:13,1423:13,1424Zd3,1427:3,1431:3,528:6,1129:12,12,131:12,1338-I8ď12,133:12,1336?J15:C1(I)_J1270,1310,1340,1360,1380jC2(I)J1270,1310,1340,1360,1380C1(I)J1270,1310,1340,1360,13801400:J10907,103:7,104:5,778,8:9,9:10,5:10,"THANK YOU FOR PLAYING SIMON WITH ME!":1$9.I1A8LбC()aLLL1б1ī2I1ď,ű:673I2ď9,101:9,1038jI3ď6,73:6,736tI4ď9,103:9,03I5ď,ű:343I6ď,ų:343I7ď)3:D254:120W1100:W,16368,07T1NBIT(T)MC2(I)V160^90iC1(I)r160yT::::"LISTEN TO SEQUENCE AGAIN?":A$A$"Y"DD10:920::::"PLAY AGAIN?":A$A$"Y"N1:520::4+C2(I)16090$C1(I)- 1604T= 200M*W0300:W\4N40ī840e>690H:::7:5:"YOU WIN!!!"::W11000:W:1020R:::"YOU WAITED TOO LONG!!!!"\880f:::"WRONG NOTE!!!!"pF(I)40:D50:120zF(IIDW1500:WNI1Q(XC2(I)1b160AlDD(I):120LvC1(I)U160\I::::9::"HIT ANY KEY TO CONTINUE"::A$:::W1500:WT(N)(1)(Q1)T(N)(T(N))T(N)1T(N)Qī690T1NIT(T)X1(7)29:X2(7)33:C1(7)5:C2(7)15:F(7)90:A(7)89:D(7)6Y1(8)30:Y2(8)37:X1(8)29:X2(8)33:C1(8)3:C2(8)11:F(8)100:A(8)90:D(8)51060::0:G1839:0,39G:G:IY320,340:I1:N1:IY2IIQC1(I)&1600W1500:W:Y1(4)30:Y2(4)37:X1(4)21:X2(4)25:C1(4)9:C2(4)13:F(4)60:A(4)71:D(4)7 Y1(5)18:Y2(5)25:X1(5)5:X2(5)9:C1(5)8:C2(5)9:F(5)70:A(5)69:D(5)7 Y1(6)30:Y2(6)37:X1(6)5:X2(6)9:C1(6)14:C2(6)15:F(6)80:A(6)68:D(6)79Y1(7)18:Y2(7)25: AND COLORS\ Y1(1)18:Y2(1)25:X1(1)13:X2(1)17:C1(1)1:C2(1)11:F(1)10:A(1)82:D(1)30 Y1(2)18:Y2(2)25:X1(2)21:X2(2)25:C1(2)2:C2(2)7:F(2)30:A(2)84:D(2)15 Y1(3)30:Y2(3)37:X1(3)13:X2(3)17:C1(3)4:C2(3)12:F(3)45:A(3)70:D(3)10M JA$"Y"ī1440H T:::::3:"ENTER DIFFICULTY -- (1,2,3,OR4)":A$a Y(A$)1(A$)4340n ^D1(A$) h::::3:"ENTER NO. OF COLORS -- (2 THRU 8) ":A$:Q(A$) rQ2Q8ī360 |  DIM VARIABLES N1  INITIALIZE QUAD LIMITS(16368) W1200D1. W200D11ī850J (16384)12в01Q ()|ɱ68)18AIī80"C2(I):160:90:C1(I):160 ,A 6NN1:::"ROUND NO. ";:80@:"OYUWN NTUTOS":A Y280 (40000 2D$(4). <D$"BLOAD SOUND"; F40000,1D P390X Z SOUND ROUTINEl dDD(I)4(ND1)y nD1D1 x768,D 769,F(I) 770 YY1(I)Y2(I) X1(I),X2(I)Y Y :::"YOUR TURN..." A1N Z SIMPLE SIMON) BY SUE BIEGLERA 1008 ESPLANADE` LAKE CHARLES LA 70605iIY1 Y1(8),Y2(8),X1(8),X2(8),T(40),A(8),Q(8),C1(8),C2(8),F(8),D(8) CHECK TO SEE IF SOUND BINARY FILE IS ALREADY LOADED: (40000)1ī!! ! ! ! ! !!!!!!!!!Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)" O IT ALL AGAIN WITH THE NEW 5-LETTER WORD/O$,4): GRAB THE FIRST LETTERG330: SEND WHAT'S LEFT TO THE 4-LOOPiN124M120A2424M120A|A$(N)W$A$(N)NFIVE$(FIVE$,1)(FIVE$,4): MAKE A NEW 5-LETTER WORD BY PUTTING THE LAST LETTER FIRST (ABCDE BECOMES EABCD))M: D|KyFOUR$(FOUR$,1)(FOUR$,3): MAKE A NEW WORD BY TAKING THE LAST LETTER AND MAKING IT FIRST (ABCD BECOMES DABC)J: DO IT ALL AGAIN WITH THE NEW 4-LETTER WORD**5-LETTER LOOP**M04W$(FIVE$,1):FOUR$(FIVE0: SEND WHAT'S LEFT TO THE 3-LETTER LOOPhK16J24M120A66J24M120A: A COUNTS THE NUMBER OF PASSES THROUGH THE 6-LOOP, M COUNTS THE 5-LOOP AND J COUNTS THE 4-LOOP - EACH PERMUTATION GETS A UNIQUE PLACE IN THE ARRAY A$()rA$(K)X$A$(K)(E$,2,1):&"E$(E$,3,1)(E$,2):,&H'**STOP-PRINT ROUTINE**N(x,::"HIT RETURN TO SEE MORE...";R$:6R$""ı@310DE**4-LETTER LOOP**FJJ03TX$(FOUR$,1):THREE$(FOUR$,3): GRAB THE FIRST LETTER)^23 CBA), THE RESULT IS STORED, THE COUNTER INCREMENTED, AND THE PROCEDURE REPEATED. 3 PASSES THROUGH THIS LOOP WILL PRODUCE ALL 6 PERMUTATIONS OF  3 LETTERS. THESE PERMUTATIONS ARE THEN RETURNED TO THE 4-LETTER LOOP. E$(E$,1,1)(E$,3,1)M. LINE 280 "SWAPS" THE 3-LETTER WORD (ABC BECOMES ACB); THE RESULT GOES IN ARRAY A$() WHICH STORES ALL RESULTS. THE COUNTER IS INCREMENTED AND THE WORD IS SWAPPED AGAIN,  RESTORING THE ORIGINAL ORDER. LINE 290 THEN "ROTATES" THE WORD (ABC BECOMES:Y1Q) A$(Y),:Y60(Y60)İ3000 Y6 T "ANOTHER ONE? (Y/N) ";V$c V$"Y"Āi o **3-LETTER LOOP** E$THREE$ I13 280:A$(C)E$:CC1:280:290:A$(C)E$:CC1 I: THIS IS THE HEART OF THE PROGRA-LETTER COMBINATIONS SIX$(SIX$,1)(SIX$,5): TAKE THE LAST LETTER OF THE WORD AND STICK IT ON THE FRONT INSTEAD - THIS MAKES A NEW 6-LETTER COMBINATION A: DO IT ALL AGAIN WITH THE NEW 6-LETTER COMBINATION **OUTPUT ROUTINE** OUGH THE 6-LETTER LOOP; EACH TIME THROUGH THERE ARE 120 NEW COMBINATIONS TO BE ADDED TO THE ARRAY A$()y xA$(P)Y$A$(P) P: THIS LOOP TAKES 120 FIVE-LETTER COMBINATIONS FROM THE 5-LETTER LOOP AND ADDS THE SIXTH LETTER PULLED OFF IN LINE 90 TO MAKE 6<L5FIVE$O$:420:160 @7 A **6-LETTER LOOP**= BI FSIX$O$T PA05 ZY$(SIX$,1):FIVE$(SIX$,5): PULL THE FIRST LETTER OFF d420: SEND WHAT'S LEFT TO THE 5-LETTER LOOPf nP1120A120120A: A COUNTS THE NUMBER OF TIMES THR0 . ::12::"WORD UNSCRAMBLER":A$(720):O6:"GIMME THE LETTERS! ";O$C1:L(O$):Q1:S1L:QQS:S: C IS A COUNTER; Q CALCULATES L! (L FACTORIAL), THE TOTAL NUMBER OF PERMUTATIONS(:12:16:"THINKING":2L4FOUR$O$:330:160  0` "