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`!"ZENITH","ZEBRA","ZINC","ZODIAC","ZOOM"/' NTROL","CONVICT","DART","DAUGHTER","DEFINITION"h "COWBOYS","CHEERLEADERS","FOOTBALL","BEER","HOCKEY" "DETECT","DIZZY","K","DOMAIN","DOUGH"!"ECHO","ECSTASY","ELECTRIC","ELEPHANT","EMULSION" !"YEAST","LEAST","YEARLING",YELLOW","YARD")*LE","BEHOLD","BEWITCHMENT"Nl "BROADCAST","BUTTON","BUZZARD","CABIN","CABLE"v "CADDY","CARROT","CARTOON","CHECK","CHASTE" "CLEAR","COFFEE","COFFIN","COHERENT","COLD" "COMBINATION","COMMONPLACE","COMMISSIONER","COMMENTARY","COMPASS"/ "CORUISE","JOURNEY" K "AMONG","AMORPHOUS","AMORAL","AMORTIZE","AMPHIBIAN"| "AMPERE","ANGLE","TOXIN","APEX","APPARATUS"0 "APPOINT","ASSASSINATE","ASSAY","ESSAY","ASSET"D "BASS","BAT","BATTALION","BATTEN","BATH"X "BEATITUDE","BEASTLY","BEAGPLOYMENT"C "ENCYCLOPEDIA","FLOWER","ROSE","DAISY","ENCHILADAS"x "TORTILLA","MATADOR","PICADOR","BULL","BORDER" "STATE","COUNTRY","NATION","UNIVERSE","COUNTY""MISTAKE","ERROR","MESS","CORRECT","COMPUTE" "TRAVEL", "TRIP", "FLY","C"EJECT","PUNCTUATION","REFLECTION"U"EXPRESS","NEIGHBOR","CHILD","KITTEN","STOVE""ALTITUDE","ATTITUDE","COMMENT","REMARK","INSTRUMENTS" "BALANCE","LIST","CHECK","MONEY","BROKE"  "AUTOMOBILE","CROCODILES","LABORATORY","UNIVERSITY","UNEMS".r"YEAST","BREAD","BAKE","COOKIES","EAT"f| "LINEAR","ALGEBRA","CALCULUS","AMBIGUITY","LIMIT""LOVE","HATE","FEAR","JOG","SUN""SON","LAUGHTER","CRY","GRADE","EXAM""CHRISTMAS","BUY","GIFTS","TRAFFIC","PAY"""VACATION","TURKEY",LIEN", "ALIBI","ALIVE","ALLOW","ALMS"WJ"GAME","LIFE","ARROWHEAD","BATTERY","RECORD"T"TIME","COMPUTER","APPLE","BOOK","DICTIONARY" ^"EACH","DISTANCE","ANIMAL","ERRONEOUSLY","SCIENTIST" h"EXAMPLE","TENSION","MOUSTACHE","DIFFERENT","PHYSIC,12: 23,13: 23,17: 22,17: 21,16: 24,17: 25,169 A 0 0R : 17,2936 a D CC1 15k N CCz X AG 1 6 b AG 3000,3200,3400,3600,3800,4000 l AG v CC  p z 9  10,3836: 36,3910: 36,3938 %@"A 22,28: 22,29: 21,30: 21,31: 20,32: 20,33: 19,34: 19,35D  24,28: 24,29: 25,30: 25,31: 26,32: 26,33: 27,34: 27,35 t  22,19: 21,20: 20,21: 19,22 <  24,19: 25,20: 26,21: 27,22  h 73 | 23,11: 23"HEY, YOU GOT IT !". "THE WORD WAS: ";A$9  9999P "YOU LOSE TURKEY"v  "THE WORD WAS:",A$ 4 9999 9: 8,3635 " T 9: 20,3910 22,2415: 22,2416: 22,2414  16,2723 > H I  1010  F1 492(  13p  N1 2800,2900,3000,3200,3400,3600,3800,4000,4200,4400,4600,4800  F1 492 N1N11  N110 2010 Z$(N1)Q$ "LETTERS USED:";  J1 N1 Z$(J );  J ;  200 I1 B 14);B$(I);" I+ N112 ,R "ENTER GUESS # ";N1;: Q$ Z F0g I1 B (A$,I, 1)Q$ 250 400 B$(I)Q$ F1  I  I1 B 14);B$(I);  I :  I1 B  B$(I)"-" 480 1  B$(20),Z$(10)6 "HANGMAN BY RICK LONGBRAKE"I X(3)175 1TN(X)a I1 Nm A$ u( I<B(A$)d I1 20nB$(I)"-"x I:"HANGMAN-----THE WORD GAME-----"  6000"YOUR WORD HAS ";B;" LETTERS"        N","CARACAS","LAHORE","NAGOYA","CLEVELAND"g! "BUDAPEST","RANGOON","NEWARK","MINNEAPOLIS","KINSHASA"!( "TAIPEI","XENIA","KATHMANDU","PORT MORESBY","BRUSSELS"! "U.S. STATES","U.S. STATE CAPITALS"! "COUNTRIES","MAJOR WORLD CITIES"CANILA";  "SYDNEY","ROME","BOGOTA","SHENYANG","MONTREAL"r  "PUSAN","TORONTO","MELBOURNE","YOKOHAMA","WUHAN"  "ATHENS","DALLAS","FORT WORTH","PITTSBURGH","MANCHESTER"  "ST. LOUIS","BIRMINGHAM","CHUNGKING","ALEXANDRIA","HOUSTON"*! "CANTOIO DE JANEIRO","JAKARTA"U "DETROIT","HONG KONG","LENINGRAD","TIENTSIN","TEHERAN" "BANGKOK","DELHI","NEW DELHI","MADRID","KARACHI" "SAN FRANCISCO","OAKLAND","LIMA","SANTIAGO","MADRAS"  "BERLIN","EAST BERLIN","WEST BERLIN","ISTANBUL","M "WALES","ZANZIBAR","MONOCCO","TIBET","USA"i "MEXICO CITY","TOKYO","SHANGHAI","PARIS","BUENOS AIRES" "OSAKA","MOSCOW","SAO PAULO","PEKING","SEOUL" "LOS ANGELES","LONDON","CALCUTTA","CHICAGO","BOMBAY" "CAIRO","ESSEN","PHILADELPHIA","R"UKRAINE","UNION OF SOVIET SOCIALIST REPUBLICS"t "USSR","UNITED ARAB EMIRATES","UNITED KINGDOM","UNITED STATES","UPPER VOLTA"~ "URUGUAY","VENEZUALA","VIETNAM","VATICAN CITY","YEMEN" "SOUTH YEMEN","YUGOSLAVIA","ZAIRE","ZAMBIA","RUSSIA"+NEGAL","SEYCHELLES","SIERRA LEONE","SINGAPORE"iL "SOMALIA","SOUTH AFRICA","SPAIN","SRI LANKA","SUDAN"V "SURINAM","SWAZILAND","SWEDEN","SYRIA","SCOTLAND"` "SWITZERLAND","TANZANIA","THAILAND","TOGO","TRINIDAD"/j "TUNISIA","TURKEY","UGANDA",ZEALAND","NICARAGUA","NIGER","NIGERIA","NORWAY"n$ "OMAN","PAKISTAN","PANAMA","PAPUA NEW GUINEA","PARAGUAY". "PERU","PHILLIPINES","POLAND","PORTUGAL","QATAR"8 "ROMANIA","RWANDA","RHODESIA","SAMOA","SOA TOME E PRINCIPE".B "SAUDI ARABIA","SETHO"F "LIBERIA","LIBYA","LUXEMBOURG","LIECHTENSTEIN","MADAGASCAR"z "MALAWI","MALAYSIA","MALDIVES","MALI","MALTA" "MAURITANIA","MAURITIUS","MEXICO","MONGOLIA","MOROCCO" "MOZAMBIQUE","MALAYA","MALAGASY","NEPAL","NETHERLANDS"/ "NEW ","HONDURAS","HUNGARY","HOLLAND","ICELAND"\ "INDIA","INDONESIA","IRAN","IRAQ","IRELAND" "ISRAEL","ITALY","IVORY COAST","JAMAICA","JAPAN" "JORDAN","KAMPUCHEA","KENYA","KUWAIT","NORTH KOREA" "SOUTH KOREA","KOREA","LAOS","LEBANON","LESOEL SALVADOR","EQUATORIAL GUINEA","ETHIOPIA","ENGLAND","FIJI"n "FINLAND","FRANCE","GABON","GAMBIA","GHANA" "EAST GERMANY","WEST GERMANY","GERMANY","GREECE","GRENADA" "GUATAMALA","GUINEA","GUINEA-BISSAU","GREAT BRITAIN","GUYANA"* "HAITIORRA","CAMBODIA","BRITISH HONDURAS","CHAD","CHILE"jz "CHINA","COLUMBIA","COMOROS","CONGO","COSTA RICA" "CUBA","CYPRUS","CZECHOSLOVAKIA","CENTRAL AFRICAN REPUBLIC","DAHOMEY" "DENMARK","DJIBOUTI","DOMINICAN REPUBLIC","ECUADOR","EGYPT"< "H "AUSTRALIA","AUSTRIA","BAHAMAS","BAHRAIN","BANGLADESH"pR "BARBADOS","BELGIUM","BENIN","BHUTAN","BOLIVIA"\ "BOTSWANA","BRAZIL","BULGARIA","BURMA","BURUNDI"f "BYELORUSSIA","CAMEROON","CANADA","CAPE VERDE","CENTRAL AFRICAN EMPIRE"2p "ANDCITY"A  "SALEM","HARRISBURG","PROVIDENCE","COLUMBIA","PIERRE"* "NASHVILLE","AUSTIN","SALT LAKE CITY","MONTPELIER","RICHMOND"4 "OLYMPIA","CHARLESTON","MADISON","CHEYENNE","BOSTON"> "AFGHANISTAN","ALBANIA","ALGERIA","ANGOLA","ARGENTINA":"DES MOINES"K "TOPEKA","FRANKFORT","BATON ROUGE","AUGUSTA","ANNAPOLIS" "LANSING","ST.PAUL","JACKSON","JEFFERSON CITY","HELENA"  "LINCOLN","CARSON CITY","CONCORD","TRENTON","SANTA FE" "ALBANY","RALEIGH","BISMARCK","COLUMBUS","OKLAHOMA S","NEVADA","OKLAHOMA"N "WYOMING","MISSOURI","ALASKA","HAWAII","ILLINOIS" "MONTGOMERY","JUNEAU","PHOENIX","LITTLE ROCK","SACRAMENTO" "DENVER","HARTFORD","DOVER","TALLAHASSEE","ATLANTA"  "HONOLULU","BOISE","SPRINGFIELD","INDIANAPOLIS",","WISCONSIN","MICHIGAN","IDAHO"\ "CALIFORNIA","MISSISSIPPI","KANSAS","NEBRASKA","IOWA" "WASHINGTON","MONTANA","MINNESOTA","KENTUCKY","TENNESSEE" "LOUISIANA","DELEWARE","MARYLAND","ARKANSAS","COLORADO" "ARIZONA","WEST VIRGINIA","TEXAIA","CONNECTICUT","ALABAMA"] "VERMONT","NEW HAMPSHIRE","MAINE","FLORIDA","MASSACHUSETTS" "GEORGIA","SOUTH CAROLINA","RHODE ISLAND","UTAH","INDIANA" "NORTH CAROLINA","VIRGINIA","SOUTH DAKOTA","OHIO","OREGON"  "NEW MEXICO","NORTH DAKOTA"YOU WIN".:"PLAY AGAIN?";:IN$?IN$"Y"230G:b& CHALLENGE SUBROUTINEm0E1A:(B$(E),1)R$620DI1UNB$(E)U$(I)620XIbB$(E)::"YOU LOSE":520lE:510v "NEW YORK","NEW JERSEY","PENNSYLVANEGAL WORD *******"2609R$(A$,1):UU1:U$(U)A$OG((1)A1):HAZEGHr(B$(E),1)R$480}I1UB$(E)U$(I)480I:B$(E):UU1:U$(U)B$(E)R$(B$(E),1)255EG1510HG:G1:410:A$:C1300&A$"CHALLENGE"550:(A$,1)R$300e""******* LETTERS DON'T MATCH *******"n'260y,E1U6A$U$(E)330@"******* ALREADY USED *******"E260JETE1A^A$B$(E)370h390rE|"******* ILLUTER WILL PRINT"> "OUT A POSSIBLE RESPONSE, AND YOU LOSE."s 24:" << PRESS THE SPACE BAR TO BEGIN >>";:ST$ U0:C0::12:"DO YOU WANT TO GO FIRST?";:IN$ : (IN$,1)"N"250 C1:260 R$(((1)2665)) 400 C0BEEN USED, OR THE WORD"? "IS NOT IN THE COMPUTER'S MEMORY."l :" IF YOU CANNOT THINK OF A CORRECT" "RESPONSE, YOU MAY TYPE 'CHALLENGE'." "IF YOU HAVE REALLY EXHAUSTED ALL" "POSSIBLE RESPONSES, YOU'VE WON." "OTHERWISE, THE COMP:C$:20:C$:IB x24:" << PRESS THE SPACE BAR TO CONTINUE >>";Y z(16384)127122g |16368,0m } " THE COMPUTER WILL TELL YOU IF THE" "LETTERS OF YOUR ENTRY AND THE PRE-" "CEEDING WORD DON'T MATCH, THE WORD" "HAS ALREADY "THE OTHER PLAYER MUST THEN NAME A"O Z"LOCATION WHOSE FIRST LETTER IS THE"z _"SAME AS THE LAST LETTER IN THE PRE-" d"CEEDING WORD. YOU WILL PLAY AGAINST" i"THE COMPUTER. ONLY THE FOLLOWING " n"CATAGORIES WILL BE USED:" p sI1CA****** CA4 A350* (B$(A),U$(A)8 -:12:15I 0"GEOGRAPHY"^ 2I1A:B$(I):I <:12:"DO YOU WANT INSTRUCTIONS?";:IN$ A(IN$,1)"Y"230 F:" THIS IS A GAME OF GEOGRAPHY. ONE" P"PLAYER NAMES A GEOGRAPHICAL LOCATION."% U **********************; * GEOGRAPHY *X * BY *u * JONATHAN AMSTERDAM * * * * APPLE II VERSION * * BY WILLIAM DAVIS * * * ****************              X4)5XT((S$,I,1))4B(T)0B(T)1:145?B(T)0FIL AA0:MM0:KK0:JJ0:ZZ0{'|S01}W$""<~I19ISSB(I)PIcS0W$"LOST"qS8132B(5)0W$"WON"E0X9137B(X)0137"ILLEGAL MOVE -- RE-ENTER "E1 I(55 i11jAAAA2$kB(3)1:5-lAA05m12PnMM13:KK24:B(4)1:5Xo13opAAAA2:B(5)1:5wq14rAAAA2:B(6)1:5s15tAA0:MM26:KK37:B(7)1:5u16vAAAA2:B(8)1:5w17xAAAA2:B(9)1:5y18z90U" QUITTER!! ";VI$W2X:936::YS0EZI19P[T(2)b\T.9B(I)0s]T.9B(I)1^SSB(I)_I`S090abc"YOU HAVE MADE ";M;" MOVES"dKK11:MM0eB(1)1:5f10gAAAA2hB(2)1:VE ";:X:XFX083 G133,HE1695I140?JMM1GK66OL:qMW$"WON"ĺ"Y O U W I N ! !"NW$"LOST"ĺ" Y O U L O S E ! ! ! !"OP"IT TOOK YOU ";M;" MOVES"Q"PLAY ANOTHER GAME? ";:A$RA$"Y"62S:TI1::::/;"HIT ANY KEY TO CONTINUE ":W$:W$5<L=B(9),S$(45),W$(8)X>M0:89?:936:::::" FRUSTRATION":::::@"DO YOU WANT INSTRUCTIONS ?";:A$:A$:A$"Y"İ19AB99C124DW$""76 E"ENTER YOUR MO"HIT ANY KEY TO CONTINUE ";:W$:W$:S5"REMEMBER THE WINNING PATTERN IS:"::j6" B B B"7" B R B"8" B B B":::9"ENTRY OF A '0' ENDS THE GAME"::::"AND, REMEMBER, YOU CAN ONLY TURN BLUE":"SQUARES"TER TILE":"(TILE #5) WILL CHANGE TILES EXCEPT":"THE CORNER TILES, FOR EXAMPLE:"::k-" R B B"." R B R"/" B B B"0::"WILL CHANGE TO:"::1" R R B"2" B R B"3" B R B"::'4E #2:"::$" R B R"2%" B B B"J&" R R B"::s'"WILL RESULT IN THE FOLLOWING:"::(" B R B")" B B B"*" R R B"::+"HIT ANY KEY TO CONTINUE ";:W$:W$:U,"3 - FINALLY TURNING THE CENWILL CHANGE TO:":::* " R B R"?!" R R R"{"" R B R":"HIT ANY KEY TO CONTINUE ";:W$:W$: #"2 - AN TILE AT THE CENTER OF AN EDGE,":"WHEN TURNED, WILL ALSO TURN THE TILES":"ALONG THAT EDGE. FOR EXAMPLE TURNING ":"TIL "THE RESULTS OF TURNING A TILE ARE:"::"1 - A CORNER TILE, WHEN TURNED, WILL":"ALSO TURN THE THREE TILES ADJACENT TO":"IT. FOR EXAMPLE, IF YOU TURN SQUARE #1" :" B R R" " B B R" " R B R"::"THE PATTERN HE GAME BOARD IS NUMBERED AS FOLLOWS:"::" 1 2 3":" 4 5 6":" 7 8 9" "HIT ANY KEY TO CONTINUE ";:W$:W$: "TO MOVE, KEY THE NUMBER OF THE TILE YOU":"WISH TO TURN BUT REMEMBER";::" YOU CAN ONLY":"TURN BLUE TILES!!"::ENING LOGIC GAME":"INVENTED BY PEOPLE AT THE DIGITAL":"GROUP":: "THE OBJECT OF THE GAME IS TO CHANGE THE":"PATTERN OF BLUE AND RED TILES SO THAT":"ALL TILES EXCEPT THE CENTER TILE ARE":"BLUE"::: "THE CENTER TILE MUST BE RED":::^ "T29,357:Z 13:18,2029:18,2032:18,2035:30,3117:30,3121:33,3417:33,3421: 13:30,3229:30,3232:30,3129:30,3533: ::" INSTRUCTIONS" "***************************************"C ::"FRUSTRATION IS A MADD6:18,197:17,188:17,219:S 13:29,323:4,533:31,326:7,833:29,329:w 13:16,194:4,819:16,227: 13:17,2116:16,1817:18,2019:20,2121:17,2022: 13:30,3316:17,2129:29,3219:30,3222:20,2133: 13:4,729:M9 BY JOE GARBER, WITH LOGIC FROM CREATIVE COMPUTINGpS$"124501230023560147002456836900457807890056890"x61 GRAPHICS ROUTINES FOLLOWIMMKKAA,AA11IIAAAA11  13:3,95: 13:17,203:4,521:19,20         DAYS THREE'S COMPANY- HART TO HARTO LITTLE HOUSE ON THE PRAIRIEf THE WHITE SHADOWuTHEMUPPETSLYWEDGAMEMIKEDOUGLASWKRPINCINCINNILOUANTNIGHTSHOW ENDIIRLEYt QUINCY+~ CAROL BURNETT SHOWG MARY TYLER MOORE SHOWY BOB NEWHARTk PM MAGAZINE} FAMILY FEUD I DREAM OF JEANNIE HOLLYWOOD SQUARES CHARLIE'S ANGELS DIFF'RENT STROKES EIGHT IS ENOUGH HAPPY B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,ZIa B.J. AND THE BEARYb LOVE BOATnc FANTASY ISLANDd DUKES OF HAZZARDe ROCKFORD FILESf DALLASg TONIGHT SHOWh AS THE WORLD TURNSi DAYS OF OUT LIVESj LAVERNE AND SHS '";::" ";::"' ARE WRONG.")l#9586n#20:A1$Hx#A1$"?"9200b#A1$;" = ";:A2$:A2$u#XX$AN$:AN$""#I1L#(T1$,I,1)A1$AN$AN$A2$:9130#AN$AN$(XX$,I,1)##9050# *** HELP ***#X$"H":9050&1` A,$AN$(T$,I,1)R#Z#105\#X$"H"ĺAN$:9059e]#I1L:AX$(AN$,I,1):AX$"@"AX$"["9055u^#AX$;:9057_#AX$(T$,I,1)9054`#:AX$;:a#b#c#AN$T$ıd#15f#X$"H"ĺ"PRESS '?' FOR HELP.":9068h#"THE INVERSE LETTER$) I1L%P(((T$,I,1)))64FP1T1$T1$(T$,I,1):6042XT1$T1$C$(P)^jT2$T1$pX *** PRINT CODE ***b:4lT1$v(# *** GET ANSWERS ***<#I1LF#(T$,I,1)"@"(T$,I,1)"["AN$AN$"_":9042P#AN '?'."1 21:"PRESS ANY KEY TO PLAY ";:A$:A$7 O  *** PICK DATA ***d NN1:NTİ5900x X(T((2)))1 N(X)05010 N(X)X T$T$(X)  N0:I1T:N(I)0:  p *** CONVERT TO CODE *** rT1$"":AN$""zL(T CORP' MIGHT BE WRITTEN AS 'ORRCI PBAR', O FOR A, R FOR P, C FOR L,I FOR E, P FOR C, B FOR O, A FOR R." :"I WILL PRINT THE CRYPTOGRAM THEN LET YOU TYPE THE CODE AND THEN YOUR GUESS FOR THE LETTER." :"IF YOU NEED HELP JUST TYPE BY JOHNNY GRAHAM": 22:"INSTRUCTIONS? ";:A$:A$K A$"Y"4000Q l  *** INSTRUCTIONS ***r  5:" CRYPTOGRAMS ARE SIMPLE SUBSTITUTION CODES - ANOTHER LETTER OF THE ALPHABET IS SUBSTITUTED FOR THE RIGHT LETTER."n :"'APPLE  *** INIT ***4 A$(26),C$(26),T$(100),N(100)I I126:A$(I):] I1100:T$(I)q T$(I)"END"Ă{ TI1 5900  *** TITLE *** :8 " T V S H O W": " C R Y P T O G R A M S" :" "W"ī11000: TRY AGAIN?6 :"PLAY AGAIN? ";:A$:A$F A$"Y"140^ :10:18:"BYE!":u  *** GEN CODE *** :10::18:"WAIT": X$"" I126:C$(I)"*": I126 X(26((1)))1 C$(X)"*"1040 $C$(X)A$(I): . n2000: INIT$x3000: TITLE>1000: GEN CODE T5000: PICK DATAu6000: CONVERT DATA TO CODE7000: PRINT CODE9000: GET ANSWER958::"YOUR RIGHT!"X$"H"ĺ:"TOO BAD YOU NEEDED HELP.":220 AN$     KET PRICE--BUT THE"T "BUYER WILL ENJOY 100 PERCENT OF ALL":"PROFITS OR LOSSES."^ 1000MCES"+5:"INF - PRINT THIS INFO SCREEN"3:m"ENTER 'GEN' TO OBTAIN OPENING PRICE":"QUOTATIONS.":"ENTER 'INF' AGAIN AT ANY TIME TO DIS-":"PLAY THE POSSIBLE COMMANDS.":"CONTRACTS ARE BOUGHT (OR SOLD SHORT) AT":"10 PERCENT OF MAR "l23:" "%/@936LT:"COMMODITY COMMANDS:"Rhr|5:"PFO - PRINT PORTFOLIO"5:"QUO - PRINT CURRENT QUOTATIONS"5:"BUY - TO BUY A CONTRACT"5:"SEL - TO SELL A CONTRACT"5:"GEN - GENERATE NEW PRI5PO(I,J,MO)063000PO(I,J,MO)06200hCA(I)CA(I)PO(I,J,MO)10(CP(J,MO)PO(I,J,MO))100$CA(I)(CA(I)100)100.63008CA(I)CA(I)PO(I,J,MO)10(CP(J,MO)PO(I,J,MO))100LCA(I)(CA(I)100)100J,I3000 X22:" .936:12:6:"GENERATING NEXT QUOTATION":MOMO1NI15:JMO12p(1).95CP(I,J)CP(I,J)1.7(1).05CP(I,J)CP(I,J).5CP(I,J)(CP(I,J)((1)51)100)100CP(I,J)(CP(I,J)(1(1)5.5)100)100J,II14:J1CP(K,L):5280HCA(AC)CA(AC)PO(AC,K,L)10(CP(K,L)PO(AC,K,L))100eCA(AC)(CA(AC)100)100vPO(AC,K,L)022:"TRANSACTION COMPLETED. CASH= ";CA(AC);" ":23:" ":1000p NEW MONTHPO(AC,K,L)0Č65338:21:"ERROR: ONE CONTRACT ALLOWED PER FUTURE ":1000asPO(AC,K,L)05270~xCA(AC)CA(AC)CP(K,L)10CA(AC)(CA(AC)100)10065338:65338:22:"*** SHORT SALE *** ":PAUSE11000:PAUSEPO(AC,K,L)ID COMMODITY-CODE. RE-ENTER: ":5040<L0:IMO112\(MN$(MM$,(I1)31,3)LIc<IPL0Č65338:22:"INVALID MONTH. RE-ENTER: ":5040dAC(AC):AC1AC4Č65338:22:"INVALID ACCOUNT NUMBER. RE-ENTER: ":5040Jn:" ":10001 SELLb22:"ENTER ACCOUNT, MONTH, COMMODITY-CODE:"23:" "23:">:";AC,MN$,CN$K0:I15CN$(CM$,(I1)81,4)KII)K0Č65338:22:"INVAL65338:65338:22:"*** SHORT SALE CLOSED OUT *** "WPAUSE11000:PAUSECA(AC)CA(AC)PO(AC,K,L)10(PO(AC,K,L)CP(K,L))100CA(AC)(CA(AC)100)100PO(AC,K,L)0&22:"TRANSACTION COMPLETED. CASH= ";CA(AC);" ":23AC4Č65338:22:"INVALID ACCOUNT NUMBER. RE-ENTER: ":4040PO(AC,K,L)0Č65338:22:"ERROR: ONE CONTRACT ALLOWED PER FUTURE ":1000PO(AC,K,L)04270CA(AC)CA(AC)CP(K,L)10CA(AC)(CA(AC)100)100PO(AC,K,L)CP(K,L):4280>5"CN$(CM$,(I1)81,4)KI)InK0Č65338:22:"INVALID COMMODITY-CODE. RE-ENTER: ":4040,L0:IMO112@MN$(MM$,(I1)31,3)LITIhL0Č65338:22:"INVALID MONTH. RE-ENTER: ":4040A|AC(AC):AC1 "---------------------------------------"b MO12Ģ20:"ENTER '999' TO BEGIN ANOTHER SESSION"l 1000v BUY22:"ENTER ACCOUNT, MONTH, COMMODITY-CODE:"23:" "23:">:";AC,MN$,CN$K0:I1----------------"@ "MO. HOGS PLAT EGGS SOYB LUMB "o "---------------------------------------"u& 0 IMO12D (MM$,(I1)31,3);:5:CP(1,I);X 12:CP(2,I);l 19:CP(3,I); 26:CP(4,I); 33:CP(5,I) I +2300 (MM$,(J1)31,3);; " ";(CM$,(I1)81,8);[ " ";PO(AC,I,J);"/";CP(I,J)d J,I  21:5:"(** = CLOSED OUT THIS MONTH)" $ 1000 QUOTATIONS 936 (MM$,(MO1)31,3);" QUOTATIONS:"  "-----------------------;" PORTFOLIO ". f8:" "4 kO p:12:"CASH: ";CA(AC)U h I15:J112 PO(AC,I,J)02300 JMO2240 " ** ";(MM$,(J1)31,3); " ";(CM$,(I1)81,8); " ";PO(AC,I,J);"/";CP(I,J) 2300 JMO:65338:1000  PORTFOLIOP 22:"ENTER ACCOUNT NUMBER (1-4): "f 23:" "w 23:">:";AC AC(AC) AC1AC42090 %2100 *65338:2020 4936 H:8: R" " W8 \" ACCOUNT#";AC)100 xCP(3,I)10# CP(4,I)452 CP(5,I)309 IJ 23:">:";A$Y MO01090l A$"PFO"2000} A$"999"50 A$"QUO"3000 $A$"BUY"4000 8A$"SEL"5000 =MO121095 BA$"GEN"6000 GA$"INF"8000 L22:"COMMAND?"----------------------"; ?:8:"YOUR BROKER: JIM HILGER" A15:"ENTER 'INF' FOR A COMMAND LIST.":17:"ENTER 'GEN' TO OBTAIN OPENING PRICES." FMO0 PI14:CA(I)1000 UJ15:K112:PO(I,J,K)0:K:J:I ZI112 dCP(1,I)50 nCP(2,I_0 MM$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"kCM$"HOGS PLATINUMEGGS SOYBEANSLUMBER COTTON "yCP(5,12)(PO(4,5,12),CA(4)293674:5:"----------------------------"<5:5:"** APPLE COMMODITY MARKET **" >6:5:"------     G?--?$668DEhqj<<<<<6666&%%%%%%%%56666<<<??$,-??????/------%'''''?55-....&$$$$$$466666>>>>>&%%%%%5%%%%%%577777--?75.655<$?<WQIJ$Q ...6@5-.5--%--%%- OUR NERVE IS UP. ";Z$zN}776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240 }788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96: M HILGER"HN::rRN"USE PADDLE DIALS TO DIRECT LASER":"CANNONS. USE PADDLE BUTTONS TO":"FIRE AT TARGETS."\N:"THE TARGETS SHOOT BACK... IF THEY HIT":"YOU TEN TIMES, YOU WILL GO UP"fN"IN AN ORANGE BALL OF FLAME!"pN:"RETURN, WHENEVER Y9Ē5:0,0:62454:W1500:W:0:0,0:62454:::8000;vc@RAYS20ES5(TIME)5PHP(ES10)J24:2:"RATING: ";RA;:21:"TRY AGAIN? (Y/N) ";A$:TA$"Y"500hA$"N"8000|:: N:936:5:12:"-- CENTURY 51 --" 4N:13:"BY JILX(159Y))40(LYXLXY)404400)@X YOU'VE BEEN HIT!P]16298,0:o`STAL120:STAL:16297,0b22:15:"DIRECT HIT!":198:198:198:198glESES1qES9Ģ21:14::"SHIELDS GONE!"::BUZ130:BZ(16336):BUZ5sES59Y))40(RY(279X)RXY)404400*<p RIGHT LASERLzPHP06080ZPHPPHP11:LX,LY12LX,12LY:LX,159LYLX12,15912LY4:LX,LY12LX,12LY:LX,159LYLX12,15912LYP50:D20:25:P180:D10:25:P50:D10:25#(LYXRIGHT LASER!PHP05080/PHPPHP1t2:279RX,RY27912RX,12RY:279RX,159RY27912RX,15912RY4:279RX,RY27912RX,12RY:279RX,159RY27912RX,15912RYP50:D20:25:P180:D10:25:P50:D10:25$(RY(279X)RX(1!$(X140)90(Y80)50İ7000'B?0 EXPLODING FIGHTERZ:0:1(G15):0:2X,YeDR16lN3X0:1(R3)2(R5)4l1X,YvD20:P235:25{01X,YRYSYS122:6:YS:22:32:ES3000:3200:1200ESTORE A FEW STARS 3N M111PHP::U((1)280):V((1)160):U,V:MT g FIGHTER FIREy D30:P17:25 R112 5 R21:1(R5)R2(R8)8(R11) 1X,Y 0 1X,YR03:1(G15):2X,Y30009279RX,159RY @(G15)1+ J0:2X,YF T(1).5XX(X266)3` ^(1).5XX(X14)3{ h(1).5YY(Y145)2 r(1).5YY(Y15)2 (1).161200 1220 REDO SCREEN BORDER 3 0,0279,0 0,159279,159 0  Rz #XǴ    ٠ؠ٠ԠӠ Π ٠ɠ Πɠ ̠ŠӠ Ҡ4ΠҠϠ ήؠĠҠ!Š"٠̠Ϡ ̠Ϯà!ԠȠ=ԠȮؠŠŠӠ  ŠҠŠҠŠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp *** DATE FIGURES *** HMARKETMARKET((1)3)1:MARKET2MARKET2RMARKET3MARKET3 \(1).92MARKET1MARKET):"PRESS ANY KEY TO BEGIN...":2620=DISK$;"NOMON I,O,C":::(7):"DO YOU WANT TO START A NEW":"GAME OR CONTINUE AN OLD ONE? ""(C OR N) >>> ":2620KEY1952560: *** MAIN PROGRAM *** 83013001750S ANY KEY TO CONTINUE...":26203b(6):(1):958l:"(4) DUE TO THE WAY APPLESOFT STORES":" VARIABLES, ANY MODIFICATION OF THE"v" PROGRAM MAY RESULT IN IT NOT":" WORKING CORRECTLY WITH PREVIOUSLY":" SAVED VARIABLE DATA."$(18(3TIME):A:" THE COURTS RULE IN THE BROKER'S FAVOR."< "DUE TO BEING ASSESSED COURT":"COSTS, ATTORNEY'S FEES, DAMAGES,":"COMPENSATORY DAMAGES, AMOUNTS PRESENTLY"< "DUE THE BROKER, ETC., ETC., AD NAUSEUM,":"YOU ARE BANKRUPT!!!"< = *** P* E = 197 #; *** RETURN = 141;; *** GAME END *** Y; *** BROKER ACTION! *** ; (2):958:(5):" YOUR BROKER HAS TAKEN LEGAL ACTION":"AGAINST YOUR PERSONAL ASSETS, DUE TO"6< "YOUR DEFAULTING ON YOUR CONTRACT":"WITH HIM.":::A1OAD MARKET CRASH.X,V0"6: 105,A:106,B:107,C:108,DV:( 109,E:110,F:111,G:112,Hi:2 ::1630:730:< *** KEYBOARD INPUT *** :F 16368,0:P KEY(16384):KEY1272660:Z 2640:d 16368,0::n *** B = 194 :x *** S = 211 ; **B256);",L";((EF256)(AB256));",V0"y9 ::(7):"DO YOU WANT TO CONTINUE YOUR":"GAME OR END NOW? (C OR E) ":26209 KEY19724409 :1630:7309 *** DATA READ *** 9 (15):"INSERT PROPER DISK AND PRESS 'RETURN'...":2620: DISK$;"BL* <8 15:"INSERT PROPER DISK AND PRESS 'RETURN'...":2620G8 A(0)o8 A(105):B(106):C(107):D(108)8 E(109):F(110):G(111):H(112)8 *** ABOVE LINES SET MEM POINTERS INTO VARIABLES ***'9 DISK$;"BSAVE MARKET.CRASH.DATA.BASE,A";(A"J7V :(5):"DO YOU WANT TO LOAD FROM THE":"DISK, SAVE TO THE DISK, OR"t7` "END? ((S), (L), OR (E)) >>> ":26207j KEY21124607t KEY20425607~ KEY19723907 ::(1)::"";15);"GAME END";40):::7 29208 *** DATA WRITE **6 FEESFEESBROKER:2330,6 FEESFEES5086 1690:|6$ "??? YOU DON'T HAVE THAT MANY!!!":B1(1.5TIME):B:22306. "SAY WHAT ??? TRY THAT AGAIN!!!":B1(1.5TIME):B:223068 *** VARIABLE SAVE *** 6B ::7L DISK$;"NOMON I,O,C"HOW MANY SHARES DO YOU":"WANT TO SELL? ";SELL:SELL02330Y5SELLTABLE(A,3)2340j5SELL023505TABLE(A,3)TABLE(A,3)SELL:TABLE(A,4)TABLE(A,3)TABLE(A,1)5CASHCASHTABLE(A,1)SELL5BROKER((TABLE(A,1)SELL).06)6BROKER502320S50!4zCASHCASHSHARES:1690:]4:"NOT ENOUGH MONEY!!!";:B1(1.5TIME):B:20904"SAY WHAT ??? TRY THAT AGAIN!!!":B1(1.5TIME):B:209041690:4 *** SELL STOCK *** 4AFLAG:A0ı4:1690::(20)::958:(21)?5 SHARES DO YOU":"WANT TO BUY? ";BUY:BUY02200@3>BUY02190n3HSHARESTABLE(A,1)BUY:CASHSHARES021803RTABLE(A,4)TABLE(A,4)SHARES:TABLE(A,3)TABLE(A,3)BUY:16903\BROKER(SHARES.06):BROKER5021603fFEESFEESBROKER:21704pFEESFEE"THERE IS NO STOCK BY THAT NAME!!!":B1(1.5TIME):B:2:"";NAME$(FLAG);" IS BANKRUPT!!!":B1(2TIME):B:FLAG0:2TABLE(FLAG,1)020402 2 *** BUY STOCK *** 2 AFLAG:FLAG0ı2*:1690::(20)::958:(21)034"HOW MANY *********************** *** STOCK INPUT *** h1(20)::958:(21):"INPUT STOCK NAME: ";IN$1FLAG0:CHECK$(IN$,3):A1ST0CKS1CHECK$(NAME$(A),3)FLAGA1A:FLAG020501(21)::958:(22):IN$;" ???":B1TIME:B82=0:1590:(20):958:(21):"(B) - BUY";20);"(S) - SELL"0"(E) - STOP";20);"(RETURN) - PASS":(24):"WHICH FUNCTION DO YOU WANT? ";:26200KEY194KEY211KEY197KEY141ı0(24):(1):868:12);"WHAT ???";:B1TIME:B:193051*/0CHANGE((AVERAGE100)(WAS100))100>/:CHANGE01870W/D"(NO CHANGE)":1900j/NCHANGE01890/X"(DOWN ";(CHANGE);")":1900/b"(UP ";(CHANGE);")"/l/v *** DATA INPUT *** 0*********************** *** OPTION INPUT *** G";27);"OWNED";33);"WORTH"3.A140:"=";:A:].A1ST0CKS:(A4):868:(A4):1690.AVERAGEAVERAGETABLE(A,1):A.(17):A140:"=";:A:.AVERAGE((AVERAGEST0CKS)100)100/&(1):(18):868:" AVERAGE: $";AVERAGE;"/SHARE";28);4):NAME$(A);18);TABLE(A,1);23);CHANGE$;27);TABLE(A,3);33);TABLE(A,4);40);::1740-(A4):"*** ";NAME$(A);" IS BANKRUPT...";40)-(1):- *** PRINTOUT ALL *** -WASAVERAGE:AVERAGE0:(1).:(3):"STOCK NAME";17);"CLOSE";23);"CH2 CT$ "" "< ,4:CT$"NAME THE STATES":250^ 6CT$"BY KEVIN ARMSTRONG":250x @CT$"APRIL 1979":250~ J TCT$"SEE HOW MANY STATES YOU CAN NAME":250 ^21:" PRESS 'ESC' TO END" h"< PRESS THE SPACE BAR TO CONTINUE...>" r ENTER FULL NAME OF STATES"3 :"HERE WE GO!!!!"D Z15000:ZM :5 "PLEASE ENTER NAME OF STATE "::"AND HIT RETURN." L150 L;".";:S$(L) T$(L)S$(L) 500 800 L 500 PRINT CENTER ROUTINE 20(CT$)] CT$(40)#16368,0::300=2S$(50),T$(50),C$(50)F<900Ud::5:10ln"NAME THE STATES"x::"THIS IS A GAME TO SEE HOW MANY STATES":"YOU CAN NAME FROM MEMORY.":"FOR STATES ALREADY GUESSED ENTER 'LIST'" :"PLEASE   0H LTN. v      1 H g |  D  ' ; N M.  ! 6 L ^ n      TA *l`tCCvDAsAS BBEBUHWAIGBRLCA'CHRDAFEFLIN2 KE LA`MAM0PRSESHTQUST@TIzWEYEw`AV8 EzF G{HDC A>!CI050$C "A ";PERCENT;"% INCREASE ";;C "IN CASH, WITH A"pC PERCENT((((ASSETSCASH)10000)10000)1000)10C PERCENT03090C 5);(PERCENT);"% DECREASE ";:3100C 5);PERCENT;"% INCREASE ";C "IN NET WORTH."C& C& C-------":7);"NET RECOGNIZED":7);"INCOME:";27);"$";CASH10000{B :INCOMECASH10000:PERCENT((INCOME10000)1000)10B 5);"YEAR'S RESULTS:"::5);"THE YEAR'S TRANSACTIONS NETTED":5);B PERCENT03040C "A ";(PERCENT);"% DECREASE ";:327);"-----------"IA (7)::"TOTAL WORTH:";:(27):"$";CASHASSETS::A 7);"SUBTRACT":7);"START. CAPITAL:";27);"$10000":27);"-----------"A 7);"GROSS INCOME:";27);"$";(CASHASSETS)10000:7);"LESS ASSETS:";27);"$";ASSETSAB 27);"----@T *** YEAR END *** P@^ 1670:::(1)::"";15);"YEAR END";40):::}@h ASSETS0:A1ST0CKS:TABLE(A,1)02940@r ASSETSASSETS(TABLE(A,1)TABLE(A,3))@| AA 7);"TOTAL CASH:";27);"$";CASH:7);"ASSETS PAPER VALUE:";27);"$";ASSETS:DLESS TO SAY, YOU ARE BANKRUPT!!!"(? E?" *** MARKET CRASH! *** ?, (2):958:(3):"THE STOCK MARKET HAS CRASHED!!!":"ALL THE COMPANIES ARE NOW BANKRUPT!!!":?6 CASH10002890?@ " YOU LOST YOUR SHORTS!!!"?J A1(3TIME):A:::2440 YOU FOR YOUR BROKER,":"YOUR KID HAS STOLEN YOUR CAR, YOUR":"OTHER KID SET FIRE TO YOUR HOUSE, YOUR"> "PEERS HAVE SIGNED A PETITION TO HAVE":"YOU COMMITTED TO AN ASYLUM, AND YOUR""? "BANK HAS FORECLOSED ON EVERYTHING YOU":"HAVE LEFT!!!"::" NEELAYER BROKE! *** y= (2):958:(5):" DUE TO EXTREME INCOMPETENCY AND":"YOUR NATURALLY LOW I.Q., NOT TO MENTION"= "AN INCREDIBLE AMOUNT OF BUNGLING,":"YOU HAVE MANAGED TO BLOW $10,000!!!":f> " BECAUSE OF THIS ACTION, YOUR WIFE":"HAS LEFT,-1,1C 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7NFLAG0qJ1L:K1W:A$(J,K)"":K:J|I1MLN(W$(I))10ANS1950NT0SDDD(A(28)) SXA(W):X1SX(LN1)DXY(SD,1):X11X1W790$*SYA(L):XT$ I("THAT'S IS...";M;" WORDS"K"NOW LET ME THINK ABOUT THIS"XI1M1eJI1M(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$:I18:DXY(I,1),DXY(I,2):I128:DD(I): 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,00T$(T$,J1)(T$,(T$)J):JJ1;:JJ1:J(T$)520KD"-";T$;"-"^X(T$)MD610]"THAT'S TOO LONG, I'M AFRAID"_"TRY ANOTHER ONE":480bIZ1I1:W$(IZ)T$Ă:630l"YOU ENTERED THAT ONE ALREADY. TRY ANOTHER":480vW$(I)$"."MI1:6606(T$)0ĺ"INPUT ERROR-REDO":480>J1gTE$(T$,J,1):TE$"A"TE$"Z"570 TE$"A"TE$"Z"530(T$,J,1)(((T$,J,1))):570TE$T$T$"":500J(T$)T$(T$,J1):580&J1T$(T$,(T$)1):JJ1:570#."' "( ";TW;" CHARACTERS MAXIMUM )"0 XY$` "OK...ENTER A WORD AT EACH QUESTION MARK." "TO REDO A WORD, TYPE A HYPHEN (-)." "WHEN YOU RUN OUT OF WORDS,TYPE A PERIOD (.)." I1M T$:T$"-"II1:"REDO ";W$(I);"...":480TDL cL1350L h"WHAT IS THE MAXINUM NUMBER OF WORDS IN THE PUZZLE ";MZ rM2380 w"SORRY--THERE MUST BE AT LEAST 2 WORDS":360 | A$(L,W),W$(M) W(M,3),DXY(8,2),DD(28) "NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE1)Z1): 6"HOW MANY COLUMNS DOES YOUR PRINTER HAVE ";TWe @"DO YOU WANT A SOLUTION PRINTOUT ";X$ J"WHAT IS THE WIDTH OF THE PUZZZLE ";W:MDW TW2TW345 W"THAT WILL NOT FIT IN ";TW;" COLUMNS.":330 YW1330 ^"THE LENGTH ";L:LWM ANS0ı. W(I,1)SX:W(I,2)SY:W(I,3)DIR@ D1(W$(I))[ A$(SY,SX)(W$(I),D,1) SXSXDXY(DIR,1):SYSYDXY(DIR,2) D XW:YL:Z(W$(I))  936:"PUZZLE MAKER FOR HIDDEN WORDS" "D$"": CONTROL D 'PT0 ,A(Z)((J1)(JL)200 D1(W$(I))[ A$(J,K)""LTHLTH1:KKDXY(PT,1):JJDXY(PT,2):160 A$(J,K)(W$(I),D,1)LTHLTH1:KKDXY(PT,1):JJDXY(PT,2) LTH(W$(I))ANS1:DIRPT:SD8:D(W$(I)):180 (K1)(KW)(J1)(JL)D(W$(I)) D  280 ANS0X1W*Y1L6(Z1LNT2(W$(I),Z,1)A$(Y,X)İ80[<ZbAYiDXoF{PSD18UPTPT1:PT8PT1ZSXX:SYY:LTH0dZ1SXSX((Z1)DXY(PT,1)):SYSY((Z1)DXY(PT,2))nKSX:JSY x(K1)(KW)(      OF MEMBERS BY AUTHOR..V7` LAST MOD. JULY 1979>j Vt 'NAME THE STATES'\~CSOUTH CAROLINA,SOUTH DAKOTA,TENNESSEE,TEXAS,UTAH,VERMONT,VIRGINIAj$ WASHINGTON,WEST VIRGINIA,WISCONSIN. WYOMING,NEVADA,NEW MEXICO3 DONATED BY... KEVIN ARMSTRONG8L GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE AS,KENTUCKY,LOUISIANA`  MAINE,MARYLAND,MASSACHUSETTS,MICHIGAN,MINNESOTA,MISSISSIPPI,MISSOURI  ALASKA,HAWAII,MONTANNA,NEBRASKA,NEW HAMPSHIRE,NEW JERSEY,NEW YORK  NORTH CAROLINA,NORTH DAKOTA,OHIO,OKLAHOMA,OREGON,PENNSYLVANIA,RHODE ISLANDA B LL1  C1502 *S$(L)C$(C)ı9 4C[ >"THAT IS NOT A STATE.":LL1a Hm D150x C$(D) D  ALABAMA,ARIZONA,ARKANSAS,CALIFORNIA,COLORADO,CONNECTICUT,DELEWARE  FLORIDA,GEORGIA,IDAHO,ILLINOIS,INDIANA,IOWA,KANS(16384)155400* |(16384)160350< 16368,0::n 16368,0::10:10:"* * * THE END * * *":t  B0L1 S$(L)T$(B)ĺ"YOU HAVE GUESSED THAT ONE":LL1:600 B S$(L)"LIST"700 X B1L1 B;" .";S$(B) в. AL,AK,AZ,AR,CA,CO,CT,DE,FL,GA,HIU ID,IL,IN,IA,KS,KY,LA,ME,MD,MA,MI| MN,MS,MO,MT,NB,NV,NH,NJ,NM,NY,NC( ND,OH,OK,OR,PA,RI,SC,SD,TN,TX,UT2 VT,VA,WA,WV,WI,WY< ALABAMA,ALASKA,ARIZONA,ARKANSAS,CALIFORNIA F COLORADO,CONN     Y AGAIN ?";A$ :A$"YES"70/ ?A$"NO"600P D" PLEASE ANSWER YES OR NO."Y N562_ X~ b"O.K. HOPE YOU HAD FUN!!" ( A((TF)2)0 "MM1' TJ15784 ^IJJ7B cA(I)0ĞP dA(I)1ĝ[ hA(I);b rIh |o Ju ~ 100 S0 I164 SSA(I) I "YOU MADE";M;"JUMPS AND HAD";S;"PIECES &"REMAINING ON THE BOARD." 0 2"TR1((T1)8) T2T8T1( F172306 T17230D F28230R T28230g (F1T1)2230| (F2T2)2230 A((TF)2)0230 A(F)0230 A(T)1230 250 " ILLEGAL MOVE...TRY AGAIN..." 100 A(T)1 A(F)0M= N" AND HERE IS THE OPENING POSITION OF THE CHECKERS."C OO PJ164Z RA(J)1a TJp VJ19438} XIJJ3 ZA(I)0 \I ^J `M0 b340 d"JUMP FROM";F iF0500 n"TO ";T p xF1((F1)8) F2F8F1 T" AN EMPTY SQUARE. WHEN YOU HAVE NO POSSIBLE JUMPS REMAINING INPUT A '0' IN RESPONSE TO QUESTION 'JUMP FROM?'"u > A"HERE IS THE NUMERICAL BOARD" B FJ1578 JJ;4);J1;8);J2;12);J3;16);J4;20);J5; K24);J6;28);J7 LJ 30);" ONE CHECK""::-A(64)N " SOLITAIRE CHECKER PUZZLE"T" 48 CHECKERS ARE PLACED ON THE TWO OUTSIDE SQAURES OF A STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS TO REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS"o 1978. MODIFIED BY CLAUDE8 HOLLIDAY FOR APPLE R II WITH OVERLAPPINGf LETTERS. THIS PROGRAM IS FREE TO ALL WHO WISH TO HAVE IT.D AS LONG AS ALL CREDITS ARE RETAINED. CAC PAC 2W(I,2):KW(I,1) P1LN4A$(J,K)(W$(I),P,1)_JJDXY(W(I,3),2):KKDXY(W(I,3),1):Pf(I2XY$"HERE IS THE ANSWER KEY: "<1070F:Pd "PUZZLE GENERATOR"nx PROGRAM FOUND IN CREATIVE COMPUTING NOV-DEC : ~:="FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE"C_J1M:(W$(J))01210y(0)(W$(J))TW2ĺW$(J)::::::0(X$,1)"Y"1250I1L:J1W:A$(I,J)".":J:II1MLN(W$(I)):JDO YOU WANT ";NE"FOR EACH COPY, HIT RETURN TO BEGIN PRINTING..."\$C1N:1070:1230q.A$:D$;"PR#1":8T(TW2W)2:BL(TW(XY$))2);XY$V:`J1L:T)jK1W:A$(J,K)"."ĺ". ";:1140o((A$(J,K)));" ";t:3)SD II1L"J1WGA$(I,J)""A$(I,J)(A(26)64)O:eI1M1:JI1M|W$(I)W$(J)1030HZ$W$(I):W$(I)W$(J):W$(J)HZ$K13:HZW(I,K):W(I,K)W(J,K):W(J,K)HZ:KJ:I"HOW MANY COPIES OF THIS PUZZLE ";A$B(A$,1)"Y"745+DW$(I)"":9509RJSY:KSXE\P1LNof(A$(J,K))A$(J,K)(W$(I),P,1)790pJJDXY(SD,2):KKDXY(SD,1):PJSY:KSXP1LN:A$(J,K)(W$(I),P,1)JJDXY(SD,2):KKDXY(SD,1):W(I,1)SX:W(I,2)SY:W(I,1SY(LN1)DXY(SD,2):X11X1L790?4NTNT1:NTWL2850O6FLAGFLAG19FLAG4ĺ"TROUBLE FITTING *** ";W$(I);" ***":"ON BOARD...PLEASE WAIT I'LL TRY AGAIN.":745>"COULDN'T FIT ";W$(I);" IN THE PUZZLE."@"DO YOU WANT ME TO START OVER 22651070'LOC23LOC2:30007LOC5:3000PVERB8VERB112320Z 2350 NP8ĺ"YOU CAN'T CARRY ANY MORE!":1080 NOUN34(LOC19LOC10LOC5LOC18LOC7LOC6LOC11)2345 STS(NOUN)LOC1070 NOUN28M(50)01070) NLOC122900% M(50)529009 PLOC6S(12)0N PLOC11W(12)0X 2900 (NOUN9NOUN10)ROPE0LOC231070 NOUN92250 LOC5LOC131070 LOC5LOC4 LOC13LOC50 3000 NOUN102300LOC4LOC23OC):2190 HNLOC0:21900 RNLOCE(LOC):2190J \NLOC15:LOC8NLOC8T a2190j fNLOCS(LOC):2190 pNLOC22:LOC8NLOC8 u2190 zNLOCW(LOC):2190 NLOC12:LOC8NLOC8 RAFT1NLOC(NLOC) RAFT0:PLOCLOC NLOC0LOCNLOC1(IN$)(VERB$(J))1P (IN$,L,(VERB$(J)))VERB$(J)W1$VERB$(J):VERBJ:W L^ Jd o  MOVEz NLOC0 NOUN82200 LK0 NOUN202100 LOC11LOC81070 4NOUN2110,2120,2130,2140,2150,2160,2170,2180 >NLOCN(LQ020:VTYP(NTYP2Q)NTYP2000* )QD ."ICH VERSTEHE NICHT"N 83000X 2000g @NOUN0ıs JJ1NN TL1(IN$)(NOUN$(J))1 ^(IN$,L,(NOUN$(J)))NOUN$(J)W2$NOUN$(J):NOUNJ: hL rJ | VERB0ı J1NV L 2I$ <I$"N"900# F33000. 320008 4000Q IN$:IN$" "IN$" "Y I1u (IN$,5)" LOOK"1005 LIGHT0LOC2LOC191005 :LDES$(LOC):LK1:4000 NOUN0:VERB0 1600 1700 NTYPNTYP(NOUN):VTYPVTYP(VERB)# $W2 SPELUNKER I:'12:14:"SPELUNKER I"J:19:"BY"j:11:"THOMAS R. MIMLITCH"20:12:"APPLESOFT VERSION"19:"BY"10:"WILLIAM TEMPLE DAVIS" 30000: INITIALIZE12 ("DO YOU NEED INSTRUCTIONS";                YOU FOR TRYING THE GAME"q7u"HAVE A NICE DAY!"=vkz PROGRAM DEVELOPED BY JAMES V. DEVILBISS 915 PINE AVE. FREDERICK MARYALND 21701 PHONE 301-662-57840-662-57841;N'"NUMBER NOT CORRECT = ";W-Q"THE STATES YOU MISSED WERE :"\M1WbmW$(M)tMzP(NT100)"% CORRECT = ";P;"%""DO YOU WANT TO TRY AGAIN ";N$;" ? Y/N"V$:V$"Y"ī4063p"THANK::8"HOW MANY STATES DO YOU WANT TO TRY ";N$;" ?">i"TYPE A NUMBER AND THE RETURN KEY ";To"TYPE ANY KEY AND THE RETURN KEY TO BEGIN"X$290:N$;" YOUR SCORE FOR THIS TIME IS :""NUMBER CORRECT = "/ "THE NAMES OF THE STATES WHEN GIVEN THE":W "ABREVIATIONS. IT WILL GIVE THE": "ABREVIATION AND A ? YOU TYPE THE": "CORRECT SPELLING OF THAT STATE": "AND PRESS THE RETURN KEY": "TYPE YOUR NAME AND THE RETURN KEY ";N$ CORRECT" NN1, PAUSE11000:PAUSE2 D "SORRY, BUT"` "THAT IS NOT CORRECT." "THE CORRECT SPELLING IS" 12:15 S$(R) PAUSE12500:PAUSE WW1 W$(W)S$(R) "THIS PROGRAM WILL SEE IF YOU CAN SPELL":I150 A$(I) I$ I150/ S$(I)6 I@ 4000F "N $N0V %W0a 'L1Tt ,R((1)501)z 3 6A$(R): @G$ J TG$S$(R)İ2000 ^G$S$(R)İ3000  L 5000 "CORRECT ! ! ! CORRECT ! ! ! "NEW YORK","NORTH CAROLINA","NORTH DAKOTA"T OHIO,OKLAHOMA,OREGON,PENNSYLVANIA RHODE ISLAND,SOUTH CAROLINA,SOUTH DAKOTA,TENNESSEE TEXAS,UTAH,VERMONT,VIRGINIA,WASHINGTON WEST VIRGINIA,"WISCONSIN",WYOMING A$(50) S$(50) ECTICUT,DELAWARE,FLORIDAD P GEORGIA,HAWAII,IDAHO,ILLINOIS,INDIANAo Z IOWA,KANSAS,KENTUCKY,LOUISIANA,MAINE d MARYLAND,MASSACHUSETTS,MICHIGAN,MINNESOTA nMISSISSIPPI,MISSOURI,MONTANA,NEBRASKA x NEVADA,NEW HAMPSHIRE,NEW JERSEY,NEW MEXICO, DES$(50)%DuN(50),E(50),S(50),W(50)CXuLOC$(50),SPC$(5),M(610)P]uPSS(10)abuSPC$" "lluNUMW6|quWT(5NUMW)vuLOC1u INITIALIZE VARIABLESuNN38uI1NN:NOUN$(I):I u " N "," NE "," E "," SE "," S "," SW "," W "," NW ","12 $I-$13:2:I112:" ";:IN$13:2:"POSSESSIONS ";:NP0\$I1NN1p$STA(I)09480$NOUN$(I);" ";$NPNP1:NP4Ģ14:14%I&23:1:10000u INITIALIZE:uNOUN$(40),VERB$(30),NTYP(50),VTYP(50),STA(50)?uL:30:" W"#LOC892206$3:35:" E":35:"N "g$8:30:" W";:35:"S ":30:"S ";:35:" E"mJ$T$LIGHT0LOC2LOC199400U$LK09400Y$5:2:J0^$I1NN1c$STA(I)LOC9360r$NOUN$(I)|$JJ1:J5Ģ5$2$J4Ė0RAFT0)9170 #6:35:" E"E#W(LOC)0(W(LOC)0RAFT0)9180V#6:30:"W "v#(LOC5LOC13)ROPE19185#9190#2:33:"UP"#LOC239195#LOC4ROPE09200#10:33:"DOWN"#LOC11LOC89210#9290 #3:30:"N "#"GOOD-BYE"#3#I210:I:30:" ":IS#LIGHT0LOC2LOC199290n#5:33:"O":33:"+":#N(LOC)0(N(LOC)0RAFT0)9150#3:33:"N":33:" "#S(LOC)0(S(LOC)0RAFT0)9160#8:33:" ":33:"S"#E(LOC)0(E(LOC)K" 9100AMT01STA(25)1AMTAMT13LSTA(26)1AMTAMT22gSTA(27)1AMTAMT8STA(28)1AMTAMT523:1AMT09090"YOU HAVE FOUND $";AMT;",";((1)900100);" IN TREASURES"AMT13ĺ"NICE SPELUNKING!"  zSRP,R3}3900# OUTPUTVI39:I:1:" ";:Ix:3:2:LOC$(LOC);::" ";LOC15STA(35)1CURSECURSE1523:1LOC499090LOC505000LIGHT1LOC3LOC199100"IT IS VERY DAR<STA(M(M))M(M8)*ASTA(M(M1))M(M8)0F^P23:1:"THE ";NOUN$(M(M));" KILLED YOU!"iTKP,R1oU{dI1NNiNTYP(I)15STA(I)1STA(I)M(M8)nIu"ALL YOUR REWARDS STOLEN"vSAP,R2w3900x"HE TOOK BACK HIS VALUABLE"(SAP) SAP70SAP70M#SRP((M(M7)9(M(M4)2))M(M9)100CURSE)`$SRP80SRP80~%"ATTACK BY ";NOUN$(M(M))'R1((1)100):R2((1)100):R3((1)100)(KPR13920-SAPR23940/STA(M(M1))1ı2SRPR339607 NLOCS(MRM):3855$ NLOCW(MRM)2NLOC1ıUSTA(M(M))NLOCSTA(M(M))MRM:iM(M4)M(M4)1KP(M(M5)(STA(M(M1))1)409(M(M4)2))M(M9)100CURSEKP(KP)KP60KP60SAP(M(M6)9(M(M4)2))M(M9)100CURSESAPMRMLOC3860W120W(M(M2)M(M3))(6W)0(M(M2)M(M3))(6W)53835^WM(M2)(M(M2)M(M3))(6W)M(M2)(M(M2))M(M2)0ıG((1)4)1G3850,3851,3852,3853 NLOCN(MRM):3855 NLOCE(MRM):3855 M1MM10910( STA(M(M))0İ3800/ MR STA(35)0STA(34)2STA(35)2\ 4000u MONSTER SUBROUTINESTA(M(M))100MRMSTA(M(M)):3810MRMSTA(M(M))100(STA(M(M1))MRMSTA(M(M1))100MRM)M(M4)03900MRM0MRM052900 NOUN332520/ VERB12LIGHT19 2900L NOUN292530] RAFT1:2900p NOUN302540 ROPE1:2900 ( VERB6LOC23T NOUN11ROPE0^ STA(30)LOCROPE1h LOC123000r W(12)6:S(12)11 RE-ACTION M(M9)024607 NOUN$(M(M));" HAS BEEN ELIMINATED"G STA(M(M))0N MU D] WTx NOUN16VERB102500 STA(16)0:R((1)4)1 R2494,2495,2496,2497 N(LOC)0:2500 E(LOC)0:2500 S(LOC)0:2500 W(LOC)0 NTYP ~ D24( STA(WT(WTD))LOC2470< M1MM10910U WT(WTD)M(M)2460w HT((1)WT(WT1)(CURSE1)) M(M9)M(M9)HT M(M4)0M(M4)1 "ASSAULT ON ";NOUN$(M(M));", ";HT;" UNITS" "ITS LIFE FORCE IS NOW ";M(M9);"%" STA(NOUN)1:30004. VERB9VERB10VERB142370>8 2400VB STA(NOUN)11070hL STA(NOUN)LOC{O NOUN332420Q VERB10STA(33)0S LIGHT0V 2420` VERB122600j STA(NOUN)11070t WT1NUMW545y NOUNWT(WT)2480HING LEFT THERE FOR VERY LONG. THEREIS SO MUCH ICE THAT YOU CAN'T EVEN GET INTO THE ROOM; BUT, THERE IS AN EXIT ON THE FAR SIDE."6/y"A SMALL, SMOKE FILLED CHAMBER WITH A FIRE BURNING IN A NATURAL FIREPLACE IN THE NORTH WALL. APPARENTLY, A CHIMNENIFICENTLY DECORATED CHAMBER WITH CRYSTALINE DESIGNS AND INTRICATEROCK FORMATIONS. A NARROW FAST MOVINGRIVER FLOWS THROUGH THE ROOM. A NAT- URAL BRIDGE SPANS THE RIVER.".y "MYSTERIOUSLY, ICE FORMS VERY QUICKLY IN THIS CHAMBER, ENCAPSULATING ANY- TINTERCONNECT, AND LEAD BACK AGAIN.",ry"WHAT APPEARS TO BE A PETRIFIED RIVER BED SLOPES GENTLY UPWARD LEADING TO- WARD THE WEST. IT HAS A FOUR-FOOT CEILING.",|y"YOU SEE A NARROW, CHURNING, UNDER- GROUND RIVER FLOWING TO THE SOUTH."-y "A MAG SANDY SHORELINE WITH A VERY LOW PASSAGE LEADING OFF TO THE WEST. A CLAMMY DRAFT ISSUES FROM THE LOW-CEILINGED PASSAGE."+^y "A SMALL, SANDY BEACH ON THE NORTHERN EDGE OF THE MISTY LAKE."%,hy"TWISTING PASSAGES LEAD OFF IN ALL DIRECTIONS, L CHAMBER WITH AN IMMENSE STAL-AGMITE HANGING FROM THE CENTER OF THECEILING, DIRECTLY OVER THE MOUTH OF ABOTTOMLESS PIT."*Jy "YOU STAND AT THE EDGE OF A MISTY LAKETHAT STRETCHES ENDLESSLY OUT BEFORE YOU TO THE NORTH."+Ty "YOU ARE STANDING ON A DAMP,INGSOUNDS SAYING 'WATER...WATER...WATER.")6y "THE ROOM IS A HUGE OVAL CHAMBER WITH TALL CEILINGS AND MASSIVE STALAGMITESAND A SMOOTH EASTERN WALL HAS SOME WRITING ON IT - CRYPTIC CHARACTERS THAT SPELL OUT, 'THE SPIRIT OF THE FRUIT'"y*@y "A SMALRE AT THE MOUTH OF A LARGE CAV- ERN. THE SIDES OF THE ENTRANCE SLOPE STEEPLY UPWARD, AND A MYSTERIOUS PASSAGE LEADS WEST INTO THE CAVE.")),y "A TOWERING, WITHERED TREE STANDS IN WHAT APPEARS TO BE A DRIED UP RIVER BED. FROM IT YOU SEEM TO HEAR ECHO"," "," "," "," "," "," "?'x " "," "," "," "," "," "," "," "^'x "OVER FALLS","YOUR HOME"t'xI130:WT(I):I'x 15,100,24,0,0,16,150,24,22,36'x 18,30,21,22,36,19,50,24,20,0'x 33,30,23,0,0,36,40,21,0,0'yI150:LDES$(I):I("y"YOU A,"MAZE ROOM","FROZEN RIVER","RIVER ROOM"&x "HUB ROOM","ICE ROOM","CHIMNEY","GOLD ROOM","BONES","BATS","GHOST ROOM","MISTY LAKE","SWIFT RIVER","INTERSECTION"&x "INTERSECTION","INTERSECTION","TREE TOP"," "," "," "," "," "," "," "'x " "," "," "," ,14,100,21,25,0,4,0,60,40,90,16,40,23,0,0,6,0,0,0,0,17,50%dx 20,27,1,0,0,90,60,65,18,60,36,28,1,0,0,0,60,0,12,25,22,0,1,0,0,0,0,0,15,75%nxMM6%xI150:LOC$(I):I(&x "MOUTH","TREE ROOM","WRITING ROOM","PIT","SOUTH LAKE","WEST LAKE","NORTH LAKE"0,0,5,-10 ,0,22,16,0,0,0 X$w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0$w 2,0,20,0,0,12,0,20,8,0,21,6,0,11,11,0,0,6,0,4,17,21,0,0,0$w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0$PxI160:M(I):I9%Zx 24,26,0,2,0,60,30,55,0,0,0>#w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0#w 0,1,0,20,0,-18,0,9,1 ,0 ,14 ,0 ,0,0 ,0,0,21,0,0,3,11,0,0,0,0#w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 $w 19,3,10,0,0,0,-18,8 ,0,-11,-49,11,11,0,0,I):I".w 0,0,0,0,0,0,0,0,0,0<"8w 0,0,0,2,4,3,15,13,1,18^"Bw 16,15,17,14,16,14,18,12,5,9t"Lw 1,1,1,0,0,12,23"wI150:N(I):I"wI150:E(I):I"wI150:S(I):I"wI150:W(I):I#w 50,0,2,0,-18,0,9,8,7,3,13,0,0,0,0,22,0,7,1,8,0,11YP(I):I"!pv 1,1,1,1,1,1,1,1,1,1;!zv2,2,2,1,5,5,5,5,5,8\!v 8,8,8,8,15,15,15,15,5,5q!v5,5,5,45,45,5,5!vI125:VTYP(I):I!v 1,11,1,1,1,3,2,45,45,45!v 45, 5, 5,5,8,8,40, 8,8,15!v 15,15,315,315,315"$wI137:STA(26 vI1NV:VERB$(I):IQ v "GO","JUMP","RUN","WALK","DRIVE","CLIMB","DIG" v "CARRY","DROP","PUT","TAKE","USE","WISH","THROW" v "HELP","KILL","STOP","HIT","FIGHT","RUB" *v "START","DRIVE","DRINK","EAT","BITE" Wv "*****"!fvI137:NT UP ","DOWN"Ru "CAVE","LAKE","RIVER","TREE","AX","BOMB","CURSE","FIRE","KNIFE"u "CLAM","BATS","BONES","GHOST","OGRE","CHEST","GOLD","PEARL","LAMP"u "RAFT","ROPE","TENT","TRUCK","LIGHT","WATER","APPLE","ICE"u"FEATHER"u "*****" uNV (0)100PYPY3:PY12PY12D (0)180PYPY3:PY77PY77X 3:PLANEPX,PYi PFLAG1300 (16287)128400 PFLAG1:XPBPX:YPBPY12 ,16:BFLAG1Ę0:320 6YPB103BFLAG1:0:BOMBXPB,YPB:1000:YPBYPB2 @2:0:BOMBXPB :! D$;"BLOAD SUBSCAN.X"4 232,0:233,64> 3000H #2000g (SEA1:PLANE2:SUB3:BOMB4m 2~ dSX12:SY130 nPX254:PY30 x3:2:0 PLANEPX,PY SUBSX,SY 1000 2:0 0:PLANEPX,PY PXPX4:PX12PX254!1 **********************9* *U* SUBSCAN *q* ** BY CHIP ANDERSON ** 9/26/79 ** *********************** D$(4):D$;"NOMON I,O,C"     "WALK":ā"","RUB","WISH"P:24:" << PRESS THE SPACE BAR TO BEGIN >>";:A$V: ; 9LA$9V09`:4:12:"POSSIBLE VERBS":79j6Q9t"BITE","FIGHT","RUN"k9~"CARRY","GO","START"9"CLIMB","HELP","STOP"9"DIG","HIT","SWIM"9"DRINK","JUMP","TAKE"9"DRIVE","KILL","THROW"9"DROP","LOOK","USE":"EAT","PUT",ERA JUMP DOWN"s8$"DO NOT USE THE FULL NAMES OF DIRECTIONS,THE INITIALS AS ILLUSTRATED ABOVE ARE ENOUGH."y8.88" YOU WILL FIND IT VERY HELPFUL TO DRAWA MAP TO KEEP TRACK OF YOUR POSITION."9B24:" << PRESS THE SPACE BAR TO CONTINUE >>"ES.";y7" YOU MAY USE SENTENCES IF YOUWISH; BUT THE COMPUTER WILL ONLY USE ONEVERB AND ONE NOUN TO ESTABLISH MEANING."8"FOR THIS REASON, IT IS BEST TO CONVERSE IN VERB/NOUN PHRASES. FOR EXAMPLE: GO W GO NW TAKE CAMTURE FANTASY GAME IN WHICH YOU EXPLORE A MYSTERIOUS CAVERN INSOUTHWEST KENTUCKY CALLED ";::"DEVILS' DELVE";::"."z67" SPELUNKER IS AN INTERACTIVE GAME. YOUMUST CONVERSE WITH THE COMPUTER IN ORDERTO EXPLORE THE CAVERNS AND LOCATE THEIR TREASUR ";:/5}::^5d}24:31999:1:31999:11:31999:16:31999h5}2:15,~I210:" ";:29:" ";:39:" ":I5~I1123:" ";:39:" ":I5~:32,1:33,37:34,16:35,23:17:25X5耗:2t6" THIS IS AN ADVEN40z " "4:z " "4Dz " "&4Nz " "04Xz " ":4bz " "D4lz " "N4vz " "X4z " "b4z " "m4z " " w4z " "4z " " 4z " " 4z " "4z " "4z " " 4z " "4z " " 4z " "4z " "4{ " "4 { " " 4|%5|1:" YARDS AND THEN DISAPPEARS BACK UNDERGROUND."73y " " B3y " " M3y " " 3y"YOU ARE AMONG THE GNARLED, AND WITHERED BRANCHES OF THE GREAT TREE. THE SOUNDS OF 'WATER' ARE EVEN LOUDER HERE."3z " " 3z " "3z " "3&z " " EMANATES FROM THE BOT-TOM OF THE LAKE. IT IS AN ENOURMOUS, BRIGHT PEARL NESTLING INSIDE A GIGAN-TIC CLAM. THE CLAM IS AT THE BOTTOM OF THE LAKE, IN ONLY 10' OF WATER.",3y"THIS NARROW, FAST FLOWING RIVER IS OUTSIDE THE CAVERN. IT RUNS SOUTH FORA FEW IBLE FOR THE THOUSANDS OF BATS SLEEPING THERE.IN ONE CORNER LIES AN OLD RUSTED CHEST. THE BATS BEGIN TO STIR AS YOU OPEN THE CHEST TO DISCOVER IT IS FULLOF JEWELS."1y"AN EERIE FEELING OF DEMONIC POWER LURKS IN THIS CHAMBER."2y"A STRANGE GLOWES AT YOU."0y "LINING THE WALLS OF THE ROOM ARE THE SKELETONS OF PIRATES LONG SINCE DEAD.AN OMINOUS CURSE IS UTTERED BY ALL THE SKELETONS IN UNISON, AS YOU ENTERTHE ROOM, AND THE CURSE SHADOWS YOUR FURTHER TRAVELS."1y"THE CEILING IS ALL BUT INVISY LEADS FAR UP THROUGH THE ROCKAND OUT OF THE CAVERN." 0y "THE FIRST THING YOU NOTICE IS A PILE OF GOLDEN TREASURES NESTLED INTO A NOOK ON THE FAR SIDE. BEFORE YOU TAKEANOTHER STEP, A FOUL-SMELLING OGRE JUMPS OUT OF A HOLE IN THE SIDE WALL AND RUSH0 "WORLD POWER IS A WAR GAME PLAYED AGAINSTTHE COMPUTER FOR CONTROL OF 10 COUNTRIESWITH 4 SHORES EACH UTILIZING 5 DIFFERENTTYPES OF FORCES (TROOPS, PLANES, TANKS, ARTILLARY, AND MISSLES) GENERATED AT RANDOM WITHIN SET LIMITS." "TO WIN YOU MUST0:J25:C(X,J)(50(X))25:J:XQ xJ110:X610:C(J,X)(4(X))1:X:J X15:J110:A(X,J)C(X,J):C(X,J)0:J:X (27);(42);15);"WORLD POWER": "DO YOU WANT INSTRUCTIONS? TYPE 1 FOR YES AND 2 FOR NO.":Z: Z220 SO. AMERICA, RUSSIA, JAPAN, AFRICA^ (KOREA,CHINA,GREENLAND,ENGLAND,TROOPS,PLANES,ARTILLARY 2TANKS,MISSILES,NORTH,SOUTH,EAST,WEST FX110:N$(X):X PX15:D$(X):X ZX14:L$(X):X dX110:C(X,1)((5000(X))5000)10:X# nX11CE AGE **" :::1 LINE0:W3:S$" SHORE" LINES 10 TO 130 INITIALIZES ALL PARAMETERS, FILLS ASCII ARRAYS WITH NAMES, AND SETS RANDOM DEFENSES FOR BOTH ALLIES AND ENEMIES. A(10,10),C(10,10),N$(10),D$(5),L$(5)#  NO. AMERICA, AUSTRALIA,'  TODAYS DATE IS 12 NOV 784 WORLD POWER 6O LISTING IN APPLESOFTUz::11)"** WORLD POWER **"::"** WRITTEN BY JOE JAWORSKI ON 6/27/77 **""** MODIFIED BY T N TAYLOR ON 9/09/78 **" "** FM THE 2/78 ISSUE OF INTERFA           !!! ! ! ! ! !!@d 4U...--,,,???$-%-----,,-566??????6555--%$$???655-------%%%