` / X +JJJJ 6Q PQ=P' \PQ L    (,,   , ,+鷍JJJJx"LϠĮϮӮΠӠˇ  8`+ a x >? 8T8 Wu v ýI꽌ɪ꽌ɭ蠪& E&] ] H)] ] 쮌)] ] )] + 8$hU>` &'8&,   ') +   ) +`(L8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴> r e>, +`@@)  - ?>  -  ׈`d  LԠ҇     Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `_  L 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õ`  \ 濭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`SELOASAVRUCHAIDELOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCAMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFVERIF!pppp p p p p`" t""#x"p0p@r@@@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- Ϡ@跻~!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 / / ] WS0Jȴ ȴ)  紅D贅E B ƴ  0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` BDE8jDE  ƮL Ơ::8DEDE: ` d0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` LRŪƪ`췌 յյ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䵍䵩m嵍`"L ŵ8ŵH ~(` F d ֠Πz#?p ϠԠ " Ϡ٠ ' ϠԮʠ Ϡٮʠ ϠӠ$ РӠ'   Fzzp / /L/0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]_ 0LEJJJJJ8R LE^),ǴHJJJJiRh)HJJJJJhȈ N ,L/ NHH > Ih > IhDELȮL$Lƴ`p8*]ȴ ` 8 `巬V췌`x (`(8`I`B` p `>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`H)hLǖȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 `67a89L( R`ɒHɀa6 Qh8` aLa $ba8Lԧ b b' b b`ML`(b I` R`ɠ % L` %`L`ɀɄ8ɉɆɎLhh`?@`` R`ɀ`ȹ`0ȹ`H h0 ``   H hLyyhlyeytrrr䠠䬠ɥɥﮐ£笠嬠ɥ箠謠ɥ堍嬠ɥ箠謠ɥ䬠ɥɥﮐĤﬠ¨¤ɥ堦 £笠Τ卍ҠǺ䮠䬠ҬîҠԺɨΤ堤ɠɰԠɐ卍Ţҥҥ͠ŠȍҥĠҥϠύҨɤҥҥ͍ŠȠҥĠҥϠύƠҥĠҥΠк͠ҠˍҠɠϠҥԠɩ͠ԠԠ̍Ӎ䍳򍴠䍵名卍͠͠ҠΠӠčɤź͠ŠӠԍϠ̠宠ҥﬠҥ卍󺍍ɤ宠Ԥɩ宠ɠɫɫҥ宠Ӡà󺍦ҨɤԤɩҥҥ堦Ҡ宐卍ҠŠź宠ƨ卍ҠҺ󠴷䍲àӠ䠦ΨЬĩЍ謠Ġ䠲報謠報宍宐卍Ҡź嬠笠籠쮐卍亠ҠˍЭ̭ԍҠŠōҠҍӠà嬠ŠҍРà䮠譍򮐍䠠䠠嬠宐󠳠宐嬠䮠䮠䮠󠳠宠򮍍묍󠲮뮠󮠐묠뮠宠묠宠󠱠宠栍䮐嬠䬠󠱮䬠笠宠䮐ǠӬ䮍묠宍砨婮󮐍󮠍堢묢危宍ǠӬ䠠ǠŰŵɮԠҍǠӠ䠱󮐍亍ӱčӱŠō亠Ѝҍ̠Ӡ̠󠴳ıͱٱ嬍IJͲٲ䮠ӮӬ䮠Ĭͬ٠謍Р󮍐占󠳲Ĥͯįٮˠ䮠ˍﬠ̠Ҡ卢䠢󮐍󠳰廠󩬠젠卼ž䍠亠̠̍Ҡ򠳱þ卼ҾѾҾξоҾ덠宍宐ɬͩͬѬ٩亠ӍΠҠ嬍䬠讠嬍堮ŠŠҠŠҠ򮐍ōҠŠҠ栮Š嬠堠ŮȮҍٍᮠ嬠堮ҠҠҠŠҠ򮐍亠ŠҍȮٍ󮍍ҠҠ栮Ҡ嬠嬍򮐍亠ҍȮٍҮȮҍҠҠכֿ宠ŠҬ嬍堮Š謠ŠҠŠҠ謠ŠҍЬ㮐ŠҠ栮ōҍᬠ쮠젲嬠ΠϠ亠ŠҍȮٍŮȮìݠ@C(΍쬠嬠Ϡ                     ЍΠӱΠύΠӍΠ̍ΠЍΠӱΠŠҍΠҠˍΠύӠנōӠ͠ӍԠӠҠŠŠŠΠŠҍΠҍΠŠҍΠӍΠ̍Π@&ŠӠŠҍҠҍŠҍӍ̠ҍ̠ŠӍ   ҍΠӍΠ̍ΠЍΠӱΠύΠӍΠ̍ΠЍΠӱΠŠҍΠҠˍΠύ̠ŠӍӠנōӠ͠ӍԠӠҠŠŠŠΠŠҍΠҍΠŠ҈La (H (P h(, hh`ŠӠŠҍҠҍŠҍӍ̠ЍΠӱΠύΠӍΠ̍ΠЍΠӱΠŠҍΠҠˍΠύӠנōӠ͠ӍԠӠҠŠŠŠΠŠҍΠҍΠŠҍΠӍΠ̍Π@'ŠӠŠҍҠҍŠҍӍ̠ҍ̠ŠӍ@ Xɐ 0L L `7) `'` ,ɠ`>-*       *-<(0 ,`')?``LSAVEANNO":"NOMONC" PRINTER ? ";ZZ$:ZZ(ZZ$"Y"):ZZSL0:s 20::47)"SET PRINTER TO TOP-OF-FORM"51)"AND PRESS 'RETURN'"81): K(16384):16368,0:K1412020:::34,1:1: (222)253Ħ ":23:1:"ERR#"(222)"/"(218)(219)256:0,0 "MONC":" 10003,:::20(W$)2)W$40):34,1::?63000:W$"INSTRUCTIONS":300:1002::"BLOADNWSML":"BLOADANN,A16384"SL(2076):SL02000768:0:1002::"BRUNA+MENU") 0::10:"WOULD YOU LIKE TO PRINT THE LETTER ON YOUR ժժժժժժ U*U*ժժժՂժժժ U*U*ժժժժժժՀxЪժժժժժ`ժժժժժժժժՂ`ժժժժժժ U*U*ЪժժՊЪժժՊ U*U*ժժժժժժ(U*U*U*U*U*U*UժժժժՂ`ժժժժժժժժ`ЪժժժЪժժՊxԪժժՂժժժ(U*U*U*U*U*U*Uժժժժժժ U*U*ժժժՂժժժ U*U*ժժժժժժՀxժժժժժժ`">""<$$,Ъժժժժժ`ժժժժժժժժՂ`ժժժժժժ`ЪժժժժժժժժՊ`ժժժժժժ(U*U*U*U*U*U*U"3??""<ժժժժՂ`ժժժժժժժժxժժժЪժժՊxԪժժՂժժժx">">>">"<>ժժժժժժ U*U*ԪժժՂժժժ U*U*ժժժժժժՀ U*U*ժժժժժժ U*U* ""$$$"""$$Ъժժժժժ`ժժժժժժժժՂ`ժժժժժժ`ЪժժժժժժժժՊ`ժժժժժժ(U*U*U*U*U*U*U"366$"""""`ժժժժժժժժ(U*U*U*U*U*U*UժժժЪժժՊxԪժժՂժժժx"$"$$$"$$"""$$ժժժժժժ U*U*ԪժժՂժժժ U*U*ժժժժժժ U*U*ժժժժժժ U*U*$> >$> ""$$>ЪժժժժՊ`ժժժժժժժժՀ`Ԫժժժժժ`ЪժժժժժժժժՊ`ժժժՀժժժ(U*U*U*U*U*U*U" ?"""22ժժժժժժժժ(U*U*U*U*U*U*UժժժЪժժՂxԪժժՊժժժx"2$2$22"$ժժժժժժ U*U*ԪժժՂժժժ U*U*ժժժժժժ U*U*ժժժժժժ U*U*$&"" """"$$"ЪժժժժՊ`ժժժժժժժժՀ`Ԫժժժժժ`ЪժժժժժժժժՊ`ժժժՀժժժ(U*U*U*U*U*U*U "3"""*ժժժժժժժժ(U*U*U*U*U*U*UժժժԪժժՂxЪժժՊժժժx> *$  *$ *"$ ժժժժժժ U*U*ԪժժՊժժժ U*U*ժժժժժժ U*U*ժժժժժժ U*U*<<$"$"" ժժժժՊ`ժժժժժժժժ`Ԫժժժժժ`ժժժժժժժժՂ`ժժժՀժժժ(U*U*U*U*U*U*U""366"*$"&ժժժժժժժժ(U*U*U*U*U*U*UժժժժժժՂxЪժժՊժժՊx"&$$&$&"$ժժժժժժ U*U*ԪժժՊժժժ U*U*ժժժժժժ U*U*ժժժժժժ U*U*"$$$$"ժժժժՊ`ժժժժժժժժ`Ԫժժժժժ`ժժժժժժժժՂ`ժժժՂժժժ(U*U*U*U*U*U*U$""666$"6$"*""ժժժժժժ(U*U*U*U*U*U*UժժժժժժՂxЪժժՊժժՊx*"$"$$$$"$$"*""$$ժժժժժժ U*U*ЪժժՊժժժ U*U*ժժժժժժ U*U*ժժժՀժժժ U*U*>ժժժժՊ`ժժժժժժժժ`Ԫժժժժժ`ժժժժժժժժՂ`ԪժժՂժժժ(U*U*U*U*U*U*U> ?"">"ժժժժժժ(U*U*U*U*U*U*U ժժժժժժՂxЪժժՊЪժժՊx>">">>">">">                      p`~~`~ժժժժժժx? U*U*`*U*U`pp`@x@ U*U*x?`*U*U`?pժժժժժժ|``|~`|`?p`">""<$$,p? U*U*~`*U*U~```*U*Ux"3??""< U*U*p?@?pժժժժժժxժժժժժժ">">>">"<>``|`|`@?x` ""$$$"""$$p? U*U*~`*U*U~ U*U*``*U*U|"366$"""""`p?@?xժժժժժժx@ժժժժժժ"$"$$$"$$"""$$``|`|`@x`$> >$> ""$$>p U*U*~`*U*U~ U*U*``*U*U|" ?"""22p@xժժժժժժx@?ժժժժժժ"2$2$22"$@`x@`x`|`$&"" """"$$"` U*U*|`*U*U| U*U*@`*U*U~~ "3"""*`|ժժժժժժp`?ժժժժժժ> *$  *$ *"$ @`x@?`x?`|`<<$"$"" ` U*U*|`*U*U| U*U*@`*U*U~~""366"*$"&`|ժժժժժժp`ժժժժժժ"&$$&$&"$@`x`?`x?`|`"$$$$"` U*U*|`*U*U| U*U*@`*U*U~~$""666$"6$"*""`?p}ժժժժժժp`ժժժժժժ*"$"$$$$"$$"*""$$`p`?`p?`~~`>@ U*U*x`*U*Ux U*U*`*U*U|> ?"">"@?x ~ժժժժժժ`pժժժժժժ>">">>">">">                     "SAVE A+HELLO"L"X"Ti TIME50:::10:11:" A+ THE #1 APPLE II MAGAZINE":"BLOADA+":"BLOADA+.2,A16384"16304,0:16302,0:16297,0:X1100:16299((X2)((X2))),0:Y1TIME(K(16384):K160Ĺ16368,0:50-:2:"BRUNA+MENU"  ҪŪӪͪêԪԪӍ ΪĪĪŪ٪Ԫō ȪӪӪɪϪӪɍ تϪӪ֪ŪӪ ԪӪƪԪҪϪժ͍ ӪתĪŪЪĪō X$:(4)"OPEN PUZZLE"X$:(4)"WRITE PUZZLE"X$b LE$:I116:PS(I,1):PS(I,2)::I17:BS(I):s (4)"CLOSE">>>" "(J,K) ::) ,I116:J17:K17^ 6PCS(J,K)IPS(I,1)J28:PS(I,2)K212:J7:K7h @::z ^I17:J17 hLE$(I,J)"*"BS(I)J:J7 r: 23:1:868:"WHAT PUZZLE? ";:X$:X$; - (4)"OPEN PUZZLE"X$:(4)"DELETE PUZZLE"X1Y11509 23:1:868:"OLD: "PCS(X,Y)" NEW: ";D IN$"" X$:(X$)13PCS(X,Y)(IN$):X3:Y52:IN$" ";:110 (X$)48(X$)57182 IN$(IN$X$,2):23:17:IN$;:182 LE$"":I116:J17:K17 PCS(J,K)ILE$LE$LE$868:"COORDINATES? ";:X$:Y$:X(X$):Y(Y$):X0110O X7Y7X1Y1125 23:1:868:"OLD: ";LE$(X,Y);" NEW: ";:X$:X$""110 LE$(X,Y)X$:X3:Y5:X$:110 23:1:868:"COORDINATES? ";:X$:Y$:X(X$):Y(Y$):X0110 X7Y7$):100! <(X$)48(X$)5755K FIN$(IN$X$,2):I3:J52:IN$;:55n dI3:J52:PCS(I,J);" ";:: n23:1:868:"CORRECTIONS? ";:X$:X$"N"200 sX$"Y"110 x23:1:868:"LETTERS? ";:X$:X$"N"150 yX$"Y"1206 }23:1::(4)"NOMONCIO"= LE$(7,7),PCS(7,7),PS(16,2),BS(7)Q:I17:J17_I3:J5|(X$:(X$)32X$"*":48*(X$)65(X$)90400LE$(I,J)X$:X$;",";2:4I17:J17:I3:J526IN$"" 7X$:(X$)13PCS(I,J)(INӠ٠٠ϠήˠՠҠǠӮӠĠϠҮ٠̠ĠՠſčϠΠϠӠŠӠԩ٠čȽЍӠŠŠΠϠӍӮԠӠŠ΍ՠĠѠԠĠԠŠӠԩӠĠӍӠ٠٠Ϡ΍ԍР΍ŠŮǠϠĠŮԠӠŠҠƠŠōԠՠȠϠſàԠŠŠϠŠčŠԠčǠŮΠҠƠӠĠӠčԠǠРӮ΍čōōٍǠӍŠōΠōԠԍӠϠԠȠЍŠӠ٠čϠŠϠōԠƠŠԠԠōϠŠϠōϠŠϠōŠŠԠŠĠҠčϠ͠Ҡ٠ŠӍ٠ԧӠԠŠԠ΍űŠŠŠʽ˽ͽɽӠ٠٠ϠŮŠ̠    `Z )? $$$$$$<$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,?>""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">>>> >00000>"?&20 *, >> """ " >> ">> """>""""""< >> " &<]gjnA 'FNVry);@CQZ`cfiknAq%svz} !A%u)A-:=h ,5>BFIKMOQSUY[]_acegikmoqsuwy{} <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$$! $%%#,fp% "Lp"% $`"H Β*+)hi#"H Β!*0+i+idH#d hd`"%$$%H hi#`$% Βc,d*+Me,dPMc*!0 +i+`%J) b+je *`PPPP򠥹,r0tL"$!e (' !!%##`f`" e$$ ",r0st(!#L"L $b . % `L a,gPgA[8 & & &mh)mi ̒e$*+Me$(Mc,dp ,cpP!pA* +i+Mebrs"t`,Tb@0,U`* L" {LB$!$$"% %L"c`g`g`,,Lҩc`@a`de` qLXde`s$t%L$td`e`g`f`Yd`e`L$e (' 8!$!$%"{LȎ !%# "LȎ5 )5`)aW L| JHIHa`G~ҏ#+@HPXs{ɐG֐G+R$a`1  emhi` b` ,r0rbj$s%t`@b`s$$hLde`,rSjd LL LHLH C `u8967 ,R,W U ,P`ɭӠҠΠΠ Р̺((*)  b+*HN OI*P,h*,H,`0ɛ` ɍ $h`ɐ 6+` qLȎ LȎ    HȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭ>>>" "PS(PC,2):Q8:8000:Q84:8000:Q24:8000:K(0)PC16:9300::E'$'I116:PCI:Q2:8000:Q158:8000:K(0)I16:9300::)'.'I11000::10010 'I116:PD(I,1)0:CL(I)0::I17:J17:BP(I,J)0:BL(I,J)0:::CL0:MO0:KR1:KC1:LP0:CLR&MO:DL:D$C$:9400:CL$:9000:PC116:Q33:8000:PD(PC,1)0Q70:8000j&:D$"DELETE";SV$:'PN0:DL0:9000:LIN13:9700:1::9400:10200'Q33:PC116:8000::24:1:I$;T$(19);N$;?'PC116:Q2:8000:PD(PC,1)PS(PC,1):PD(PC,2)%LI19740*&9600:LI13LI1:97000 &@&9700:2010H&D$O$;SV$:D$W$;SV$:PN:I116:PD(I,1):PD(I,2):CL(I)::CLR&MO:DL:D$C$:CL$:10:10:"PUZZLE SAVED...":9600:430&D$O$;SV$:D$R$;SV$:PN:I116:PD(I,1):PD(I,2):CL(I):::D$C$I%LP0:I116:NPP(I):J13:K13:A(N)0PL(I,J,K)32:9530n0%LPLP1:PL(I,J,K)((LE$,LP,1)):%NB(N)::::%Z14000::%24:1:LI1LI2LI13ĺB$;%E$;I$;LI$(LI);N$;:LI29720%9300:X09710%LI1:9700 D(PC,2)0:PC0D(#I10222:J14262:1J7,I8:DL09030w<#BS(R(I))C(J)ĢI:J:"*":BL(R(I),C(J))42F#::T$X$((16384)128):IN$X$:16368,0:$D$O$"PUZZLE"PN:D$R$"PUZZLE"PN:LE$:I116:PS(I,1),PS(I,2)::I17:BS(I):z#ծӠG ΠD"  ԠРӾ ϠG " " ϠG̠ՠG Ҡ Ű ű Ų ų Ŵ ŵ !ӱ ԠǠ  ɮԠĠŠŠ  ٠ŠӠAРҠ٠! נŠžA!ӱ ̠ ŠҠA ŠҠŮȮҠ$ŠҠAŠҠ ŮȮҠҠҠӾA Ҡ ҮȮҠ Ȯ٠ΠҠAӠ/̠ҠAE: '$'"@It:"ENTER BLANK LINE IF YOU DON'T":"WANT A PREFIX."PI~10:10:P$pIV10:T3:620:W$""P$W$I::"ENTER THE SUFFIX FOR NUMBERS DESCRIBING":H$I:"EXAMPLE: '%'"I:"ENTER BLANK LINE IF YOU DON'T":"WANT A SUFFIX."J20:** TITLE="::Q$H7H"*** VERTICAL LABEL="::V$=H`H"*** HORIZONTAL LABEL="::H$hH:H$:"ARE THESE DATA CORRECT";H.770H8F0ī870HB2150HLHVHH10H`::"ENTER THE PREFIX FOR NUMBERS DESCRIBING":H$Ij:"EXAMPLSHOULD DESCRIBE THE NUMBERS ASSOCIATED WITH THE LENGTHS OF THE BARS."VG21:10:H$G23:5:"PRESS (ESC) TO RETURN TO MAIN MENU"GHH9GV8:T38:620:W$""Q$W$GV14:T20:620:W$""V$W$GV20:T30:620:W$""H$W$GH"*TER A TITLE TO BE PLACED AT THE TOP OF YOUR BAR GRAPH."FFz9:10:Q$F11:4:"ENTER THE VERTICAL AXIS LABEL. THIS SHOULD DESCRIBE THE GENERAL CATEGORIES OF THINGS YOU ARE GRAPHING."F15:10:V$FG17:4:"ENTER THE HORIZONTAL AXIS LABEL. THIS:W$"":750EW$(W$,J)!EJ'E:E" (Y/N) ?";K$@E WE(K$,1)"Y"F1:nE (K$,1)"N"F0:E*:"ENTER YES OR NO!";::770E4E>D$"": CONTROL DEH::" ***BAR GRAPH GENERATOR***"ER::E\G60Ef7Fp6:4:"EN5X0:YY8DXN2Db#DlW$"".DvJ1TADV:HH1J:B$SD(B$)13760fD(B$)272150DJ1(B$)0ĖHH:V:E1T1:" ";:ED(B$)8JJ2:730D(B$)20(B$)93JJ1:750DV:HHJ1:B$DW$W$B$D750 EJ1J0P1CQ$,V$,H$&CX1T9:N(X):X KEY WHEN DONE"GU` "VIEWING THE BAR GRAPH"rUj :::"PRESS TO CONTINUE..."zUt A$U~ 2060U 16304,0U A$U 16303,0U 2130U U D$(4)U 5:"ENTER A FILENAME FOR THIS BAR GRAPH."U A$ V :"7= SAVE BAR GRAPH ON DISK">T:"8= RETURN TO MAIN MENU"fT::"ENTER A NUMBER FROM 1 TO 8 ";lT T 22:28:" "T 22:28:XT X(X)T$ X1X8Ğ:2300T. X820,1100,1630,1710,2800,2370,2480,130T8 : ERRORTB TL Q202810*HANGE DATA PREFIX OR SUFFIX":@S"3= ENTER/CHANGE GRAPH DATA"oS:"4= SET/CHANGE HORIZONTAL AXIS SCALING"S13:"5= CHANGE COLORING OPTION (NOW ";SSG61Ģ13:32:"ON ";SG60Ģ13:32:"OFF";S:")"S:"6= VIEW BAR GRAPH"T20:4::"YOU MUST FIRST SCALE YOUR GRAPH":>R>U11500:UHRH2150NRRmR\::"BAR GRAPH COMPLETED"Rf:::"ENTER THE NUMBER OF THE ACTION"Rp2315Rz"YOU WANT TO TAKE:"R:"1= CREATE/CHANGE TITLE AND AXIS LABELS"S:"2= ENTER/C12150 Q9Q2:"ENTER THE INCREMENTS AT WHICH YOU"fQ4:"WOULD LIKE THE ";H$;" AXIS SCALED."Q6:"THIS NUMBER SHOULD BE BETWEEN"Q:H10;" AND ";H2Q10:S2QS3(HS2)1Q1930Q S8S3QS7S2Q S9230Q*Q312910-R4000 P:PDM113PNS21PXHS24.619008PbMIPlS3(HS2)1zPv:"THE AUTOMATIC SCALER SUGGESTS THAT EACH"P:"DIVISION BE ";P$;S2;S$P:"THIS WILL RESULT IN ";S3;" DIVISIONS."P::"IS THIS ACCEPTABLE";PQ31P770QFLD BE BETWEEN TWO AND TEN" OMO"DIVISIONS ON THE AXIS WITH THE RIGHT-"yO:"MOST DIVISION HAVING A VALUE OF AT"O:"LEAST ";HOO&H1H10000Ğ:"OUT OF RANGE FOR AUTOMATIC SCALE"::1990P0 1,2,5,10,20,25,50,100,200,250,500,1000,26:9B:2:B;".":BNhQ30(NrC1T9KN|9C:4:K$(C):9C:28:L$(C)RNC[NT90eN1310N:"WANT TO CHANGE AN ITEM";NNQ202810NNB1T9NN(NB)HHN(NB)NNBN::"SCALING FOR HORIZONTAL AXIS."O:"THERE SHOU:"ENTER ONLY THE ACTUAL NUMBER"::14501MF17M=MLMT90T91wM"ITEM";6);"VALUE";17);"DESCRIPTION"MX1T9M"X2:X:X2:6:L$(X):X2:17:K$(X)M,XM6:"CONFIRM DATA IS CORRECT "M@770MJMTF12150N^:B1 L1530,L7:4:"LABEL":7:25:"VALUE"ZLT20:V9X:J0:HH4:620:W$""K$(X)W$rLK$(X)""G1F0:LK$(X)""ĺA$(X)LV9X:J0:T10:HH28:620:W$""L$(X)W$LL(L$(X))LA$(X)K$(X):N(X)LLL$(X)""F0:)ML0Ģ20::K(3:"ENTER DATA FOR THE BARS ON THE GRAPH."`K26:" A MAXIMUM OF SIX ITEMS MAY BE ENTERED."nK<XT916KF20:2:"PRESS RETURN WHEN LABELS ARE CORRECT."KP23:3:"PRESS (ESC) TO RETURN TO MAIN MENU"KZG1:1420KdF01530KnT9XKxX10:S$&JV20:T3:620:W$""S$W$,JHJ:"NUMBER PREFIX= ";P$dJ:"NUMBER SUFFIX= ";S$J:"THIS MEANS THAT THE NUMBER TEN WOULD BE"J:"PRINTED AS: ";P$;"10";S$J::"IS THIS CORRECT";J770:F01100J 2150JJQ21.T$"Q"ė:' GOODFALSEMISS01070@ 11000: CALCULATEJ 2000T CNS0 23:1:"DETAILED PAYBACK SCHEDULE (Y/N) ? "; T$ T$(((T$,1))(((T$,1))97)32) T$"Y"T$"N"1210 T$"N"Ė1:958:1070 NPFQ601280L **** 3000 9000$ 8000. 20008 4000B $7000M .22:9m 8" , , , OR ";u BT$ LT$(((T$,1))(((T$,1))97)32) VT$(13)T$"C"T$"R"T$"Q"1090 `1:958 jT$(13)1050 tT$"R"1010 ~(7),ER(7),TABLE(60,3),PTABLE(420,3)/ :34,0@  9,30,10R ( 11,30,10c 2 13,32,6u < 15,28,5 F 17,30,1 P 19,30,10 ZFALSE0:TRUE1 dI16:F(I,1),F(I,2),F(I,3):I n x30070 31000  *** MAIN CONTRO-":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"[12:13::"LOAN ANALYZER":kI1500:I15:12:"BY ZYNCON CORP."17:6:"PROGRAMMED BY JASON WINSHELL"23:22:"(C)COPYRIGHT 1983" I14000:I# F(7,3),P$(7),PARSET               --#!!!!?? --266;7$$$--?*-$,-$-- $$)-2*6;?$$$ 6>? 6)%#$<(-(*- $$$$$ --#$$$$$! 666$$$211 $$$ $$)-266;?$$$--2? $$)-2619;?$$$--2?(*%!?$)-2 $$$-- $$ 666;?$$ 66,$$ 6>3 >$! # 63311 $$## >2$!!(--  !!!!)%!$$;?26. !1)%#$$--#!) $;?2(*%!##!!?? !$$<::2--(*%!$;?$--(*%!?$ -!$!!!??)%! $;?296- $$;?2- !!  !###!!1--??!!!!##3  $;?2 $$)-2>7-??$$ >? 6$$$--2? 6;? $$)-22;?$$$ @  #+9EQ]js)6?GT]jw   $$ <36!< < ,1.?6(5 7 5 %( 1'#!!9'- $)2 ?$ $  $( ,!;'!9'+!1 +-%  4,YBY24.] XBL5,YBY218XBL5,YBY255] 3;] C]:Y]"ERROR #":(222)j]X15000:Xt]$2130|].:5 \ G60ı\ 54\ XB5,YBY216XBL,YBY216X\ XBL1,YBY215XBL1,YBY21{\ XB6,YBY217XB5L,YBY217\ XBL2,YBY217XBL2,YBY24\ XB8,YBY2181XBL,YBY218\ XBL3,YBY215XBL3,YBY24 ] XBL4,YBY217XBLBDXL,YBY2DY [ XBL,YBY2F[ XBDX,YBY215DYXBDX,YBY225X[ AL(N$)68h[* AXBAL6r[4 AA4[> Z$N$:XAXB:YYBY211[H F0:530[R T$" "T$[\ BL(N$)6(T$)6[f A20[p ABAX10[z Z$T$:XA:YYBY211\ F0:530NZv X11000:XZ A$)Z 16303,03Z 2130:Z 3HZ DX6:DY4bZ XB,YBY215XB,YBY2sZ XBL,YBY2Z XBL,YBY215Z XB,YBY215Z XBDX,YBY215DYZ XBDXL,YBY215DYZ XBL,YBY215Z XBDXL,YBY215DY[ XISSING PARM **(MISS4NN(12PFQ);RANNTPFQ100PGOODTRUEİ2000Vv ** CHECK ON YY,MM FORMATCMPO0:I1(P$(4))(P$(4),I,1)","CMPOI:7640ICMPO0YY$P$(4):MM$"":7690CMPO1YY$"":MM$(P$(4),2,("1" I/TTER1ER(5)1GOODTRUE:7330:24:1E39);P24:1ZER$;g$ACN(A)x.DURCN(DUR)8PCN(P)BGOODFALSE7580LMISS0VI16`I27540jPARSET(I)0MISSI:7550tI~ ** MISS IS THE # OF MOK ":74208ER$"ERROR(S) IN PARAMETERS "CTTER0NI16`ER(I)07400pTTERTTER1I3ER$ER$"/""2":7400I4ER$ER$"/""3":7400I6ER$ER$"/""4":7400I5ER$ER$"/""FREQ":7400ER$ER$"/"1\PARSET(5)1%fNUMPARNUMPAR1ak(NPFQ12)(NPFQ12)(NPFQ12)ER(4)1:PARSET(4)0ppP(P$(6))zP0P1E7GOODFALSE:ER(6)1:7320PARSET(6)1NUMPARNUMPAR1NUMPAR4GOODFALSE:ER(7)1GOODTRUEER$"PARAMETERS GOODFALSE:ER(4)1:7200$300004 PARSET(4)1HNUMPARNUMPAR1W PFQ$P$(5)*PFQ$(((PFQ$,1))(((PFQ$,1))97)32)4PFQ$"M"PFQ$"Q"PFQ$"Y"GOODFALSE:ER(5)1:7280>PFQ$"M"PFQ12:7260HPFQ$"Q"PFQ4:7260RPFQ(2)):B0B1E7B0'ANNT(P$(3))XANNT0ANNT1E7GOODFALSE:ER(3)1:7130hPARSET(3)1|NUMPARNUMPAR17600(YY$)((YY$))(MM$)((MM$))GOODFALSE:ER(4)1:7200DUR(YY$)(MM$)12:N(YY$)12(MM$)DUR0FFPFP1PF$(F$,FPBC)&Z50400d" ";6nZX *** CHECK PARAMATERS ROUTINE|bI17:ER(I)0:PARSET(I)0:IlGOODTRUEvNUMPAR0A(P$(1))A0A1E7GOODFALSE:ER(1)1:7080PARSET(1)1NUMPARNUMPAR1B(P$20?T$"/"FPBC:FP:FL);:TEMP$" ":P$(PARLINE)" ":5010Q(T$)85160m(T$",")(T$"z")5060FPBCFL5040T$;F$F$T$ FPBCĺFL);FPFP15040(FPBC50402FPBC1F$"":" ";:FPBC:5040<" "; 70"F(PARLINE,1):F(PARLINE,2).TEMP$;5 KPARLINEPARLINE1\PARLINE7ıf4020 SCREEN EDIT SIMULATORF$""ROWF(PARLINE,1):BCF(PARLINE,2):FLF(PARLINE,3)FPBCROW:FP GOSUB 5240T$:T$(13)521ĺ" Y ";:3270" " ";PFQ$;" ";L "| PRINCIPAL | INTEREST | AMOUNT"{ "---------------------------------------" 34,11: WINDOW  ** ENTRY ROUTINEPARLINE1TEMP$P$(PARLINE):5000F$""4050P$(PARLINE)F$:40ATE: ";:F1$"##":F2$"###":VANNT:29000:O1$;" %";>l 5:26Sv "DUR : ";P$(4);^ 6:26m "FREQ: "; PFQ$"M"ĺ"MONTHLY";:3250 PFQ$"Q"ĺ"QUARTERLY";:3250 "YEARLY"; 9:1 " | CUMUL. | CUMUL. | PAY-OFF" CNSBACK SCHEDULE"5 6:"============================";& E0 4:1}: "AMT : $";:F1$"#######":F2$"##":VA:29000:O1$D "BLN : $";:F1$"#######":F2$"##":VB:29000:O1$N "PMNT : $";:F1$"#######":F2$"##":VP:29000:O1$X 4:263b "R2$"##":V(P$(6)):29000:O1$;:P$(6)O1$/ 5 ^ 5:"LOAN ANALYZER -- SPECIFICATION" 5:"=============================="   8:"MORTGAGE PAYBACK SCHEDULE" 8:"========================="   6:"INSTALLMENT PAY##":V(P$(3)):29000:O1$;:" %";:P$(3)O1$; F(4,1):1u"(3) DURATION OF BORROWING: ";P$(4);:34:" YY,MM "; F(5,1):1*" PAYMENT FREQUENCY: ";P$(5);" (M,Q,Y)";4F(6,1):1)>"(4) PAYMENT PER PERIOD: $ ";:F1$"#######":F BORROW: $ ";:F1$"#######":F2$"##":V(P$(1)):29000:O1$;:P$(1)O1$Z F(2,1):1 " FINAL BALLOON PAYMENT: $ ";:F1$"#######":F2$"##":V(P$(2)):29000:O1$;:P$(2)O1$ F(3,1):1,"(2) ANNUAL INTEREST RATE: ";:F1$"##":F2$"#0 23:1:"TOO MANY PERIODS, ... HIT A KEY ";K T$:23:1:958:1070[ PFQ11310k N601310u CNS1 TYPE$"M"İ3040:1330 (3080 23120 <19000 F3000 P9060 Z2000 d1070 n F(1,1):1K "(1) AMOUNT TO":VP:29000:O1$;3+fN12);"PAYMENT FREQUENCY: ";R+kNPFQ$"Y"ĺ"YEARLY":20090t+pNPFQ$"Q"ĺ"QUARTERLY":20090+uN"MONTHLY"+zNTYPE$"I"ĭLN1ĺ33);"(Linear Decline)":20100+N+N+N+N ** COLUMN HEADINGS **!,N22);" | CUMUL;"ANNUAL INTEREST RATE: ";:F1$"##":F2$"###":VANNT:29000:O1$;" %"*WN2);"FINAL BALLOON PAYMENT: $ ";:F1$"#######":F2$"##":VB:29000:O1$;*\N8);"DURATION OF BORROWING: ";:P$(4);" YY,MM"+aN5);"PAYMENT PER PERIOD: $ ";:F1$"#######":F2$"##================")4N::')9N(12);j)>N12);"L O A N A N A L Y Z E R -- MORTGAGE PAYBACK SCHEDULE")CN12);"======================================================")HN::)MN17);"AMOUNT: $ ";:F1$"#######":F2$"##":VA:29000:O1$;E*RN9):(13);(4);"PR# ";SN%:(9);"80N";:25000:(4);"PR# 0"D(,

, , ";&J24:28:T$&JT$(((T$,1))(((T$,1))97)32)'JT$"N"B%V@#%8J ** DETAIL REPORT ***.%BJ16000X%LJCNS1Ģ7:1:"ANNUAL CONSOLIDATION";%VJTYPE$"I"ĭLN1Ģ7:25:"(LINEAR DECLINE)";%`J:I1TSIZE%jJF1$"###":F2$"":VI:29000:O1$;"|";%tJF1$"#######":F2$"##":VTABLE(I,1):29000:O1$;" | ";M1):16380$?TSIZELM>$?TSIZE(TSIZE)TSIZE(TSIZE1)U$@TABLE(TSIZE,1)ABp$@TABLE(TSIZE,2)PNAB$@TABLE(TSIZE,3)B$$@PSIZEN$.@PSIZE(PSIZE)PSIZE(PSIZE1)$8@PTABLE(PSIZE,1)AB$B@PTABLE(PSIZE,2)PNAB%L@PTABLE(PSIZE,3)QLM16330 #?TABLE(JPFQ,1)CP6#?TABLE(JPFQ,2)CIL#?TABLE(JPFQ,3)POW#?16330i#?TABLE(J,1)CP{#?TABLE(J,2)CI#?TABLE(J,3)PO#?PTABLE(J,1)CP#?PTABLE(J,2)CI#?PTABLE(J,3)PO#?J#?CNS0TSIZEN:16380 $?LM(LM)TSIZE(L0*">LN0KI(NPAB)(N1J)T1:16140="?KI(NPAB)NI" ?KPPKIV"?CPCPKPc" ?CICIKIr"*?KPCN(KP)"4?KICN(KI)">?CPCN(CP)"H?CICN(CI)"R?POABCP"\?POCN(PO)"f?TYPE$"M"A1A1KP"p?CNS116300 #z?JPFQ(JPFQ)JPF5P$(5)PFQ$$!`,MISS6P$(6)(P)>!j,PARSET(MISS)1:MISS0D!t,_!> ** FILL IN TABLE **h!>CP0q!>CI0z!>A1A!>LMNPFQ!>T10!>TYPE$"M"16100!>T1N(N1)2!>LN0!>NT1(NPA)PLN1!>J1N">TYPE$"M"KIRA1:1614: CALC N +NCN(N)! +DURN> +DURDURPFQ:DURCN(DUR)I ,11310` ,30290: CALC Pm ,PCN(P) $, *** POST PROCESS CALCS ** ., *** POST PROCESS CALCS ** 8,MISS1P$(1)(A) B,MISS3P$(3)(ANNT) L,MISS4İ30000 !V,MISS+DURNPFQ: DUR = FN CN(DUR)5p+30480: CALC PBz+PCN(P)M+11310e+ *** MORTGAGE ***+MISS11170,11310,11200,11230,11310,11280+30160: CALC A+ACN(A)+11310+30190: NEWTON R+ANNT100RPFQ+11310 +302501:I140:(95);:Ix#4* *** CALCULATE ***I+TYPE$"M"11150w +MISS11030,11310,11060,11090,11310,11120+30350: CALC A +ACN(A)*+113104+30390: CALC R>+ANNT100RPFQH+11310R+30440: CALC N\+NCN(N)f00" B(#5:1:"INSTALLMENT LOAN OR MORTGAGE : (I/M)";:32\2#TYPE$:TYPE$""9010<#TYPE$(((TYPE$,1))(((TYPE$,1))97)32)F#(TYPE$"I")(TYPE$"M")9010P#TYPE$;d#5:1:958:"INSTALLMENT LOAN OR MORTGAGE : ";TYPE$;n#7:P$(4))1):7690)YY$(P$(4),1,CMPO1)BCMPO4MM$"":7690hMM$(P$(4),CMPO1,(P$(4))CMPO)n @ **** CLEAR PARAMETERSJP$(1)" 0.00"TP$(2)" 0.00"^P$(3)" 0.000"hP$(4)"00,00"rP$(5)"M"|P$(6)" 0.1 7:1:"1. NUMBER OF DAYS BETWEEN TWO DATES."V 9:1:"2. WEEKDAY OF ANY DATE." "11:1:"3. CALENDAR FOR ANY MONTH." T13:1:"4. EXIT." ^15:7:"PLEASE ENTER CHOICE: " 17:6:(B$,40):15:28:" ":15:28 A$"":A$:A$""ī40I13500:I, ** THE PERPETUAL CALENDARM 2B$" ":I1100:B$B$" ":Ip <AS$"*":I1100:AS$AS$"*":y d430 i k n1:18:"THE" 3:11:"PERPETUAL" 3:21:"CALENDAR" 1:18:"THE" 3:11:"PERPETUAL CALENDAR" ":8:12:"A+ DISK MAGAZINE":10:16:"PRESENTS"`12:11::"PERPETUAL CALENDAR":pI1800:I15:12:"BY MORRIS EFFRON"""18:14:"PROGRAMMED BY"20:10:"OPPENHEIMER SOFTWARE" 23:22:"(C)COPYRIGHT 1983":       yT$5yT$"N"SN%0:55y"SLOT NUMBER (1-6) ? ";=5yT$f5yT$(((T$,1))(((T$,1))97)32)5y(T$)1(T$)6311805yT$5ySN%(T$):Iv 4v FNIN(A,B,P,R)-4vN(AB)(PRA)34v:4v P4w FNIP(A,B,N,R)d4wP(ABRNA)Nj4w4y ** PRINTER INIT **4|y4y"DO YOU HAVE A PRINTER (Y/N) ?";4yT$4yT$(((T$,1))(((T$,1))97)32)4yT$"N"T$"Y"311305R(AB))1)(1R)3>v 3Hv 53Rv FNMP(A,B,N,R)[3\vP(AB)R(1R)N((1R)N1)RBa3fvh3pv 3zv ** CALCULATIONS FOR INSTALL 3v 3v FNIA(B,N,P,R)3vA(PNB)(1RN)3v3v 3v FNIR(A,B,N,P)3vR(PNBA)(NA)3v4LATIONS **2u (2u FNMA(B,N,P,R)h2uA(P(BR(1R)N)((1R)N1)RB)(R(1R)N((1R)N1))n2u2u *** NEWTON ROUTINE ***2uS1.12vF(S)0.1RS1:2 vSSF(S)G(S)2v302102 v 2*v FNMN(A,B,P,R)34vN(R(AB)(PRBMM$ 1lu81vu *** FUNCTION ROUTINES FOR CALCULATIONSU1uCN(X)(100X0.5)100p1u ** NEWTON FUNCTIONS1uF(S)AS(N1)(AP)SNBSBP1uG(S)A(N1)SN(AP)NS(N1)B1u: NO MORE TRUE FUNCTIONS1u 2u *** MORTAGE CALCU)O2$(F1$,(F2$)):29140;0qO2$F1$(F4$,(F2$)(F1$))K0qO2$"."O2$[0qO1$O1$O2$a0q00u *** CONVERT DUR BACK TO YY,MM0:uYY$((DUR))0DuMM$(((DUR(DUR))120.5))0Nu(YY$)2YY$"0"YY$0Xu(MM$)2MM$"0"MM$1buP$(4)YY$","((V)))(F1$)O1$((V)):29040K/fqO1$(F3$,(F1$)(((V))))((V))X/pqF1$(V)i/zqVI1(F1$)/q(F1$,VI,1)"."29100/qVI/qF2$""O2$"":29150/qF1$"0":29110/qF1$(F1$,(F1$)VI)/qF2$""O2$F1$:291500q(F1$)(F2$PTABLE(K,2):29000:O1$;2);"| ";V.bF1$"#######":F2$"##":VPTABLE(K,3):29000:O1$o.bK48(K48)25260~.bKN25400.b(12);::::20170.b .8cK.e.Hq ***** PRINT USING ####,####,VAL.RqF3$" ":F4$"000000000""/\q(a ** PRINTOUT DETAIL **6-aTYPE$"I"İ20000:25030A-a20025L-a20045W-a20170f- bK1PSIZE-b18);:F1$"####":F2$"":VK:29000:O1$;- b3);"| ";->bF1$"#######":F2$"##":VPTABLE(K,1):29000:O1$;2);"| ";!.fbF1$"#######":F2$"##":V. | CUMUL. | PAY-OFF "D,NPFQ$"Y"T$"YEAR ":20230g,NPFQ$"Q"T$"QUARTER ":20230y,NT$"MONTH ",O17);T$;,O"| PRINCIPAL | INTEREST | AMOUNT",O16);"----------------------------------------------------",$O-,6) (AD$,3,1)"/"ı1 (AD$,6,1)"/"ıT0 Y((AD$,4)):Y1800Y2800ı: LP0:Y100(Y100)ĭY4(Y4)LP1D Y2000Y2400Y2800LP1I M((AD$,2)):M1M12ıN MXDS(M):M2LPMX29X D((AD$,4,2)):D1DMXıb OK$"":A$:A$""2730: 21:1:(B$,40):23:1:(B$,39)O 20:1:(B$,40)Y 1980_ e ~ ** DATE VALIDATION OK0 AL(AD$):AL103090 (AD$,2,1)"/"AD$"0"AD$:ALAL1:AL103090 (AD$,5,1)"/"AD$(AD$,3)"0"(AD$:S20ĺ(B$,S2);1 DS$(I);:S30ĺ(B$,S3);8 IG "*":3480Q 3540\ I15f " ";| J17:CL$(I,J);( J:"*"F J15:3480:Jd I5İ3540:In " ";(AS$,78) (12):0 23:5:"(PRESS ANY KEY TO CONTINUE)"; AMX98 STST1:CL$(5,ST)(CL$(5,ST),4)"/"(I)(B$,4)@B I]L LN(MS$(M2))((Y2))1V LN((80LN)2):(12):(B$,LN);MS$(M2);" ";(Y2)e  " ";(AS$,78) 3480:" "; I17:LD(DS$(I)) S110LD:S2(S12):S3S1S2 "*";; N%:(9);(1);(1);"80N";=MXDS(M2):LLM22MX29FDM0QI15\J17 ((I1)7)JWDDM1MXCL$(I,J)"*"(B$,10):2325 DMDM1:DM$(DM):CL$(I,J)"* "DM$(B$,(9(DM$))) J I$ ST0) DMMX2380. IDM11:(B$,40):1:22:(B$,40):19805\Y2Y:M2M:D2D?f3190_TD32767TDTD32767:2180WD((TD7(TD7))7.05)(TD7)PR0WD7WD:2250WD0WD723:5:"PRESS ANY KEY TO PRINT ";A$"":A$:A$""225023:(B$,40)N$""N$"0"N$"1"!N%(N$),21:5I"DATE (MM/YYYY): ";AD$lAD$""Ģ18:1:B$:(B$,40):AD$"0"AD$:AD$(AD$,7)AD$(AD$,3)"01/"(AD$,4)3050:OK214022:1:"BAD DATE. PLEASE RE-ENTER." I11000:I"1:2 **Y11983:M11:D11J18:5:"DO YOU HAVE A PRINTER (Y/N)? ";:T$Z18:34:T$kT$"Y"193820:5:"NO PRINTER AVAILABLE"I11000:II1722:(I):(B$,40):I35019:"ENTER SLOT NUMBER FOR YOUR PRINTER: ";N$(WD):1755WD$DS$(7)720:5:"THIS DAY IS A ";D:WD$:o22:3:"(PRESS ANY KEY TO CONTINUE)";A$"":A$:A$""180017:1:(B$,40):19:1:(B$,40)22:1:(B$,40):20:1:(B$,40):1530v ** CALENDAR PRINT ROUTINEK1670/,19:3:"BAD DATE. PLEASE RE-ENTER."@6I11000:IlT19:3:(B$,40):17:3:(B$,30):1530Y2Y:M2M:D2D3190TD32767TDTD32767:1710WD((TD7(TD7))7.05)(TD7)PR0WD$DS$(7WD):1755 WD0WD$DS$&n17:1:(B$,40):19:1:(B$,40);p21:1:(B$,40)fs22:1:(B$,40):23:1:(B$,39):950 ** WEEKDAY DETERMINATION ROUTINEY11983:M11:D1117:3:AD$"""DATE (MM/DD/YYYY): ";AD$AD$""Ģ17:3:(B$,40):"3050:OASE RE-ENTER."0I11000:I:21:5:(B$,40)K19:1:(B$,40):1100^Y2Y:M2M:D2Dh 319021:10:"THE NUMBER OF DAYS"22:7:"BETWEEN THESE DATES IS: ";FTDSZ23:5:"(PRESS ANY KEY TO CONTINUE)";dA$"":A$:A$""1380:1:(B$,30):"3050:OK1090K19:5:"BAD DATE. PLEASE RE-ENTER."mI11000:I:19:5:(B$,30)17:1:(B$,40):950BY1Y:M1M:D1DL19:2:AD$""`"SECOND DATE (MM/DD/YYYY): ";AD$j3050:OK126021:5:"BAD DATE. PLENOVEMBER",30  "DECEMBER",31I  1900,2100,2200,2300,2500,2600,2700_ >I17:DS$(I):I{ \I112:MS$(I),DS(I): I17:NL(I):I   ** DAYS BETWEEN TWO DATES ** 17:3:AD$"" "FIRST DATE (MM/DD/YYYY): ";AD$AD$""Ģ17"  "WEDNESDAY"$  "THURSDAY"3  "FRIDAY"D  "SATURDAY"Y  "JANUARY" ,31m  "FEBRUARY",28~ & "MARCH",31 D "APRIL",30 N "MAY",31 X "JUNE",30 b "JULY",31 l "AUGUST",31 v "SEPTEMBER",30  "OCTOBER",31  "0 15:28:A$f A$"1"A$"2"A$"3"A$"4"Ģ17:7:"1, 2, 3 OR 4 PLEASE":I11000:I:390 (A$)940,1490,1910,2830 350  **INITIALIZATION DS$(7),MS$(12),DS(12),NL(7) CL$(5,7)  "SUNDAY"  "MONDAY"  "TUESDAYE^N2 Eh#EX120:X(X)X:X3ET9(TT)3ı;EF0KEX1T9(TT)mEN(X(X),TT)N(X(X1),TT)450uEF1EQX(X):X(X)X(X1):X(X1)QEXEF1410EEW$"":CH$(13)EJ1TEV:HH1J:B$E(B$)13690F(B$)2C$(X,1),D$(X,1):XFDS(0,0):S(0,1):S(0,2):S(1,1):S(1,2):S(1,0)WDL$(0),L$(1)jDD$;"CLOSE";N$xDE11:E21D6015D,3D.FR(0)D1Z$""ıD6N21(Z$)D@((Z$,N2,1))31X,YDJF0XX6DOF1YY8DTX275X0:YY8"29CUN$N$".LINE"CY9@C]20:12::"RETRIEVING ";N$:RCaD$;"OPEN";N$dCeD$;"READ";N$CiDUM,T9(0),T9(1),S2,S3,S4,G7,G8,H3,H2,L3,L2,FF(1)CnP1CyQ$,V$,H$C}X1T9(0):A(X,0),N(X,0),C$(X,0),D$(X,0):XDX1T9(1):A(X,1),N(X,1),ER A NUMBER FROM 1 TO 3 ";:X(B5X(X)8B9X1X329LB=X6015,65,8000RBABE5:"ENTER THE NAME OF THE FILE YOU WISH TO RETRIEVE."BI10:"THE FILE NAME MUST END WITH THE SUFFIX '.LINE' WHICH IS PROVIDED BY THIS PROGRAM."BM7:N$CQN$":P07A1:"----------------------------------------"WA!2:11:"*** MAIN MENU ***"A"3:"----------------------------------------"A%10:"1. CREATE NEW GRAPH"A)13:"2. RETRIEVE OLD GRAPH"A-16:"3. RETURN TO APPLESOFT BASIC"B119:"ENTU"@C$(20,1),D$(20,1)-@A(20,2),N(20,2)B@233,11:232,184N@D$(4)f@S(1,2),FF(1),X(20)p@1:0@XB24:YB151:29@ (222)5P1145@ (222)529@ D$;"DELETE";N$@@15:11::"FILE NOT FOUND":@U11500:UA          16385%Ax16384,0:16385,0:16386,0GA103,1:104,64:175,1:176,64WA23:1:" "}A23:1:(4);"BLOAD GRAPH.BINARY"A23:1:(4);"RUN LINE.GRAPH.GENERATOR" @ '@7:12:"A+ DISK MAGAZINE ">@9:16:"PRESENTS"^@(13:12::"'LINE PLOTTER'"@216:5::"BY MIRROR IMAGES SOFTWARE INC."@<18:5:"PROGRAMMED BY DAVID M. WOLFF"@F23:7:"(C)1984 ZIFF-DAVIS PUBLISHING CO."@m105,51:106,8An TD1p FYLYı'u LLTDTD366:7z TDTD365:\ ** CALENDAR PRINT ROUTINES **f " "; K17:"*"(B$,10);:K "*"  " ";(AS$,78): K17:(AS$,11);:K )I1LM1:TDTDDS(I):I- NY2NY33370c IFY1LY1:I100(I100)ĭI4(I4)TDTD1 I2000I2400I2800TDTD1 I* LLLM2TDTD14 TDTDLD= FM123420> IFM112:TDTDDS(I):I\ TDTDDS(FM)FDf FLFM3TD# Y22000Y22400Y22800L21W FYY1:FMM1:FDD1:FLL1:LYY2:LMM2:LDD2:LLL2 PR0FYY2:FMM2:FDD2:FLL2:LYY1:LMM1:LDD1:LLL1 NYLYFY:NY0TD(NY365.25)365 I17 NL(I)FYNL(I)LYTDTD1 I LM103345 1:*v ** COMPUTES DAYS BETWEEN DATES8 PR0:TD0I Y1Y2PR1` Y1Y2M1M2PR1} Y1Y2M1M2D1D2PR1 L10:Y1100(Y1100)ĭY14(Y14)L11 Y12000Y12400Y12800L11 L20:Y2100(Y2100)ĭY24(Y24)L213(H3S2)1UHS4(L3S2)S2)U\4420BUf:H315;"AND ";H35LUp4640YU:M(0)gUP16302,0nUZ7UdXXB112(Q$)3UiF0UnY7:Z$Q$:300UX2:Y20:F1:Z$V$:300UX40:YYB20:F0:Z$H$:300UXB,10XB,YB225XB,YB VDXS(0N::"IS THIS ACCEPTABLE";%TX7000TbF1ı6TlbT2:"ENTER THE INCREMENTS AT WHICH YOU"T4:"WOULD LIKE THE ";H$;" AXIS SCALED."T 6:"THIS NUMBER SHOULD BE BETWEEN"T(H3L3)04710T:(H3L3)10;" AND ";(H3L3)2T :S2 U4SwS|M113SS21S(H3L3)S25.643008SMOSS3((H3L3)S2)1_SS4(L3S2)lSS4S4S2S0:"THE AUTOMATIC SCALER SUGGESTS THAT EACH"S::"DIVISION BE ";S2SD:"THIS WILL RESULT IN ";S3;" DIVISIONS"SI:"STARTING AT ";S4TT VALUE=";H3&R":"LOWEST VALUE=";L3UR,::"THERE SHOULD BE BETWEEN TWO AND TEN"vR6:"DIVISIONS ON THIS AXIS."|R@RhH31H310000Ğ:"OUT OF RANGE FOR AUTOMATIC SCALE"::U12200:U:4460Rr 1,2,5,10,20,25,50,100,200,250,500,1000,2000S,TT) QM)QTT0FF(1)0TT1:4010MQP$"HORIZONTAL":H3H:L3L:4100eQS(0,0)S2:S(0,1)S4sQS(0,2)S3QP$"VERTICAL":H3H2:L3L2:4100QS(1,0)S2:S(1,1)S4QS(1,2)S3Q6015QQ::"SCALING FOR ";P$;" AXIS." R:"HIGHES015%P TF1TT1:FF(1)1:E30:2705/P 6015=P F06015LPE207500UPE11kPHN(1,0):LN(1,0)PH2A(1,0):L2N(1,0)PTT0PM1T9(TT)PN(M,TT)HHN(M,TT)PN(M,TT)LLN(M,TT)PA(M,TT)H2H2A(M,TT)QA(M,TT)L2L2A(M-";T91")";:LNEO] :20:" "yO^ 21:" "O_ 22:" "Oa LNT91LN0Ğ:3420Ob LNT9TS9T9:3100Of XLN:3115:3400P TT16127N6 T6:VX3:HH30:500BN7 W$""N(X,TT)(W$):D$(X,TT)W$ZN9 W$""T9TS93350`N: iND T9XpNN XN T9T9(TT)T9(TT)T9NH 19:1:"IS THIS DATA CORRECT. ";:700NR F13464O\ 21:"ENTER THEN NUMBER OF THE LINE YOU WISH TO CHANGE.(1VALUE";2);"X-VALUE";2);"Y-VALUE";2);"X-VALUE";M TS9T9DM T90SM XT9120gM& G1:3115:3140wM+ X113121M0 T6:VX7:HH4:500:3122M1 T6:VX3:HH22:500M2 W$""A(X,TT)(W$):C$(X,TT)W$M3 X113126N5 T6:VX7:HH11:500:35L ,L "ENTER DATA POINTS FOR ";L$(TT)XL :"ENTER AN EMPTY LINE WHEN FINISHED."dL X110L X7:1:X;".":X7:4:C$(X,TT):X7:11:D$(X,TT)L XL X1120L X3:19:X;".":X3:22:C$(X,TT):X3:30:D$(X,TT)L X0M 2:6:"Y-RAWN ON THE GRAPH.""K 9:L$(TT)@K 10:"------------------"WK T18:V9:HH1:500mK W$""L$(TT)W$K T9T9(TT):FA48:LB57K FF(TT)1İ3000:2767K 3000K T9(TT)T9K FF(TT)1K TT16015K TT1K FF(TT)06015K L, 601BEL="::V$J 4J "*** HORIZONTAL LABEL="::H$20:9:"----------8B$(8):JJ1:527(GX(CH$)13590/GJ5GHG" (Y/N) ?";K$_G(K$,1)"Y"F1:vG(K$,1)"N"F0:G:"ENTER YES OR NO!";::700GGFF(0)0:FF(1)0GXB24:YB151GG71:G80G4H68:9:"----------------------------760150FJ1(B$)0ĖHH:V:E1T1:" ";:ERF(B$)8JJ2:CH$(13):575tF(B$)FA(B$)LBJJ1:680FV:HHJ1:B$FW$W$B$F:590F?V:HHJ:" "FAJ1J0:W$"":680FDW$(W$,J)FNJTČ198:V:HHJ:CH$GS(CH$) 1500:U:6015Nb~:10:"YOU MUST FIRST SCALE YOUR GRAPH":U11500:U:6015Tb@DFF1:F0F172002a*F0TTO:E31:E20::2705Va4F1TF1:TT0:E20::E30:2705aR:8:"DO YOU WANT TO ADD A SECOND LINE. ";a\700afF1TT1:TF1:E20:E30:2705ap7210aFF(1)02820bL:10:"YOU MUST FIRST INPUT GRAPH DATA":U1,2):S(1,1):S(1,2):S(1,0),`L$(0),L$(1)?`D$;"CLOSE";N$I`6015d`198:G81G80:6065s`G80G81}`6065`198:G70G71:6070`G71G70`6070` E317250`#E21:E10`$:8:"DO YOU WANT ONE LINE OR TWO ";:Fa% ?" _\700__F06400,_dD$;"OPEN";N$?_nD$;"WRITE";N$w_x1,2,3,T9(0),T9(1),S2,S3,S4,G7,G8,H3,H2,L3,L2,FF(1)_Q$,V$,H$_X1T9(0):A(X,0),N(X,0),C$(X,0),D$(X,0):X_X1T9(1):A(X,1),N(X,1),C$(X,1),D$(X,1):X`S(0,0):S(0,1):S(0D TO YOUR"#^811:1:"FILE NAME."5^<7:1:" ";N$E^?N$""6015W^AN$N$".LINE"z^F18:12::"SAVING FILE ";N$:^PD$;"OPEN";N$^R6500^SD$;"READ";N$^URC$^WD$;"CLOSE";N$_Z"THIS FILE ALREADY EXIST.DO YOU WANT TO WRITE OVER ITNE GRAPH."5]:::"PRESS TO CONTINUE..."=]A$G]5000U]16302,0c]16304,0k]A$y]16303,0]6000]](3:1:"ENTER A NAME FOR THE FILE YOU ARE"]25:1:"SAVING ON DISK" ^79:1:"THE SUFFIX '.LINE' WILL BE ADDE:"8= RETURN TO MAIN MENU"D\21:"ENTER A NUMBER FROM 1 TO 8 ";J\R\X$^\X(X$)i\X(X)~\X1X8Ğ:6110\8X900,7200,4000,7050,7150,6300,6400,29\E107550\\::"PRESS THE KEY WHEN DONE" ]"VIEWING THE LIG"*[11:"4= CHANGE GRID OPTION (NOW ";0[B[G80ĺ"OFF";T[G81ĺ"ON ";_[:")"[13:"5= CHANGE POINT CONNECTION (NOW ";[[G70ĺ"OFF";[G71ĺ"ON ";[:")"[:"6= VIEW LINE GRAPH"[:"7= SAVE GRAPH ON DISK"\3Z1:"----------------------------------------"TZ2:11:"*** GRAPH MENU ***"Z3:"----------------------------------------"Z"1= ENTER/CHANGE TITLE OR AXIS LABEL"Z:"2= ENTER/CHANGE LINE LABELS AND VALUES"[:"3= CHANGE AXIS SCALIN"X" Y300'YXX4:YY3:G71ēX,Y.YL6YTTHYFF(0)05700[YZ$"* "L$(0)gY&XXB10sY0YYB32Y:F0:300YDFF(1)05999YNZ$"X "L$(1)YXXXB10YbYYB40YlF0:300Yo6365YpYz:"LINE GRAPH COMPLETED"Z:BN(X(1),TT)S3B320XYYBA(X(1),TT)S4B43LXF0:Z$"*":TT1Z$"X"aX300:XX4:YY3pXG71ēX,YXT9(TT)25600XL2T9(TT)XXXBN(X(L),TT)S3B3XYYBA(X(L),TT)S4B4XG71ēX,YXXX2:YY3YF0:Z$"*":TT1Z$1Ē5#W,XB2,YBLX2XB2,YBX2L>W1G81ē225XB,YBX2LZW6YYBX2L1:XXB10:F1gW@Z$(X3)pWJ300}WTX3X3DXW^LW|TT0FF(1)W400WS3(112S(0,2))2S(0,0)WS4140(S(1,0)S(1,2))WB3S(0,1)S3WB4S(1,1)S4XXX,0):X3S(0,1)$VX2(112S(0,2))24VL0S(0,2)AVG81Ē6`VXBX2L,YB2XBX2L,YB3wVG81ēXBX2L,10VXXBX2L3:YYB11:F0VZ$(X3)V300VX3X3DXVLVDXS(1,0):X3S(1,1)VX2140S(1,2)V"L0S(1,2)W'G823:1::"ENTER ONLY A NUMBER GREATER THAN ZERO!"::3250CK F1:K 22:3:"IS THIS INFORMATION CORRECT";:700:22:1:868:23:1:868:F16020K TT9T9:T90:P0:X110:3200:F0X10K N2(X)L:3140:X:3300K:7:16302,0:G70BL200: ------- ":20:4:"PRESS (ESC) TO RETURN TO MAIN MENU":AB32:AE90:VT910:HH4:T8:500:W$""K$(X)W$:A$(X)K$(X)J AB46:AE57:DW1:VT910:HH19:T6:500:DWO:W$""L2$(X)W$J L(L2$(X)):L2$(X)""N2(X)0F0J L2$(X)""ı9K L0ĢY110:PER(Y)(((N2(Y)P)1000))10:N(Y)PER(Y):PER(Y)0PER$(Y)" ":3157IS PER$(Y)(PER(Y)):Y9:31:" "IU Y9:31:PER$(Y):Y:Il X:3300zJ 7:1:" DESCRIPTION AMOUNT PERCENT ":8:1:" ----------- ------ "ENTER AN EMPTY LINE WHEN FINISHED.":CO110:CO9:4:K$(CO):CO9:19:L2$(CO):CO9:31:PER$(CO):CO:CO19:CO9:2:CO;".":CO:19:1:"10.":XT9110:G1:3200H0 F03300H: A$(X)K$(X):N2(X)L:3140:3180UID T9X:P0:Z110:PPN2(Z):Z:ITLE LINE TO BE PLACED AT"::"THE TOP OF YOUR PIE CHART:"IGC13:1:Q${GHAB32:AE90:V13:HH1:T29:500:W$""Q$W$Gl23:1:868:22:1:"IS THIS CORRECT";:700:F0Ģ22:1:868:2120G3 6020H :T90::"ENTER DATA FOR THE PIE SLICES."::(CH$)13590FJFAF" (Y/N) ?";K$:(K$,1)"Y"F1:XF(K$,1)"N"F0:~F23::"ENTER YES OR NO!";::700:G:D$(4):3:1:"A+ DISK MAGAZINE PIE CHARTER":4:1:"----------------------------------------":::"ENTER A T;:E&E(B$)8JJ2:CH$(13):575HE(B$)AB(B$)AEJJ1:680fEDW1(B$)47JJ1:680EV:HHJ1:B$:W$W$B$:590E?V:HHJ:" ":J1J0:W$"":680EDW$(W$,J)ENJTČ198:V:HHJ:CH$ES(CH$)8B$(8):JJ1:527FX(0):N21(Z$):((Z$,N2,1))31X,Y:XX6:X275X0AD^N2:VDC(V)4C(V)0ıDFR(0):C(V):YTT2.01:XB,YBX(Y),Y(Y):Y:7:DW$"":CH$(13):J1T:V:HH1J:B$:(B$)13690D(B$)276020EJ1(B$)0ĖHH:V:E1T1:" """29CUN$N$".PIE":16C]20:12::"RETRIEVING ";N$::D$;"OPEN";N$:D$;"READ";N$:DUM,T9,G6,G7:P1:Q$:X1T9:A$(X),N(X),K$(X),L2$(X),PER$(X):XCD$;"CLOSE";N$:E11:E21:6020CG71ıC4864:C,7:Z$""ıC2Y191Y1917D3FRAPPLESOFT BASIC":19:"ENTER A NUMBER FROM 1 TO 3 ";:X:X(X):X1X329_B=X6020,65,10000CA:5:"ENTER THE NAME OF THE FILE YOU WISH TO RETRIEVE.":10:"THE FILE NAME MUST END WITH THE SUFFIX '.PIE' WHICH IS PROVIDED BY THIS PROGRAM.":7:N$:N$:15:11::"FILE NOT FOUND"::U11500:UA:P0:1:"----------------------------------------":2:11:"*** MAIN MENU ***":3:"----------------------------------------"JB%10:"1. CREATE NEW GRAPH":13:"2. RETRIEVE OLD GRAPH":16:"3. RETURN TO Vm@P0:X(Q)75(Q)XB:Y(Q)65(Q)YB:233,11:232,184:1:0:A$(10),N(10):D$(13)(4):S$"%":P$""@ XB140:YB105:R70:PI3.14159265:C(1)7:C(2)5:C(3)6:C(4)0:C(5)1:C(6)2:C(7)4:C(8)6:C(9)5:29@(222)5P1145,AD$;"DELETE";N$:        ERATOR"NOR IMAGES SOFTWARE INC.") U14000:U5 2FR(0)@ n16385_ x16384,0:16385,0:16386,0 103,1:104,64:175,1:176,64 23:1:" " 23:1:(4);"BLOAD GRAPH.BINARY" 23:1:(4);"BLOAD DATA.BINARY" 23:1:(4);"RUN PIE.GRAPH.GEN 2-(C)COPYRIGHT 1984 BY ZIFF-DAVIS PUBLISHINGS:8:12:"A+ DISK MAGAZINE"k10:16:"PRESENTS":12:13:" 'PIE CHARTER' ":14:5:"BY MIRROR IMAGES SOFTWARE INC."16:6:"PROGRAMMED BY DAVID M. WOLFF" 23:5:"(C)1984 MIRR<<<1=F=\=k=====1>F>`>a>f>g>>>>>>> ??1?F?????i i H h L ` h L `222222 3313F3333334D4Z4m4444415F5\5k5555516F6_6`6g6h66666 7717F7777728E8Z8m8888819F9\9k9999991:F:`:g::::: ;;1;F;;;;;2"::14:7:"PRESS ANY KEE:":::"1= ENTER OR CHANGE CHART TITLE"::"2= ENTER OR CHANGE LABELS AND VALUES"P11:"3= CHANGE COLOR OPTION (NOW ";::G60ĺ"OFF";PG61ĺ"ON ";P:")"::"4= DISPLAY PIE CHART"::"5= SAVE PIE CHART ON DISK"::"6= RETURN TO MAIN MENU"=L24!OXXBRL:VV8XXBRL]OYY(V):X,Y:Z$A$(V):YY2:XXBR20:VV8XXBRL10OX2X:300:XX2:YY10:Z$(N(V))"%":300:V:7OfA$:16303,0::::"PIE CHART COMPLETED"SP:::"ENTER THE NUMBER OF THE ACTION"::"YOU WANT TO TAK230Y230NV!NV8T95000ENY230:VV8T9:Y(V)Y2Y(V)Y2cNY2Y(V)20:Y2182Y2182NV:Y2182:VT9V81:Y(V)Y2Y(V)Y2NBY2Y(V)20:Y230Y230NLVOV1T9:((C(V)4)4)3:X(T(V)),Y(T(V))X(V),Y(V):L(A$(V))66:L240)YB:Y220Y220%M]Y2182Y2182SMX(V)X2:Y(V)Y2:T(V)T2:V80X2XBV8VpMV:G70G61G71:4100MV824800MY230:VV8111:Y(V)Y2Y(V)Y2MY2Y(V)20:Y2182Y2182M V:Y2182:V1V81:Y(V)Y2Y(V)Y2 NzY2Y(V)20:YZ$Q$:L(Q$)6:X140L2:Y10:300:TPI2:V80:XB,YBX(T),Y(T)YLV1T9:VT95990}LT2TN(V)PI50:G61G70İ400LTT2:G61Ē(C(V)4)4L0G60G71ēXB,YBX(T),Y(T)M57:T2TN(V)PI100:X2((X(T2)XB)1.10)XB:Y2((Y(T2)YB)1.1)"0870246825693073317330752775257423"ZS$(28)"09613772357433733169306634633462366137"S$(29)"0861376041644068407039753572356137"S$(30)"106451644061415942594659485849585061506351"S$(31)"06665066497149684064406451""S$(32)"107522822\S$(23)"135715601561166218000055145415541955205721572258246324"rfS$(24)"0864256825702400005715601561166218"pS$(25)"166324582458265727572957305932593461366137623663346431632963266425"zS$(26)"09642563266329643163346634693068256425"&S$(27048174822572257215520541954155514"V4S$(19)"09482248244929572957275826582457224822">S$(20)"1149295030513252375238613761365934593257294929"HS$(21)"09523852445345534659465942604161375238"RS$(22)"106351615058505849594859465346534854495453"B836234824482248173617"FS$(14)"0836233527382738305030492948243623"n S$(15)"06383038375237513250303830"S$(16)"1136373638413842424343464452445238523738373637" S$(17)"135453544953485346534552444644434342424138363836472947""*S$(18)"094711522172517261730183618361736133710"^S$(9)"1125172520242324262727352736233618301826172517"S$(10)"09272726363036363738373830382735272727"S$(11)"09294736473638363730362636254124442448"S$(12)"0537103613361748174710"S$(13)"0736173612214211020"jS$(5)"2018061809171117131714151715191421172219232423252025172217221522122010200920081906"S$(6)"101923192518301734223526362727242624231923"S$(7)"1124482444254126362235173416351537154014421443"#S$(8)"1419062008200920102212221031092207190618061104"FS$(1)"0806090811121215121713171118091806"S$(2)"12031806191020142115191517171417131512121208110609"S$(3)"1114431540153714351232102908270923102006190318" S$(4)"151020092308271029123214351537163517341830192519231718911890179015911394109107910689068807881087128612841383138116811780187719"vAM$(3)"4777217522742373247024702371227120701969206819691869166715661666176420652165246425632462216218631664166814621461136212601359145814571557145514571358125511521047104010375240534054446045604661476147585155535354535953615462536453625263516551665067507050715172517450"KlAM$(2)"5576527754785680588160825983588356815381527949784778458240853685358634853485338532843284308329842885308531863086288526862587248622892090209119921992277,00 0::22:10:"LOADING MAIN PROGRAM":G :(4);"RUN PLAY 5"Q D::f N* STATES DATA *s X* USA *_bAM$(1)"5511041007090709060704070706090611031603180319022102250327032904300332043405360940104214432047244826482747294732503353355436533850ı 540$ * PLOT HAWAII */ J03O XT65:XS2.5:YT15:YS2.5Z N50Jc 360j Js N50z N &1390 *7 +0,00,159:1,01,159:0,159279,159:0,158279,158:279,159279,0:278,159278,0:279,00,0:279,10,1:277,1592))+ rX((S$(N),3,2)):Y((S$(N),5,2))@ |XTXSX,YTYSYL I1ND| X((S$(N),I41,2)):Y((S$(N),I41,2)) X0ēXTXS((S$(N),4I3,2)),YTYS((S$(N),4I5,2)):430 XTXSX,YTYSY I XT40:XS2.5:YT0:YS2.5 N280 :( XT40:XS2.5:YT0:YS2.5W 22:4:"DRAWING MAP OF THE UNITED STATES"m 3:0,0:62454:0 "AM$(3),S$(53) ,590 61180 @N150 J * PLOTTING ROUTINE * TN49XT1:XS2.5:YT20:YS2.5 ^N50470 hND((S$(N),1, FRANKLIN" lU14000:UY x:5:12:"STATES & CAPITALS":6:12:"-----------------"o 9:12:"1. PLAY" 11:12:"2. INSTRUCTIONS" 13:12:"3. QUIT" 16:14:"CHOOSE ONE";:A$ (A$)49(A$)51160 (A$)3580 (A$)2İ1 25576%(4);"BLOAD FILLER"/(::5Zad -(C)COPYRIGHT 1984 BY REX W. FRANKLINe:8:12:"A+ DISK MAGAZINE"f10:16:"PRESENTS"g:12:11:" STATES & CAPITALS ":i14:11:"BY REX W. FRANKLIN" k23:18:"(C)1984 REX W.          S AND CAPITALS DO YOU WANT"C 823:1:"ME TO ASK YOU (1 TO 50)?";N 9"";KNa :KN1KN5055y ;22:868:23:868 <I150:SN$(I):I FI150:SC$(I):I K6000 P22:8:"PRESS RETURN TO CONTINUE"; RN((1)501) T(16384)127.769,160:770,0:771,76:772,44:773,254H * STATES & CAPITALS b * COPYRIGHT (C) 1984x* REX W FRANKLIN:8000:(4);"BLOAD FILLER"25576:SN$(50),SC$(50),F$(50),NL(50),SR(50),CR(50)2KK0:KS0:KC0 722:1:"HOW MANY STATE           !!! ! ! ! ݻ];wnwn];ݻݻ*U*UU*U**U*UժժժUUժժ,xxxxa`mb&sbI,ob+pbMobpbob0pb a{bobpb(` a`&$&PP&) mqb'jjjjf&)e''`@ @ 0`*U*U*U*UժժժժU*U*U*U*ժժժ3fLL3f̙̙"D"D"DD"ĈĈĈpbnbobNob a`ya``a```|a`}a`~a`zaaab{aa b`za```{aa``a`a`a`yaaba b`I-ib hb&-pbbpb1Ib) b)mbbbmbbbb-b b&`&sbI,ob)pbMobpbNobpb azbobpb` `E bqblbjbkb ` >bgb& J,hbI,hb` a& Ea&bsb >bgb&I,hb `lbȄ >bgb&I,hb ``H)fb$hbhmhbrb8~rb8irb8igb|bhbIibtbnb`mbpbnbob& amb& hb&) I1ND$X((C$,6I3,3))9Y((C$,6I,3))SX256XLX256:XH1hX256XLX:XH00,XL:1,XH:2,Y:3,2:4,3224576I."212:16:"1 - PLAY"2<14:16:"2 - QUIT">F16:16^PA$:(A$)49(A$)501330oZ(A$)2580udnC$"18221059199058185034187031064015002012043137052095071113110118110127110132136132136138179134211127224127277146"xND((C$,1,2):1:14:"INSTRUCTIONS":2:13:"--------------"c"I WILL DRAW A STATE AND ASK YOU TO NAME IT.":"YOU WILL HAVE TWO TRIES. THEN I WILL TELL YOU THE STATE."(:"THEN I WILL ASK YOU ITS CAPITAL.YOU HAVETWO TRIES BEFORE I TELL YOU THE CAPITAL75858" * DRAW USA *YX((AM$(1),3,2)):Y((AM$(1),5,2)):XTXSX,YTYSYdI13|ND((AM$(I),1,2))J1NDX((AM$(I),4J1,2)):Y((AM$(I),4J1,2))XTXSX,YTYSYJI* INSTRUCTIONS *0 103530454065406550456025802600361046104630664116413641563166220632470277021611947"jS$(50)"1174637464756574667567756976697868796779667463"tS$(51)"0869627062726273637462736170616962"~S$(52)"0564606760665965596460"S$(53)"055858605860575953871188159016"6.S$(44)"06901688158711861287189017"^8S$(45)"06841384158517851887188612"BS$(46)"079017871885188520881990199020"LS$(47)"049020901988198920"VS$(48)"0589208819852086218622"R`S$(49)"291947174716461345114505480751065103517928772877277527"NS$(38)"1183298229812880287928773176337433723575358533"S$(39)"09853375357337703972397339763880388240"S$(40)"06824080387638733972397845"S$(41)"06784572397039684071497949"S$(42)"047849714966496650"$S$(43)"0184228622862185208518851784158413"ZS$(33)"107423752575277727832684248425842282217522"~S$(34)"0586228422842484258526"S$(35)"048526842583268428"S$(36)"1186288428832677277728792880288128822983298428"S$(37)"10752773307331743376337731169056"8F$(20)"1173075"8BF$(21)"2180112187094"SLF$(22)"2180117192133"nVF$(23)"2180036187057"`F$(24)"4208040215049195041191033"jF$(25)"1194088"tF$(26)"1202080"~F$(27)"2222060220075"F$(28)"3196090198089214079""019120039"$F$(9)"2104044116065"9F$(10)"1132091"TF$(11)"2104117114095"iF$(12)"1143035"~F$(13)"1154054"F$(14)"1137069"F$(15)"1150084"F$(16)"1157099"F$(17)"3136097127133154150"$F$(18)"1163053".F$(19)"TON,PROVIDENCE,HARTFORD. JUNEAU,HONOLULUNpF$(1)"3081030069012059015"hF$(2)"2056029073049"F$(3)"3050047056074072105"F$(4)"2068052077088"F$(5)"2087020094056"F$(6)"2103088091061"F$(7)"2085088098118" F$(8)"2091ON CITY,LITTLE ROCK,BATON ROUGE,MADISON,LANSING SPRINGFIELD,INDIANAPOLIS,COLUMBUS,FRANKFORT,NASHVILLE,JACKSON,MONTGOMERY,ALBANY,HARRISBURG,TRENTON,DOVER,ANNAPOLIS,CHARLESTON,RICHMOND,RALEIGH,COLUMBIA,ATLANTA,TALLAHASSEE,AUGUSTA,CONCORD,MONTPELIER,BOSRE,VERMONT,MASSACHUSETTSG RHODE ISLAND,CONNECTICUT,ALASKA,HAWAII/ OLYMPIA,SALEM,SACRAMENTO,CARSON CITY,BOISE,SALT LAKE CITY,PHOENIX,HELENA,CHEYENNE,DENVER,SANTA FE,BISMARCK,PIERRE,LINCOLN,TOPEKA,OKLAHOMA CITY,AUSTIN,ST. PAUL,DES MOINES,JEFFERSWA,MISSOURI,ARKANSAS,LOUISIANA,WISCONSIN,MICHIGAN ILLINOIS,INDIANA,OHIO,KENTUCKY,TENNESSEE,MISSISSIPPI,ALABAMA,NEW YORK,PENNSYLVANIA,NEW JERSEY,DELAWARE,MARYLAND,WEST VIRGINIA,VIRGINIA,NORTH CAROLINA,SOUTH CAROLINA,GEORGIA,FLORIDA,MAINE,NEW HAMPSHI/TV:TLA3:"INCORRECT":D1800:D:3020GTV:T1:868:KA$Q4500W1 WASHINGTON,OREGON,CALIFORNIA,NEVADA,IDAHO,UTAH,ARIZONA,MONTANA,WYOMING,COLORADO,NEW MEXICO,NORTH DAKOTA,SOUTH DAKOTA,NEBRASKA,KANSAS,OKLAHOMA,TEXAS,MINNESOTA,IO,1)SLSL1:3295  KLS3210* 33009 SL13320M II1:J1:3230\ GS14020f 3910u GS14020 TV:TLA2:"INCORRECT":D11000:D:3020<GS14020FTV:TLA2:"CHECK SPELLING"PD11000:Dd3020GS14020KA$,I,1)WLWL1 I& WL13900; I0:J0:SL0:K0K II1:KK1v& (A$,IJ,1)(KA$,I,1)SLSL1:31950 KLS3100: GS14020D 3910{ SL13200} II1:J1:3120 I0:J0:SL0:K0 II1:KK1 (A$,I,1)(KA$,IJ68,0:TV:T:868- 21:1:"ATTEMPT ";GS17 9000L GSGS1:LA(A$) A$KA$TV22ĢTV:28:"CORRECT":SR(N)N:KSKS1:4500 A$KA$TV23ĢTV:28:"CORRECT":CR(N)N:KCKC1:4500 (LALS)24000 WL0 I1LS (A$,I,1)("PLAY AGAIN"'23:17:"(Y/N)?";:A$D(16368)27A$"N"999UA$"Y"700i:::8100:25::103,1:104,8:2048,0:21:28:"PRESS RETURN"22:28:"TO CONTINUE";:A$(A$)27999 GS0:LS(KA$) 163NL(N)0)(CR(N)0NL(N)0)Ģ22:SN$(N);2);SC$(N):7000:1000D0NJXol21:6:"STATES";17);"CAPITALS"q21:17::":SCORE:":v22:7:KS;"/";KK;21);KC;"/";KK23:8:(100KSKK);1);"%"23:32:(100KCKK);1);"%" 22:15:N150@ SR(N)0CR(N)0Ģ22:SN$(N);2);SC$(N):7000:1000G NS :8100 22:"WANT TO SEE THE STATES AND CAPITALS " 23:"YOU NEED TO STUDY (Y/N)?";:A$ (A$)27999 A$"N"600 A$"Y"500  N150=&(SR(N)0͢21:1:"ATTEMPT ";"0";2);"STATES ";KS;"/";KK;3);"CAPITALS ";KC;"/";KKz 22:1:"WANT TO SEE HOW YOU DID (Y/N)?";:A$ (A$)27999 A$"N"600 A$"Y"400  22:1:"YOU GOT THE FOLLOWING STATES & CAPITALS" D11000:D: 1:"STATE : ";' KA$SN$(N):T9:TV221 3000T 21:12:"STATES ";KS;"/";KK1x ,16368,0:23:1:"CAPITAL : "; 6KA$SC$(N):T11:TV23 @3000 E21:25:"CAPITALS ";KC;"/";KK1 JKKKK1 TKKKN370 ^8100 h105 r8100:H |16368,0::100" U16368,O:82q d21:1:"ATTEMPT ";"1";2);"STATES ";KS;"/";"1";3);"CAPITALS ";KC;"/";"1" iN((1)501) nI150 xNNL(I)105 I NL(N)N 7000 * ASK STATE NAME 22:868:23:868 16368,0:22:$C$9 S$;(2);CL$:I5143:I:T$((I2)3)::S$;(4)b 19:T$(5);:X$:(X$)1(X$)3430 S$;A$;CL$;S$;(4):(X$)436,440,6900 10000:430 460 D$V$;SV$:216,0:10:T$(6):9900:KR1:KC1:LP0:496 CL$:10:1:T$(7):T$(8)):R(X)(X8)2:C(X)(X12)2:K(X)(16384)127 hD$"OPEN JJDATA":D$"READ JJDATA":I116:PP(I),PK(I,1),PK(I,2)::I13:J17:KP(I,J):: rI113:LI$(I)::I129:VI(I,1),VI(I,2)::O$,R$,W$,C$,V$:D$(13)(4):I121:T$(I),H$(I)::DZb"24666:D$(13)(4):I$(9):N$(14):CL$(16):E$(5):B$(7):S$(15):A$(1):SV$"SAVED"6BL(7,7),BP(7,7),PK(16,2),PD(16,2),PS(16,2),PL(16,3,3),PP(16),BS(7),KP(4,8),LI$(13),CL(16),VI(29,2),T$(21),H$(21):DL15 TA(X)X2(X2):B(X)(X2!!!""" " " " " """""""""    AD SHAPE TABLE") 232,00:233,96:1:7C (4)"RUN JIGJAGS1.2"L ,350 6"ERROR # ";(222);" CHECK FILES AND START AGAIN":U12000:U ^::(13)(4);"PR#0":(4);"IN#0":1002:X(49233):103,1:104,8:2048,0:::" 310 (4)"NOMONCIO"7 (4);"BLOAD RBOOT"@ (520U 2ADRS(0),"HRCG"q <ADRS0ADRSADRS65536 PCSADRS768:CS ZCH(CS256):CLCS256CH:ADRS7,CL:ADRS8,CH:(4)"BLOAD ASCII.SET,A"CS _ dADRS3 n(1);1 (4)"BLO7 -COPYRIGHT "(C)1983 RON DUBREN AND ASSOCIATES"Q::7:16:"A+ DISK"h9:16:"PRESENTS":12:16:" JIGJAGS ":14:14:"BY RON DUBREN"16:4:"PROGRAMMED BY RONALD J. TURCOTTE" 23:5:"(C)1983 RON DUBREN AND ASSOCIATES!!!!B8Ĺ16368,0:KB0:JJ1:9030(D#9035BF#J1A$"":J1:9010YH#A$(A$,J1):9010rK#KB27999: * ENDP#KB13Ĺ16368,0:KB0:9070U#(KB);Z#A$A$(KB)d#16368,0:KB0:JJ1:9010n#,0:67,64r769"w7:0,06,0(|87:0,06,0I60,0:61,64\62,255:63,95m66,0:67,32v7697:0,06,0(#A$"":J1:KB02#(16384)127KB(16384)128<#KB0ĢTV:TJ::" ";::9010A#TV:TJ:868C#KFbND((F$(N),1,1))$lI1ND>vX((F$(N),6I4,3))XY((F$(N),6I1,3))rX256XLX256:XH1X256XLX:XH00,XL:1,XH:2,Y24576I7:0,06,0@7:0,06,0E60,0:61,32^62,255:63,63 h66)"2259049258052">ZF$(49)"5028094054135056142060146063153"kdF$(50)"5124149113138118140099133083129"qXC$"0912130913081108101309131209080912091310111310131114111209161213091210130915131015131310111200131313"[CF((C$,2N1,2))]3,C"3224086240072234084"6F$(39)"3245094220096249084"KF$(40)"1235101"` F$(41)"1219115"F$(42)"3234124243144220125"F$(43)"1263034"(F$(44)"2259039258035"2F$(45)"1254039"<F$(46)"2254047265044"FF$(47)"1264049"PF$(48F$(29)"4193101193100210095222088"7F$(30)"1196110"LF$(31)"1202104"mF$(32)"3235052253053248035"F$(33)"2236061241054"F$(34)"1252058"F$(35)"3252069251067250064"F$(36)"3247071244067254075"F$(37)"1229077"F$(38)C2))PCyQ1(Q12):A(Q1)BP(R(R2),C(C2))0:(DL0(DL1BL(R(R2),C(C2))42))ĢR2:C2:" ";:BL(R(R2),C(C2))0Q20RR(R2):CC(C2):BL(R,C)42BL(R,C)0NB(N):C1C12:C2C22::R1R12:R2R22:C1C16:C2C26::Q158PD(PC,1)0:P2C17,R18/|Q1(Q12):A(Q1)ĕ2C27,R28SQ1(Q12):A(Q1)ĕ3C17,R18wQ1(Q12):A(Q1)ĕ3C27,R28Q1(Q12):A(Q1)ĢR1:C1:(PL(PC,J,K));Q1(Q12):A(Q1)ĢR2:C2:(PL(PC,J,K));:BL(R(R2),C(C2))PL(PC,J,K):BP(R(R2),C(:IC0+ICIC1:IC29INVI(IC,1)73101>@NPP(PC)JR1PK(PC,1):C1PK(PC,2):R2PD(PC,1):C2PD(PC,2):Q2ĭPD(PC,1)0Q24TA(N)0C1C12:C2C22^J13:K13:Q1Q:A(N)18120hA(Q1)1Ĕ1C17,R18 rQ1(Q12):A(Q1)ĕI13:J13:A(N)07250<4R7R1C7C1LI3:7260>BLBL(R,C):PLPL(PC,I,J):(DL1((BL0PL42)(BL42PLBL)))LI4:7260HBL0((BL42DL1)(DL0))LI3:7260RCC1:NB(N)::RR1:CC3::\ER1:I3:J3:::IN(IN$)I,2)PD(I,2)WI0:PD(I,1)0WI1:I167:WI1ıMWI0LI12:975024:1:E$;B$;I$;T$(15);:9600:1:N$E$I$;T$(16);MO;" ";T$(17);CL;" ";T$(18);:9600:1:N$E$I$T$(19);N$;:X$:430 RR(DR):CC(DC):ER0:NPP(PC):A(N)0CC1*C,1)DR:PD(PC,2)DC:7200:ER1ER0:6830ZQ94:8000:CT16:CL(PC)1:CLCL1::7100::LI11:9700:PCP3:DRR3:DCC3:CL$:10:T$(20):4999X24:1:E$I$MO" MOVES, "CL" "T$(21)N$;:9600:LI1:9700:(WI1:I116:PS(I,1)PD(I,1)PS(0 6800:597 T 6700:2010p:CL$;::D$;"PR#0";:D$;"IN#0":1002:X(49233):103,1:104,8:2048,0::,I120:H$(I)::X$:H$(21):PC0Q2:8000CT116:PD(CT,1)06830*P3PC:PCCT:R3DR:C3DC:DRPS(PC,1):DCPS(PC,2):PD(P158:8000:2010 ( F312620;- F31İ7200:ER19750y2 Q128:8000:PD(PC,1)DR:PD(PC,2)DC:Q84:8000:F30:2010< PC0LI9:9750F PD(PC,1)0LI7:9750K CL(PC)1LI10:9750P MOMO1:F31:Q20:8000:R3DR:C3DC:2010 7000:2018:8000h 520Pj I13:J17:KP(I,J)0(KP(I,J)0PD(KP(I,J),1)0)2420vo PCKP(I,J):KRI:KCJ:I3:J7:LP0t ::PC0510~ 4999 PC0LI6:9750 PD(PC,1)0LI7:9750 F31LI7:9750 CL(PC)1LI10:9750 MOMO1:Q0fQ24:8000:20102PD(PC,1)0LI5:9750GPC0LI8:9750\7200:ER19750 PD(PC,1)DR:PD(PC,2)DC:Q84:8000:7100:2010` F31LI7:9750a PC02410b LPPC:I13:J17:KP(I,J)PCKRI:KCJ:I3:J7f ::PD(PC,1)0QDRDR22100$DR22DRDR2.2100A DC14DCDC2K%2100^*DC26DCDC2u4K(0)İ9300:20509F312010>RR(DR):CC(DC):PCBP(R,C)(PC0PD(PC,1)0)2010HBP(R,C)0PC02140RQ24:8000\PCBP(R,C):PC0201PD(PC,1):DCPD(PC,2):2010\I10222:J14262:BP(R(I),C(J))0DRI:DCJ:I22:J26d:{K(0)İ9300:2050DR:DC:IN$7300:VI(IC,2)2060,2070,2080,2090,9800,2700,6900,2800,430,2900,2200,2500,2600,2400,2000 4999 DR10C5:500PKC75006RKP(KR,KC1)0KCKC4:500GTKCKC1:500fUPD(PC,1)0Q2:8000:PC0pV2000XPD(PC,1)0LI5:9700:500bMOMO1:Q8:8000:20007000:500 6800:24006700:5004999PC0ĭPD(PC,1)0DR:IN$W &7300:VI(IC,2)560,570,580,590,9800,700,6900,800,430,900,600,500,500,597,500i 0KR1KRKR1r 2500 :KP(KR1,KC)0KRKR1 <500 DPC5KR1:KC3:500 FKC1500 HKP(KR,KC1)0KCKC4:500 JKCKC1:500NPC5KR1:K8:1:E$T$(5);:X$:(X$)1(X$)2490; DL((X$)1)g CL$:Q33:PC116:8000::10200:9000 LI1:9700:23:34:I$;T$(14);N$ PCKP(KR,KC):K(0)İ9300:550 Q2:PCLPPCLP:8000:PCKP(KR,KC):Q2:8000:LPPC PK(PC,1):PK(PC,2)4 13:1:E$;:"(0=SAMPLE, OR 1-5) ";X$:X$""465K X$"5"X$"0"465U 472^ 475 216,0:20:1:B$;T$(9):9600:20:1:E$:465 :PN(X$):D$V$"PUZZLE";PN:216,0:20:T$(10):9400:10200 CL$:10:T$(11)::T$(12)::T$(13)) 1