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`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[","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"< "X4)5XT((S$,I,1))4B(T)0B(T)1:145?B(T)0FIL 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:J1255)1:778:H0CR(16(1)): R: 0,39J:R(16(1)): R: 0,39J:\DII1II39(II39):JII:17200:17000:J39II:17200:17000:MMMM1:MM30ıpD17500P 1X1,1Y1: 11: X11,Y1: X1,1Y1:5 PC:2060?X48:Z1(E$)4:I03:R(I)((E$,ZI,1))X:I:Z1R(0)R(1)R(2):Z240Z1:776,Z2:777,40:804,R(3) ?(778):Z:hBH3(30(1)):THH5H2670:V32767T:776,H:777,V256(V256):804,(V36,13:MS$:50,255:EN1İ16150:1890;_ I04000:II:IVb1233:936:50,255:d48 11r48 11zl 1vY17Y:J101: 4X4,5X4J14Y14:J1: PC:Y17Y:1910 CC:1910 CC% X14X4:Y14(7Y)4: X1,Y1:( A1A)11890> "YOU CAN ONLY JUMP YOUR OPPONENT (ME)"J1840 mEA:HB:AA1:BB1:II15:1750{B71815230XA:YB:3000:S(X,Y)2&2300(7)(11);:1800XMS$"YOU HAVE WON !!":EN0Z17500%]936:50,127:::28: 10XC0164+YC8285;MCYCYC3KXC,XC2MCYMC,YC,XC`6pXC21374YC8285 MCYCYC3XC,XC2MCMC,YC,XC':12:9:"HAVE A NICE DAY ";N$ b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵(6):958::"(4) THE CHANGE IN VALUE OF A PARTICULAR":" STOCK IS DETERMINED BY ADDING THE":" CHANGE IN THE STOCK VALUE AND THE"" CHANGE IN THE TREND OF THE MARKET.":" THE STOCK CHANGE WILL BE BETWEEN":" +1/-1 DAILY, WITH LIMITS SERNING!!!"::" IF YOU ARE USING DOS VERSION 3.1,"" ";::"DO NOT";::" TYPE 'INT' FOR THE STOCK":" NAME!!! THIS WILL PUT YOU IN":" INTEGER BASIC, AND DESTROY YOUR":" PROGRAM!!!"(23):"PRESS ANY KEY TO CONTINUE...":2620HE COMPLETE INSTRUCTIONSOR THE INPUT-OUTPUT STATEMENTS?"W"1=COMPLETE INSTRUCTIONS"x"2=INPUT-OUTPUT STATEMENTS""3=NEITHER"936B1Q$"NO"B11205Q$"YES"B12190B131901165Z1100 B#G"MISSION ABENDED")LXQ"DO YOU WANT TO TRY IT AGAIN (YES/NO) ?"`VZ$q[Z$"YES"20`Z$"NO"1130e1105jo"TOO BAD, THE SPACE PROGRAM HATES TO LOSEEXPERIENCED ASTRONAUTS.y1215~8"OK,DO YOU WANT TEEP." X1(D1D1H1H1)G3Q"AT CONTACT YOU WERE TRAVELING ";X1;N$;"/HR."[1100a"YOU HAVE BEEN LOST IN SPACE WITH NO HOPEOF RECOVERY."$1100)"YOU ARE DOWN SAFELY -"38"BUT MISSED THE LANDING SITE BY ";(DG5);N$="TRANQUILITY BASE HERE--THE EAGLE HAS LANDED"j"CONGRATULATIONS--THERE WAS NO SPACE- CRAFT DAMAGE""YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."1100"CRASH!!!!!!!!!!!!!!""YOUR IMPACT CREATED A CRATER ";(H);M$;" D." 575Y"IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE FOR AN E.V.A."b575h"IMPOSSIBLE THRUST VALUE ";F0985F.05.05975"TOO LARGE"575"TOO SMALL"575"NEGATIVE"57507361050WM10580 \T120(aF00fP09k620SpR18.21957E041020ru(RA1)4.931742E041020zH03.287828E041020(D)10Z1065995"THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-";"TIME CONTINUUMN","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 OME0::A1ST0CKS=(INCOMEINCOME(TABLE(A,1)TABLE(A,3))q(A::(2):3);"TOTAL INCOME FOR THE WEEK: ":(5);"CASH AT WEEKEND:";27);"$";CASH:5);"CURRENT PAPER WORTH:";27);"$";INCOME)27);"---------":5);"TOTAL:";27);"$";CASHINCOME:1220:)'B15:TABLE(A,B)0:B:1400F' *** FIRST OF WEEK *** g'WEEK1(WEEK2(A$)1)ı'BEGINC0:ASSETS0:B1ST0CKS:TABLE(B,1)01460'ASSETSASSETSTABLE(B,4)'B:BEGINCCASHASSETS:1220:' *** WEEKEND DATA *** (INC2 &F1370.&PCHANGETABLE(A,5)((1)5)2M&Z(1).90CHANGE1CHANGE&dTABLE(A,5)CHANGE:CHANGECHANGEMARKET:TABLE(A,1)TABLE(A,1)CHANGE:TABLE(A,1)01410&nTABLE(A,2)CHANGE:TABLE(A,4)TABLE(A,3)TABLE(A,1)'xASSETSASSETSTABLE(A,4):A0CKS:TABLE(B,1)0FLAGB-%B:FLAG02850P%FLAG0:CASH0ASSETS02780V% t% *** MARKET FIGURES *** %ASSETS0:A1ST0CKS:TABLE(A,1)01400%(CHANGETABLE(A,5)((1)3)1:(1).851360%2CHANGE2CHANGE2&<CHANGE2CHANGEЦ1420:FLAG0ı_$:(3):15);"WEEKEND":::9);"STOCK MARKET CLOSED...":A1(2TIME):A~$::1470:DAYDAY1::870$ *** PLAYER STATUS *** $CASH0WEEK11260$(A$)1WEEK2CASH01260$CASH0WEEK12720%FLAG0:B1STA$"LABOR DAY":11600#`A$"COLUMBUS DAY":1160L#jA$"VETERANS DAY":1160l#tA$"THANKSGIVING DAY":1160#~A$"CHRISTMAS"#:(1):(2):958:(5)::10);A$;40):A1TIME:A#::::9);"STOCK MARKET CLOSED...":A1(2TIME):A:#870$"M0NTH11DAY12ī11305"M0NTH11DAY22ī1140P"M0NTH12DAY25ī1150Z"1190x"$A$"NEW YEAR'S DAY":1160".A$"LINCOLN'S BIRTHDAY":1160"8A$"WASHINGTON'S BIRTHDAY":1160"BA$"MEMORIAL DAY":1160"LA$"INDEPENDENCE DAY":1160#V0NTH7M0NTH8M0NTH10M0NTH12LAST31F!FLAG1:WEEK0:A$"":1200e!1630:M0NTH1DAY1ī1060!M0NTH2DAY12ī1070!M0NTH2DAY19ī1080!M0NTH5DAY28ī1090!M0NTH7DAY4ī1100!M0NTH9DAY3ī1110!M0NTH10DAY8ī11200 fFLAG0:WEEKWEEK1:DAYDAY1:DAYLAST910^ pDAYDAYLAST:M0NTHM0NTH1:M0NTH122890 zQUARTERQUARTER1:QUARTER3910 QUARTER0:1670 WEEK5950 :LAST28:M0NTH4M0NTH6M0NTH9M0NTH11LAST30(!M0NTH1M0NTH3M0NTH5M1910KEY194KEY211780/KEY19723608700B 1970UKEY194İ2070h KEY211İ2210r*1910{4750> *** 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."$(18ES ARE":" DEFINED AT THE START OF THE PROGRAM."xD"(2) THE BINARY FILE NAME IS:":10);"MARKET.CRASH.DATA.BASE":N"(3) THE PROGRAM WAS WRITTEN WITH THE":" APPLESOFT ROM CARD, AND MIGHT":" NOT WORK WITH THE RAM VERSION."X(23):"PRESTTY MUCH YOUR GUESS...":(23):"PRESS ANY KEY TO CONTINUE...":26200(4):958:(5):"DISK NOTES:"::"(1) OPTION (E) SAVES THE GAME VARIABLE":" AND ARRAY TABLES IN A BINARY FILE,"3:" BUT DOESN'T SAVE THE STRING":" VARIABLES. ALL VARIABLE OF THIS GAME."K(23):"PRESS ANY KEY TO CONTINUE...":2620:(6):958:"(5) GENERALLY, THE STOCK MARKET WILL":" FOLLOW A GRADUAL UP/DOWN CYCLE, AS":" WILL EACH INDIVIDUAL STOCK."C&" WHICH WAY THE STOCK VALUE WILL GO":" IS PRET"t" AT +2 AND -2. THE MARKET WILL":" ALSO CHANGE BETWEEN +1/-1 DAILY,":" WITH LIMITS OF +2 AND -3."" THERE IS, OF COURSE, THE CHANCE OF":" A DRASTIC CHANGE IN THE VALUE OF":" THE STOCK, WHICH IS REFLECTED IN":" THE NAM* <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);"CH$(M0NTH);" ";DAY;", ";YEAR;41)?,|1220:40):(1):LTH(0):], *** DIVIDENDS PAID *** {,CASHCASH(ASSETS.08):, *** STOCK PRINTOUT *** ,(1):CHANGE$(TABLE(A,2)):TABLE(A,1)01730,TABLE(A,2)0CHANGE$"+"(TABLE(A,2))X-(AB1ST0CKS:TABLE(B,4)(TABLE(B,1)TABLE(B,3)):ASSETSASSETSTABLE(B,4):B+J:(1):(19):868:(19):3);"CASH: $";CASH;23);"ASSETS: $";ASSETS;40)+T(1):(20)::+^ *** DATE PRINTOUT *** +h(1):(1),r3);"DATE: ";DAY$(WEEK);", ";M0NTH)BEGINC)FEES::CASHCASHFEES:CASH01570*:"YOU HAVE UNTIL MONDAY TO BREAK":"EVEN, OR ELSE!!! (CASH: $";CASH;")"*"BEGINCCASHINCOME:FEES0*,(23):"PRESS ANY KEY TO CONTINUE...":2620:*6 *** ASSET PRINTOUT *** I+@ASSETS0::`)5);"TOTAL ASSETS + CASH":5);"AT BEGINNING OF WEEK:";27);"$";BEGINC:27);"---------")5);"GROSS WEEK'S INCOME:";27);"$";(CASHINCOME)BEGINC:5);"LESS BROKER'S FEES:";27);"$";FEES-*::5);"NET WEEK'S INCOME:";27);"$";((CASHINCOMEK" 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"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 050$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(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$;"BLINGSOUNDS 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 "*****" uNVDES$(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); 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 RUSHHING 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,(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)248022651070'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";                                FERS YOUR FORCES TO ANOTHER SHORE."ENTER COUNTRIES: (1)NO. AMERICA, (2)AUSTRALIA, (3)SO. AMERICA, (4)RUSSIA, (5)JAPAN, (6)AFRICA, (7)KOREA, (8)CHINA, (9)GREENLAND, (10)ENGLAND: (FROM,TO)?";F,TF10400F1400T10400T1400)ENGLAND?";RR10240'R1240J:::"STATUS REPORT: ";N$(R)P}"DEFENSE QUANTITY LOCATION"X15D$(X);16);A(R,X);29);A(R,X)0ĺL$(A(R,(X5)))S$:282X:200"LINES 400 TO 570 TRANS5200M1200.M240,400,600,800,1000xLINES 240 TO 282 PRINTS THE STATUS REPORT FOR THE SPECIFIED COUNTRY. "COUNTRY?: (1)NO. AMERICA, (2)AUSTRALIA, (3)SO. AMERICA, (4)RUSSIA, (5)JAPAN, (6)AFRICA, (7)KOREA, (8)CHINA, (9)GREENLAND, OR (10 "SUBSCAN"* BY CHIP ANDERSON0 PAC 2@FLRl CAROLINA APPLE CORE| BOX 31424 RALEIGH, NC 27612 DISTRIBUTED BY  CAROLINA APPLE CORE AND CHIP ANDERSONONTROLS THE SUB'S SPEED AND SWITCH(1) FIRES THE SUB'S MISSLE. THE MISSLE ALWAYS TRAVELS STRAIGHT UP."n  "THE GAME ENDS WHEN SOMEONE GETS TEN POINTS." :6:"*** HIT ANY KEY TO START ***" 16368,0:16384,128:16368,0 :"WALK":ā"","RUB","WISH"P:24:" << PRESS THE SPACE BAR TO BEGIN >>";:A$V: 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, . 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    ES 1100 TO 1200, 1360 TO 1450 CALCULATES BATTLE CASUALTIES AND CHECKS FOR VICTORY.|LKK1::::(7);"BATTLE IN ";N$(X);V" ON THE ";L$(A(X,(J5)))S$;"!"`"ENEMY ";D$(C),"ALLIED ";D$(J)~OC(X,C):O1A(X,J):EO:E1O1J1ĭC11360K01000$H0:K0:X110:J159C(X,J)0KK1N A(X,J)0HH1b J:X:K05000p H04000 :"NO MORE ATTACKS POSSIBLE."200C1C(X,C)01080$CC1:C61020.10508A(X,(J5))C(X,(C5))1060RKLIN);C(T,X);34);6uC(T,(X5))0ĺL$(C(T,(X5))):890<xHzX:200LINES 1000 TO 1080 SEARCHES TO SEE IF BOTH SIDES ARE ON THE SAME SHORE IN A COUNTRY. IF NOT, THEN BACK TO THE MAIN PROGRAM.K0:X110:J15A(X,J)01040 J:X:::"SPY MISSION REPORT: ";N$(T)::H((X)100)20860lR(50(X))26ĺ"ALL PLANES LOST AT SEA":200W"PLANES SHOT DOWN OVER ";N$(T):200\"DEFENSE QUANTITY LOCATION"]^X15f((X)100)40ĂX:200pD$(X);18A, (9)GREENLAND, (10)ENGLAND: (FROM,TO)?";F,T;!T5810A"#"THERE IS NO NEED TO SPY ON YOUR ALLIES. JUST ASK FOR A STATUS REPORT."$200*A(F,2)9820+,"YOU DON'T HAVE ENOUGH PLANES IN ";N$(F):2004A(F,2)A(F,2)10">:C(X,F2)0K2K21{F2/|K20ĺ"NO":638:}"YES"A~XJ200 LINES 800 TO 890 COMPUTE THE RESULTS OF THE SPY MISSION. "ENTER COUNTRIES: (1)NO. AMERICA, (2)AUSTRALIA, (3)SO. AMERICA, (4)RUSSIA, (5)JAPAN, (6)AFRICA, (7)KOREA, (8)CHIN00 TO 640 PRINTS A GLOBAL REPORT OF POSSESSION AND IF THERE ARE ANY TROOPS IN EACH COUNTRY.X::10);"--- GLOBAL REPORT ---"ab"COUNTRY-OUR TROOPS-ENEMIES'-OURCOUNTRY?"clX110:N$(X);13);A(X,1);21);C(X,1);34);vK20:F215:A(F,D)Qĺ"YOU MUST MOVE ALL ";A(F,D);" ";D$(D):480]A(T,D)A(T,D)Q:A(F,D)A(F,D)Q"WHAT SHORE? (1)NORTH, (2)SOUTH, (3)EAST OR (4)WEST?";LL4530&L15300A(T,(D5))L5((X)100)2557072000:200[W LINES 6Z"WHAT DEFENSE? (1)TROOPS, (2)PLANES, (3)ARTILLERY, (4)TANKS, OR (5)MISSILES?";DgD5450tD1450:"QUANTITY?";QQ0200A(F,D)Q500"YOU ONLY HAVE ";A(F,D);" ";D$(D);" IN ";N$(F):480FT520F65208Y 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      : ~:="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 ,-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)(       ::"SORRY, YOU BLEW IT."I$"ALL YOUR DEFENSES ARE GONE."::::5010$LINES 5000 TO 5010 PRINTS THE END OF THE GAME AND THE NUMBER OF MANEUVERS IT TAKES TO WIN WHEN THE ENEMY RUN OUT OF FORCES.$::"CONGRATULATIONS!"%"YOU HAVE CONQUERED 2550 CALCULATES THE CASUALTIES FOR THE PRESENT BATTLE.O# EE((E3)(X))2]# E0E0x# E1E1((E13)(X))2# E10E10# A(X,J)E1:C(X,C)E# #LINES 4000 TO 4010 PRINTS THE END OF THE GAME WHEN THE ALLIES RUN OUT OF FORCES.$X2"R332070!"R662080A""AMBUSH DURING TRANSPORT!"`""YOU JUST LOST ";X2;D$(D)" "TOTAL ARRIVED IN ";N$(T);"= ";A(T,D):""SNIPERS ON THE ";L$(A(T,(D5)))S$:2050" "VIOLENT SEAS SINKS A TRANSPORT SHIP":20507# LINES 2500 TO!E10E81:1270-!E1000E1E81:1270G!E1E1000E81:1270Q!1420!LINES2000-2080 CALCULATES THE LOSS OF FORCES DURING TRANSPORTATION.!R(100(X))1:X2(10(X))2:D1X2(100(X))2!A(T,D)X2X2A(T,D)"A(T,D)A(T,D)5))$ AE;D$(C);" WERE CAPTURED. "; BI13000:I:1020[ DC(X,(J5))A(X,(J5)):1020e PE,E1o Z2500 _E0E80:1270 aE10E81:1270 dE11000EE80:1270 iEE11000E81:1270 n1360 E,E1 2500 E0E80:1270N ";:1288"ALLIES IN ";EN$(X);" ON THE ";L$(A(X,(J5)))S$_"TOTAL CASUALTIES: "}"ENEMY ";D$(C);": ";OE("ALLIED ";D$(J);": ";O1E12E81C(X,J)C(X,J)A(X,J):A(X,J)0:1348 <A(X,C)A(X,C)C(X,C):C(X,C)0:A(X,(C5))C(X,(CC1ĭJ11420E,E1#25008E10E81:1270LE0E80:1270eE1E1.7E80:1270~EE11.5E81:12701165LINES 1270 TO 1348 REORTS THE VICTORY FOR THE BATTLE.E,E1::"***** A VICTORY FOR THE "; E81ĺ"ENEMY I 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) 2 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     tz#XDz   Ҡ4 ΠҠϠ  ήؠ ĠҠ ҠǠנ!ԠȠ="ԠȮؠŠŠӠ ŠҠŠҠŠ ̠ŠӠ  Ӡɠ٠ԠӠɠӠ Π٠ɠΠɠՠ ɠŠŠϠŠ٠٠ؠBOMB-DROPPING PLANE." p "PADDLE(0) CONTROLS THE PLANE'S ALTITUDE AND SWITCH(0) DROPS THE PLANE'S BOMB." "THE BOMB WILL TRAVEL FORWARD IN A DIAGONAL PATH UNTIL IT HITS THE WATER THEN IT WILL SINK STRAIGHT DOWN." h "PADDLE(1) CC(PL)10ġ:"THE PLANE WINS!":2060)W "WOULD YOU LIKE TO PLAY AGAIN (Y/N)?";A$m(A$,1)"N"2100s {*404::: 2:13:"*** SUBSCAN ***": "THIS IS A REAL TIME WAR SIMULATION THAT PITS A MISSLE-FIRING SUBMARINE AGAINST A 402:3I1320I2:SHAPEX,YKZZ(16336)(16336)QWd3:1:0sSEA0,100I127SEAI:21"SUB:";20);"PLANE:"SC(SU);20);SC(PL)SC(SU)10ġ:"THE SUB WINS!":2060#SYSB85(234)15YSBPY15800' :600; NSFLAG0:MFLAG0D X200a SHAPESUB:XSX:YSY:900u SC(PL)SC(PL)1 2000 850 SHAPEPLANE:XPX:YPY:900 *SC(SU)SC(SU)1 42000 RYPB0:XPB0:YSB0:XSB0 \BF0:DF0:PF0:SF0:MF0SX,SY DFLAG0+ SXSX5:SX254SX12= 3:SUBSX,SYN SFLAG1500e (16286)128600 SFLAG1:XSBSX:YSBSY6 MFLAG1520 YSB95MFLAG1:1000 32:2:0:BOMBXSB,YSB YSBYSB6:YSB6590 &32:3:BOMBXSB,YSB 0,YPB JYPBYPB4:YPB1503903 TYPB100XPBPXH ^3:BOMBXPB,YPBc hYPB115(234)15700l |400 PFLAG0:BFLAG0 DFLAG1420 DLAY((1)7255):TIMEDLAY5 DLAYDLAY1:I0TIME: DLAY0DFLAG1:485 2:0 0:SUB (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"  D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               THE WORLD IN ";Y6;" MANEUVERS!"%% @d 4U...--,,,???$-%-----,,-566??????6555--%$$???655-------%%%I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4      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"      v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 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  R14(B164)3 LX(LX):LY(LY):RX(RX):RY(RY)K LLXLXOLYLY1520r 0:0,0LLX,OLY:0,159LLX,159OLY 3:0,0LX,LY:0,159LX,159LY RRXRXDRYRY1600 0:279,0279RRX,DRY:279,159279RRX,159DRY 3:279,0279RX,RY:279,15:23:11:TIME:23:20:"LASER POWER: ":23:33:PHPQ (16286)127İ5000j (16287)127İ6000z G17İ3500 <A(0) OLYLY:DRYRY:LLXLX:RRXRX B(1) AA1 LX14(A164):LY14(A164) B(1)1 RX14(B164):RY((1)180)% Y20YY((1)120)C 0:G((1)20):1(G15)Q 3:2X,Yo 0,0279,0:0,159279,159 22:15:" " TIME(TIME101)10:(1).1PHPPHP1 TIME08000 22:6:YS:22:32:ES8 23:5:"TIME: "59279,159 `M1200) jX((1)280); tY((1)160)D ~X,YK M{ 21:2:"YOUR SCORE":21:28:"ENEMY SCORE" 22:6:YS:22:32:ES 23:5:"TIME: ";TIME:23:22:"LASER POWER: ";PHP X((1)A10):Y((1)B210) X50XX  232,6:233,31 20000;" BLOAD CENTURY 51.X"K32000:100d776,P:777,D:778:jdYS0:ES0:PHP30:TIME24 INITIAL SCREEN SETUPLX0:LY0:RX0:RY0:15:I039:0,39I:I::30,0279,0 $0,1       :(4);"BRUNMENU" we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::a ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and  $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- )G?--?$668DEhqj<<<<<6666&%%%%%%%%56666<<<??$,-??????/------%'''''?55-....&$$$$$$466666>>>>>&%%%%%5%%%%%%577777--?75.655<$?<WQIJ$Q ...6@5-.5--%--%%- (X,Y)0:1900 B7 18000XA:YB:3000M"+TO";A1,B1: A101810e S(A,B)2B1B1803 "YOU MUST MOVE FORWARD":1840 A17B10B171840 S(A1,B1)0(A1A)2(B1B)21840 ((A1A)2)(S((A1A)2,(B1B)2)0)180970/((AE)2) (S((AE)2,(BH)2)0)1750C (AE)11750u"YOU CAN ONLY JUMP YOUR OPPONENT (ME)":1630S(A,B)S(E,H):S(E,H)0XE:YH:1900XA:YB:S(X,Y)1İ1950S(X,Y)2İ3000(EA)21810 X(EA)2:Y(HB)2:S1670#^ (7)(11);:1590 : "TO";A,B:XA:YBQS(E,H)2YH1675t"YOU MUST MOVE FORWARD":1690 X99Y991630 X0X7Y0Y71690S(X,Y)0(AE)2(AE)(BH)1700 (7)(11);:16X20X27Y20Y271500.S(X2,Y2)0ī1465DX:S(I,J)1Y1KYTJ,IbE11590E$"00520052005100520082007100720051005200310053":MS$"ZAP - YOU LOSE!":EN1:18826"FROM";E,H:XE:YH:X0X7Y0Y71630;S(X,Y)01630@1400)dS(U,V)0S(XA2,YB2)0İ910/x5=E0^I07:J07:S(I,J)11520Y112:X112:X1IX:Y1JY:X10X17Y10Y171500S(X1,Y1)0ī1470E1:J7:I7:X1:Y1:1500S(X1,Y1)01500X2X1X:Y2Y1Y:)R(3))214209(X(R(1)R(3))2:Y(R(2)R(4))2:1900F2S(X,Y)0x<XR(3):YR(4):S(X,Y)1B2:A224:1370FS(X,Y)2āA224:B224:1370:BPA:R(0)99ĺ"TO"R(3);R(4);:R(0)99:1240U1420ZUXA:VYB:U0U7V0V7(3):YR(4):2050:S(X,Y)2:1310>S(R(3),R(4))S(R(1),R(2))VXR(1):YR(2):1900hXR(3):YR(4)}S(X,Y)1İ2000 S(X,Y)2İ2050XR(1):YR(2):1900XR(3):YR(4) S(X,Y)1İ2000!S(X,Y)2İ2050"S(R(1),R(2))0:(R(1UC0UC7VG71080LS(UC,VG)0(S(UC,VG)0(UCXVGY))QQ2~8C:QR(0)R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)VLQ0:tR(0)991880(30)"FROM"R(1);R(2)"TO"R(3);R(4);:R(0)99 XR(1):YR(2):1900R(4)0 1250 XRS(U,V)0İ910:870)S(U,V)0870NUUA:VVB:U0V0U7V7870aRS(U,V)0İ910gfV0S(X,Y)1Q Q2(YV)2QQ5Y7QQ2Y0U7QQ1C112:UC0UC7VG01080 S(UC,VG)0QQ1:1080) S(X,Y)1İ1950* S(X,Y)1İ20003 Y,XE PC0 1420f X07:Y07:S(X,Y)1350y S(X,Y)1350 6S(X,Y)1āA112:BG:650:A JS(X,Y)2āA112:B112:650:B,A ^Y,X:1140 UXA:VYB:U0U7V0V7870 f34,21: 2,352 : 2,3535: 2,352: 2,3535D h I13 32 4V jC11C10C1` lA1C1t n J13 32 4 pA11A10A1 r A1 t K10 3: I1,I13J1K1 v K1,J1,I1 x X0 7:Y07:J:J15180 S(X,Y)J:190 :S(X,Y91,5:792,206:793,36:794,3:795,240:796,6:797,206:798,9f b799,3:800,76:801,10:802,3:803,96w c : 5:A$: dPC1PC0:CC6:"YOU ARE BLACK AND WILL GO FIRST":; ePC2PC6:CC0:"YOU ARE BLUE (RED WON'T SHOW)":"AND I WILL GO FIRST";0PC1PC2700 P R(4),S(7,7):G1:R(0)99\ Z 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 _A$" 0 1 2 3 4 5 6 7" `778,173:779,48:780,192:781,173:782,8 :783,3:784,32:785,168:786,252:787,173< a788,9 :789,3:790,208:7E LOWER RIGHT CORNER"< <"(7,7) IS THE UPPER RIGHT CORNER"` ="THE COMPUTER WILL TYPE '+TO'" >"WHEN YOU HAVE ANOTHER JUMP." ?"TYPE TWO NEGATIVE NUMBERS IF" @"YOU CANNOT JUMP." A::: F"ARE YOU PLAYER 1 OR 2 (1 GOES FIRST)": PC G :::) 11);"CHECKERS"3::Y "THIS IS THE GAME OF CHECKERS."}#"SQUARES ARE REFERRED TO BY A"("COORDINATE SYSTEM AS FOLLOWS:"-"(0,0) IS THE LOWER LEFT CORNER"2"(0,7) IS THE UPPER LEFT CORNER" 7"(7,0) IS TH         CP(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:"------     I2 7, 10,30I6 I$@*'X B 9) 2,618: 2,620L 18,202: 18,206: 18,204R[ 9r 2,418: 2,620 18,202: 18,204   9P 9Z 2,617d 2,619: 2,621 n 19,212: 19,216x 4" 20,234  20,5& 20,236 4 2,617; AJ\ 9Xf 2,620fp 2,418uz 18,214{ 9 18,212 18,214: 18,216  18,3: 21,5$ 9. 2,6188 18,204: 18,206: 20,5Y15,30: Y15,31.#t 3500.~ 36004? 3600X Y15,11: Y15,12p Y5,30: Y5,31v< 3500F 3800P 3800 Y5,20: Y5,21 Y15,20: Y15,21 9 20,232  23,3 BEEP HU(C)(C)(C)&R DING1W B NG7f@ 4O I1 38] 1,38Ie Ik u 15 I 8 33 3,17I 22,36I  I  0 Y10,20: Y10,21   0 Y5,11: Y5,12$ AND CONGRATULATIONS"JL"FOR BEING ABLE TO QUIT WHILE YOU'RE":"AHEAD";UV 9999`` 9999~"YOU HAVE JUST BROKEN THE BANK....":"THIS TABLE WILL HAVE TO CLOSE";  9999BEEP(6)101C16336 B NG1 BEEP  DINGB NG SP 970 !" ROLL AGAIN"+ 470< W0 1020U"AND MAKE MY POINT"]C1gZZBq 770"AND MAKE YOUR POINT"C1ZZB 770."YOU HAVE RUN OUT OF MONEY...COME BACK SOON";8 1110B"THANKS FOR THE GAME770 ZZB Z1 1070@"YOU NOW HAVE ";Z;" DOLLARS"U Z2500 1150 e  C0 830|*"CHANGE DICE NOW">WWCHQ0R 360\ S7 940f"AND LOSE"pC1z W0 920ZZB 770ZZB  770 300,4500 D W0 6102N"SO MY POINT IS ";S<X 620Wb"SO YOUR POINT IS ";S_lPSiv 470"... AND CRAP OUT..."C1 W0 690ZZB 770ZZB 770"...AND PASS"C1 W0 760ZZB 700,3800,3900,4000"  W0 540@ "I ROLL ";D1;" AND ";D2;J  550j "YOU ROLL ";D1;" AND ";D2;{ & Q1 860 0 (S2)(S3)(S12)0 640 : (S7)(S11)0 710 = 5400 ? S 4600,4600,4600,4700,4800,4900,4600,5000,5100,5200,5EY TO ROLL DICE"# D1(6(6)1)6 D2(6(6)1)F A(16384)X  A127 482g  16368,0r  2000| QQ1 SD1D2  Q1 504  3000  3200 Y0  D1 3500,3600,3700,3800,3900,4000 Y19  D2 3500,3600,3B |   B(B) 430S  "NO COINS PERMITTED....JUST BILLS, PLEASE" ]  360n  B0 1090  BZ1 465  "DON'T TRY TO BET MORE THAN YOU HAVE..........OR ONE OF THE BOYS WILL BREAK YOUR LEGS !"  360 "HIT ANY K(16384) X127 195+ 16368,0 1 G Z5(1011(5))s "YOU HAVE ";Z;" DOLLARS TO START WITH" N2(N2)0 310 W1 "I'LL ROLL FIRST" , 350 6W1 @"YOU ROLL FIRST" ^Q0 h"HOW MUCH DO YOU BET";  r , "ANY OTHER NUMBER BECOMES YOUR POINT"[ "YOU CONTINUE TO ROLL....IF YOU GET YOUR" "POINT YOU WIN....IF YOU ROLL A 7 YOU":"LOSE.": "THE DICE CHANGE HANDS WHEN YOU":"LOSE." :"BET 0 TO QUIT." :"HIT RETURN TO PLAY."  X,>:::"CRAPS"::" BY RICK LONGBRAKE"::::j:"READY TO BEGIN";: Z$: Z$"NO" 6p d"CARE FOR A GAME OF CRAPS" n:"THE RULES ARE:" x:"7 OR 11 ON THE FIRST ROLL WINS": "2,3 OR 12 ON THE FIRST ROLL LOSES":     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$     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     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 * * * ****************          !"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"      2T1 AAA1T1.5A0T1T1.A1A1A2T1<MM.5M2GTTT1` H03.287828E04810g%Ir*HH0Z~/H1R1Z4DR0AZ9D1RA1Z>T2M1BM0C" ";T;,;H;28);DH" ";H1;,;D1;28);T2MH03.287828E04880RR0A164.4UEL."M10725F0(M206MM.5M2@R4R3aR3.5R0((V0R)2)RA1A1R2(3R3R4)2.00526F1FCMA4A3A32R1A1RA2(3A3A4)2.0056F1FS(MR)XR1T1.5R2T1T1RRXH0H0XR1R1RqT1400635vNT120({T1T1N<PP3.14159180GS(P)RC(P)cM2M0T1FBR3.5R0((V0R)2)RA1A1A32R1A1RI1NM10715M1M1M2M10725FF(1M1M2)M2M1M2"YOU ARE OUT OF F";M$;"/SEC."00" FUEL UNITS REMAINING."61W5"PRESS ANY KEY TO CONTINUE"_7A$i8936r:670x?D"T,P,A";IT1,F,PNFF100ST10905XT101090](F.05)1945b(F.05).05945g(P)180925lN20 THE MISSION AT ANY TIME, ENTER 0,0,0",Q"OUTPUT:TOTAL TIME IN SECONDS."o" HEIGHT IN";M$"."!" DISTANCE FROM LANDING SITE IN ";M$;"."&" VERTICAL VELOCITY IN";M$;"/SEC."' +" HORIZ. VELOCITY IN IS PROHIBITED."J"INPUT: TIME INTERVAL IN SECONDS----(T)"x" PERCENTAGE OF THRUST--------(P)"" ATTITUDE ANGLE IN DEGREES---(A)"Q$"YES"535"FOR EXAMPLE:""T,P,A ? 10,65,-60" & "TO ABORTY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL FOR AN ALTITUDE CHANGE."T"AVAILABLE ENGINE POWER: 0 (ZERO) AND ANYVALUE BETWEEN 10 AND 100 PERCENT."::"PRESS ANY KEY TO CONTINUE"A$::"NEGATIVE THRUST OR TIME);"^" 12);"-90 < -+- > 90".19);"!"<19);"0"`8);"<< DIRECTION OF ORBIT <<"f12);"SURFACE OF MOON":"ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED.""1 FUEL UNIT = 1 SEC. AT MAX THRUST"N"ANBm"-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT."r"+90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT."w"0 (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON"|"PRESS ANY KEY TO CONTINUE"~A$15);"-180,180"19ON SYSTEM" Jz O"THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT OF INFORMATION NEEDED TONAVIGATE THE SHIP." Y: c"THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS:" h"+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON"M$" FEET" "G3.592* 'N$"N. MILES"3 ,G5ZA 1B13670S 6Q$"YES"485Y ; @"YOU ARE ON A LUNAR LANDING MISSION." A E"AS PILOT OF THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATI"WHICH SYSTEM OF MEASUREMENT TO YOU FAVOR"H " 1=METRIC 0=ENGLISH "o " ENTER THE APPROPRIATE NUMBER ";v K| K0280 K1250 220 Z1852.8 M$" METERS" G33.6 N$" KILOMETERS" G51000 305 Z6080 ***" G "HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE ";] " (YES OR NO) ";e Q$w Q$"YES"190 Q$"NO"205 "JUST ANSWER THE QUESTION, PLEASE, "; 160 "INPUT MEASUREMENT OPTION NUMBER "; 225 * 6 (V01.29 -T0 2H060+ 7RR0H08 <A3.425A AR10T FA18.84361E04] KR30f PA30r UM17.45| ZM0M1 _B750 dT10 iF0 nP0 sN1 xM20 }S0 C0 Z$"YES"1150 "*** LUNAR LANDING SIMULATION 93618);"LEM"#:"LEM, AN INTERACTIVE GAME THAT SIMULATES A LUNAR LANDING AND IS SIMILAR TO THAT OF THE APOLLO PROGRAM." "THERE IS ABSOLUTELY NO CHANCE INVOLVED" Z$"GO"B11M17.95F15.25N7.5 #R092          (23):"PRESS ANY KEY TO CONTINUE...":2620(6):958::"(3) THE PROGRAM ONLY CHECKS THE FIRST":" THREE LETTERS OF THE STOCK":" NAME, SO IT IS ONLY NECCESSARY TO"4" TYPE IN THE FIRST THREE LETTERS OF":" THE NAME."::" ";::"WA:" THIS SUMMARY DOESN'T NECCESSARILY"~" REFLECT THE WEEK'S INCOME, SINCE":" STOCK DIVIDENDS AREN'T PAID UNTIL"" THE END OF THE QUARTER. WHAT THE":" SUMMARY DOES REFLECT IS YOUR CHANGE":" IN NET WORTH (ASSETS + CASH)."*PONSES":" DIRECTLY OFF THE KEYBOARD, AND WILL"" NOT ACCEPT AN INCORRECT INPUT.":" YOU WILL GET '???' PRINTED FOR AN":" INCORRECT RESPONSE."):"(2) AT THE END OF THE WEEK, YOU WILL GET";:" A SUMMARY OF THE WEEK'S BUSINESS."":11);"ARE ";(226);"THROUGH FOR THE DAY";(226);","r11);"AT WHICH TIME THE GAME":11);"WILL PROCEED TO THE NEXT":11);"DAY."|(23):"PRESS ANY KEY TO CONTINUE...":26202(4):958:(5):"PROGRAM NOTES:"::"(1) THE PROGRAM PICKS MOST RES"T12);"(2) SAVE CURRENT GAME TO":16);"DISK FILE. THIS SAVES":16);"GAME VARIABLES SO THAT":16);"THE GAME CAN BE RESUMED":16);"IN PROGRESS."^(23):"PRESS ANY KEY TO CONTINUE...":26206h(12):958:(12):5);"(RETURN) - SIGNALS THAT YOUSTOCK, THERE IS A BROKER'S":11);"FEE PER TRANSACTION."::l@(23):"PRESS ANY KEY TO CONTINUE...":2620J(12):958:(12):5);"(E) - STOP GAME. YOU MAY STOP":11);"THE GAME AT ANY TIME. YOU":11);"HAVE TWO OPTIONS:":12);"(1) END CURRENT GAME.(23):"PRESS ANY KEY TO CONTINUE...":2620,(12):958:(12):5);"(S) - SELL STOCK. YOU MAY SELL ANY":11);"AMOUNT OF YOUR STOCKS, AT":11);"WHICH TIME YOU WILL RECEIVE"<611);"THE CURRENT MARKET PRICE":11);"PER SHARE. AS WITH BUYING":11);" ACTIVE COMPANY,"11);"PROVIDING YOU HAVE THE MONEY":11);"TO DO SO. THERE IS A BROKER'S":11);"FEE OF 6% OR $50.00 (WHICH-"11);"EVER IS HIGHER), PER STOCK":11);"TRANSACTION, WHICH IS":11);"COLLECTED AT THE END OF"+"11);"THE WEEK.":NS:":::" THIS IS A SIMULATION OF THE OPERATIONS":"OF THE STOCK MARKET (MORE OR LESS).":"THERE ARE 12 COMPANY STOCKS AVAILABLE":"FOR TRADE."" THE OPTIONS YOU HAVE ARE AS FOLLOWS:"::5);"(B) - BUY STOCK. YOU CAN BUY STOCK":11);"FROM ANY(1)"MONDAY":DAY$(2)"TUESDAY":DAY$(3)"WEDNESDAY":DAY$(4)"THURSDAY":DAY$(5)"FRIDAY" WEEK0:DAY0:M0NTH1:LAST31:QUARTER0: *** START OF YEAR 1979 *** ::(10):"DO YOU WANT INSTRUCTIONS? ":2620:KEY206650 :(3):15);::"INSTRUCTIO M0NTH$(1)"JANUARY":M0NTH$(2)"FEBRUARY":M0NTH$(3)"MARCH"t M0NTH$(4)"APRIL":M0NTH$(5)"MAY":M0NTH$(6)"JUNE" M0NTH$(7)"JULY":M0NTH$(8)"AUGUST":M0NTH$(9)"SEPTEMBER" M0NTH$(10)"OCTOBER":M0NTH$(11)"NOVEMBER":M0NTH$(12)"DECEMBER"V DAY$);"** MARKET CRASH **"` 10);"** BY DAVE MOGER **":10);"*******************":A1TIME:A A1ST0CKS:PRICE((1)1001)20:WASWASPRICE:TABLE(A,1)PRICE CHANGE((1)5)2:TABLE(A,5)CHANGE A:WAS((WASST0CKS)100)100:AVERAGEWAS=L CORP."X ZNAME$(7)"IBM CORPORATION":NAME$(8)"INTEL CORP.":NAME$(9)"LOCKHEED CORP." dNAME$(10)"MOTOROLA":NAME$(11)"STANDARD OIL":NAME$(12)"3-M CORPORATION" nA1ST0CKS:B14:TABLE(A,B)0:B:A x:::(8):10);"*******************":1008 2NAME$(ST0CKS),DAY$(5),M0NTH$(12),TABLE(ST0CKS,5)h <DISK$"":A$"":CHANGE$"":CHECK$"":IN$"" FNAME$(1)"ALCOA ALUMINUM":NAME$(2)"APPLE COMPUTER":NAME$(3)"CBS INDUSTRIES" PNAME$(4)"EXXON OIL":NAME$(5)"GENERAL MOTORS":NAME$(6)"HONEYWEL;@ C0:D0:A0:ASSETS0:B0:BEGINC10000:BUY0:WAS0:BROKER0CASH10000:CHANGE0:DAY0:FEES0:FLAG0:INCOME0:KEY0:LAST0MARKET1:M0NTH0:PRICE0:SELL0:SHARES0:255:QUARTER0 (ST0CKS12:TIME1000:WEEK0:YEAR1979:AVERAGE0:E0:F0:G0:H!! ! ! ! ! !!!!!!!!!                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>!CI"" " "