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`>ȄȨtBsO~g`@ZaB@D"T"x__G~k{ѕȪ 5jŨ 8onDdy{n^<ֺ @T ؖpLr},nq~cÊ A@@ B(Z8!c\gowPrIB<Jq& @ U]zml>fwO| Ae0D(E* ((@(Q(QUE(q" Рx,(@1~~f?x^JE"琠PgRD I(Tv*~y"dy}{\F.ETX,@ T"C{|?|qv'@m\;h"`?E<~a;p p}}p)Eí H r* ӖRց+~?@3oCo{|OU B5”s3gps?Ȑ*hؐDŀ*g ~" ! h@I_y ᨁ !j~y0}P ƊG (~ PLOo/  R JԐ#\DqQ,IA,%U!ŐêКKOa?`?~}w@(RPB$:S }|}oiZ;D@0IB*=aȉF[gw=s'y08ЂF};xguϨJ"TTՂȔCBzOOMxsq0$H()|aØY{{~no|?@*D‚tk9xxo~AWoBfx>~_;|Д ¤Ɩs]gOw~?|B@) *0ŨZx<@ENuo3(3OL+mEA,qx9&O*urK=x0ԂF#*(*Q@* (*T UQ \,B(Q [T"A,~?~u{sO 񎢯ZB1@EAvs2|x_yxԮ D)(#sO0v|?~qD(@LHxHOvwoVE p42DA(+D Xvw?s{}r `ȈP@ ` U*U:eM U P Q P"U8$P$UV~O`??\cG"@L28A @$Q/U| &}^FCSb GDL|{G>(A  Sr"8H%(Ăf(u`|?` o_f+рj)B+6QnCU;i |~awAg}l|#                               60,BE(BE256)256:61,(BE256):62,EN(EN256)256:63,(EN256):66,DE(DE256)256:67,(DE256):768: p7 768,216:769,160:770,0:771,76:772,44:773,254CDE8192S:16302,0r(4);"BLOAD N.BIN,A$2000"}J1516300,0(I13000:I216299,0<Y1300:YAJFBE24576:EN32768:100P100:I13333:IZ26n d  $% 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 ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 TURN' TO BE ENTERED EXCEPT WHEN YOU ENTER THE MESSAGE AMD THE TIME IT WILL BE PRINTED"#8r"JUST REMEMBER, YOU HAVE TO PRESS 'RETURN' WHEN THE CURSOR IS FLASHING OR WHEN THERE IS A QUESTION (?) MARK."#Br32900:$Lr"WHEN YOU ENTER THE TIME TI SUGGEST YOU ENTER THE TIME THE MESSAGE WILL BE PRINTED.""$r"NO PROVISIONS ARE MADE IN THE PROGRAM, TO TELL YOU WHEN THE MESSAGE WILL BE PRINTED, IF YOU HAVE NOT ENTERED IT INTO THE MESSAGE TEXT"Y#.r:"MOST KEY PRESSES REQUIRE NO 'RECLOCK AND THE PROGRAM IS UP AND RUNNING. WHAT DO YOU DO NEXT ?":!r"YOU CAN DO FOUR THINGS, 1. SEE ALL THE MESSAGES, 2. ENTER A MESSAGE, 3. DELETE A MESSAGE, OR 4. END THE PROGRAM"C"r"SIMPLY PRESS 1,2,3, OR 4. IF YOU DECIDE TO 'ENTER A MESSAGE', DISK ERROR ON THE FIRST RUN. IF YOU DON'T DELETE LINE '280' AFTER THE FIRST RUN, ANY INFO YOU PUT ON THE DISK, WILL BE ERASED" q:"LINE '280' IS USED TO INITIALIZE THE TEXT FILES" q32900C!r"GOOD -- NOW YOU HAVE A 'MOUNTAIN HARDWARE' G":Zq32,4:33,36:5:"HIT 'RESET'":"ENTER - 'LIST 280'":"ENTER - '280 GOSUB 26000'"q"RUN THE PROGRAM":"DELETE LINE '280' AFTER 1ST RUN":"RESAVE THE PROGRAM":32,0:33,40: q"IF YOU DON'T DO THE FOLLOWING, THE PROGRAM WILL END WITH A FOR EACH MESSAGE."jq"AFTER THE MESSAGE IS ENTERED, YOU WILL BE ASKED TO ENTER THE TIME YOU WANT THE"q"MESSAGE PRINTED."q32900q12::"IMPORTANT NOTICE"::q"IF THIS IS THE FIRST TIME YOU HAVE EVER USED THIS PROGRAM, DO THE FOLLOWINA"*zq"MESSAGE IN THE COMPUTER AND THEN"Gq"TRANSFER IT TO DISK":q"IT USES A 'MOUNTAIN HARDWARE' CLOCK TO CALL THE MESSAGE UP WHEN THE TIME HAS"q"ARRIVED FOR IT TO BE PRINTED"qq"YOU ARE ALLOWED TO ENTER 6 LINES OF 40 CHARACTERS,ESSAGE CENTER"0\q:10:"BY DENNIS R. FISCHER"^q22:8::"HIT ANY KEY TO CONTINUE "::7::"HIT 'ESC' FOR INSTRUCTIONS":`qKEY(16384):KEY12729028bq29024dq16368,0:KEY15529040fqpq:5:"THIS PROGRAM WILL ALLOW YOU TO LEAVE Nfixi TEST Hq BEGINNING MESSAGE MqRq11:7:"APPLE CLOCK MeDOS$;"CLOSE"*e TTP=TIME TO PRINTHeX$"999999999.19":X(X$)geDOS$;"OPEN TTP FILE(L20)"eDOS$;"DELETE TTP FILE(L20)"eDOS$;"OPEN TTP FILE(L20), L20"fI025fDOS$;"WRITE TTP FILE(L20), R";IfX!fI&fDOS$;"CLOSE"TORAGE--LENGTH'S= L255 & L20"CeDOS$;"WRITE MESS FILE(L255), R4"e"THIS IS A TEST TO SEE IF THIS PROGRAM CAN REALLY DO WHAT I EXPECT IT TO DO. TEST----TEST----TEST----TEST----TEST NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THEIR PARY"eDOS$;"WRITE MESS FILE(L255), R";I+e""2eIXeDOS$;"WRITE MESS FILE(L255), R0"e"THE MESSAGES ARE STORED IN 'MESS FILE (L255) & THE 'TIME TO PRINT' FILES ARE STORED IN TTP FILE(L20) THIS PROGRAM USES A RANDOM ACCESS FILE FOR DISK S INITIZE TEXT FILE 1ST TIME eDOS$;"OPEN MESS FILE(L255)"eDOS$;"DELETE MESS FILE(L255)"eDOS$;"OPEN MESS FILE(L255), L255"eI025: MAX MESSAGE NUMBER = 25#DD CURRENT DAYS OF MONTH2zbL(4928016SLOT)@bL(L64)ObL1LL2gbMT2L1DTDDTD1b SECONDS TO DATE---STD bSTDDTD86400H3600M60Sbje aDTD0(aMT1DTD09bMT2DTD31J bMT3DTD59[bMT4DTD90m bMT5DTD120*bMT6DTD1514bMT7DTD181>bMT8DTD212HbMT9DTD243RbMT10DTD273\bMT11DTD304fbMT12DTD334pbDTDDTDD: A THIS IS THE SECONDS SINCE JANUARY 1BaMT((TIM$,1,2))WaD((TIM$,4,2))laH((TIM$,7,2))aM((TIM$,10,2))aS((TIM$,13,6))a DAYS TO DATE--DTD OUTPUT DATE & TIME B]10h]"DATE: ";MTH$" ";DAY$;", ";YEAR$p]12]"TIME: ";HOUR$;":";MIN$;":";SEC$]a SECONDS TO DATE ,aMTH$"JUNE"&ZMTH$"07"MTH$"JULY"C(ZMTH$"08"MTH$"AUGUST"c2ZMTH$"09"MTH$"SEPTEMBER"N24000\N32,(700):33,(701):34,(A \Z$ a15V fZ$::Z$"":DOS$;"WRITE MESS FILE(L255), R";A:Z$:DOS$;"CLOSE" k:" ": pZ$"99999999.19":Z(Z$):DOS$;"OPEN TTP FILE(L20), L20" zDOS$;"WRITE TTP FILE(L20), R";A:Z:DOS$;"CLOSE"8032000 16368,0+ 25000: GET STD7 A125K *STDPT(A)840R 4A[ >750 H::"": 15 BELLS M13::" ": RDOS$;"OPEN MESS FILE(L255), L255":DOS$;"READ MESS FILE(L255), R";* 1.SEE MESSAGES *"5 10:"* 2.ENTER MESSAGE *"U 10:"* 3.DELETE MESSAGE *"u 10:"* 4.END PROGRAM *" "***************************************" 34,12:13 20000: PRINT TIME KEY(16384) KEY177KEY178KEY179KEY1 b MAIN PROGRAM1 g32,0:33,40:34,0:35,24:` l"***************************************"u v"*":2:39:"*" "*":3:39:"*" "***************************************" 10:"* PRESS KEY FOR- *":10:"********************" 10:"HOUR$(2),MIN$(2),SEC$(2),FRAC$(3),YEAR$(4)B YEAR$"1980":SLOT4Z DOS$;"NOMON,I,C":t 29000: INSTRUCTIONS 30000: CHECK FOR CLOCK  PUT 'GOSUB 26000' HERE IF YOU HAVE NEVER USED THIS PROGRAM BEFORE "31000:LOAD MEMORY FROM DISK9 ( ************************;2 CLOCK MESSAGE CENTERV< BY:DENNIS R. FISCHERF JULY 10, 1980 P ************************d:xPT(25): PRINT TIMEDOS$(4): CTRL-D* TIM$(25),MTH$(10),DAY$(2),          ,YAXB,YB# X(I)(XA):Y(I)(YA)? X1(I)(XB):Y1(I)(YB)E XP2XBD2:P20P2XM540+ P2XB:D2D25 XBP2T &P3YAD3:P30P3YM570e 0P3YA:D3D3o :YAP3 DP4YBD4:P40P4YM600 NP4YB:D4D4 XYBP4 b l PLOT THE NEW LINE FROM THEN ENDPOINTS AND UPDATE THE ARRAY vCO XAO GET NEW DELTAS AND NEW TESTS- T20470@ D1((1)94)S D2((1)94)f D3((1)94)y D4((1)94) T2(5(1(1)10))   COMPUTE NEW END POINTS FOR PLOTTING P1XAD1:P10P1XM510 P1XA:D1D1 XAP1 )X1(I),Y1(I) J= T TEST TO SEE IF YOU NEED A NEW COLOR ^ IF A NEW COLOR IS NEEDED THEN GET NEW COLOR AND NEW TEST VALUE hT10390 rCO(1(1)7) |T1(5(1(1)10))   TEST TO SEE IF YOU NEED NEED NEW DELTA VALUES. IF YOU DR NEW COLOR0 400: TEST FOR NEW DELTA VALUESP 480: CALCULATE NEW POINTSs 620: PLOT THE NEW END POINTS T1T11:T2T21 II1 I150180 190  " ERASE OLD LINE , SET COLOR TO BLACK AND DRAW LINE 60 @X(I),Y(IFd STRING ART0nBY ERIC SMITH NOV 7,1980[x FROM AN ALGORYTHM IN NOVEMBER 'BYTE'~X(150),Y(150),X1(150),Y1(150)XAYAXBYBT1T20XM279:YM159 START MAINLINE PROGRAMI1290: ERASE OLD LINE 340: TEST FOUMBER---THE EMPTY"@:"SQUARES ARE INDICATED BY ";::" ":m:"WHEN YOU CAN NOT JUMP ANY CHECKERS,":"ENTER A '0' FOR THE 'FROM' GOOD LUCK!!E110000:E:70T IS TO CAPTURE AS MANY"B\:"CHECKERS AS POSSIBLE, BY JUMPING"of:"OVER A SQUARE CONTAINING A CHECKER,"p:"TO A SQUARE THAT IS EMPTY."z:"ALL JUMPS ARE ON THE DIAGONAL,":"SQUARES WITH CHECKERS ARE INDICATED":"BY THE SQUARE NAYING..") :" HOPE YOU HAD FUN!!"/ @ 8);::520j :"YOU CAN DO BETTER THAN THAT":710 *:"VERY GOOD! YOU'VE BEEN PRACTICING?":710 4:"FANTASTIC--":710 >:::: H"THIS IS A SOLITARY GAME OF CHECKERS"R:"THE OBJEC2 :"YOU MADE ";M;" JUMPS AND HAD ";S;" PIECES"T :" REMAINING ON THE BOARD."b M39800p M44810~ M48820 :"TRY AGAIN (Y/N) ";A$ A$"Y"Ĭ A$"N"760 "PLEASE ANSWER 'Y' OR 'N'." 710 ::"O.K. THANKS FOR PL0790 A(I)10530- 8);A(I)" ";:540I 8);" ";::" ";:540` 8);"0";A(I);" ";g Im &t 0J| :: ?34,18 @19:958 D200 NS0 XI164 bA(I)1A(I)1 lSSA(I) vI  *** SUMMARIZE GAME 34,17: T(F2T2)2390+ ^A((TF)2)0390; hA(F)0390K rA(T)0390T |415v "ILLEGAL MOVE. TRY AGAIN..." 200  *** UPDATE BOARD 34,0:1 A(T)T A(F)0 A((TF)2)0 MM1 J1578  IJJ7 A(I)A(I)0 I J M0% 460: "JUMP FROM ";FG F0590V " TO ";T^ :s *** LEGAL MOVE F1((F1)8) F2F8F1 T1((T1)8) T2T8T1 "F17390 ,T17390 6F28390 @T28390 J(F1T1)2390  ::5*18);"SOLITARY CHECKERS"B:18);"BY M GRAY"K(::u2"DO YOU WANT INSTRUCTIONS? (Y/N)";B$<B$"Y"830:B$"N"70F::A(64)P *** LAY OUT BOARDZJ164dXX1nA(J)XxJJ19438IJJ3     ONLY BE USED ONCE."f210PU". " CAN ENTER 'GOTO' WHICH ALLOWS YOU"Z*" ADD ANY NUMBER TO 10(GOTO 5 WOULD"}4" GIVE 15 FOR YOUR NUMBER.">"12.USE..WILL GIVE LIST OF THE #'S USED"H"13.SCORE..WILL GIVE SCORE."R"14.END...END GAME."\:"EACH NUMBER CAN NUMBER BY 2."0"7. SQUARING...SQUARE NUMBER"\"8. SQUAREROOT..SQUAREROOT OF NUMBER.""9. INCREMENT...ADD ONE TO NUMBER""10.DECREMENT..SUBTRACT ONE FROM NUMBER." "11.GOTO.....A SPECIAL CASE."" IF THE NUMBER GETS DOWN TO 1, YOZ$):"HERE ARE YOUR OPTIONS:......."I:"1. ADDITION....ADD A+B"s"2. SUBTRACTION...SUBTRACT A FROM B""3. MUTIPLICATION..... MULTIPLY A * B""4. DIVISION....DIVIDE B/A""5. DOUBLING....DOUBLE NUMBER" "6. HALVING....DIVIDE (1+3=4);2X:"A 15 BY SUBTRACTION (5 - 1 = 4)"[b:"BY ADDITION OR MULTIPLICATION A"}l:"22 BECOMES A 4 AND SO ON"v:"EXAMPLE FOR 13 A=1 AND B=3":"HIT ANY KEY TO SEE ALL OF YOUR CHOICES":"PROGRAM ONLY USES THREE PLACES."TO THIRTY INCLUSIVELY"8:"HIT ANY KEY TO CONTINUE."@Z$I:5`&"THE PLAY......."0:"LET'S SAY THAT THE MASTER NUMBER IS 4,"::"GETTING A 4,14 OR 24 WOULD SCORE BE-"D:"CAUSE EACH CONTAINS THE NUMBER." N:"A 13 BY ADDITIONISCONSIN."8:"ONE, TWO OR THREE PLAYERS MAY PLAY."c:"YOU START THE GAME, BY PICKING A":"MASTER NUMBER BETWEEN AND INCLUDING ":"THREE AND NINE. PLAYER # 1 THEN":"CHOOSE THE STARTING NUMBER, WHICH MUST ":"BE FROM ONE HAS ";S(D);" POINTS."rD4|(T$,3)"SCO"1550GT$"END"1690R:460:"THANKS FOR PLAYING...ANOTHER GAME(Y/N)":Z$Z$"Y"Ľ:::210(37):"'SKEDOODLE' WAS ORIGINALLY CONCEIVED BY" :"FATHER DANIEL OF BENET LAKE, WAGAIN":X1:430@G30G1ĺ"ONE TO THIRTY PLEASE.":GG1:430Fu:"THE FOLLOWING NUMBERS HAVE BEEN USED:"D130"GDğ,C(D)0ĺD;::",";6@DJ:460T:"THE SCORE IS AS FOLLOWS:":^D1Nh"PLAYER#";D;" NCREMENT, PLAYER #";P;" GETS:";G'n0x370J=======DECREMENT====T1500^GG1h1500r1530(37):"BY DECREMENT, PLAYER #";P;" GETS:";G370A(G10):BGA10"OPERATION CANNOT BE COMPLETED, TRY MAINDER MUST BE ONE (1).":X1:(7):430VG1Ė20:(37):"GOTO WHICH NUMBER? ";GObG10GOl 1500(37):"BY GOTO PLAYER #";P;" GETS:";G;16)(3702=======INCREMENT====<1500FGG1P1500Z1530!d(37):"BY I t1500:~(37):"BY DOUBLING PLAYER #";P;" GETS:";G@I370f=====HALVING===========G2(G2)GG2:121015201500(37):"BY HALVING PLAYER #";P;" GETS:";G370=====GOTO==============(G1ĺ"RE====SQUARE ROOT========$1500S(G4)(G9)(G16)(G25)G((G)):1070]$1520g.15008(37):"BY SQUARE ROOT PLAYER #";P;" GETS:";GBL370V=======DOUBLE==========`G15GG2:1140j"TOO HIGH,TRY AGAIN":X1:430A:91015201500K(37):"BY DIVISION PLAYER #";P;" GETS:";GQZ370w=======SQUARE==========1500(G2)(G3)(G4)(G5)GGG:100015201500(37):"BY SQUARING PLAYER #";P;" GETS:";G370(37):"BY SUBTRACTING PLAYER #";P;" GETS:";G2; 370X====MULTIPLICATION=====b 1500l*GABv41500>1530H(37):"BY MULTIPLICATION PLAYER #";P;" GETS:";GR\370f=====DIVISION==========p1500zBA(BA)GBEND"1620/l"INVALID ENTRY, TRY AGAIN ":460Lv=====ADDITION==========V1500`GABj1530t1500(37):"BY ADDING PLAYER #";P;" GETS:";G370======SUBTRACTION======1500G(AB)15001530,800 (T$,3)"DIV"8802 (T$,3)"SQU"960J (T$,3)"SQR"1040b (T$,3)"DOU"1120z &(T$,3)"HAL"1190 0(T$,2)"GO"1260 :(T$,3)"USE"1550 D(T$,3)"SCO"1620 N(T$,3)"INC"1330 X(T$,3)"DEC"1410 b(T$,3)"(AB))(MAB)(MAB)(MBA)ĺ"PLAYER #";P;" SCORES":S(P)S(P)1K G1G] X1X0:460p PP1:PNP1 LN(37):3:25:"NEW NUMBER= ";G;" ":LN1 :"PLAYER #";P;:" ";T$ (T$,3)"ADD"640 (T$,3)"SUB"720 (T$,3)"MUL" ";M# ^:"STARTING NUMBER IS ";S- h34,4a rC(G)0ĺ"THAT NUMBER HAS BEEN USED":GG1:460q |C(G)C(G)1 MGĺ"PLAYER #";P;" SCORES":S(P)S(P)1:430 (A0)(MB)ĺ"PLAYER #";P;" SCORES":S(P)S(P)1:430 A0430B (MA)(MB)(MTO 30 PLEASE.":(7):250& GS:G1G= A(G10):BGA10R "(A0)(BM)250_ ,A0320 6(MA)(MB)(M(AB))(MAB)(MG)(MAB)(MBA)ĺ"YOU CANNOT SCORE ON ENTRY":250 @:"HIT ANY KEY TO CONTINUE":Z$: J T"MASTER NUMBER IS:$"N"1702 :"ENTER THE NUMBER OF PLAYERS ";Nb (N2)(N4)ĺ:"2..3..OR..4..PLEASE.":210 :"ENTER MASTER NUMBER ";M :(M3)(M9)ĺ"MUST BE FROM 3 TO 9, TRY AGAIN"::230 :"PLAYER #1 ENTER STARTING NUMBER ";S :S0S30ĺ"1  d::5nP1:C(31)Fx"WELCOME TO THE GAME OF 'SKEDOODLE'."f:"WRITTEN BY KEN HOGGATT":"9195 S.W. ELROSE COURT":"TIGARD, OREGON":" (503) 639-5505":"DO YOU WISH INSTRUCTIONS (Y/N)?"Z$Z$"Y"1720 Z     O,OR 97034n#x 503-638-5755HEE11ĺ"BAD NAME.":1300M 936:22:"CAN NOT RECOVER. TRY AGAIN.":n:"USE 'RETURN' TO RESUME."T$:T$""Ħ(13102< 48K APPLE II W/3.2DOSA AND ROM CARD FP ART MCGEE Z 18985 SW OLSON CT. d LAKE OSWEG958:"FILE NOT FOUND.":Z1500:Z:260WEE8ĺ"I/O ERROR. IS THE DOOR OPEN?":1300EE9ĺ"DISK FULL.":"PLEASE REPLACE DISK.":1300EE10ĺ"FILE IS LOCKED.":"REPLACE DISK.":1300EE11Q4ĺ"BAD NAME.":Z1500:Z:(4);"CATALOG":840EE4ĺ"DISK IS WRITE PROTECTED.":"REPLACE DISK OR REMOVE TAB.":1300EE6Q4ĺ"FILE NOT FOUND.":Z1500:Z:(4);"CATALOG":840EE6Q5ĺ"FILE NOT FOUND.":Z1500:Z:740EE6Q3ĺ"FILE NOT FOUND.":Z1500:Z:720'EE6Q2Ģ22:LACE":"DISK INTO DRIVE AND HIT 'RETURN'.":Q$:Q$""1150Dt1130O~1190"BSAVE ";A$;",A16384,L";L:(4);"BSAVE";A$;",A16384,L";L:216,023:958::"USE 'RETURN' TO GO BACK TO THE MENU.";Q$:Q$""ı1170E768:EE(222):216,0::384):IE$:6:"SHALL WE LOOK AT IT? (Y/N) ";Q$:Q$"Y"İ770:1090W.Q$"N"ī1090a81060B:6:N1:"IS IT A KEEPER? (Y/N)";Q$:Q$"Y"1120LQ$"N"ıV1090`12:"SHAPE TABLE NAME = ";A$:A$""1120:j14:958:"TO SAVE ";A$;" - PCC(37):CC20Č912:37,20:36,07NN1:N331030@840nNN1:ILN22:SAB(N)IL:SA,N:(SA1),0IN11:DLB(I)SA:HHDL256:UL(HH):LL(256(HHUL)):(B(N)2I),LL:(B(N)2I1),UL:IL24575SA:I16384(16384L)1:I,(ISA16N"970Q$"Y"ė:770:940'91012:24:"IS IT A KEEPER?":13:24:" ":13:24:"(Y/N) ";Q$:Q$"Y"970Q$"N"840940I1(16387I)01000II1:980"B(N)B(N1)I:J0(I1):(B(N)J),(16388J):J:G"ĉ::(4);"CATALOG":840*fN$""900pN$""Ģ12:24:"IS THAT ALL? ":13:24:" ":13:24:"(Y/N)";Q$:Q$"Y"1030z840(4);"BLOAD";N$;",A16384":216,012:24:"WANT TO LOOK AT":13:24:"THIS ONE? (Y/N)";Q$:Q$""N"ĉ:4800>::2:"<======== SHAPE TABLE MERGE ========>":6:"USE 'RETURN' TO END THE TABLE.":8:"USE 'CATALOG' TO SEE DISK CATALOG.":N1H12:24:"SHAPE #";N;" ":13:25:" ":13:24:N$R1190\N$"CATALO(4);"BLOAD";A$;",A16384":216,08M(16384)::SN1| 21:M1ĺM;" SHAPES":21:23:"DRAW # ";SN:SNM780:SN178022:1:"SCALE = ";S:S:22:20:"ROTATION = ";R:R:SN139,79 23:1:"MORE ON THIS ONE? (Y/N)";Q$:Q$"Y"đ:780*Q$м20:"USE 'RETURN' TO GO BACK TO THE MENU.";Q$:Q$""ıB700::4:"<======== SHAPE REVIEW ========>":8:"SHAPE NAME = ";A$:A$""720750::4:"<=====SHAPE TABLE REVIEW=====>":8:"SHAPE TABLE NAME = ";A$:A$""7401190"PE NAME = ";A$:A$""ĺ"WE'VE GOT TO HAVE A NAME!":I12000:I:66012:958:"TO SAVE ";A$;" - PLACE":"DISK INTO DRIVE AND HIT 'RETURN'.":Q$:Q$""69067015:"BSAVE ";A$;",A16384,L";T:1190(4);"BSAVE";A$;",A16384,L";T:216,091:(AAT),0:590*D(AAT),A:TT1:3202N:xX4:958:"DO YOU WANT TO LOOK AT IT? (Y/N)";Q$:Q$"Y"İ770:630bQ$"N"630l600v6:958:"DO YOU WANT TO SAVE THIS TABLE? (Y/N)";Q$:Q$"N"ıQ$"Y"660630D8:958:"SHAY:XX0:340'3:X,Y:P0Ē0:X,Y:36U0YY1ER0XX1TD0YY1cL0XX1qPA2550ARDLP:E1570PA2:330&AA8(RDLP)0A0Ĺ(AAT),8:TT1:(AAT),24:TT1:320:E1Ĺ(AAT),A:TT1:(AAT),0:TT16368),0:Z1380.^K70Z1:P4: PRINT OhK83Z1:P0: NO PRINT \rZ0430o|K73U1:470K76R1:470K75D2:470K74L3:470K69E1:470XXXX1:XX5340HC0HC3:460HC3HC0 HC:X, ";A$:290260"1190J,(4);"BLOAD";A$:1139,79:216,0:2606X139:Y79:X,Y:24:"S=NOPRINT I=UP F=PRINT":"J=LEFT K=DOWN L=RIGHT":" E=END OF SHAPE"@PA1:A0JXX0:Z0:P0:U0:R0:D0:L0:E0TK(16384):(Q$:Q$""ı230AA16384:(AA),1:(AA1),0:(AA2),4:(AA3),0:T4::21:"<========= SHAPE DRAW =========>":1:0:3:22:958:"DO YOU WANT TO OVERLAY ON ANOTHER":"SHAPE? (Y/N) ";Q$:Q$"N"310 Q$"Y"Ģ22:958:"INPUT SHAPE NAME.F DESIRED, PRIOR TO DECID- ING ON ITS ACCEPTANCE OR REJECTION FOR USE IN THE TABLE.": " ";::"SHAPE REVIEW";::" AND ";::"SHAPE TABLE REVIEW";::" PROVIDE EASY REVIEW OF YOUR HANDIWORK.": " USE ";::"RETURN";::" TO CONTINUE." ND TO LEAVE BEHIND THESE MOVEMENTS" "EITHER A DOT OR NO-DOT TO CREATE THE DESIRED SHAPE."::" ";::"SHAPE TABLE MERGE";::" IS FOR MERGING TO- GETHER UP TO THIRTY TWO(32) SHAPES INTO"W "A SHAPE TABLE. IT ALLOWS FOR REVIEW OF EACH SHAPE ,IAPES II";::" HAS FOUR(4) PROGRAMS: SHAPE DRAW,SHAPE REVIEW, SHAPE TABLE MERGE, AND SHAPE TABLE REVIEW.":# " ";::"SHAPE DRAW";::" IS FOR THE CREATION OF A":"SHAPE TABLE HAVING ONE(1) SHAPE. IT USESOPERATOR KEY INPUTS TO MOVE A FLASHING DOT A20:10:"WHICH ONE ";Q nHD1> xQ160,250,720,830,740,140F 20 :4:"I HOPE THAT SHAPES II HAS HELPED YOU.":::"IF YOU LOAD AT 'A16384',REMEMBER TO USE 'POKE (232),0:POKE(233),64' BEFOR USING 'DRAW'.": 2:1:958m " ";::"SHHAPE REVIEW":a (10:"4 - SHAPE TABLE MERGE"::10:"5 - SHAPE TABLE REVIEW"::10:"6 - QUIT"o 2HD1100 <T$" <<< BY ART MCGEE <<< ":I160:6:I39Ė1:(T$,(61I)):90 F(40I):I30ĺ(T$,I):90 P(T$,(61I)) ZKK160:KK:I d$ 233,64:232,0:768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:N1:B(32):B(0)24576::4:"<============= SHAPES II =============>" 8:10:"1 - PROGRAM OVERVIEW"::10:"2 - SHAPE DRAW"::10:"3 - S                Ĭ3 EPNĀ*3 PP1:PN1RR1:P163 I110A3 W(I)0Y3 J15:W$(I,J)"":p3 L$(I)"":SL$(I)""v3 3 GG0:F0:BB0:AA0:L$"":SL$"":WD$"":R20:Z503 T03 3 V(P)1W(3)53 S03 1020ARABLE?".2. I$(I);:10:S(I);:19:S1(I);:32A28 S(I)4999E1^2B S(I)1999ĺ"YES":V(I)1s2L S(I)2000ĺ"NO"y2V 2[ S1(P)S2` I15000:2j ::2t E1PNĺ" GAME IS NOW OVER"3~ E1PNĺ" TO PLAY ANOTHER GAME HIT 'P'...":A$:A$"P"W(6)4W(7)4SS120031W(7)4W(8)4SS1850O1W(8)4W(9)4SS2700h1V(P)1S500S5001::7:I$(P);"'S SCORE FOR THIS ROUND IS ";S1 S(P)S(P)S1 I15000:1 I1N2$ "PLAYER";:9:"SCORE";:16:"LAST SCORE";:28:"VULNE500W(8)250*0\W(9)0SS500W(9)500N0fW(10)2210,2200,2190,2180,2170X0p2230e0zSS6500r0SS25000SS20000SS15000SS15000V(P)122400W(3)4W(4)4SS3000W(4)4W(5)4SS5000W(5)4W(6)4SS8001CORING/I310:J15L/(W$(I,J),2)"+"(W$(I,J),2)"-"W(I)W(I)1T/ :e/V(P)12090~/ W(3)0S50W(3)10/*W(4)0SS100W(4)20/4W(5)0SS150W(5)50/>W(6)0SS200W(6)100/HW(7)0SS350W(7)150 0RW(8)0SSJ(CH$).qJ101960&.vI1W(J)].W$(J,I)CH$W$(J,I)W$(J,I)"--C":F1:W(I)W(I)1c.q.:3:Z53.23:" ".F0Ģ22:CH$;" NOT FOUND".3.1110.24.1870. CHECKED FOR CHALLENGES/ S))2,1)"-"F0<-F1W$(AA,BB)W$(I,J)"--2":W(I)W(I)1D-F0L-:{-&:" HAVE OPPONENTS ENTER ALL CHALLENGES"-0"WHEN FINISHED, ENTER 'XX'.....":-:" ";L$:6-DR21:1110-N"WORD: (OR XX): ";CH$-XF0-bCH$"XX"2030 .lBB)::W(I)W(I)1:1590@,GG0::BB113:L$(BB)SL$(BB):::z, CHECKED FOR WORDS INCONSISTENT WITH THE LETTER LIST,I310,F0,J1W(I),JW(I)Ă::1830,K15,W$(I,K)W$(I,J)FF1:AAI:BBK,-(W$(I,J),(W$(I,J+JBB113:SL$(BB)L$(BB):(+TK1I1+^GG0=+hL113k+r(W$(I,J),K,1)L$(L)GG1:L$(L)"*":L13q+|+(W$(I,J))31700+(W$(I,J),(W$(I,J))2,1)"-"1700+W$(I,J)"A"1700,GGW$(I,J)W$(I,J)"--?":JJ1:BB113:L$(BB)SL$(*J15#*W$(I,J)""Ă::1570D*(W$(I,J),1)"S"Ă::1570O*K15*W$(I1,K)(W$(I,J),I1)W$(I,J)W$(I,J)"--S":W(I)W(I)1*:* CHECKED FOR WORDS MADE BY ADDING S*"I110*,J1W(I)*6JW(I)Ă::1710*@I101720:1420)I(ZZ$):J15:W$(I,J)ZZ$W$(I,J)W$(I,J1):W$(I,J1)W$(I,J2):W$(I,J2)W$(I,J3):W$(I,J3)W$(I,J4):W$(I,5)" "))WD$"")6:1110):7:" .. INSPECTING ENTRIES .. ")V(P)1W(3)0)I410 X)2:6:WL$WD$:WD$"":11100(dWD$"XX"T300(nX2ĭ(WD$,2)"ZZ"ZZ$(WD$,(X2)):W((ZZ$))W((ZZ$))1:WL$WD$:WD$"":1430(xX31260(X(WD$):W$(X,(W(X))1)WD$:W(X)W(X)1:6:WL$WD$:WD$"":1110)"*";:1:I180::" ";:1:I180:((X128)):WD$;-'-(WD$)10WD$(WD$,10)E'234:1:TT1:T:24O'<1260\'FX(WD$)'PW(X)4Ė1:"THE ";X;"'S CATAGORY IS FILLED";:I12000::1:" ";:1:6:1110(ZWD$"ZZ"XX(WL$):W$(XX,W(XX))"":W(XX)W(X8Ă:TT1:T;:34:T3001270:&Q2,0:2:24:X1411350j& Z(WD$)1:X136Z1WD$"":WD$;:1:1260&T300Ģ24:1:"OVERTIME --":I11000::1470&X136ĺ" ";:2:WD$(WD$,Z):WD$;:2:1330'(X127WD$WD$$(I,J))2,1)"-"Ğ(%W$(I,J);::" ";F%::((((I1)2)1)Z5):P%R2ıZ%1260d%1230t%900,3000:%24:" HIT 'C' TO CONTINUE....";:A$:1%A$"C"1230%:%24:"*";WD$;" ";:34:1&I1100:X(Q1):X12DKCM $8 KYTHOJe$BI1(10(V(P)3)):C$:X((1)61):L$L$((C$,X,1)" "):L$(I)((C$,X,1)):$L"YOUR LETTERS ARE: "::" ";L$$V:V33:V(P)1Ģ(37)3:V34$`IV310$jI;"'S:";$tJ15$~(W$(I,J))41170%(W$(I,J),(W..";:"";I$(I):#34,1"#P1*#R10#`#1:" SCORE:";S(P);" TIME:"n#V$" NOT"#V(P)1V$""#$I$(P);" PLAYING AND";V$;" VULNERABLE$. FUNIPT,LTODRN,MUSRIG,BYWOLO,VEJQZX,WOPOMC,BRHIKT,SRHIFU,AAAEEE,VSYQWS,FHLPBN,JGISPLAY THE TIMER.""i"" NOW, IF YOU'D LIKE TO REVIEW THAT, JUST HIT 'R', OTHERWISE HIT 'C'...}"A$:A$"R"210"A$"C"930":11""HOW MANY PLAYERS WILL THERE BE?";N"N1N4ī950#I1N::"TELL ME PLAYER #";I;"'S NAME.IN A STANDARD DICTIONARY AND THEN ENTER ANY CHALLENGES WHICH THE COMPUTER WILL BRACKET WITH ++ ++Ck!z"" DURING PLAY, THE UPPPER LEFT CORNER OF THE SCREEN WILL SHOW THE PLAYER'S SCORE UP TO THE END OF HIS LAST TURN. THE UPPER RIGHT WILL DING S: ++EXAMPLE++SB R"DUPLICATE WORDS: ++EXAMPLE++2 \"WORDS INCONSISTENT WITH LETTERS: ++EXAMPLE++? fe!p" AFTER THE COMPUTER DIS-ALLOWS WORDS YOUR OPPONENT MAY DO SO TOO. THEY MAY CHECK WORDS , THE COMPUTER WILL EXAMINE ALL THE ENTRIES AND DIS- ALLOW WORDS MADE BY ADDING S TO OTHER ENTRIES, DUPLICATE ENTRIES AND WORDS INCONSISTENT WITH THE LETTER LIST.*12304" DIS-ALLOWED WILL BE BRACKETED AS SHOWN> H"WORDS MADE BY ADDNA- TORY, LISTING YOUR WORDS BY LENGTH. WORDS ENTERED AFTER THREE MINUTES ARE UPWILL BE AUTOMATICALLY DIS-ALLOWED, AND  "AND THE TURN WILL BE ENDED. TO END YOUR TURN BEFORE THE TIME LIMIT EXPIRES, ENTER 'XX'.  " WHEN YOUR TURN IS ENDEDWORDS. y" THE GAME IS OVER AT THE END OF THE ROUND IN WHICH ANY PLAYER REACHES A TOTAL OF 5000 POINTS.1230" A WORD ABOUT THE DISPLAY...{" THE DISPLAY IS SELF-PROMPTING AND WILLHELP YOU ALOT. IT IS ALSO SELF-EXPLASO MUST SCORE A MINIMUMOF 500 POINTS. IF YOU DON'T SCORE THE"MINIMUM, 500 POINTS WILL BE DEDUCTED FROM YOUR SCORE, AND THE POINTS YOU DID MAKE IN THAT ROUND WILL BE DISALLOWED." WHEN YOU ARE VULNERABLE YOU MAY NOT MAKE THREE-LETTER NOW SOME VERY IMPORTANT DETAILS- DON'T SKIP THESE!p:<" ONCE YOU HAVE ACCUMULATED 2000 POINTS YOU BECOME VULNERABLE! BUT THAT'S FINE, BECAUSE THEN YOU'LL GET 13 LETTERS TO WORK WITH. YOU ALNG 1000, 1500, 2000, 2500 OR 3000 POINTS FOR ONE TO FIVE ENTRIES.Mlv" AND THE TENS??? --- FORGET THE REST OFTHE REST OF THE PLAYERS AND LOOK!":" 1500, 3000, 5000, 7500, 13000 POINTS FOR ONE THROUGH FIVE ENTRIES.1230h" TS OUT! AS THAT CATAGORY FILLS YOU GET 500, 650, 800, 950 & 1100 POINTS. BUT LOOK AT THE EIGHTS: 750, 1000, 1250, 1500 AND 1750 POINTS.XGb" NINE- AND TEN-LETTER WORDS ARE THE SUREST WAY TO DRIVE YOUR OPPONENTS TO DESTRUCTION. NINES BRI&\0" AS THE FIVE-LETTER CATAGORY GROWS YOU GET 200, 250, 300, 350 AND 400 POINTS.":" SIX-LETTER WORDS BRING 300, 400, 500, 600 OR 700 POINTS FOR ONE THRU FIVE ENTRIES.D1230N" GET SEVEN LETTER WORDS AND YOU'LL WIPEYOUR OPPONENGET 60, 70, 80, 90 AND100 POINTS FOR 1, 2, 3, 4 OR 5 THREE- LETTER WORDS."R" FOR THE FIRST FOUR-LETTER WORD YOU GET120 POINTS, AND 20 MORE FOR EACH WORD THEREAFTER. 120, 140, 160, 180 AND 200 POINTS FOR 1, 2, 3, 4 OR 5 FOUR-LETTER WORDS." NOW, HERE'S THE COMPLICATED PART. SKIPIT IF YOU WISH, BUT IF YOU BECOME A REALEXPERT, YOU'LL WANT THIS INFORMATION, SOHERE IT IS FOR YOU ANYWAY.L" FOR THE FIRST THREE-LETTER WORD YOU GET 60 POINTS, AND 10 MORE FOR EACH FOLLOWING. SO YOU OR 5 THREES AND 5 FOURS":" 500 POINTS FOR 5 FOURS AND 5 FIVES":" 800 POINTS FOR 5 FIVES AND FIVE SIXES":" 1200 PIONTS FOR 5 SIXES AND 5 SEVENS":" 1850 POINTS FOR 5 SEVENS AND 5 EIGHTS"" 2700 POINTS FOR 5 EIGHTS AND 5 NINES"1230" TER FIVE WORDS OF EACH LENGTH? WELL, ONCE YOU DO ENTER FIVE WORDS IN EACH OF TWO ADJOINING CATAGORIES (FOR EXAMPLE FIVE THREE-LETTER WORDS AND FIVE FOUR-LETTER WORDS (AHEM!)), YOU GET A ";"RATHER FAT BONUS....."::" 300 POINTS F'). " " SCORING IS A LITTLE COMPLICATED, BUT THE COMPUTER HANDLES IT JUST FINE. YOU GET ALL THE DETAILS RIGHT AWAY, BUT UP FRONT YOU SHOULD KNOW ABOUT THE BONUSES,BECAUSE THEY CAN REALLY ADD UP."1230" REMEMBER, YOU COULD ONLY ENNTER A WORD, SIMPLY TYPE IT IN. OFCOURSE, YOUR ERRORS CAN BE RECOVERED. TODELETE THE LAST WORD YOU ENTERED, JUST ENTER ZZ. TO DELETE ANY OTHER WORD, TYPEZZ FOLLOWED, WITHOUT A SPACE, BY THAT""WORD (FOR EXAMPLE, ZZBIGBUG WOULD DELETETHE ENTRY 'BIGBUGDING IN 'S' IF THAT WORD ALSO APPEARS WITHOUT THE 'S' DURING THE SAME TURN. "U|" ALL WORDS MUST BE AT LEAST THREE LETTERS LONG. YOU MAY NOT ENTER MORE THAN FIVE WORDS CONTAINING THE SAME NO. OF LETTERS IN ANY ONE TURN. ":" TO E- IONS OR CAPITALIZED WORDS ARE NOT ALLOWED. ALSO, YOU MUST RESIST THE TEMPTATION TO USE PUNCTUATION MARKS. THECOMPUTER WILL NOT ALLOW THEM.";^"THEY ARE":"NOT PART OF THE PERQUACKEY VOCABULARY!"h1230Or" YOU MAY NOT MAKE A WORD ENR INFORMATION YOU SHOULD KNOW IN ADVANCE THAT ONLY WORDS IN A STANDARD DICTIONARY";@"ARE ACCEPTABLE. ALL PLAYERS SHOULD AGREEON ONE BEFORE PLAY IS BEGUN. "JT" OF COURSE, LIKE MOST WORD GAMES, PROPER NAMES, FOREIGN WORDS, ABBREVIATLE' YOU WILL BE ALLOTTED THIR- TEEN LETTERS. BUT YOU WILL HAVE TO ACHEIVE BETTER SCORES OR BE SET POINTS FOR NON-SUPERIOR PLAY.X6:" THE COMPUTER WILL PROMPT YOU AS YOU GOIN CASE YOU SHOULD NEED ANY HELP IN THE MECHANICS OF THE GAME. BUT FOR YOUS AS POSSIBLE FROM A LIST OF LETTERS THE COMPUTER WILL GENERATE FOR YOU, ALL IN A THREE-MINUTE TIME LIMIT. AT FIRST THE COMPUTER WILL" "GIVE YOU TEN LETTERS WITH WHICH TO WORK."; "1230," AS YOUR SCORE INCREASES AND YOU BECOME'VULNERABTAIRE, ALWAYS TRYING TOBETTER YOUR SCORE FROM PREVIOUS GAMES AND ROUNDS. THE COMPUTER WILL SET UP" "YOUR GAMES, TALLY YOUR SCORES, AND EVEN MAKE SURE THAT YOU ARE PLAYING FAIRLY.  " THE OBJECT OF THE GAME IS TO FIND AND SPELL AS MANY WORD PERQUACKEY IS THE DIFFERENT WORD GAME,FUN FOR ALL, ESPECIALLY THOSE WHO LOVE TO HUNT FOR WORDS AND MEET THE CHALLENGEOF AN EVER-TICKING CLOCK." d " THIS VERSION OF PERQUACKEY MAY BE PLAYED BY UP TO FOUR PLAYERS. YOU CAN EVEN PLAY IT SOLI "; " <<< PERQUACKY >>> ************* ******* *** I15000: :"DO YOU NEED INSTRUCTIONS? ";A$ (A$,1)"N"950 "PERQUACKEY" (C) HOLLINGSWORTH BROS., 1956^ d AND ON 'PERQUACKEY', THE DIFFERENT WORD GAME'. n (C) LEISURE DYNAMICS, INC,1970 x *** PROGRAM BY ERIC S KINNEY *** ADAPTED FROM PROGRAM BY DAVID E POWERS 9 " + PORTLAND CONTRIBUTED 9 BY ERIC KINNEYW 13671 SE 132NDx CLACKAMAS, OR 97015 658-2394 2SL$(14),L$(14)<Q116384:Q216368F:P *** PERQUACKY, CC 4/80, PG. 74) Z *** BASED ON "                           Π`$?d6?ed6?ed6?ed6?e_?`$B@`$HA_:B]ŠϠ CM6*Da(ԠŠ̠ɠΠ"0ca(ΠԠ)cP"1a(̠ЧҠ)2P 3a(̠֧Ӡۧ)4P 5a(̠קӠܧ)6P 7a(̠اӠݧ)8P 9a(̠ڧӠߧ)::oPa()UVӠ)(*cca(٠)c(+a(̠ҧΠϠ)&,a(̠ϧԠ)&-a(̠ŧԠ)&.a(̠ӧŠϠ)(/a(̧̠Ġ͠)#\6$q`($ qq`%q_ h%d ed<ed=e d>ed?e?dBedCe M6d6?ed6?ed6?e[&N@"r']Ԡ(M6d6?ed6?e.)a(ݭq_ `$ `$'`$q_"`$q_"`$q_"`$ q_" `$!q_"!`$,"`@:()$#`%q %q`%q'`%q\!q.?rq_ >`$`$q\_%`$\q.?r\9q`'%q`'%q`%q\!q.?r`$`@9()%@p()`@9()%@p()`@9()%@p()q_=`$q\qq`%q_ >`$`$q\_%`$\q.?r\9q`q.?6@r`$ d6?e`$ `$ a@E(ĠӨ̤Ʃ)_MV \%M6dBedCed<ed=ed>ed?eM6qq q\&q.?6@r`$d6?e`$"Td8ed;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR" .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&L#$8vС, :    m  HHHHH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱ` m /hh I`" ȱ 8bd&F0HH0THt0   T88T0|||8DLTX@<|(D   8D @  8D @8DDDTL>xDDxPHD8D@8D8|DDDDDD8DDDDD(DDDDTlDDD((DDDD(| @|088D ||D8(H||@@xD8 @xDD8| @@8DD8DD88DD<D88DLTdD8 $$$$$~$~$$8TP8TMHa P@8`,I,`HH,L 456$LP456`(DD|DDxDDxDDx8D@@@D8xDDDDDx|@@x@@||@@x@@@<@@@LD8DDD|DDD88D8DHP`PHD@@@@@@|DlTDDDDDDdTLDD8DDDDD8xDDx@@@       ŠԠȠԠҠՠǠϺ)AcFa(Ǡ)Pa(Ӯ׮)'Za(ĬҠȮ)_c2`cd2ea(٠٠Π)d2edUVWiYna(ΠǠ)Q0]Ơ̠Ӡ̠ՠ٠ŠӠ,]ĠdJedKedede M6& a(Ġ̠)a(Ӡ)c)a(ӠźӠˠӠ)*(a(ΠˠŠȠŠ)(2a(ĠˠŮŠҠ٠)<a(ӠΠ"BYE"IBER OF MISSES= ";N1:N525310F"YOU GOT IT.": GG1:TTN1:VTG{"AVERAGE # OF MISSES AFTER ";G;" GAMES IS ";V:&"HOW ABOUT ANOTHER GAME?":Q$:Q$"Y"2200QV2:Q(Q): Q1 Q1: Q8 Q8D:"YOUR PERFORMANCE WAS ";:R$(Q):17:P$(2,2);" ";P$(1,2):10:"----------"d13:P$(4,3);" ";P$(3,3);" ";P$(2,3);" ";P$(1,3):11:P$(5,4);" ";P$(4,4);" ";P$(3,4);" ";P$(2,4);" ":11:"----------"11:P$(5,5);" ";P$(4,5);" ";P$(3,5);" ";P$(2,5);" ";P$(1,5):10:"NUM5C0320 |:N9N5! N5N93 F(D,C)0430^ :"YOU ALREADY GUESSED THAT, DUMBO":g 330 F(D,C)1:I15:A(C,I)D450 P$(C,I)(D):N5N51  I: N9N5 N1N11  Q 1 1000: Q 15:P$(3,1);" ";P$(2,1);" ";P$(1,1):-30) @"YOUR INPUT IS NO GOOD,TRY AGAIN"| J10:"DIGIT ";:D$:D(D$):D;:20:"COLUMN ";:C$:C(C$):C:D0C0370 T:" PREVIOUS GUESSES BY COLUMN": I 1 5 ^"COL.";I":";" ";:J09:F(J,I)1ĺJ;" "; hJ::I::330 rD9D0CA(1,2):N(3)A(1,2)N(1):N(4)A(2,2)N(1)10 d N(5)N(1)N(2): I5 1 1:M10(I1): J 3 5 QN(J)M:A(I,J)(Q.001): J " J 3 5:N(J)N(J)A(I,J)M:N(J)(N(J).9): J ,I:A(1,4)999:A(5,3)999:B$" ":N10:N57:460 6:N1N11:3ERATING PUZZLE":? I15:J15:P$(I,J)"*":A(I,J)999:J,Iy I0 9: J 1 5:F(I,J)0: J,I:A(1,1)(10(1)) A(2,1)(10(1)):A(3,1)(9(1)1):A(1,2)(10(1)) A(2,2)(9(1)1):N(1)100A(3,1)10A(2,1)A(1,1), N(2)10A(2,2)TER DIGIT (0-9), THEN COLUMN (1-5)":G "COLUMN 1 IS ON THE RIGHT": "IF YOU GUESS IS CORRECT, THE NUMBER WILL REPLACE THE STAR.": "TO SEE PREVIOUS GUESSES, ENTER (0,0).": G0:T0 "HIT ANY KEY TO CONTINUE.":C$::5 :"GENd::5:5Mn R$(8),F(9,5),A(5,5),P4(5,5),N(5): I 1 8: R$(I): Ix EXCELLENT,VERY GOOD,GOOD,ABOVE AVERAGE,ABOUT AVERAGE,BELOW AVERAGE,FAIR,POOR"********* HANGMATH *********"::"A GAME OF SKILL,LUCK AND DEDUCTION.":% :"EN     @@@@z#Xΰ   Ӡɠ  ŠϠӠ ǠԠˠŠҠ ȠĠ ϮϮ Ө̤ƩҠ ҠŠ ٠ - ٠ ͠Ϡ٠ŠӠŠȮӠ!"ϠҮʰà*ՠɠŠ ΠȠ ήΠbAİ.~K=~?~(ࢅؐnԪ ~!D{xAG[ sSJԢM0A OSHI3O4F 8T 4AE~?F_| @(QZ*(Q~($x!\w<@T  N$3բ9dL?~wQcQhTEШ$`EإR8x?s/yAL_* 'Ѱą ,w^v}appЂJD҅mq?v@ P>ᡑރ*toH}9bgc V,M"Q"Ka8I&hy6x" \GQyIh|ty|5~~_@V@P A,D8x?xP{aOwD(QШGr& hvC>(U*U .Q \&b* "]Dw|y1NZ€xT~U~?vw]`_z G+  3x=Cq?pq< @ժC"XBPjEqxw!@Q{s{ بBA J^XDYy#jxxcwO_eEؕ $0@ fc?~HdĀ5"(~?0i(e L@E A*RD9Q@ɠB~l7` ;sHb|w Q"TʎUbx?{xS|SmF"PArE@Ƅ꓁),3N^v $YļCIO`y9~yg?ܨ R` ` Zڕ|qwu?xng( MH@)u(@*lr ]oq]Lv~`a P Xr<Q 2H Qy2Pyb|=|`mŨ8jD(4QR.Q{ )x?oSSK]BZ* (" vp}8D`*PAjQ@#B*OPQD7c@~{9zyCCt(PCV:):~~yq_OMq QQ-E{L|?9Ä((~?|g/u? |gPAO(ШѮ%(-4%).Հn`~x?`ÀŌ % шp~e{?~L H_(r@5 (a~"~Oa fASEAQ )Ѐ$CNwlu8>2fjxq}wE"A0EDT͈ pPBx?~y >[y3:0!A +A!Q° ;/N}v=x~GȸĈàЬъ#~C~v!5@P Ԁk,Ő*sopg} sOOX)\EX0(BJG#Q衂$vf}fwBAPĎу>p3NcOC`s?PQ1MC** @HeĊx_~_cCos?ђP X ȊQ(Ons|_L^ <ƨ%̃(Ő¸~`|||?t|?xOաHLP D=QWxg;a?}oos!$k@ `*P**(Lzm}[\nwZ~ŐPҨA((E*Uax @ U (E*WTJ A|o~ yCQHѼᑊhK(,TN U`QS `?|FA{yk]V@ " @X.#w`Zlz[=F#P*@RZA"0*)RP/(Ex|~g~{xx}fᲡ|TxHz|N)xި#ѠU]?-U}?">g x@ t*F FrHL~_x?@Ɗ*PCT~?q~j-誉I@"Z"I(~A c_OKv%20"Ք'cl5U#*gL<|?~?D}wHCkQ"JԸjTZyW~~}O K{8`Q`$]"7L!蚘PV'o::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -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فŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00          ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ     B(20((A$)2)):B0B1( B:A$: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ޢٹ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բ$Leʵ``` 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[` 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  & Ĉċgsxgg͈EL,` Dx_yxԮ D)(#sO0v|?~qD(@LHxHOvwoVE p42DA(+D Xvw?s{}r `ȈP@ U*U:eM U P Q P"U8$P$UV~O`??\cG"@L28A @$Q/U| &}^FCSb GDL|{G>(A  Sr"8H%(Ăf(u`|?` o_f+рj)B+6QnCU;i |~awAg}l|# we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"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 andDɪ0~/mY/{oՂ !q@,(P~ g=w[7E*E* А+a"~?4gY`!DJ18U~_`?~{T@1 B  &+2 |? D3O=^FaP:)EP@A_1ґ?s}xOsS$W$Q G #Px__O.z?<~#\TzST PB UIꐂPn==~._x?`<|P a(Ӽ?lS~Og_J(*Ѡ(noc_GesdI7 P P&iMB!"Ţ@?22~ܪA@q</B}6[+1o|Gј E#`*B QDxPeowR.Q-M XW@2H:q`8?vs_{;&}`¨ԄR,x聁ŀfA?O?|sy"o@ 1! A@h|ytb"vQdH+*4 k[[?Ow=g/`Ԅ Q!x=`GQcL/ %!0 \4* POP(g||cOb+r*\`B! ŚT.Ay p8p}hw=ly@BBȄ@LlI;gq|>8~sbF lK8+t8$Gws@gNgA?DaqT(0Qp :,A^_yqŤd~}|^@  R)~%@s?pN[@:TB!DrAP̤fo4F0`ƠQ8I lU\~?>NJ  XHQ"q A$~/LrCg=0$Dh @D A& 51$ #ݠŊv~wK@'P TDdN>JPyG&{[(PPyX"0Ġ1Pf<&^|p^В RLAGw@+$ԐgoqcwuqfcO`  JDLpzv|Ƃ؀$^Nc|<|`v?~@nꊋaFTP`"峁dx\?{+iowP0"J $4FArhz4>S{_O;7|AD x#\fqgAG{TPP 2HjYxY L@E A*RD9Q@ɠB~l7` ;sHb|w Q"TʎUbx?{xS|SmF"PArE@Ƅ꓁),3N^v $YļCIO`y9~yg?ܨ R` ` Zڕ|qwu?xng( MH@)u(@*lr ]oq]Lv~`a P Xr<Q 2H Qy2Pyb|=|`mŨ8jD(4QR.Q{ )x?oSSK]BZ* (" vp}8D`*PAjQ@#B*OPQD7c~{9zyCCt(PCV:):~~yq_OMq QQ-E{L|?9Ä((~?|g/ux? |gPAO(ШѮ%(-4%).Հn`~x?`ÀŌ % шp~e{?~L H_(r@5 (a~"~Oa fASEAQ )Ѐ$CNwlu8>2fjxq}wE"A0EDT͈ pPBx?~y >[y3:0!A +A!Q° ;/N}v=x~GȸĈàЬъ#~C~v!5@P Ԁk,Ő*sopg} sOOX)\EX0(BJG#Q衂$vf}fwBAPĎу>p3NcOC`s?PQ1MC** @HeĊx_~ |Cos?ђP X ȊQ(Ons|_L^ <ƨ%̃(Ő¸~`|||?t|?xOաHLP D=QWxg;a?}oos!$k@ `*P**(Lzm}[\nwZ~ŐPҨA((E*Uax @ U (E*WTJ A|o~ yCQHѼᑊhK(,TN U`QS `?|FA{yk]V@ " @X.#w`Zlz[=F#P*@RZA"0*)RP/(Ex|~~{xx}fᲡ|TxHz|N)xި#ѠU]?-U}?">g x@ t*F FrHL~_x?@Ɗ*PCT~?q~j-誉I@"Z"I(~A c_OKv%20"Ք'cl5U#*gL<|?~?D}wHCkQ"JԸjTZyW~~}O K{8`Q`$]"7L!蚘PV'oȄȨtBsO~g`@ZaB@D"T"x__|k{ѕȪ 5jŨ 8onDdy{n^<ֺ @T ؖpLr},nq~cÊ A@@ B(Z8!c\gowPrIB<Jq& @ U]zml>fwO| Ae0D(E* ((@(Q(QUE(q" Рx,(@1~~f?x^JE"琠PgRD I(Tv*~y"dy}{\F.ETX,@ T"C{|?|qv'@m\;h"`?E<~a;p p}}p)Eí H r* ӖRց+~?@3oCo{|OU B5”s3gps?Ȑ*hؐDŀ*g ~" ! h@I_y ᨁ !j~y0}P ƊG (~ P Oo/  R JԐ#\DqQ,IA,%U!ŐêКKOa?`?~}w@(RPB$:S }|}oiZ;D@0IB*=aȉF[gw=s'y08ЂF};xguϨJ"TTՂȔCBzOOMxsq0$H()|aØY{{~no|?@*D‚tk9xxo~AWoBfx>~_;|Д ¤Ɩs]gOw~?|B@) *0ŨZx<@ENuo3(3OL+mEA,qx9&O*urK=x0ԂF#*(*Q@* (*T UQ \,B(Q [T"A,~?~u{sO 񎢯ZB1@EAvs2|x_yxԮ D)(#sO0v|?~qD(@LHxHOvwoVE p42DA(+D Xvw?s{}r `ȈP@ U*U:eM U P Q P"U8$P$UV~O`??\cG"@L28A @$Q/U|ը &}^FCSb GDL|{G>(A  Sr"8H%(Ăf(u`|?` o_f+рj)B+6QnCU;i ԢawAg}l|#Dɪ0~/mY/{oՂ !q@,(P~ G=w[7E*E* А+a"~?4gY`!DJ18U~_`?~{T@1 B  &+2 |? D3O=^FaP:)EP@A_1ґ?s}xOsS$W$Q G #Px__O.z?<~#\TzST PB UIꐂPn==~._x?`<|P a(Ӽ?lS~Og_J(*Ѡ(noc_GesdI7 P P&iMB!"Ţ@?22~ܪA@q</B}6[+1o|Gј E#`*B QDxPeowR.Q-M XW@2H:q`8?vs_{;&}`¨ԄR,x聁ŀfA?O?|sy"o@ 1! A@h|ytb"vQdH+*4 k[[?Ow=g/`Ԅ Q!x=`GQcL/ %!0 \4* POP(g||cOb+r*\`B! ŚT.Ay p8p}hw=ly@BBȄ@LlI;gq|>8~sbF lK8+t8$GwNgA?DaqT(0Qp :,A^_yqŤd~}|^@  R)~%@c?pN[@:TB!DrAP̤fo4F0`ƠQ8I lU\~?>NJ  XHQ"q A$~/@rCg=0$Dh @D A& 51$ #ݠŊv~wK@'P TDdN>JPyG&{[(PPyX"0Ġ1Pf<&^|p^В RLAGw@+$ԐgoqcwuqfcO`  JDLpzv|Ƃ؀$^Nc|<|`v?~@nꊋaFTP`"峁dx\?@+iowP0"J $4FArhz4>S{_O;7|AD x#\fqgAG{TPP 2HjYxYᡑރ*toH}9bgc V,M"Q"Ka8I&hy6x" \GQyIh|ty|5~~_@V@P A,D8x?xP{aOwD(QШGr& hvC>(U*U .Q \&b* "]Dw|y1NZ€xT~U~?vw]`_z G+  3x=Cq?pq< @ժC"XBPjEqxw!{s{ بBA J^XDYy#jxxcwO_eEؕ $0@ fc?~HdĀ5"(~?0i(e L@E A*RD9Q@ɠB~l7` ;sHb|w Q"TʎUbx?{xS|SmF"PArE@Ƅ꓁),3N^v $YļCIO`y9~yg?ܨ R` ` Zڕ|qwu?xng( MH@)u(@*lr ]oq]Lv~`a P Xr<Q 2H Qy2Pyb|=|`mŨ8jD(4QR.Q{ )վoSSK]BZ* (" vp}8D`*PAjQ@#B*OPQD7c@~{9zyCCt(PCV:):֊yq_OMq QQ-E{L|?9Ä((~?|g/u? |gPAO(ШѮ%(-4%).Հn`~x?`ÀŌ % шp~e{?~L H_(r@5 (a~"~Oa fASEAQ )Ѐ$CNwlu8>2fjxq}wE"A0EDT͈ pPBx?~y >[y3:0!A +A!Q° ;/N}v=x~GȸĈàЬъ#~C~v!5@P Ԁk,Ő*sopg} sOOX)\EX0(BJG#Q衂$vf}fwBAPĎу>p3NcOC`s?PQ1MC** @HeĊx_~_cCos?ђP X ȊQ(On_L^ <ƨ%̃(Ő¸~`|||?t|?xOաHLP D=QWxg;a?}oos!$k@ `*P**(Lzm}[\nwZ~ŐPҨA((E*Uax @ U (E*WTJ A|o~ yCQHѼᑊhK(,TN U`QS վ|FA{yk]V@ " @X.#w`Zlz[=F#P*@RZA"0*)RP/(Ex|~g~{xx}fᲡ|TxHz|N)תި#ѠU]?-U}?">g x@ t*F FrHL~_x?@Ɗ*PCT~?q~j-誉I@"Z"I(~A c_OKv%20"Ք'cl5U#*gL<|?~?D}wHCkQ"JԸjTZyW~~}O K{8`Q`$]"7L!蚘PV'oȄȨtBsO~g`@ZaB@D"T"x__G~k{ѕȪ 5jŨ 8onŪy{n^<ֺ @T ؖpLr},nq~cÊ A@@ B(Z8!c\gowPrIB<Jq& @ U]zml>fwO| Ae0D(E* ((@(Q(QUE(q" Рx,(@1~~f?x^JE"琠PgRD I(Tv*y"dy}{\F.ETX,@ T"C{|?|qv'@m\;h"`?E<~a;p p}}p)Eí H r* ӖRց+֪3oCo{|OU B5”s3gps?Ȑ*hؐDŀ*g ~" ! h@I_y ᨁ !j~y0}P ƊG (~ PLOo/  R JԐ#\DqQ,IA,%U!ŐêКKOa?`?~}w@(RPB$:S }|}oiZ;D@0IB*=aȉF[gw=s'y08ЂF};xguϨJ"TTՂȔCBzOOMxsq0$H()|aØY{{~no|?@*D‚tk9xxo~AWϪx>~_;|Д ¤Ɩs]gOw~?|B@) *0ŨZx<@ENuo3(3OL+mEA,qx9&O*urK=x0ԂF#*(*Q@* (*T UQ \,B(Q [T"A,~?~u{sO 񎢯ZB1@EAvs2|$-6????'$$$$$$$$|)--------666666666????????'$$$$,----56h232,139:233,91:0'(:2-R14O2I1627319:J918319k<CO(6(1)1):CO460sACOF2I,J:J,IPI918319:J1627319ZCO(6(1)1):CO490_SH(2(1)3)bCOdSHJ,I:J,InRpI14444:Dɪ0~/mY/{oՂ !q@,(P~ g=w[7E*E* А+a"~?4gY`!DJ18U~_`?~{T@1 B  &+2 |? D3O=^FaP:)EP@A_1ґ?s}xOsS$W$Q G #Px__O.z?<~#\TzST PB UIꐂPn==~._x?`<|P a(Ӽ?lS~Og_J(*Ѡ(noc_GesdI7 P P&iMB!"Ţ@?22~ܪA@q</B}6[+1o|Gј E#`*B QDxPeowR.Q-M XW@2H:q`8?vs_{;&}`¨ԄR,x聁ŀfA?O?|sy"o@ 1! A@h|ytb"vQdH+*4 k[[?Ow=g/`Ԅ Q!x=`GQcL/ %!0 \4* POP(g||cOb+r*\`B! ŚT.Ay Тոp}hw=ly@BBȄ@LlI;gq|>8~sbF lK8+t8$Gws@gNgA?DaqT(0Qp :Ǫ^_yqŤd~}|^@  R)~%@s?pN[@:TB!DrAP̤fo4F0`ƠQ8I lU\~?>NJ  XHQ"q A$~/LrCg=0$Dh @D A& 51$ #ݠŊv~wK@'P TDdN>JPyG&{[(PPyX"0Ġ1Pf<&^|p^В RLAGw@+$ԐgoqcwuqfcO`  JDLpzv|Ƃ؀$^Nc|<|`v?~@nꊋaFTP`"峁dx\?{+iowP0"J $4FArhz4>S{_O;7|AD x#\fqgAG{TPP 2HjYxYᡑރ*toH}9bgc V,M"Q"Ka8I&hy6x" \GQyIh|ty|5~~_@V@P A,D8x?xP{aOwD(QШGr& hvC>(U*U .Q \&b* "]Dw|y1NZ€xT~U?vw]`_z G+  3x=Cq?pq< @ժC"XBPjEqxw!@Q{s{ بBA J^XDYy#j׊cwO_eEؕ /232,61:233,94:1:0:30,184:2220,184C(2:8:SH4OHI114VI0zKDO(4(1)):DO2Ē(6(1)1)PSH140,96:SH:SH:SH:SH:SH:SH:SHQD118RRO(4(1)1)16:RORO8:ROXSH:SH:SH:SH:SH:SH:SH:SHZD " W:< Z::::7:"COMPUTER ART BY NINO G. BARBIERI"U d:28:"DUESSELDORF"f nI13333:In x10Rp  :R1556C1(6(1)1):C13C1420RC2(6(1)1):C2430(A(279(1)):B(279(1)):C(191(1)):D(191(1))2F3:CDFF<HCDFFC1:A,HB,H:C2:A,H1B,H1:KRNI13333:I P::12:18:"GABY33: X10XBN(Q2))" YPQ(N)Q(PQNQ)1 XAA,YBBL 280(XAA),192(YBB)a 280(XAA),YBBv XAA,192(YBB)|  I14444: :::12:15:"ORNATO 2":: 7:"COMPUTER ART BY NINO G. BARBIERI":: 28:"DUESSELDORF" I133  :3+0,0279,0279,1910,1910,0FB(5(1)1):B3399jP(11(1)36):QP(7(1)4)T((399(1)600)100)ST360AA(30(1)93)BB96R(9539(1)1)IRR360NISPQPQ XPQ(N)P(PQNO G. BARBIERI"::* 28:"DUESSELDORF"= I15555::0A4 B2B24:B4B44! B5B564 B396B3B34G B396B3B34S B1B16f B654B6B64z B6138B6B64 A6100A6A64 A6180A6A64 10 J14444: :: 12:18:"RANDOM" ::7:"COMPUTER ART BY NI60(1)80) nA3(280(1))F xA4(160(1)10):A5(180(1)10)h A6(280(1)):B6(192(1)) B1(50(1)):B2(32(1)80) B3(192(1)) B4(30(1)84):B5(40(1)150) Q280 Z(9(1)11) I0Z A1A14:A2A2?::7:100j A1I((QA12)Z),B1A2I((QA22)Z),B2A3I((QA32)Z),B3A4I((QA42)Z),B4A4I((QA42)Z),B4A5I((QA52)Z),B5A6I((QA62)Z),B6A6I((QA62)Z),B6A1I((QA12)Z),B1c dA1(180(1)10):A2(1    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA R>66>???'$$$,---5>66>??'$$,--66??$$-56?$5- ??--- ????----- ??????-------?????? -----???? ---?? -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf AAAAAAAAAAAhH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8'#i媽,0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`'i,-&i,-&iPII&if&HߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')(L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(LE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8H$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪- L ` -+ [..E0 - +f \$8L$f$På8噅 L" 0"ƚ0`L&H$ 0"h80 $LX$H Z#h #EL d$0L e q80L~$>nk'nk(X (%vu8 # +%L=-^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE LAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA .'''''''''3777777755555555 ,,,,,,,AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA- AAAAAAAA _ROROT:RO64RO0 bRO% dI5 iI15555:= n30 >$-6666- M6 , l16n!$<'M.66 $$u6n d6M $$ u*6?Mi$$$-w1m $(5>>M$$ >M6. $'l 66 d>m$$ > 66666M<8(( j>76M!$$h:oI $$* 6>, X666 $$$"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "̠Ĭa@H(Π)E@Q@p@*#;@rr KM6a@H(Π)E@QKM6a@E()Q KM6c`Pa(Ԡ͠٠)oa()d"e[Z]Ԡé٠ӠŮ)C|Pa(͠)GTM6`$`$`$rPq-rUVW$d8re.?rY]ͫӠΠƠŠd8re1`@*#r9()$]ӠԠ٠@p@*#;@rrKM6$Td!ed e`%_Jo_T8JKoa(ԠΠϠ)M6M6\YTY<^` %a()GbE()Gd2e?a(̠)d2ehKd"eUroa(ҠĠ͠٠ҮҠϠǠ͠ҠŠǠΠ٬ԧӠԠԠϠŠ,qUVW8.?r.?rrX&`.?r<()r$T -rq ` %a()GbE()Gq"UVW,d e.?ra@GYc%6]ͫΠƠŠ¤;@`.?%rede(de]ԠŠŠϠɯϠӠΠ3a@E(Ǭְ)]ŠǠԠϠXa@E(ң)a@E(Σ)]ԠŠŠ͠͠ɯϠӠΠѰqѱq E]נŠŠ٠ŠĠǠϠJ]ԠӠΠŠҠŠԠӠŠa@E(ΠϬɬ)]\\dedede.?6rde.?7rq ]ͫΠƠŠâ]dededdedeKnd ehd!ed"ed#e`d$ed%ed&ed'exd(ed)ed*e`D]ӠΠŠϠҠŠŠ͠b]Ӡ٠ǠϠ٠ӠeHdededededede ded e]Pd eid ed ed e`dededeidedede]Zdededeide@dededededed$ ]Ԡ͠٠ ]٠Ӡ̠̠]ΠҠ(]ӠӠ^2q@p()q.?Jr.?KrN@"rD42rD42r@p()]Ĥ̠ĢΠ<d e@p@]Fde8d     eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-%eЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` O PROBLEMS."= :"FIRST, THE ONLY VISIBLE FRAME OF REFER-"j "ENCE IS THE HORIZONTAL AXIS. SECOND," "THE LIMITATIONS OF THE BASIC LANGUAGE" "FORCE YOU TO ALTER THIS PROGRAM IN ORDER" 12:"TO INPUT THE FUNCTION DEFINITION."& ::" :"THIS PROGRAM ALLOWS YOU TO INPUT THE"X Z"DEFINITION OF A ONE-ARGUMENT FUNCTION," d"AS WELL AS THE DESIRED STARTING AND END-" n4:"ING ARGUMENT VALUES. YOUR APPLE WILL" x"THEN DRAW A GRAPH, WITH APPROPRIATE" "SCALING. THERE ARE TW5;"DEFINITION OF A ONE-ARGUMENT FUNCTION,"H:Q$(1)Z F(X)(XX)3:9:"*** FUNCTION PLOTTER ***"(5:14:"BY SETH CATLIN"220:"DO YOU NEED INSTRUCTIONS (Y/N)?";Q$<(Q$,1)"N"330F(Q$,1)"Y"80K50* P    AND ROM CARD.NTX APPLE PORTLAND PROGRAM LIBRARY EXCHANGE - 1980 AKNOT' BY MYRON PULIER,MD. (MAR 1980 ISSUE OF BYTE) ?&0 - MOD BY: ART MCGEE 18985 SW OLSON CT. LAKE OSWEGO, OR 97034 503-638-5755 :D 48K APPLE II W/3.2 DOS:470"Y10Y$"190"(Y):4703Y$"19"(Y)e(10):" ";D$(WD);" -- ";M$(M);" ";D;",";Y$(22):" MORE (Y/N) ? ";B$B$"Y"60B$"N"Ā4809 -'DATE HANDLING' IS A MODIFICATION OF 'CUTTING THE GREGORIAN B395.25365.25Y( ^DJ(AB)((AB))B hD12:(Y4)4YD11V rD91D1DDD1g |M(D30.57)z DD(30.57M) W(J1)7 WD((W(W))71.1) Y100Y110Y$"200"(Y100):470 Y110Y$"20"(Y100):470Y100Y$"2000"):" JULIAN = ":(15):(12), M3ĺX:480H (Y4)4Yĺ(X1):480X "(X2):480 ,936:" JULIAN TO CALENDAR CONVERSION" 6:" RETURNS DAY,MONTH,YEAR" @(6):" INPUT JULIAN (NO OF DAYS SINCE":" DEC 31,1900) ";J JY(J365.252)1 TAALENDAR TO JULIAN CONVERSION"f :" RETURNS THE NUMBER OF DAYS ELAPSED":" SINCE DECEMBER 31,1900."| (6):" YEAR ";Y YY1900 " MONTH (NUMERICAL) ";M " DAY OF MONTH ";D AA365.25Y395.25 X(30.57M)(AA)((AA))D (152080.":; Z(14):" 1 -- CALENDAR TO JULIAN CONVERSION":h d" 2 -- JULIAN TO CALENDAR CONVERSION":z n" 3 -- QUIT" x(20):" WHICH ONE ";A$ A$"1"180 A$"2"300 A$"3"Ā CV(37):37,(CV2) 36,0:958:120 936:" CST":M$(9)"SEPTEMBER"N 2M$(10)"OCTOBER":M$(11)"NOVEMBER":M$(12)"DECEMBER"Z <:936 F" <====== DATE HANDLING ======>": P(4):" IN THIS PROGRAM THE JULIAN DATE IS ":"THE NUMBER OF DAYS SINCE DEC 31,1900.":"IT WORKS FOR YEARS 1901 TO U  D$(7)D$(1)"SUNDAY":D$(2)"MONDAY":D$(3)"TUESDAY":D$(4)"WEDNESDAY":D$(5)"THURSDAY":D$(6)"FRIDAY":D$(7)"SATURDAY"M$(12) (M$(1)"JANUARY":M$(2)"FEBRUARY":M$(3)"MARCH":M$(4)"APRIL":M$(5)"MAY":M$(6)"JUNE":M$(7)"JULY":M$(8)"AUGU     <"|&""" ,2"<"><$ " "&""  0 "" "8"6*""&"""""""""< `&< """""""""*6""""">>56:23 C(A)13332 C(A)21C(A)B(0)128B C(A)2823^ (C(A));:AA1:AE23r !A$"":F0A16 "A$A$(C(F))(C(F1))(C(F2))(C(F3))(C(F4))(C(F5))(C(F6))(C(F7))(C(F8))(C(F9))(C(F10))(C(F11))(C(F12)) GAS MILAGE PROGRAM# 100@A0:A$"":B(32)1(0)XBA:(A(0)),B(0)xC(A)(16384):C(A)12824(16368),0:C(A)C(A)128:C(A)27A$""::D0:C(A)8A0D1::C(A)13A0ĺ:D1: C(A)8AA1:A(0),B(0)2           "0 N:" IF YOU CHANGE DISK AFTER SELECTING"^ N"A CAR YOU WILL SAVE THE RECORDS ON THE" N"NEW DISK. GOOD FOR BACKUP PURPOSES." N:" HAPPY GAS SAVINGS" N:"HIT ANY KEY TO CONTINUE";:AN$:AN$ ND$;"RUN GAS MILEAGE"H"0 N"THAN TWO ENTRIES OR NORMALIZE LESS THAN"F N"THREE ENTRIES."t N:" MAKE NO MORE THEN TEN ENTRIES PER" N"SELECTED CAR." N:" THE STRAIGHT LINE ACROSS THE GRAPH" N"IS YOUR AVERAGE MPG. ALSO NOTED AT THE" N"BOTTOM RIGHT SIDE."THE NUMBER OF GALLONS PURCHASED."Q N:" IF THE PURCHASE WAS IN LITERS THEN"z N"ENTER THE NUMBER FOLLOWED BY 'L'." N:"HIT ANY KEY TO CONTINUE";:AN$:AN$: N:" YOU MAY NOT CHANGE AN ENTRY YOU" N"HAVE NOT MADE, NOR CAN YOU GRAPH LESSR THE SYSTEM TO WORK."B \N:" TO BEGIN ADDING RECORDS FILL UP"q fN"YOUR GAS TANK. ENTER FIRST RECORD WITH" pN"MILEAGE AND ZERO FOR GAS PURCHASED." zN:" IF YOU BUY ANY GAS WITH OUT FILLING" N"UP THEN ENTER 'RETURN' FOR MILEAGE AND"" N BSAVE GRAPH.GAS,A$2000,L$2000, dD$(4)2 Na *N" THIS PROGRAM WILL HELP YOU WITH YOUR" 4N"EFFORTS TO SAVE GAS. YOU MAY KEEP DATA" >N"ON MORE THAN ONE CAR, JUST NAME YOUR" HN"CARS DIFFERENTLY. YOU MUST RECORD ALL" RN"GAS PURCHASE FO **********************6 INSTRUCTIONS FORP GAS MILEAGE PROGRAMm **********************s BY KENT BYERLEY COMPUTERLAND OF PORTLAND( 620-61702 PROGRAM NEEDS 32K RAM< APPLESOFT ROMF DISK IIZ _K(16384):K128540-&16368,0:::33030XABINCRWF(X)&V(W)7VMAXMAXV>XgXLAST0:ZF(A):YLAST(MAXZ)MAX95:2:0,95279,95:3XAINCRBINCRXNW(XA)INCR:ZF(X):YNW(MAXZ)MAX95XLAST,YLASTXNW,YNWXLASTXNW:YLASTYNWX"REGAIN CONTROL."E::" (WHEN READY FOR THE GRAPH, HIT A KEY)"`K(16384):K128400r16368,0::10:11:"PLEASE BE PATIENT"12:7:"I'M SCHEMING AND PLANNING"20:8:"SOON, I'LL BE PLOTTING":INCR(BA)279MAX0(16384):K128320# J16368,0:Q T"IF DESIRED, DEFINE THE FUNCTION, USING"h ^"LINE NUMBER 10." h::"YOUR ARGUMENT X WILL RANGE FROM A TO B." r:"WHAT IS A?";A |:"WHAT IS B?";B ::"AFTER THE GRAPH IS DRAWN, HIT A KEY TO":NCTION DEFINITION,": " WITH 'X' AS THE ARGUMENT."R :" EXAMPLE:" :" ]10 DEF FN F(X) = X - SIN(4 + X*X)" ":" 3) TYPE 'RUN' TO GET BACK TO THE" ," PROGRAM." 6::" (WHEN READY TO C