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`oP8ra(Ӡ)FE(Ӡ)FE()2`$M6a(ՠĠԠΠ)FE()Pcca(ҠŠӠ)F'88drrE()a()UVWY_na()_Gq.?6@r`$qqd6?e`$`$%oP8ra()qqq_"oP8ra()qq6q6;oP8ra(Ӡ)FE(Ӡ)FE()q` $_Ha()qq/?$roP8ra() a()oP8ra()PqqoP8rq=>8rr=>8rra()q`$/`$`$`$`$>oP8ra()qqq6q6oP8r)GY/}a()3oP8ra(ӠӠ)2q UVWo/?rP/?$ra()YqqLqqqoP8ra()q/?rƠՠԠĠάԠԮҠԠӬՠ̠Š)BFa()ca(ŠҠӠĬŠҮ)KUVWXYnUVWYqM6kxa()GUVWa( M6@p()de$oa(ԠǠ)q<#UVW2Ya(ՠĠŠӠҠ)(c-a(ҠӠŠ)/c2a(ڧܠ)7a()<cuAa(Ԡ٠ϠŠ8-6728 *"#D******************* LL.""~:"RULE FOUR:"F"~"A CRASH DEVALUING ALL STOCKS BY 50% IS"^"~"ALWAYS POSSIBLE."g"D100m"N|"::12:6""STOCK TRADER IS OFF THE AIR":22:"@*******************"A* (C) 1979 BY *"B* PAUL IRWIN * #C* (613) 72"(!r~" Q - QUIT THE GAME, NO RESULT";!|~:"RULE TWO:"h!~"THERE ARE 52 WEEKS TO THE GAME. YOUR"!~"RESULTS ARE THEN REPORTED. OBJECTIVE"!~"IS AT LEAST $5000 GAIN."!~:"RULE THREE:""~"WHEN CASH IS BELOW $200, YOU ARE":"FORCED TO SER & BEATUM." }100 ~32300+ "~30000D ,~::17:"R U L E S"W 6~:"RULE ONE:"u @~"ALLOWED DECISIONS ARE - J~" B - BUY SHARES AT MARKET" T~" S - SELL SHARES AT MARKET" ^~" N - WAIT UNTIL NEXT WEEK"!h~" R - DISPLAY THESE RULESBETWEEN BUY AND SELL PRICES."I}:5:"THE STOCKS ARE CYCLIC WITH A SIXt}"MONTH PERIOD. BUT OCCASIONALLY THE"}"MARKET WILL CRASH!!!"}:5}"WATCH YOUR CASH. EXPENSES ARE $200"}"EACH WEEK. THEY ARE ALWAYS DEDUCTED" }"BY SKYNNEVINGS BY TRADING ON":F}"THE WEEKLY RESULTS FOR A YEAR."CP}:5mZ}"THERE ARE SIX STOCKS ON THE MARKET"d}"FROM WHICH YOU CAN BUY FOR YOUR PORT-"n}"FOLIO. DON'T TRADE TOO OFTEN, SINCE"x}"THERE IS A SPREAD OF 10 POINTS BROKER'S"}"FEE "WRITTEN 1979 BY PAUL IRWIN"*|18:80000|9|100E}::13_ }:" STOCK TRADER ":i}3:5}"WELCOME TO THE BROKERAGE FIRM OF"(}"SKYNNER & BEATUM, WHERE YOU WILL PLAY"2}"A MARKET OF SIX STOCKS WITH $10000"<}"OF YOUR LIFE'S SA ****"Ey12:6*Jy"*** PORTFOLIO ***"@YyT112:T222:T332P|y1000:2000Vy`|::|M$"S T O C K T R A D E R"|11:8000|M$"THE CHALLENGING MARKET GAME"|7:8000|M$"FROM THE OTTAWA 6502 USER GROUP"|15:8000|M$L(S)95:CLOS(S)100:HIGH(S)100:LOW(S)100:auPI3.14159:THETA(6):I16:THETA(I)2PI(I):wuACT15: ACTIVITYuSWING(6):I16:SWING(I)ACT(I):y20000ySET UP SCREEN"y::,y13:" STOCK TRADER "6y:@y12:"**** MARKETST(6),P(6)5DuBUY(6),SELL(6),CLOS(6),LOW(6),HIGH(6)WXuSTOCK,BUY,SELL,HIGH,LOW,CLOStbuHD$(6):I16:HD$(I):lu 1,10,16,22,28,34vuT(6):I16:T(I):uAPP,PET,AIM,KIM,SYM,OSIuI16:SEC$(I):uCASH10000,uS16:BUY(S)105:SELK NEXT TIME."R32767-RGAIN999921180YR5:"YOUR SKILL EARNS A STEADY INCOME."sR"GOOD PERFORMANCE!!"~R32767R5:"YOU HAVE BEEN DECLARED THE WIZARD"R"OF WALL STREET! CONGRATULATIONS!!!"R327670u :uSEC$(6),PO(6),CO(6),FR"YOU ENDED THE YEAR WITH A $";CASH;" NET"HNR"WORTH. THIS IS A ";aXRGAIN0ĺ"LOSS OF ";{bRGAIN0ĺ"GAIN OF ";lRA(GAIN)vR" $";A;"."{R:RGAIN499921150R5:"THESE RESULTS QUALIFY YOU FOR" R"GOVERNMENT AID. BETTER LUC0:31010:20020!NA$"Q"32766=N(7):"PARDON?":20025KR(7)::pRS16:CASHCASHPO(S)SELL(S):R14::"FINANCIAL REPORT":&R:10:"FOR THE END OF 52 WEEKS"0R9:5:RGAINCASH10000DR"FROM AN INITIAL POSITION OF $10000,"-WK1:31010*N'4NX(0):34,20::I9N"DECISION(B/S/N/R/Q)? ";:A$\>NA$"N"20050uHNWKWK1:WK5221000JN4000:31010:20020RNA$"B"20080\N3000:31010:20020pNA$"S"20100zN5000:31010:20020NA$"R"20120N3230IS"/V'"HEREBY DECLARED BANKRUPT FOR FAILING"T`'"TO MEET WEEKLY EXPENSES. THE"{j'"RECEIVERS APPOINTED ARE MESSRS. *"SKYNNER AND BEATUM."\+:20+"(SIGNED)"+20:"G. D. TUSHOES, CLERK"+:"BETTER LUCK NEXT TIME!".32767  NTJ:(M$,40J);*^I14:X(16336):<hI110:XI:BrHN'\':(7):$'10::"NOTICE OF BANKRUPTCY":)':.':"TO: WHOM IT MAY CONCERN"8':"FROM: MINISTRY OF SUPPLY & DEMAND"B'10:5L'"THE PLAYER OF THIS GAME %, INCLUDING THOSE IN"-"YOUR PORTFOLIO!"Y:5:"PLEASE ACCEPT OUR SYMPATHY, AND"~"WE HOPE IT WON'T CRASH AGAIN.":20:"YOURS RESPECTFULLY,":20:"E. SCROOGE"100@I140(M$)2:M$(32)M$(32):JJ3911:/b"FROM: SKYNNER & BEATUM, STOCKBROKERS"El:"TO: TRADER"Lv6i"DEAR WIDOW OR ORPHAN:":5:"WE REGRET TO ANNOUNCE THAT THERE""HAS BEEN A MARKET CRASH!!!":5"TODAY, ALL STOCKS ON THE BOARD HAVE""DROPPED BY 50 EXPENSES FOR THE"."CURRNET WEEK ";WK;"."\:5:"PLEASE BE SO KIND AS TO LIQUIDATE""ONE OF YOUR ASSETS FORTHWITH IN ORDER""TO REMOVE THIS EMBARASSMENT.":20:"YOURS RESPECTFULLY,":20:"E. SCROOGE"100.X(7):pCOLLECTION LETTER)u(7)Yz::"FROM: SKYNNER & BEATUM, STOCKBROKERS"o:"TO: TRADER"6:"DEAR WIDOW OR ORPHAN:":5:"YOU ARE HEREBY NOTIFIED OF AN""ARREARS IN YOUR CASH ACCOUNT WITH US""WITH RESPECT TO YOURARE YOU":"SELLING TODAY? ";N<PNSELL(S):NPO(S)5070"EXCUSE ME, BUT YOU ONLY HAVE ";PO(S):"SHARES OF ";SEC$(S);". NOW THEN,":5040PO(S)PO(S)N:CASHCASHPI(N50)CLOS(S)SELL(S):PO(S)05080P(S)0:CO(S)0:ST(S)0004150)COUNTCOUNT1:COUNT2ī1000036000>31010H"5000R,4110d6CASHCASH200j^w34,20:"SELL SECURITY(1-6)? ";:A$:S(A$):S05090S1S65040"PARDON?":5010"HOW MANY SHARES OF ";SEC$(S);" DS((PIWK13)THETA(S))SWING(S)= BUY(S)(CRASHBUY(S))V BUY(S)25BUY(S)25o SELL(S)(BUY(S)10) CLOS(S)(SELL(S)(BUY(S)SELL(S))2) LOW(S)CLOS(S)LOW(S)CLOS(S) HIGH(S)CLOS(S)HIGH(S)CLOS(S)  COUNT0CASH2Y(S)2) SELL(S)SELL(S)I#  / I :6:12W O" Q - QUIT THE GAME, NO RESULT"} :"... WAIT UNTIL NEXT WEEK ..." CRASH1:(1).9975CRASH.5 CRASH.94010 7000:31010 S16 DS0:I110:DSDS(I):" BUY(S)BUY(S)4E YOU":"BUYING TODAY? ";N8 PNBUY(S):PCASH3070 "EXCUSE ME, BUT YOU CANT AFFORD ";N:"SHARES OF ";SEC$(S);". NOW THEN, ":3040 PO(S)PO(S)N:CASHCASHP I(N50)  CO(S)CO(S)P:CLOS(S)BUY(S):BUY(S)BUY(S)I  P(S)S:ST(S)(BUR1:S;"-";SEC$(S);:T1:PO(S);/ \T2:CO(S)5 fK p16:T3:"$";CASHc z19:T3:"WEEK ";WKi v 34,20: "BUY SECURITY(1-6)? ";:A$:S(A$) :S03090 S1S63040 "PARDON?":3010 "HOW MANY SHARES OF ";SEC$(S);" ART(4):HIGH(Y);2 T(5):LOW(Y);:T(6):CLOSE(Y)8 > BT DISPLAY POSITIONa 13:1: "CONTENTS";:T1:"SHARES";:T2:"COST" 15:T3:"CASH" 18:T3:"DATE"  Y11 4Y16:13Y:SP(Y) >S02150 H13Y1:Y1Y11 $*** STOCK TRADER ***!, 31900Hd24:14:"";Vn16368,0fx16384,128t}16368,0z DISPLAY BOARD4:X16:T(X):HD$(X);:Y16:4Y:1:Y;"-";SEC$(Y);:T(2):BUY(Y); T(3):SELL(Y);:          ?????O---%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%??????,mI)---mI)%??????,mI)---mI)%??????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????,mI)---mI)%??????,mI)---mI)%????????????,------------????;????,----MI----%????;????,----MI----%????;????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????????????????????,--------????????,-----------%????????????,-----------%????????????,-----------%????????????,------------????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????????????????????,-----------%????????????,mI)---mI)%?????I----%????;????,----MI----%????;????,-----------%????????????,mI)-------%?????????,mI)-------%?????????,mI)-------%????????????,-----------%????????????????????????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????---------%????????????,mI)-------%?????????,mI)-------%?????????,mI)-------%????????????,-----------%????????????????????????,-----------%????????????,-------mI)%?????????,-------mI)%?????????,-------mI)%????????????,-----------%????;????,----M------%????????????,-----------%????????????,-----------%????????????????????????,-----------%????????????,-------mI)%?????????,-------mI)%?????????,-------mI)%????????????,-----------%????????????,-----------%????????????,-----------%????????????,--`Cs????????????,-----------%????????????,-----------%????????????,-----------%????????????,-----------%????????????,-----------%????;????,----MI----%????;????,----MI----%????;????,-----------%????????????,-----------%????????????,-----      **SHIP CAPTAIN CREW**3 ** BY **O ** DAVID SPARKS **k **THE GREEN APPLES ** **CEDAR FALLS IOWA ** MAY NEPTUNE STRAIGHTEN YOUR WAKE, AND SMOOTH THE WAY AFORE' YE!"255:J12000::J11000:::"AVAST! YE'VE SQUANDERED ALL THE SHIP'S""TREASURE, YE BILGE RAT! ASHORE WITH YE!"E AT ANCHOR WHILE YOU THROW THE OTHER FOUR DICE."7fp" IF YOU HAVE A SHIP AND GET A CAPTAIN, YOU MAY PUT HIM ABOARD WHILE TOSSING THREE TO FIND A CREW."zk" IF YOU FAIL AFTER THREE TRIES, YOUR WAGER IS FORFEIT. OUANY GOOD TO FIND A CREW."W:" AND YES, YOU MAY BE FORTUNATE ENOUGH TO GET TWO, OR EVEN ALL THREE OF THE DICE YOU NEED ON A SINGLE THROW.":1\" YOU GET THREE ROLLS OF THE DICE BEFOREYOUR TURN IS OVER. IF YOU GET A SHIP YOU MAY LET IT RIDW. IT IS THE LESSON OF THE SEA THAT ALL ARE NEEDED IFANY ARE TO BE OF USE."H:" A FOUR ON THE DIE IS A CREW. YOU NEED A SIX, A FIVE, AND A FOUR TO WIN."R:" OF COURSE, YOU'LL HAVE TO HAVE BOTH A SHIP AND A CAPTAIN BEFORE IT'LL DO YKILL OF THECAPTAIN."4:" A FIVE ON THE DIE IS A CAPTAIN. YOU NEED A CAPTAIN FOR YOUR SHIP, BUT YOU NEED NO CAPTAIN IF YOU HAVE NO SHIP."Q>:" EVEN SO, NEITHER VESSEL NOR CAPTAIN CAN TRAVERSE THE DANGERS OF THE SEA IF THERE BE NO BULLY CRE."b :" A SIX ON THE DIE IS A SHIP. YOU MUSTHAVE ONE BEFORE YOU HAVE ANY USE FOR ANYOTHER."*:" THE ANCIENT MARINERS ALSO KNEW, AYE, 'TWAS OFTEN THE ONLY THING THAT BARRED MUTINY, THAT THEIR LIVES DEPENDED ON THEEXPERIENCE AND NAVIGATIONAL STERS BETWEEN THE IS- LANDS MEN CALL HOME."0" THE RULES WERE AS SIMPLE AS THE RULES OF SURVIVAL AT SEA. FIRST, THE SAILORS KNEW THAT THEY MUST HAVE A BOAT. THIS IS THE THING OF GREATEST IMPORTANCE.":" YOU ARE GIVEN FIVE DICE TO THROW WOULD YET CLAIM THEM, THESE HARDENED MEN 'ROLLED THE BONES' AND GAMBLED FOR THE SPOILS OF WAR."n*" SOMEHOW IT KEPT THEM SAFE FROM THE THING ALL SAILORS FEAR--THE MADNESS THATLURKS IN THE VAST, UNCARING, MONOTONOUS,EVER-THREATENING WA FROM THE FINGER-BONES OF THEIR HUMAN ENEMIES.":" THEN THEY WOULD PLAY A GAME ON THE FLOORS OF DUGOUT CANOES, AS THE STARS LED THEM HOMEWARD FROM CONQUEST."h" ATOP THE SEA IN HOLLOWED HALFS OF TREES, NOT KNOWING IF THE WATERF THE WORLD'S MAJOR SEAPORTS."&" THERE, AMID THE DIN OF CLACKING DICE AND BELCHING, SODDEN MEN, THE STORY CLINGS STUBBORNLY TO A MURMURING EXISTENCE."2" IT IS SAID THAT ANCIENT, SEA-GOING SAVAGES MADE THE FIRST DICEATED THOSE ISLES OF PARADISE."$" LONG LOST IN THE MISTS OF ANTIQUITY, THE FACTS CANNOT ANY LONGER BE VERIFIED TO THE SATISFACTION OF SERIOUS SCHOLARS.":" BUT AGED SAILORS STILL GATHER IN THE" "SEAMY ALEHOUSES AND DANK ALLEYWAYS OON. "::660#(ZZ$,1)"Y"İ700+:6:100" THE GAME OF 'SHIP CAPTAIN CREW' GROWSFROM THE SHIMMERING LEGENDS OF THE VAST SOUTH PACIFIC.":" ITS ORIGIN IS AS MYSTERIOUS AS THAT OF THE TAN, TENACIOUS MICRONESIANS WHO FIRST POPUL {BETSTAKE615 C " WELCOME TO 'SHIP, CAPTAIN, CREW!" :"WOULD YE BE WANTING THE STORY AND THE RULES, MATE? ANSWER YES OR NO. ";ZZ$ (ZZ$,1)"Y"(ZZ$,1)"N"ĺ:"IT'S DANGEROUS TO MAKE ME REPEAT MYSELF YE SWAB. NOW PAY ATTENTI 66 &21> 0"TOO BAD. YOU LOST. "N 2J11900:W 5W1` :600h D62 XW2W0:STAKE100:615 bBETBETW:STAKESTAKEBET dSTAKE0990 g l"YOUR STAKE IS NOW $";STAKE v:"HOW MUCH DO YOU BET? $";BET212 U"KEEP A SIX AND THROW FOUR DICE. "; ^200H cN1380U h625,95e rJ11000:m wN1v |440 21:"KEEP A SIX AND FIVE. THROW THREE DICE." 200 N1420 N2440 625,95 588,95 J11000: N2:"A WINNER";::"!!!!!!!!! "A J11800G O W1W S0] f 570{ ERASE ALL FIVE CC1:C3C0::550 J11500: JN4 D(J)25J63,95 , THROW FIVE 6200 @N0 J440 T FJN4 GD(J)25J63,95$ H/ d TESTJ eNNN1:NN102,107,112U fJ04f gD(J)6105n hS1t i jS1300 kJN4 lD(J)5110 mS2 n oS2340 pJN4 qD(J)4115 rS3 s tS3390 x213  W2! D$(4)>D$"BLOAD H-DICE,A$6000"I232,0U(233,96^-650y2"ENTER A NUMBER";SEED4D(SEED)5D(4)634,207:0:1:3<600>:0:1:3?S0@N0:C0BJN4CD(J)((1)61)E            d ededededeLdedede`[lٱmٲnlٱmٲngh'ٱq ٲq"iرjزk lٱmٲnHٱq$ٲq&iرjزk$iرjزk&lٱmٲnlٱmٲnlٱmٲn[pQT}dede0dededededed ed e_}d ed elٱmٲnlٱmٲngh gh=ٱqٲqiرjزklٱmٲnlٱmٲnlٱmٲn3ٱqٲqiرjزkiرjklٱmٲnDٱqٲqlٱmٲnlٱmٲnlٱmٲnghghFٱqٲqiرjزklٱmٲn2hرqزqiرjزkiرjزklٱmٲn>rرq زq"iرjزkiرjزklٱmٲn lmٲn"2|رq$زq&iرjزklٱmٲn$lٱmٲn&>رqزqٱqٲq iرjزk lٱmٲngh Dٱq ٲqlٱmٲnnlٱmٲn H@رq زqiرjزkiرjزkiرjزklٱmٲn lٱmٲn2Jرqزqiرjزkiرjزklٱmٲn=Tرqزqiرjزkiرjزklٱmٲnlٱmٲn=^رqزqiرjزkiرjزkiرjزklٱmٲnghgha()Gghgh[]ӠӠĠfUVWqUγVWijkγlmnγYγ"Y,fK6رqزq ٱqٲqiرjزkiرjزklٱmٲLM6fUVW'ij'kY?fUV W%XUV W%XghYY\["]ӠˠĠŠ&]Ġ٠ԭĠ`-r6%f`-r%fqqgh `@9()$ `@:()$  M6ccc) a(ӠҠǠ) Q) ]ŠҠĬԠӠ UVWD UVW I q X `-r$b ] `-r%\b Yv Y{ UVWd-rqY [-. ñq8@ñrα8 a(ԠӠ)GB `ñ $ L `ñ$ V `ñ'$ ` `ñ5$~ j a(ԠŮ)t _ ~ a(ٮ) _  a(Ԯ) _  a(ԠŠ) _  a(Ҡ) a(Ҡſ٠ҠΩ)G R@UVWY M6UVWY_ M6:a(ՠŠ)FȱGa(ӠĠɠŠ)FñGa()`ȱñ$`ȱñ$ a(٬ɠΠԠŮ)_ a(š)_  a(ՠΠ)  ñqñȱ `ñ$.  $ ñq6à)FӱGa(Ơ٠)UVWY q \2*ȱqȱӱ 4ñqñӱ >αqαR\ f`ñ$p`α@$z_]ĠƠŠM6q  q`$c'a(ĠƠŠ)`Ʊ$%a(٬ՠŠԠԠϠ)"a(Ơ٠Ӯ٠)_ q6\2`ӱ$&a(٬ԠΧԠˠ)a(٠)_ qcc a(ҠŠϠ)FGa()E@&a(Ӡq `@9()%q`@9()%q`@9()%q`@9()%q `@9()%q!`@9()%q"`@9()%q#`@9()%q&`$ Iq N`-r$v%Xa(٬ԠŠӠ)Ya(٠)b_v\ԱqԲq M6a(Ҡŭ)a()GTa(ο)GR@`$`$`$-a(ŠՠǠҠΠ٠ҠΩ)R@`@:()$`$ q_  q\2"ñqñӱ ,ȱqȱӱ 6αqα@a(ԠӠŠ)GJbӱGTa(ƠҠ)V`Ʋ$`XUVWY``Ʋ$h(bS(ӠΧĠɠ̠)&@h\ |`ȱ$`α@$]ΧӠ Y`$ q_]ŠŠqM6a(ɠ̠ŠϠ)GbɳG a()G`ʳ%a()`ʳ%a()`ʳ%a()`ʳ%a()`ʳ%a()`ʳ%a()`ʳ%a()`ʳ%a()qɳq$d q`ӱ±$d±qӱɴqʴq_d`ӱ±$d`ӱ±$< q/? r(`$d <±qӱFɳqPʳqdYnY`±$`$ɳqɴʳqʴ_ a(ɠŠϠԠ٠)UVW\`Ʊ$\2`ӱ$q_`$,UVWc-rq-r-rq-rYqqӱqԱqԲq `$/ ]ԠŠҠŠҠՠƠɢ$ ]ԠŠϠɽɻʽ`±ƠϬԠҽ,UVWc-rq-r-rq-rYqqqӱq\2$ԱqԲqq6qq q_qq_qq_qq_qq q `-r$/?rq/?#rdedeMY`8r8r$ ӱqӱӲ`8r8r$ ӱqӱӲ`$`α $k]ŠĬŠҠŠҠɬʮŠƠΠΠŠҠΠԠŮ ±q6 ±q6 qɳqʳqԱqԲq$]ΠҠˠ.UVW8UVW =q B`-r$dL]Ġˠ`\j`Ʊ$d q6\2`ӱ$dUVWӱqqp`@9()$z`@:()$Hqqc.S(ϠՠԠϠϠԿ٠ҠΩ)&@\`@9()$`@:()$]Ԡ̠\ _]ҧӠ\  M6(a(ɧ͠Ǡ)Y -,rq-,rq -7rq-7rq --rq--rq -6rq-6rq ñq ȱq *αq 4q>]ΧӠFca(ŮƠԠӠ))^a(ŬՠԠҠΠ),ha(ǠҠҠ׬̩Ů)OrS(ΠէŠĠȠŠӬӠΧ)&@|] M6cc<S(ĠɠԠŠǠ̬Ҡ̠ΠƠ٠)-1a(ĠԠȠĠ٠ԠԠŠ)*6a(ӮӠ̠Ч٠Ӭ)@a(Ǡ͠ϠӮ))Ja(źՠԠŠԠ))Ta(ŠƠ٠ӠΠӠ٠Ơ)(Ya(ӠԠ̠̠Π) a(̠ˬԠҠ)!a(ҠҠӬ)a(͠Š)ca(נ)a( )c,a(٠ϠŠҠŠϠԠ)-"a(ӠŬǠ̬)-,a(P a(Ӡ̮Π)UVW YM6o*a(ϠՠԠӠ٠ҠΩ)GR@`@9()$`@:()$ M6cc,a(ϠӠĠΠΠظĮ)-a(ӠŠĠĠӠȮ)'a(ŠΊPd2e?/Pa()P%a(Ӡ͠Ϡ)*Pa() d2e2oa(ĠΠ͠٠ĠϮ)Uoa(ĠĠĠҠŠɠ)cʶqʶʵBY˱CYD[%xO4drDɴ4rDʴ4rD4dryN@"rD4drD4drZz]ǠӠҠƠĬĠӬӬĠŠخ {q  |q }q ~q  qM6oɴ-rʵqʴ-r5ɶqɵʶqʵ 6ӳq7q ɶʶ`-rԲ$C+8ӳqӳɶqɶɵʶqʶʵq ɶʶ9`-rԱ$<:`-r$C;_8 <ӱqӱӳ=`$C >ɶqʶq?U˱VWӳ#@q ɶʶ-rqԱ-rqAɶqɶɵq `- rԲ$$`- rԲ$$`- rԲ$$`-rԲ$$`-rԲ$$ `- rԲ$$!`- rԲ$$"`- rԲ$$ #Ʊq[ $Ʊq[!1]Šŭĭ 2ӱq3UVW4ɵqΠŠٮӠӠȠӠΠҠŮ]Ū]ҠΠƠ]̠ͬ]ŧŬҬ]Š\} K_x)]Šԭҭҭ L% ]ŠɠϠ0 ]ĠΠ͠٠ĠϮ1 ]Ӡ٠Ӡ̮^ ]ӠŠŠƠϠȠŠӺӠŠ͠ҠƠӮd]ӠӠҠŠ                          R OF RUBIES (75 POINTS),80,75,WYVERNV9A BOX OF JEWELS (100 POINTS),90,100,BASILISK|9A GOLD GOBLET (50 POINTS),100,509(#9'"MONSTER";TAB11);"NO. SLAIN";22);"MONSTER";32);"NO. SLAIN"ZIOMBIE48100 GOLD PIECES (100 POINTS),30,100,GIANTe8AN EMERALD BRACELET (50 POINTS),40,50,HARPY8A TREASURE CHEST (200 POINTS),50,200,GRIFFIN8 A PEARL NECKLACE (50 POINTS),60,50,CHIMERA8A JEWELED SWORD (30 POINTS),70,30,DRAGON$9A JAD BY 100":D7"COMBAT STRENGTH-"D:"SLEEP SPELLS-"S1:"CHARMS-"R1_7"INVISIBILITY-"V1::7GOBLIN,10 SILVER SPOONS (10 POINTS),5,10,MINOTAUR7 A SWORD WHICH MIGHT BE ENCHANTED (25 POINTS),10,258CYCLOPS,50 SILVER COINS (50 POINTS),20,50,ZUR MAGIC TOTAL IS RATHER LARGE. DO YOU"a6"WISH TO CONVERT IT TO COMBAT POINTS?":X$:X$"N"ı6S1S15:R1R13:V1V12:S10S116R11R116V11V116SS1:RR1:VV1:CC100:DD100:"YOUR COMBAT STRENGTH IS PERMANENTLY" 7"INCREASE01630=5h"SLEEP SPELLS ";S:"CHARMS ";R:"INVISIBILITY ";Vl5m"PREVIOUS LARGEST TREASURE TOTAL ";Q1:205rQ1Qĺ"YOU WON MORE TREASURE THIS TIME THAN"5s"BEFORE ";5uQ1Qĺ"YOU DIDN'T OBTAIN AS MUCH TREASURE"5w"THIS TIME ";5|'6"YO, YOUR TREASURE TOTAL WAS ";Q,4VQQ1Q1Qb4WQ10ĺ"THE LARGEST TREASURE TOTAL YOU GOT WITH"4X"THIS STRENGTH AND MAGIC WAS ";Q1::"BYE NOW":4YBR0:Z0:D10:I111:NN(I)0::Q1QQ1Q4[Q0:204^:"COMBAT STRENGTH ";C5cC500C200AME STRENGTH AND MAGIC?":X$:X$"Y"1625W3O"DO YOU WISH TO GO TO A NEW FOREST WITH"3Q"NEW STRENGTH AND MAGIC?":X$:X$"Y"43R"DO YOU PLAN ON USING THIS SAME STRENGTH"3S"AND MAGIC AGAIN SOME OTHER TIME?":X$:X$"Y"İ17004U:"ONCE AGAIN"029"DOESN'T WORK. YOU LOSE ALL YOUR PRESENT"K2:"MAGIC":V0:S0:R0:W2;CS0ı2<"YOU MET A HUNTER WHO TOLD YOU OF THE"2="LEGEND OF A CASTLE":I((1)CS)1:1303:2@I12000::2E"DO YOU WISH TO GO TO A NEW FOREST WITH")3J"THE SON THE"01"GROUND AND PICKED THEM UP":QQ1:=1"M17ıi1%"YOU TRIPPED OVER SOME ROOTS AND LOST"1&"YOUR MIRROR":M10:1,"A HERMIT TOLD YOU THAT THERE ARE ";CS11"CASTLES LEFT":16VSR0ı27"YOU WANDERED INTO AN AREA WHERE MAGIC":VV1:RR1:SS1:0Q2ıK0"YOU FELL INTO SOME QUICKSAND. YOU LOST"s0 "HALF OF YOUR TREASURE":Q(Q2):0"YOU RAN INTO SOME THICK UNDERBRUSH AND"0"USED UP HALF YOUR STRENGTH":C(C2):1I((1)501):"YOU FOUND ";I;" COINS LYING WARP AND GAINED ";I;" DAYS":)/CDıT/"YOU MET AN ELF WHO GAVE YOU A MAGIC"/"DRINK THAT GAVE YOUR COMBAT STRENGTH "/"BACK":CD:/VRSV1R1S1ı/"YOU RAN INTO A WIZZARD WHO GAVE YOU A"0"POTION THAT RESTORED ALL YOUR MAGIC12000:.XA:YB:::-.I((1)111)k.I1510,1515,1530,1540,1550,1560,1570,1580,1590,1595,1520."YOU STEPPED INTO A TIME WARP AND LOST 7 DAYS".D1D17:.I((1)101):JD1:D1D1I:D1.1D1.1:IJD1/"YOU STEPPED INTO A TIME 21:15,Y:20,Y:23,Y:>-15,16:20,16:23,16:16,21:19,21P-19,20:24,21`-X11000:-5:Y17:19Y,7Y:X1100::-X12000:-13:Y2138:21,Y:38Y,Y:X1200::-9:Y2138:(15Y3),Y:(28Y2),Y:X1200::.X,8,2324:7,2225:10,2526:,26,6:26,7:15,6:15,7H,15,2326f,3:Y1112:15,Y:21,Y:},X14263:X,14:,X11000:,1:X1617:Y1112:X,Y:X6,Y::,0:Y1621:15,24Y:,15:Y1617:17,Y:19,Y:24,Y:-Y19(I)(J)ĺ"DIRECTLY TO THE ";:13077+I0ĺ"SOUTH";J+I0ĺ"NORTH";\+#J0ĺ"WEST";n+(J0ĺ"EAST";v+-:+xAX:BY::4+zY039:0,39Y:+|12:8,2213:7,2214+~X1517:10,22X:+X1821:7,25X:+X2223:10,22X:J)CC(J1):DD(J)DD(J1):S*:CSCS1:CS0ĺ"YOU FOUND THE LAST OF THE CASTLES"Y*e*CS0ıx*I((1)CS1)*"THE INNKEEPER TOLD OF A LEGEND OF A CASTLE"*CC(I)X1DD(I)Y1ĺ"VERY CLOSE BY ":*JX1CC(I):IY1DD(I)$+M1712259)"YOU ALSO FOUND A MIRROR WHICH WILL KILL"^)"ANY ";M$(11);"S YOU MEET":M17z)J((1)20):J2C2C)J2ĺ"YOU ALSO FOUND AN ENCHANTED SWORD")J2ĺ"WHICH DOUBLES YOUR STRENGTH")I1CS1:CC(I)X11245*J1CS1:CC(,(V"YOUR TIME IS UP. 30 DAYS HAVE PASSED"A([I11000::910W(I12500:::T0("YOU MADE IT TO THE ENCHANTED CASTLE"(I((1)21)100:J((1)9):AA(X1,Y1)AA(X1,Y1)10000(1400:"YOU FOUND ";I;" TREASURE POINTS THERE":QQI )J7Z'"TREASURE TOTAL- ";Q,' Q10İ1650\'"CONGRATULATIONS":Q10Q1Qĺ" ANYWAY":h':X$""'D130ĺ"DO YOU WISH TO RETURN TO THE FOREST?":X$'D130ĺX$'SS1:VV1:RR1:CD:X$"Y"1600':45(LD1(D110.1K)10:D130523FOREST":I11000:A&"DO YOU WISH TO SEE THE NO. OF MONSTERS"~&"YOU KILLED, RAN FROM, AND BRIBED?":X$:X$"N"ĺ:1030&I15:M$(I);14);NN(I);22);M$(I5);&34);NN(I5)&:22);M$(11);34);NN(11)':"BRIBED- ";BR;" RAN FROM- ";I5ĺ"YOU WERE UNABLE TO MASTER THE SPELL"U%I5ĺ"YOU GAIN NO ";G$(T5);"S":515l%T6SS1:S1S11%I7RR1:R1R11%T8VV1%"YOU WON THE ";G$(T5)%T0:S15R13V126İ1665%515%A1750::&"YOU SURVIVED THE OR"$"(3)CAST A SPELL?":K$6$K$"1"K$"3"950B$K(K$)U$K295,350,670~$I((1)11)1:MMM(I):MM$M$(I):NI$"A ";MM$;" CAME WANDERING BY":947$I14273$I((1)31):TI5:"A "G$(I):P((1)11):277$I((1)10)+%(I)::J11215:#"A GIANT EAGLE CARRIED YOU TO SAFETY"T#I11000::T0:1003}#I((1)11)1:MMM(I):MM$M$(I):NI#"A ";MM$;" HEARD THE NOISE OF BATTLE AND"#"CAME WANDERING BY"#I11M17835$"DO YOU WISH TO (1)FIGHT, (2)RUN, (1)101):BB(X,Y)1850="\BB(A,B)((1)3):BB(X,Y)5:215r"f"YOU FELL INTO A PIT":I((1)21.001Q):CC1"kC0ĺ"YOU DIED TRYING TO GET OUT":330"p"YOU USED ";I;" COMBAT POINTS TO CLIMB OUT":I11"uJ1750::375#J0:I111:JJNNTHE TREASURE CHEST WAS A TRAP. YOU WERE"N!A"KILLED WHEN YOU OPENED IT":330!C"YOUR MIRROR KILLED THE ";MM$:NN(11)NN(11)1:M0:500!H"A GIANT BAT GRABBED YOU AND CARRIED YOU"!J"TO A NEW SPOT"!MAX:BY:T0:D1D1.1"RX((1)101):Y(UR COMBAT"> "STRENGTH IS NOT DOUBLED AND STAYS AT ";C:505\ J((1)10):I((1)10)u %J7M17M17:820 *I1830 /513 4"THERE WAS A MIRROR IN THE CHEST. IT" 9"WILL PROTECT YOU AGAINST ANY ";M$(11);"S YOU MEET":M17:515(!>"";MM$;" SMELLED YOU":713SM60I0ĺ"YOUR INVISIBILITY WORE OFF TOO SOON":713\740yI((1)2)1:I780,790 C2C:"YOU WON AN ENCHANTED SWORD. YOUR COMBAT""STRENGTH IS DOUBLED AND IS NOW ";C:505 "YOU WON AN ORDINARY SWORD. YOI((1)10):RR1)M60I6734;M50I2734D735h"YOUR CHARM DIDN'T WORK.":480I3ĺ"THE CHARM WORE OFF TOO SOON":713I3:705V0ĺ"YOU HAVE NO INVISIBILITY SPELLS.":480I((1)10):VV1M50I8ĺ"THE I((1)10):SS1CI3ĺ"YOUR SPELL WAS UNSUCCESSFUL.":480pI8ĺ"YOU GOT THE TREASURE SAFELY":500"THE ";MM$;" WOKE TOO SOON"P((1)P):QQP"YOU GOT AWAY WITH ";P;" TREASURE POINTS":515R0ĺ"YOU HAVE NO CHARMS.":480U HAVE NO MAGIC":280C"WHAT TYPE OF SPELL-(1)SLEEP, (2)CHARM,"]"OR (3)INVISIBILITY"zK$::K$"1"K$"3"673K(K$)K685,720,745S0ĺ"YOU HAVE NO SLEEP SPELLS.":480N4ĺ"YOU CAN'T PUT ";M$(4);"S TO SLEEP.":SS1:480"I650,655,660,665?Y1100;" YARDS TO THE NORTH":515k(11Y1)100;" YARDS TO THE SOUTH":515X1100;" YARDS TO THE WEST":515(11X1)100;" YARDS TO THE EAST":515T5ĺ"YOU CAN'T USE MAGIC TO GET MAGIC":280SVR0ĺ"YOgI5Q6I09l"YOU PAID ";I;" TREASURE POINTS TO"Qn"STAY THERE":QQI{q"YOU NOW HAVE ";Q;" TREASURE POINTS"vI((1)3):I2515yI1İ1300:515{I((1)41)"THE INNKEEPER TOLD YOU THAT THE FOREST""EDGE IS LESS THAN3):BB(X,Y)5:1408N"YOU TRIED TO GO THROUGH A WALL"_SCC((1)Q.005)25:XA:YB:515XCD:BB(A,B)((1)3):BB(X,Y)5:T1:VV1[RR1:SS1:140]"YOU STOPPED AT AN INN AND REGAINED"_"YOUR STRENGTH"bI((1)Q.75):I5Q5I51:550$+Y10YY10:Y1Y11:555A0Y1YY10:Y1Y11:560V1BB(X,Y)1CC5l3BB(X,Y)0CC105C0ĺ"YOU DIED FROM LACK OF STRENGTH.":330:X1A1Y1B155=BB(X,Y)7T9?BB(X,Y)2590DBB(X,Y)3600IBB(A,B)((1)DISTANCE ";:K$:K$* K$"0"K$"9"520< K(K$):1100f A1X1:B1Y1:AX:BY:CC(7.5K(1))} X$"N"YYK:545X$"S"YYK:545X$"E"XXK:545X$"W"XXK:545515!X10XX10:X1X11:545&X1XX10:X1X1(1)7):I3940/J100I((1)5):I39659QQPGP25770`T5T9QQP:985"YOU HAVE ";Q;" TREASURE POINTS"P200800T9İ1200"WHICH DIRECTION (PRESS 1 FOR THE MAP) ";:X$:X$X$"1"T2:140T0:"WHAT J(P(M.1))N1:K24755H020:KJLIH475GLL.1::485m"YOUR BRIBE WAS NOT ACCEPTED. ";"YOU MUST FIGHT":295P0:QQK:BRBR1:T0:"YOUR BRIBE WAS ACCEPTED. ":505NN(N)NN(N)N1"YOU BEAT THE ";MM$N12I(K1Y1Y10:Y1Y11:K14BB(X,Y)1K0380aBB(A,B)((1)3):BB(X,Y)5:I11ZZ1mK155v215"HOW MUCH DO YOU WISH TO PAY?";KKQĺ"YOU ONLY HAVE ";Q;" TREASURE POINTS":435I((1)22):L0:I21(I15K2)325I((1)12):I113254hH010:H10MHI375?r:480mwAX:BY:K0:T0:CC(((1)21).001Q)5|XA((1)3)1:YB((1)3)1XAYB380D1(D1101.1)10:X10X1:X1X11:K1Y10Y1:Y1Y11:K1X1X10:X1X11:OINTS":29521I((1)1001):L2:CCK:KK.01QD6H1000050Y;LMKHI490f@LL.1:E"THE ";MM$;" KILLED YOU. YOU LOSE"J"EVERYTHING. DO YOU WISH TO TRY AGAIN?":X$:TX$"Y"4Y:"SO LONG. BETTER LUCK NEXT TIME":^REASURE FREE":500:"DO YOU WISH TO (1)FIGHT, (2)RUN,"c"(3)BRIBE, OR (4)CAST A SPELL?":K$zK$"1"K$"4"280K(K$)"K295,350,435,670'"HOW MANY COMBAT POINTS DO YOU WISH TO"("USE ";K ,KCĺ"YOU ONLY HAVE ";C;" COMBAT PGUARDING ";3J1ĺJ;" ";MM$;"S ARE GUARDING ";P MMM(I)J:I((1)141)dI11J100215I12J100ĺ"NOTHING IS GUARDING ";I11975I11ĺ"NOTHING":P0:277T$(I):PPP(I)MM$M$(11)M17835J100ĺ"YOU GET THE T15I((1)5):I2İ1500KI1T9ĺ"THERE WAS NOTHING THERE":515\I1T9513}I((1)161):NI:I12840I13870I14900I14J100:270J((1)100MM(I)):N1J:J0J1:N1JMM$M$(I) J1ĺ"A ";MM$;" IS COMBAT STRENGTH-";35);C;I3ĺ"TREASURE TOTAL-";35);QNI4ĺ"MAGIC:"pI5ĺ" SLEEP SPELLS-";35);SI6ĺ" CHARMS-";35);RI7ĺ" INVISIBILITY-";35);VI9ĺ"DAYS IN FOREST-";35);D1I10I8I1ĺ::T1ıT251P% }J((1)101):K((1)10)19 BB(J,K)0125I BB(J,K)1:_ :I110:J110i 3);~ BB(J,I)0ĺ"T"; BB(J,I)1ĺ"-"; BB(J,I)2ĺ"X"; BB(J,I)3ĺ"S"; BB(J,I)5ĺ"0"; BB(J,I)7ĺ"M"; :18);I2ĺ"(1)101):BB(I,J)73 FCA1IXYJBB(I,J)0:67Y KH1I((1)101):J((1)91)p UH1BB(I,J)075 WH1BB(I,J)3 ZBB(X,Y)5:W0115 _I1W dJ((1)10)1:K((1)10)1 iBB(J,K)0100 nBB(J,K)2: sP0140 xIY((1)10)1. 7X11X110Y11Y1101000P 8I110:J110:BB(I,J)0:: 9CA(AA(X1,Y1)10000):P((AA(X1,Y1)(10000CA))100) <W((AA(X1,Y1)(10000CA)(100P))10) AHAA(X1,Y1)10000CA100P10W:I0:J0 CCA1I((1)101):J(:"PLEASE WAIT..." CS0/ I110:J110P T((1)10):T1CS15T0z H((1)2):W((1)10):P((1)51) #AA(I,J)10000T100P10WH %T1CSCS1:CC(CS)I:DD(CS)J (::T0 -X1((1)8)2:Y1((1)8)2 2X((1)10)1:1400 V((1)3)D C((1)1501500):S((1)6):R((1)4) G$(1)"SLEEP SPELL":G$(2)"CHARM":G$(3)"INVISIBILITY SPELL" :"DO YOU WISH TO USE THE STRENGTH AND" "MAGIC FROM A PREVIOUS GAME?";:X$:X$"Y"1630 DC:V1V:S1S:R1R:1 M$(11)4CC(15),DD(15),NN(11),G$(3),MM(11)[AA(10,10),BB(10,10),T$(11),PP(11)a:::" GIANT MONSTER COMBAT"I111:M$(I),T$(I),MM(I),PP(I):::"MONSTER STRENGTH":I111:M$(I);:12:MM(I): I14000:                      'Poa()GoP6'cd2e?a(ԠӠԠҠŠӠР);$'ca(ՠŠĠ)a(ΠŠĠŠ) .'ca(ՠŠ)d2eQ'ұ%- rq)%`ұ%-rq`ұ%-rq)%`ұ%-)rq`Ҳ%-rq)%`Ҳ%-rq`Ҳ%-rq)%`Ҳ%-&rq`Ҳ%-/rq&UVW1`-rd$& &`/?2r %-rq6d&Y[ 'M6c!%-rq(%-rqd`ұҲ%-rq(%-"rqd`ұҲ%-"rq%ұq/?rҲq/?r:%-rqd- rqd-rqd-rqd-)rqd:%-rqd-rqd-rqd-&rqd-/rqd)%`ұ%-rq`\l%-rq\l%-rqN%\l%-rq\l%-rqX%\l%-rq\l%-(rqb%\l%-0rq_%l%q/?r`-r$l%v%-rq["%ұq/?rҲq/?r`ұҲ$%(%-rqd`ұҲ%-rq(%-rqd`ұҲ $qƱ-r_$$qƲ-r_$$qƳ-r_$ $qƴ-r$-rqY[%]ΠҠΠ&%UVW1-rqY20%UVW-rq2-(rq2Y-rq-E:%- rq2-rq2- rq2-rq2-rq2-$rq2D%)_$i$@p(Š)_$j$@p(Š٠)_$k$@p(ŠǠ)_$l$@p(Š)_$m$@p(Šà)_$n$@p(ŠǠ)_$o$@p(ŠǠ)_$p$@p(Š)$[$UVW1_$ӧ)_$$a$@p(ŠΧӠ)_$b$@p(Š٠)_$c$@p(ŠǠ)_$d$@p(Š)_$"e$@p(ŠΠԠ)_$!f$@p(ŠĠԠ)_$!g$@p(ŠŠԠ)_$ h$@p(ŠĠԠ)_$X$@p(Š)_$ Y$@p(ŠҠ)_$Z$@p(ŠǠ)_$[$@p(ŠŠ)_$\$@p(Š)_$]$@p(ŠҧӠ)_$^$@p(ŠħӠ)_$!_$@p(Šӧ)_$"`$@p(ŠΠ)a(ҧ)+$a(̧)a(է)a(ħ)$a(ӧ) $ca(ȠϠՠԿ)_#$_#&$q.?%rM6Poa(Ϯˮ)"$[T$_1?rT$U$@p(Š)_$ V$@p(ŠӠ)_$W$@p(Š#j"`d%a()G`2%a()Gt"`-%a()G[#]Ԡ٠#q.?6@r`$# $d6?e@$`$$8$M6ca(Ġġ)ca(ĠӠź)1$a(Ƨ)a(§r-rq8r -"UVW`-r-r1%-rq1Y!"Poq1?--rrr\`"!"Poq1?--rrr\`"!$"Poq1?--rrr\`"!)"Poq1?--rrr\`" Q"d2eV"Po [`"d2e`2%d2e?Poa()GY!PobG !a()G!` %a()G!bG!UVWq.?6?rY !d2e?=!@p()`%@p()`%@p()`%@p()"Poa@GW"-rq 8r-rq8r -rq 8ԠϠŠҠΠ)cS(ϠΠԠٯΩ)&@`@9()$-rqd_q_ %qq`-rd$ \_ UVWY[!]ˠ!d2e?q/!`<$!q<q` $'$!UVWrq-rq `1%q1`-r$&`6 6$Fca(ՠΧԠϠԠ٬)a(ŠƠŠ̮)q_ `-r6d$ca(ŠҠӠĮ)c`$Qa(ϠՠŠ٠ΠŠĠҮ)_ `%q`%q\L \$_ )`$q8r_)`$q8r_2`$q`6%qVq-.?6?rYjUVWYY~[@]Š EqJ`$T`- r-$h(^ca(ՠŠԠΠŠӡ)_ h`$|/rca(ՠŠ٠ΠŠРҮ)_ |`$2ca(4UVWY+5UVWq.?6?r.?6?r.?6?rY8[L]РĠ!Qca(ՠϠ)G`%a()G(R`%a()Ga(ŠӠ)VUVW3`UVWq.?6?r.?6?r.?6?r.?6?rYeUVWAYhUVWqĠ ca(ՠΠŠҠ)cUVWYUVdWX6 UVWq.?6?rYUVWYY7UVWUVWq.?6?rYUVWYY*$UVWxX UVWq.?6?rY.UVWYY3a(ĠˠȮ)UVWYsUVWq.?6?rtUVWYYvUVW,Y+wa(ŠӠŠŠΠŠ͠)z[`%@p(ĠƠ)`%@p(ϠҠ)`%@p(Ġ)`%@p(ϠҠ)[]Ҡz#Xdz     ! ĠŠ1 ҠԠ3 Ϡ' РΠנȭŠ ˠҠԠԠ̠Ϡ ̠Ϯà!ӠӠk Ҡ͠Ҡ úسسííŠ"Š@@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~9O9fpO O Lp`ŏ`œO ] k y `ďA L9k k  LL 8b b LL`Ų`YO)    bbA  P)A Oi)? L@ ٱ LfLfN)O)?i ơ k y k m k 0(- m 01 ?O ] L&k  0Lk  0L k 0L k 0ˈcO ] Ń樥) 0Lk  0LcO ecO `LgƟL@O ] k y N)?i L@ƟL@  ħL@O O ħL@A k k  LL ه  LL S Nďb LR,ɛLq ďLIēL`ĕL|O ] k y `L O k LO k O ] O k y ek 0='Q e 0` k 0L k 04L&k dO ] edO L O ŃLk  L  L  L 芙 ``櫢! /L\ ` k `  ,,ɒLl洢 A  A ƴ  L ݇  LV LV ʊN) O) i  LV ʊ Lu k y k m k 0(- m 01 ?O ] L&k  0Lk  0L k 0L k 0L Z捥Ŵƴ   ƍ L œ `A O ] k y `A "O O  LVO ŃLk  L  L  ٱ  LVLV iA O O Lk k A L\k k k k L  L3 A O Ńнb hbLO ŃLA LO O A Lk k k ʊk L ه "ه ه ʊه ʊه LA bc &cbLe) )L. ee Ń ` `] Ń` % y ee `dƤd`  0 ( (  ( (   O O ǩL l`ei` @   @ؠ  LNeONOePOPeNP&N&O&PN8ONO8POP8NPfNfOfP`O Ń` % A   k O 0L(L0ȄLe``Ń RLl@ @`ȱab R lǤ  N)  ] O y k A O ŃA Lq k LL"    LLDLDē Lq eLG` e LRL0ȄL L0LL' #$au\Rn z4]&    ,L ɒ,Ll,Lɛ,LɃ Lq ɰ0ɸ ) Lq `0 ``L , `ŀ``ŁL L %` LLLLL.O ] k y  Lq p~o}x{wo_?~}{x{|sg|}{wo_?~}{?`o_?~}{`pwo_?~}{ 0   @<p?~}{@_?~}{|}{~~}{wo_?~}{~~}{?p~~x{wo_?~}{x{~wo|}{wo_?~}{?`o_?~}{@pwo_?~}{    @ p?~}{@_?~}{@}?~/~ ^uwg 2 @ p  p p?;"t? %6SSSSSSS(`@[(tt!TSSSS|SSS2    ڈ0LN N ?N BN CZ ,Z M ̢!YL "-0:*U*U*TQLl*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U* $*062"."2 +*; :*"2"2"2"2#3#3#3#3:*:*: +#3#3#2=2;*+;* 3; ;+ ;+;+ ;+ #3 +; #3"2 +; "2 ;+ ;+;+ ;++; +;+; +; 3# ;+ 3#2" ;+ 2" +; +;+; +;+"2"2"2" :*:*:***!2","2"3?*:0#3#+;: 0;:+<* 0;3#* - *;+;3#3=3;+;;+;+;+;+;+;+;+;+;++;;+*:2;*:3;;++;;+;+;+;+;+;; +;                 : :*: *  :          +:+:*;+;2:*:**;3#3#3#3;+:0:0!0:**0 0:*:**0 0>,;+:* *::;+;+;+;+;                : *:*      ;1:* 1:1;1!0 +;2;1!0=3#3;/!0;*:+;*?-#/= ;*>,".<*;+:*;*:+;+;+;+;+;+ ;+;+ ;+ #3 +; #3"2 +; "2 ;+ ;+;+ ;++; +;+; +; 3# ;+ 3#2" ;+ 2" +; +;+U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@|}{|~~}{wo_?~}{~~}{?<<< *U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU*U*UU*UUUUUU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU******************U*U**U*U**U*U**U*U**U*U**U*U*U*U*UU*U*UU*U*UU*U*UU*U*UU*U*UUUUUUUUUUUUUU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UUUUUUUU*U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U*********************************************************U*U**U*U**U*U**U*U**U*U**U*U**************************************************U*U**U*U**U*U**U*U**U*U**U*U**************************U*U**U*U**U*U**U*U**U*U**U*U***********************U*U**U*U**U*U**U*U**U*U**U*U**************************************************U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U*****************U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U********************U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**U*U**************U*U**U*U**U*U**U*U**U*U**U*U*UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU*U*UU*U*UU*U*UU*U*UU*U*UU*U*U*U*U**U*U**U*U**U*U**U*U**U*U*******UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UUUUUUAq@` @@L@Ս`L   @p   U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U*U*  *U  @ P @`0 0 ``x 19p@8|?.uvo&ep p0 8 (H  (*U"E"E   (`x|lL,\|?|?~_N{ 9px|~?~?~?|||xxxppp||||||||||?~~?x@```L3|?xp`@̙ܝ    ((((PPPP|~o>|6@ @T+jWT+@ @???? ? ??   3 3 3 33 33333 33 3330  33 3 3 3? 36 3? 3? 3 3?  ?3_ 8  `i '`( PeXe@Hi ` i 08`V bժժժժժժժժժժժժժժժժժժ$ラ@ X Llڈ0  NO` #00000000HHHHHHHH````````xxxxxxxx L  @ɠ , $ (  І` & І І` íɱɴ) i:  i  $048z{{||}}xhXH8(p`P@0 xhXH8(p`P@0 @@@@@@@@@@@@@@@@ # # # # # # #((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP```aabbccddeeffggghhiijjkkllmmnnoooppqqrrssttuuvvvwwxxyyz $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?*UU*U*UU*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU*U*UU*U*UU*U*UU*U*UU*UժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժՍժժժժ΍נŠčנΠčҠȠ٠ˍ͠ ĭ̯̠ՠԠӠŪננƍנננƍנ°Ġՠ֠Ӡp/?r%\_.\\\`-r-r%\`-r$*`-r-r/?r%\`-r/?r%\"_.\\\"`- r-r%\,`-r$`-r/?r`-r/?r$`-r-r$`-r/?r%\"_\`/?r%\\\"`-r%\`-r-r$`-r/?r$`-r-r$`-rr%\`-r-r%\`-r%\`/?r-r$5`-r-r- r/?r%\_` $\`/?r%\\\`-r%\`-r-r$r/?r%\,`-r%\`-r-r%\5`-r-r-r/?r%\"`/?r-r$_` $9\\\"`-r-r/?r%\,`-r/?r%\`-r/?r%\t`-r$w_`x` $` $}\\\"`-r-r%\,`-r/?r%\,y`-r$Fz_}`$.~\\\`-r-r%\`-`=>rñ$ifòghefghqfUڱVW8Աr YڱZifòghmqn`$o`$p`$q`$r`$`s`$`$x\\\`-r-óq˱qǵq\)<UVWX0?rfòghfgh?`.?6?r$ZAq(B`Ա$FUڱVW8Աr Yڱ"FY\ q`$MKqq_<Mqq_<Z]_fògh bgh/dqUVW'#h g#h g!h g!h K5g'hg'hg'hg'hg'h g'h g'hg'h6UVW -rqY7qqq58fUVWlm#nYq` %q D:`ǵ˱%óq`˱ǵ%óq` %Ҡ)TԱԱqԱ`ԱԱ$qqM6 qòq ñqq@ Lfñij'kij'kfòUVW'lmnY qfñ93g%hg%hg%h g%h g%h g%h94g#hg#hgiZKM6o a(Ҡͭ͠ԠĠ٠РŮ)UVWYO4rD4rD4 r<KM6a(נ٠ӠҠ)T`$:UVW-rq-rqYUVW -rqY@a(٠      UUUUU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UU*U*UUUUUUUUUUUժժUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU*U*UU*U*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ     ñ$_ -rq qY[ UɱVW q.?r.?r.?r.?r.?r Yɱ [Q`$ `$*` $4` $>q!q _q#q_q#q _q%q_ q%q _q%q _ q'q_*q'q_4q'q _>q'q_`=>rk[lmn[lm#n[ijk"ijk#[lm#n[lmn[ijkijk[ qUVW -rqYUVW :`$`$`$`$`$ :`$\\\1[6\\\\\[#@\\\\\\[J\\\[(T\\\\\\\[0^lm#n\\\\\\[#h\\\\\\[ijkij.}oPb-  rG_Ofó`$`$`$"`$,`$6`$@,`$J`$T` $h_^\\[\\\\\["\\\\\[,\$\,`/?r%\`/?r%\,_\F\`-r$\`/?r$\`/?r$\`/?r$\G`/?r%\H`/?r%\K_:x-  rq-  r ` $rGh_jqq_ tq qq_ ~q_ qq_ D-  rq-  r `-  r %q_\\`-r$\"`/?r$\`/?r$\`/?r  rGR`-  r$T_;V-  rq-  r ` $[W_.[oPb-  rG^_4`-  rq-  r-  r&eoPb-  _\\,_\`/?r%\_\\_)\\`-r/?r%\,_)\\`-r/?r%\_0L-  rq-  r.QoPb-$`- r$_ \"_\\`-r$`-r$_ \"_ \_\\\\"_\\\\_\\_\`/?r%\,_\"\q_ XUVWY ZKM6[cA]UVWa(Ҡ)FE(ӠŠӠ)F-   rccY.ba(ӠΠҠҠ)GR@_\`-r%\_\,`- r%\"_\\,`-r%\h` %\hSoPq-  r` %bF`%a()G` %bE()G4`$` -   r$j`$t` -r$~`-   r$X`$~`$q-  r`%q 2`-  r-  r$`-  r$x`-  r $V.`-  r -  r$` $`]q` %q ,q-  r` q%q _6q'q_6q'q_6"q'q _6,q'q6fòghgh 7q6?>UɱVW @q.?rEYɱ^[ ha()G[`$`$6`-  r-  r$L!%\\b`$q -  rq `-  r $-  rqq_`$q_7`$q!q _6q#q_6q#q _6q%q_6q%q _6bY[c]ĠΠ nqx\ ]ԠРz]%|]ŠƠŠǠĠ~]`$`$_`$`$_`$`$_``$T`$U5P`$V` $V`$V_`Rq_`]ˠҠSq_`]ˠҠTq[]ҠؠUq[]ҠϠ3V-rq6_b]ϠΠŠΠӠ`-rqϠΠנĠϠӠŮD]Fqqqq(HUVW1q.?6?r`-r$b@Jq-rq-rq-r-r-r0L`$``$``$`?N`$R` $S5a(Ġ٠Ġ)cP8 ra(Ҭ)E7O41rD41rC@"brC@"brD41rD4rC@" rD4r(8N@"rC@"rC@"rC@" r<qq=_n?].A]ΠΠҠؠĠϠϠ-B]m  ]úسسíí]]Ġ#](]Ҭ)]!*]ŠàΠ͠Ǯ&+]͠àӭé#,]٠ ҭƠ2] 3KM6-4a(àí튊ؠؠ)cB          02:#`1:(9)"75N"::0:1002:A65L90AA$(I,J)(L) > ----------------------------U V:H::" ";::Hs P(16384)128:P03280 16368,0:P13ė: P27ġ:3150 P65P903280 Y$(P):Y$: ---------------------------- 1:(9)"75N"::0:10:Nl 23:"REPLACE WITH "::" TO START OVER, TO QUIT ";:rv V23:H9:3270:X$Y$:H16:3270 I1NL:J1LN(I):(A$(I),J,1)X$AA$(I,J)Y$ : 3170 ---------------------------- AA$(I,J)"-":L((A$(I),J,1)):LL U C"::" FREQUENCY ";::" Y W M F B K G P V J Q X Z"\0 1::12:" FREQUENCY CHART ":: V3:K1:J126:V:K:KN(J)ĺ(B(J)64)"-"KN(J);:KK5:K36VV1:K1D ::3180N :::3010X :b V9:J1NL:V:K1LN(J):AA$(J,K);:::VV24L91KN(L64)KN(L64)1:L("-")8 (L);::VV2:A  M13d  JM126:IJM:LB(J):FKN(J)  FKN(I)B(IM)B(I):KN(IM)KN(I):IIM:I03100 & B(IM)L:KN(IM)F::M(M1)3:M130908+ 20:1::" STANDARD ";::" E T A O I N S H R D :LN(I)(A$(I)):LN(I)1LN(I)40ĺ"EACH LINE MUST HAVE FROM 1 TO 40 CHAR-":"ACTERS LONG.": ::V8:1::J1NL:V:A$(J):VV2:: L126:KN(L)0:B(L)L: 24:"NOW I WILL COUNT THE LETTERS...";# V9:I1NL:V:J1LN(I):J:3240::L6ZAQR GULYUMQ QS QRAL": "NCWXCB SG ZAQR GULYUMQ QS QRU"\ "LSTQZCGU PULMGAOUP AW QRAL" "NCWXCB... -PSL 3.2 NCWXCB" A$(6),B(26),AA$(6,40),KN(26),LN(6) NL:NL0NL6ĺ"MUST HAVE FROM 1 TO 6 LINES OF TEXT.":] :V3:I1NL:A$(I)E CAN BE UP TO 40":"CHARACTERS LONG.^ 8:8:"1 -- SOLVE EXISTING CIPHER":8:"2 -- QUIT": B1:"WHICH? ";:A$:A$"1"A$"2"1090 LA$"2"ė: 6  "CYYBU MSNYXQUG AWM. NCHUL WS"  "ZCGGCWQAUL, UAQRUG UDYGULL SG"  "ANYBAUP, LL TAKE"6 "THE PLACE OF A PENCIL, PAPER, AND LOTS"d "OF ERASERS. ENTER THE ENCIPHERED TEXT" $"IN DATA STATEMENTS AT LINES 2000-2060."% ."THE FIRST ITEM OF DATA SHOULD BE THE":"NUMBER OF LINES (FROM 1 TO 6) IN YOUR":"CIPHER"TEXT. EACH LIN$ :::10:" CRYPTOGRAM HELPER ":::"BY BOB SANDER-CEDERLOF, MARCH 7, 1981.":"INSPIRED BY A PROGRAM IN 'APPLE-DILLO',""FEBRUARY, 1981, BY DAVID H. BARTLEY.":"IF YOU LIKE TO SOLVE CRYPTOGRAMS, THIS" "PROGRAM CAN BE HELPFUL. IT WI()G`-r%\h a()GY a()GY c Y M6[h]ŠŠm]ҠǠ rd2e|`-r6%a()G`-r6%a()G d2e[R]'\]Ġՠ٠͠٠a] IJq<@*rr -rqı IJ -rq q Y []]٠Š] KM6 oc$UVWUVWUVWq8r`-r%a()G`-r%a()G`-r%aӤӠԠ ]ĤӠ q \  UVW -rq Y& q0 \': [$v ]ĠӤĤϠӠĠ UVWbX ӱq<@*rr Ӳq<@*rr -rqӱ Ӳ ıq<@*rr ]k @p()k @p() ]5 ]ӤĠĤŠΠӬӠҠŠΡ)a(š)UVWY M6Q]$]Ġ٠̠ΠҠɠq-rq-r]UVWX`-r%[Ya(ҠĠԠŠ)$Q ] ]ԠРŠΠr9()$`@*#r:()$_'UVW-rq-rqYUVW1-rqY$qq_:ca(ϠՠԠϠ٠ԠŠ)S(ſ)&@`@*#r9()$x`@*#r:()$"a(`@9()$$,1a(ϠՠԠϠŠȠӠſ)cUca(٠ؠҠϠĠΠӠӠΠ)ca(ԠŠĠΠĠ)cS(٠ҠΠ)&@`@*#r9()$-S(ϠՠԠϠ٠Ҡſ)&@`@*#_z]]Ҡؠ]q-rq-rUVWX-rq6Y\`$q#a@H(ΠӠ)q ]ŠǠ,ca(ؠ)FH(Ϡ)FH(Š)FcŠŠӠš)2qa()a(ؠ)FH(Ϡ)FH(Š)Fa()v_]]ҠϠӠ]q-rq-rUVWX-rq6Y\# a@H(ΠӠ)q`$qr`%-rq-r-rq-rY q.?6?rYqq&UVW0`-r$:_N:q-rDqNYS[W]X]ŠŠY] bqgo8rP8r#la(Ӡq_]%]ΠΠҠŠ%]ϠĠ̠ȠԠ]UVW-rqYUVW1`-r$q-rq-rUVWX`-r$ q-r`%-rq-ʹ`$`$_%]ҠҠӠϠϧӠq\]Ġ٠_q_]ΠĠ\]ĠԠŠ`$X]Š#-rq]ŠؠŠ @p()\ \@@p()\\@q_]]Šؠ]%`$X`-r$-rqq_ QoPa(ŠاӠΠ)ca(ؠ)FE(Ϡ)FE(Š)F\F8`$`$X\F8`$`$`$`$_$]ҠҠӠϠاӠ!q\]Ġ٠_q_]ΠĠ$q/?r]Ġ͠`-r$-rq]ŠϠ$X`$\F`$q_]]ŠϠ]QoPa(ŠϧӠΠ)ca(ؠ)FE(Ϡ)FE(Š)F`-r$-rqq_$`$`$$_]]ΠϠ]\\d9-rq`$`$X`$\F]̠ΠҠ`$q_]]Πؠ\\d9-rq`$`2cPa(Ġ)<cPa() FcP a(  )WPcca(ՠŠǠҠĠҠŠήҠǠӠŻ)UcZa(ՠ)da(Ġ)na(̠)xa(Ҡ)Oca(ԠϠ]Ƞ ]3 ]]%]Ԡ͠Ϡ]'de{de dJe{dKe ] ]Ӡ] (KM63]]]ĠŠ]]٠]]  ]           !!ΠϠϠ',qqq_,]ŠؠΠϠϠ,qq_#r9()$z+p+`@*#r:()$+_)&z+qqq@p()"+qqqq_$,`6$'.,UVW-rq-rqY8,UVW1-rqYB,qL,`$,_,,]ŠϠؠ)c'+a(ŠϠȠȠǠ)c% +a(ǠΠ̠)c *+d2e?.4+a(ǠŠ٠)c0>+a(ƠՠȠϠР͠Ġ)ccH+P a(̠)cc R+d2e\+S(ӠҠϠ)&@f+`@*)`@*#r:()@*#r:()$))`@*#r:()$))qq_*)qq!*]ΠҠϬĠҠ*qqq*[*]*]ŠǠ*] +M6/ +o a(ϠՠȠϠȠ)Z(_)(`$)"(S(ҠŠƠҠؠ)&@(@p(Š)(_))`$h))@p(Š))@p(Š)")_*h)_])]#)]ŠϠĠϠ)]6)cS(ϠĠϠԠҠؠҠҠϠ)&@*Šſ)'q.?6@r`$' 'd6?e 'q'`$''UVWcY'`$<("'S(ҠŠƠҠؠ)&@"'S(ҠŠƠҠϠ)&@'_)<(`$("F(S(ҠŠƠҠϠ)&@P(@p(ŠĠ)cP8 ra(Ҭ)@8'cca(ŠҠŠƠŠՠȠϠ٨Ϡ)B'ccL'a(ϠΠ)V'ca(ΠӠŠ)`'ca(ΠӠŠ)j'ca(ŠؠӠŠ)~'ca()c'a(ԠРŧӠŠΠE]^Jq8r q8rq8 rM6ocP8ra@G KM6|T[(#]']ԠРŠƠ'] 'KM6-$'a(àí튊ؠؠ)cA.'a(Ġ٠)M6|o@p()\pqq8r1M6ocP8ra@GM6|q`-r%[foP8rM6a(٬ԠŠӠġ)UVWYM6|o P8rM6_X6]'@]t]٠נӠu]EvM6UVWoP8ra()FE()GYM6|o@p()\pq6UVWoP8r`%a()GY]]٠Π]*M6o P8ra(Ӡ)@p()_X&xa(ҠϠ)E@E(Ӡ)@p()U]V]٠̠W]IXo M6dM6UVWP8ra()FE()GYM6|bo@p()\pq4lo UVWP8