' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>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:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  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 `@-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õ`  \ 濭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- ( N  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠z# u` ҍŲͫ ΍ƫø ōҠ͠ ̍ӠҠ Ҭ ԍ͠ ҍƠ ̍ ̍ύô ōҠ͠ ̍ӠҠ Ҭ ԍĠ ōР ſѠŲ Ӭ ō ҍŠҪРŠӠ ӍҠ ĿӠű ӍϬ ҍҠà ҍҠӠ ԍű ɠӫà ōӠ ͍Р Ů ͍̍ ȭΠ ΍Š ҍҍϠōҫ čӍ ج čҠƬؠ ҍӠРìؠ ȿѠɠ ӍĠР čɠؠ ҍؠ ԿŠҠϬ ō Į Ĭ Ǯ РŠؠ čتРààŢ čР Į ê Ů Ů Р ̠ӱ čЬ٠ ԍЬ٠ ЍӠ ΍Р  ōРȠĭà ōРŠРРӠؠ ؍Ҡ Ѝҍҍ٠ ԍ ҍĠ ҍ؍ ÍӱҠ ԍ؍ī ō čī ҍӠ ҍР Ю Ю Рī ҍбī Ĭ ٍīвīŠ ҍҪР ōҠӠ ЍР Į .ϥ dΥϤ q Υ(ϥ(` ̠̍ԠӍ͠Ҡ͠ ԠŠ ˍūҠԠ ōР ѠűˠΧ ̯ ȍРūѠű ҍҠԍÍѠҠ Ӎؠ̠ ̠͠ ԍРԠ ȍŠ٠ ԍҠԠ ҍҠ̠ ҠΠ ΍٠ÍҩٍàҍҍٍҩٍàҫҫҠՠ ٍРŠ ō ҍàҠР б ԍР̭ ſŠų Ԭ čŸĠ Ŀ̠Ÿ Ԭ ԍɠŷӬ ԍРĠ ԍРĠҍ٠ ؍àӠ ԍŠŶ čĠ Ŀ̠ų Ԭ čŷ  ōР̭ ԿѠŴ Ӭ   ſŠҠ Ԭ ԍŴà ōР͠ Ŭ ٍŵ٠ ؍ŶƬ٠ ҍ ԍҠԠ ԍƠ ҍƍ ԍԍԫų ōҠ͠ ̍àŵ Ҭ ōР͠ ̍͠ ̍Ơ ̍̍Ġ ō̫ù ōҠ͠ ̍ӠҠ Ҭ ŠР 占ӍԠƍ РàĠ 占Ġ Р ŠР ح ٭亍àččР £čРĠ ٭䍠٠Ġ 積ҠΠ РҠ 忍ŠР Ġ ҠԱ ̠ՠƸ ΠՠƸ ٩Ǡ Ԡ 占čҠ Ҡ̠ Р ĠՠŠحĠՠƠ٭ҠՠŠ ҠՠƠ ԠՠƸ ԱՠƸŠ ̬ ͽٍàՠƸ ̬ 썪 򮍪 宍 ú ݍ ݍ  3Ԡ ׭ ЮЮ̮Ů Ԡ       ӍҠ̠ Ѝ٠ Ԡ ΍Բ٠ӠР ЍЩ٠ ҍҬ؍РٍٍӠ̠ ЍЩٍάؠ ōàӠ ӍҠנ ҍ٠ ōٶҩٍũٍٍ٠ŠٶѠԠӍ ٬ ˍ٠ؠӠӍٍҩٍàūӫÍҠΧ ōàҍàčàҫĠҠՠ ˍԠҠ̠ ҍРԠōҠҠҠ ҍÍàҍҠ ōٍҩٍàҫҫҩٍРũٍѠҍҠؠРҠ ٍҠ٠ÍҩٍàōӍŬٍٍ̠ٵӍŠҠ Ӎ̠ ̍ҠҠ ٍ ̍̍٠ҩ٠ ӍРũٍŠҠҍРб ŠٍҫРбѠ٠ ύ٠٠ҩ٠ ҍͫ ٍ͍ҩٍٍ͍ٵҩ٠ ٍЫàҫ٠Щ٠ ȍҠà ҍ٠Щ٠ ӍӍĠ ˍЍīЫԠˍؠčӠˍӠР  ҍˠ٠٠̠ Ǎà ԍб٠ ЍЍàà ύҠ ҍٍ ΍РԠ ѠӠ ԍ͍à؍бб ԍ« ōàбРī ƍàӠ ٍŠ؍̠ٷҠˠ ӍҠҠԍРҠ ҍԠЍѠӠҬ ٍҠҠ ƍԫ ˍҠҠ ƍѠԠ ԍР ͍Š٠ ԍЍѠҠ ٍؠٷū؍ڬؠ ͍Ĭ؍¬ؠ ōĠ؍ҠԠ ̠̍ؠͫӍ ҍȠؠ̠ ЍūРĴ ڮƮ ٍЍҠԠ Ҡà ӍӠЍǠР ŠǠ ԍƍŠ ǍŠĠӍǠР Š̠ ԍū͍͠ 13000:, d"CHANGING COLOR 0 TO COLOR=5"A n30,0:31,5:768Q xD13000:u "CHANGING COLOR 15 TO COLOR=0" 30,15:31,0:768 D13000: "CHANGING COLOR 5 TO COLOR=15" 30,5:31,15:7685E LORESCOLORCHANGE DEMO BY STOWE KELLER CALL -A.P.P.L.E. KS10w10:"LORES COLOR CHANGER DEMO"#:15(" BY STOWE KELLER"2(4)"BLOADLORESCOLORCHANGE"<D13000:FP15Z0,390:0,3939:0,3920 _D 9D$(55H)- .H$H$D$:NUMNUMHR:RR163 B: LQ  INIT PARAMETERS m HEX$"":ER$"":ER%0: ERROR HANDLER LINK,E%,E$ (7); ER%99ĺ"FATAL ERROR": :E$: E FI,HEX$ PI Z1  DEC-HEX CONVERTER J LINK,NUM,H$,E$,ER%g ER%0: INIT ERROR FLAG NUM216E$"VALUE TO LARGE":ER%1:1100 NUM0E$"VALUE LESS THAN ZERO":ER%1:1100 R4096:H$"" I14:H(NUMR) $D$(H):H! PRINT LIST OF HEX VALUES <0: INITIALIZE STACKV PRINT DEC-HEX TABLEq::2000: INIT PARMS#"DECIMAL HEX"' NOTE : ERROR IN LOOP BELOW (I100100010021000,(I),HEX$,ER$,ER%<ER%į3000,(ER%),(ER$):80   125,12525,12525,25:BC XPLOT DEMO BY MARK HARRIS CALL -A.P.P.L.E. : APR. 1984 I `(4)"BLOAD XPLOT"i:3Y01597:0,Y279,Y:(XP768:23:"'S' TO STOP, ANY OTHER KEY TO TOGGLE";2100:A$:A$"S"50<:: dXP,25,25:XP,25,25125,25 Y,Z I1N:J1O SUM0+ K1MF SUMSUMX(I,K)Y(K,J)M K] Z(I,J)SUMf J,Im  A(I,J)(10(1)) J,I% I  SUBROUTINE TO PRINT A MATRIX e LINK,N,M,A$A:TB40M :"MATRIX ";A$;" :": I1N:J1M A(I,J);:JMĺJTB); J::I  SUBROUTINE TO MULTIPLY TWO MATRICES  LINK,N,M,OX,0,(L),(M),("B")(B). n NOW MULTIPLY A AND BO x3000,(K),(L),(M)(A),(B),Cb PRINT RESULT :"THE RESULT OF A * B IS" 2000,(K),(M),("C")(C)  SUBROUTINE TO FILL MATRIX WITH RANDOM INTEGERS LINK,N,MA I1N:J1M    0L `H8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E0I&Ӱ eЅԥeP` &E0I&`ٍӍԠƍ;àԠĵٍҠҠٍ؍ŠδàčѠԲδijӠ؍Ҡ΍ÍĴàİĴĵàıàԍԲӍ԰Ҡ΍ٍҠİĴŰؠűÍàŲàγҠƍàōγIJ٠ŲҠijÍàİ؍ƍàıč٠ŵӠزؠ̍ҠԍÍزĴàIJĴĵ٠űŲҠ԰ҠԍҠӍ٠ЍٍؠЍҠαРвԠӍαÍàŰàűijӠβҠƍààijβıĵԳǠԠƴΠƴijΠƴ͠ōϠñӠƶ¹Ԡ·ҠðРčԠ±ԠҠ͍РύѠгҠӍҠ԰вҠԍРύŠԍгؠŰ Ь Ь Ԡ Ԡ ЮЮ̮Ů Ь     Ҡנ ύ ˍҠР б ҍ٠٠̍٠Ӡ ٠ҫ٠ҫ ҍ٠Рٍб٠ ؍؍Šбؠōؠū ˧ ԠҠԠ ҍҠԠ ؍ҫбҠ ˍб б ҍ ҍҠҠҠ ūРĴ ŠԠ ԍؠ Ӎб­ؠ Ŭ؍ڭ؍ū ѠҠ ύؠ ΍РԠ ѠȠ ύؠ ЍРԠ ѠȠ ύРΠ ԍȠРȠ ΍Π΍ڠ ύР ̍΍ګЫԠ ҍЫԍЫӍ ͍ԠРԠ ҍ ӍРƵ ҍԠ ΍Ԡ ΍Ԡ ΍Ԡ ΍Ԡ ΍Ԡ Χ ΍Ԡà ΍ Ķàҍՠij ōàŰĠ ҍΠù ҍؠŴ ؍ Ĺ Ӡķ ȍנŸĵ ҍҠĴ ҍҠű ٍ͠Š Ĺ ҍҠ  Ǎ̠ ԯ̠̍ķ  ΍Ӡ¸ ӍҠҍҠij ōԠķIJ ÍΠijų ΍נĹū ҍԠà ؍Ԡų ҍҠŰƠ Ҡ¸ҍŠŠ үٍŠ ōҠà РŠ ҍ ӍԠ± ҍԠ· ҍӠ ōҠ ˍڠ͍Π ҍ͠ үٍҠ  үٍĠƠ ͍ ԍҠŠ ٍРŠ č͠ ύ  ōĠĠ ōРƠ ̍Ԡ ԍ̠ Ӎ̠ ٍӠ Ӎ̠ ǍŠ Ǭ ̠ Ӎб č ̍ Ӯ Ӎ ΍ ҍǠ ӍŠ ԍ̠`   e`` w``  占àϠ ŠР ЍŠӍϠӠ ҠҠ 방Ϡ РϠ čР 占ѠŠ ōҠĠ  e Ԭ Ҭ Ҳ 󍪍ǠԠՠҲՠōҠՠĠՠϱ  鍠ؠ ҠԠ 6368,0: d::(4);"CATALOG" 8 X" :9(11):" CALL-A.P.P.L.E. ANTHOLOGY 11B"[(" (APR-JUN 1984)"2:"PLEASE CONSULT CALL-A.P.P.L.E. ARTICLES FOR INFORMATION ABOUT SPECIFIC PROGRAMS"<(24):(8):"HIT ANY KEY FOR CATALOG"FX(16384):X12870 P1  [a,U@ ,T,RWP[ \'& ][&\&']` I`K  S Рð 獠̠Š ˠ ҠƠ ˍŠӍԠƍ ҩٍٍ̲ ҩٍٍ٠ƍŠб 占àҫ àԠ ŠҍӍٍ̠̩̍ҍ̱ˍҠ̠ 占ˍ̲Ǡ 占ҫҍ ԍҠ٠ƍб̱Ҡ 籍ԠDZ 籍ҠԠؠ 占Ǡ 獠Ӡ 占Ҡ 占ҽ밍Ġٍ ÍҠҠŴǠŶ̠ōҠðؠðDZðDzðӠð̱Ӡ̲ӠԠӠҲԠDz 粍Šҍ  Ҳ 󮍪 Ҳ Ĭ 卪 ĮǠˠ   S EieieiJeKJiLeKMLiЩeM`  S "2 GENERIC LO-RES SCREEN DUMP=dSY$"#%&?*.+,/ "Mn(4)"PR#1"tx SET PRINTER TO 8 LINES/INCH HEREY039X039C$(SY$,X,Y)1,1)C$;C$;X:Y(4)"PR#0"23Í̍à ̠ 占à̫̫ӍԠƍ:̫Í̍à ̠ 占à̫̫Í̍à ̠د 占à̫̫̠̍ōԠȫؠȍÍàð ̠٭ 占àȫ̫Í̍àð ̠ 占à̫ Ԡ 荪 䍪 䮍Ǡ̠ÍȠō̠̠Í̠İ  Ԡ ɭ ʮ ЮЮ̮Ů      S"; :X,Y)X,Y1)$ " |";2 Y39200L " ";:X039:X,Y)X "___";c :LF$j Y " ";:X039:"___";: LF$:"a=black b=magenta c=dk blue 66(F$))(14)F$LF$LF$ (4)"PR#0" 0, PAINT BY NUMBER BY DOUGLAS A. SEELEY:LF$(10)W"LOAD WHAT PICTURE?";F$](x2(4)"BLOAD"F$",A$400"<(4)"PR#1":(15)F" ";:X039:"___";:PY039Z"| ";:X038:SCX,Y)d" ";nSCX1,Y)ĺ" ";: x"| YTABLE,A$2000,L$460" LS-- CHECK FOR ACCURACY --" *SUM02 4I8192A1E >::SUMSUM(I)` H::SUM255SUMSUM255g RIr W::8 \"CHECKSUM IS -- ";SUM f pSUM187ĺ"ERROR -- CHECKSUM SHOULD EQUAL 187.":"PLEASE RECHECK YOUR PROGRAM.":1000 (4);"BSAVE OSITION TABLE -- I06, ::A,1282I8 ::AA1? IZ X -- POKE X/7 TABLE --f bI057s l::J17 v::::A,I ::::AA1 J,I  -- POKE (X MOD 7) + 1 TABLE -- I057 ::J17 ::::A,J ::::AA1 J,I  ::::K12 ^::::::L181 h::::::::A,YLO(K)C r::::::::AA1P |L,K,J,Ij  0,128,40,168,80,208  -- POKE COLOR MASK TABLE -- I18 ::COLMASK ::A,COLMASK ::AA1 I  0,42,85,127,128,170,213,255  -- POKE BIT Pd -- INITIALIZATION --'nA8192D -- POKE Y-HI VALUES --OI13\::J03k::::K12::::::LJJ284::::::::A,L::::::::AA1L,K,J,I, -- POKE Y-LO VALUES --6I13@::YLO(1),YLO(2)J::J14 T     SŠҠŠӠ۶ݍϠŠԍƠРԠРݍРŠŠƠԠԠԍčϠŠΠԍƠРԠԠݍԠŠΠԠԠŠΠƠԍčϠǠԍРŨԩŠԩŠԩŠԩ   Sz#????? Š !ϠǠ" ϠǠ ϠǠЮàǠЮàǠ ŮϠŠԠӠԠϮΠΠàҠҠàϠ Ԯ͠ŮӠ#ԠӮӠԠϮӠҮϠɮȮϠǮϠ ԠϠԮӠԠԠϠӠҠŠϠӠҠŮӠӠҠŠ Ϡ ԮԠ ԠԠӮӠ ԠԠӠ ԠҠӮӠ ԠҠӠ ԠϮӠ"۠۠۠۠۠۠۠۟۠۠۠ЮЮ̮Ů۠۠٠ ۠ ۠ҭΠ۠ ۠۟ ۠۠۠۠۠۠۠۠72,0:144:&H$"0300:A9 84 20 C0 DE 20 E3 DF 20 6C DD A2 80 86 33 20 6A FD 86 06 20 39 D5 A5 06 20 52 E4 A2 00 A0 02 20 E2 E5 A0 00 A5 06 91 83 C8 A5 6F 91 83 C8 A5 70 91 83 60 ":5400WRITE";OP$ I1FP:A$(I):( 440B (222)ERRR1:510w "ERROR ";(222);" AT LINE ";(218)(219)256: 216,0:D$"CLOSE" :R;" RECORDS PROCESSED."::"FINISHED.";: 550 H$H$"ND9C6G":I1(H$):511I,((H$,I,1))128::FP:A$(I): h320( r(222)5500I |D$"WRITE";OP$;",R0":R:510c RANDOM TO SEQUENTIAL EX$"PRODOS"ĺD$"OPEN";IP$:420 D$"OPEN";IP$;",L";RL D$"OPEN";OP$ R0:490 RR1:D$"READ";IP$;",R";R I1FP:A$(I): D$" RECORD ";FPK (EX$"PRODOS"EX2)Ą"RANDOM FILE RECORD LENGTH ";RL[ EX280,390u SEQUENTIAL TO RANDOM "D$"OPEN";IP$ ,D$"OPEN";OP$;",L";RL 6R0:370 @D$"READ";IP$ JI1FP:A$(I): TRR1:D$"WRITE";OP$;",R";R ^I1::E$(13)ĺ:"GOODBYE.":< E$"1"E$"2"ĺ(7):130Q EX(E$):D$(4)s 6:958::"CONVERT ";F$(EX) PROMPT FOR FILE INFO :"INPUT ";PA$;"NAME "::4:"";IP$ :"OUTPUT ";PA$;"NAME "::4:"";OP$ :"# OF FIELDS PER RANDOM7:"RANDOM ACCESS FILE CONVERTER";H 40:"**";:40:I141:"*";: ER5:PA$"FILE":EX$"DOS 3.3":(977)0(978)190ER2:PA$"PATH":EX$"PRODOS" :"YOU ARE RUNNING UNDER ";::EX$: :" 1. ";F$(1)::" 2. ";F$(2)::"SELECT ";:E$Bd CONVERT.RANDOM BY KEN KASHMAREK CALL -A.P.P.L.E. yn CONVERTS DOS 3.3 RANDOM FILES TO PRODOS FORMAT xA$(32),F$(2):F$(1)"SEQUENTIAL TO RANDOM":F$(2)"RANDOM TO SEQUENTIAL":530:1014,0:1015,3::I141:"*";::40:"**";%      IJàͫIJàȠ ſŠĠ ԍàȫ ſ̠Ġ ԍР Ҡͫ ӍбвūӭëūϭëĠŠ ō͠à ԍàī ӍŠıàīıàͫŠ ōРŠ ͍͠ à  Р РĪ ōҠҠ ԍàҠ ӍĬ ōؠ ōŠͬ؍ѠΠ ōҠԍ؍ŠŠ ȍΠÍŠ ؍ԠĠ ΍РǠƶР ά ٮ čӠ ĭ č͠Š ҍҠƵ ͍РƵ ōĠð ԍ ð ΍͠İ ōƠIJ ҍ̠ij ҍ͠Ķ ҍķ ƍԠĹĭ Ӡŵ ӍӠŵ č͠ŷ Ϡ´ ҍĠ¸ ōƠŠ ŪР͠ ҍƠ ҍĠŰ ҍҠŵ ӍΠŵ ǭ͠ŵ Ϯ Ӭ Ů ̭î ̭ Ӯ ̭ ̭ Ӯ Ү Ԭ Ү Ŭ Ү Ĭ ά Ԫ Р ή  ! î Р          čà̫ ƍà̫ ԲĠ͍ÍҍҠ Ǎˠ ٍӠ̍Ӎ ٍǍà̫ ؾԲ ٠ύٍ̩͠ ׍٠ύٍٍٍٍ̩̩Ԡ ō٠ӍɍѠũΠɠ حɍؠϠ حύ٠٠ ٍٍ̩ҠĠ٠ŠӍȩٍǠ ǍҫŠӠΠҍ٠ɍѠԲà̫ ؍ҠҩٍĠԠΠΠԠԍҠҩٍҩ٠ ΍Ӎ ԍ Į č Į ح č Ҭ ح ō Ҭ ٭ ō ҮԠҠΠ Ӎˠ ˍ٠̠ՠ° ō ҍҠٍ̩٠ ōҠ ōӍ  ǠÍˠՠÍҠՠԠՠ̠ՠ̠ՠÍ̠ՠİϠՠŰɠՠű٠ՠŲҠՠŴ͠ՠŵǠՠŶ̠ՠÍȠՠō̠ՠōӠӠ      àٍà؍ŠвӍؠӠ٠Ӡбؠ؍٠٠ Ҡԍà؍àٍŠб ōҠҍ؍вؠ؍٠ٍҠԠ   ɍؠ ύҠԠ ӍҠҠ ɭ ōҠҍ ج٩ ؍ٍ D ź κ Ҭ Ӎ Һ ʮ ԍ ź ԭǠԠՠҲՠōҠՠĠՠҠՠčԠՠóΠՠijϲ   ؠ ōԠƍ Š Ġ  Š   ŠӠˠؠ ؠ 썠ؠōƠ 占Ҡɠ  ö؍Ӡ̠ Šà Ӡ 򍍪 썠 õōàΠ ̠à ӍΠ  ĠƠ 占Šˠ 퍠Š 占Š̠ ԠؠҠ 忍ŠŠ ͠ 䍠Ġ 썠Ҡɠ  Ԡ ҠΠؠŠٍŠŠɠݠŠŠɠݍƠԠԠɠҠؠݍԠɠҠؠčŠРԠčϠРؠٍԠРΠؠŠٍčϠҠؠٍŠ̠РؠٍŠԠҠРؠ٠РؠٍԠ̠ԍŠƠ̠ԠݠԠݍԠРŠȠ٠čϠΠ؍Ԡ؍čϠҠؠٍԠ͠Ҡ٠ԠҠ٠Ԡ٠ԠؠčϠРԠōԠҠԠҠӠǠčϠŠƠРԠ͠ݍĠōčϠРؠٍԠРҠؠŠҠؠٍčϠРΠōƠŠԠݠԠΠРΠŠݍčϠŠٍԠĠР͠٠ōϠРԠРҠӠǠҠΠǠčϠРԠРҠӠǠҠΠǠčϠРԠРҠΠǠ    čϠҠؠٍР͠Ҡ٠ԠҠ٠Ԡ٠ԠؠčϠ٠РŠčϠؠР͠ŠŠčРŠРŠݍĠ׍čϠРԠŠҠؠӠ٠΍čϠРԠŠҠؠӠ٠΍čϠРԠŠҠؠΠ٠ӍР͠٠ōϠנƠҠРŠРŠݍĠ׍čϠΠ΍Ԡ΍ŠΠΠǍŠӠӠǍčϠŠƠРݍĠōčϠנƠҠ  ׍čϠϠŠǠŠŠϠҠǩčϠΠٰٱ؍ԠӠŠؠٰĠӠŠؠٱՠŠؠؠݍčϠΠذرٍԠӠŠذ٠ĠӠŠر٠ՠŠ٠٠ݍčϠŠŠǠàݠҍҠ۰ݠŠŠààҠ۰ݠҠݍƠРàŠɠʠˠ̠͠ϠРѠݠΠŠݠŠҠݍ΍čϠѠנ̍čϠנƠԠРǠݍԠӠՠԠӠ۱ݠȠΠǠ΍čŠҠҠǠݠҠŠŠĠԠ̠ǍҠǠũŠǠŠǠӠԠŠҠҩРΠǠǍРΠǠǍРǠǠǍŠŠǠ׍čϠΠԠ̠ҠҠݍŠǠŠǠРΠРӠӠԍčϠ̠Š̠ŠҠҍȠàĠԠ̠àՍčϠɠ٠ҠčϠʠؠҠčϠˠؠҠčϠ͠٠ҠčϠӠȠРΠǠǍРΠǠǍР͠٠ōϠРƠǠŠҠݠȠݍŠӠӠԠԠҠԠ̍ŠŠРŠΠԠ̠ҠҠݍŠŠРŠΠ     ϠؠԠ͠ŠŠč٠΍čϠРԠŠҠؠΠ٠ӍčϠҠؠٍԠ͠Ҡ٠ԠҠ٠Ԡ٠ԠؠčϠ٠ԠŠРŠݍĠ׍čϠΠ΍Ԡ΍Š̮ΠΠ̮΍ŠΠΠǠŠӠӠǍčϠŠƠРݍĠōčϠРԠŠҠؠȠàĠԠ̠ǍŠ̮ΠΠōčϠĠҠɠĠݠԠŠҠݠנ̍čϠŠƠҠϠݍŠΠ׮ԠōčϠנƠҠРŠР͠٠ōϠ׮ԠƠ̮ΠݠݍƠҠϠݍƠРΠݠĠΠĠݍ׮ԍčϠԠŠҠŠźݠҠĠĠԠ̠ǍӠՠԠΠǠ    "THE ENCODED TEXT" D$(4)8 D$;"DELETE CODEFILE"P D$;"OPEN CODEFILE"i D$;"WRITE CODEFILE"t I1N S$(I) I D$;"CLOSE CODEFILE"E pܭоҾ־޾Ӿ Ծ p׾ؾپھ p ПLp ۾ۍɃɓЭ0 aj .Hz hLŠԠĠҠ &    `JJJ)8jXX`Ţ LSR6P QTU`VJ8` p󭸾 tϾ Ƞ Ԡ֠ ҠԍԠ Ҡԍ ٍ؍Ӎ ԍԠРש ԠƍР Ӡ͠ Ԡ Ҡ° ؍ԭؠ 荠Ƞ 荠ԭؠ 荠ҠԠ ͠Ġ ̠͠ Ԡ  占РĠѠԠ Р à͠ ԠҠó 䍠ؠǠ 獠ŠԠ àǠ ٠Ҭؠ Ҡԍ؍ؠԱҍŠٍԠ 򍪍Ա Ԡ ð ԫ Š 󍪍Ҡà ؠčà ؠčà ؠčà ɢؠčà ɢؠčà ɢؠčà ɢؠčà ɢؠĸčà        󍍪 荪Ԡ          󍍪 􍍪 卪Ƞ  ̠  Ƞ  荪Ԡ ± Ǡ  獍 󍪍Ԡ    `l6 ԠŠà ֠ נ Ԡ÷ Ġð   卪ǠưԠРԱ U` Q&%0Q&&`&'MѤLШJ0MѥJ`0941)):SOWHT:LAM,ERR:65392::500& 64600:D$"CATALOG"LFT$RIGT$< APPLE(GUESS)U 49384,GUESS:1002: FOO$((1302)(115)):APPLE$((FOO$)(63553)): SOWHTWINNER(HAHA$):((11402))WINNER((1023)(10941))WINNERSOWHT,((HAHA$,SOWHT))((54597)(1856))(WINNERWINNER)(LAM(GUESS4))):RIGT$RIGT$((63809))::SOWHT D$(4)::TSKTSK,(58530):TSKTSKWINNER,(6435)::::::TSKTSK(WINNERWINNER),(61601)(3890):TSKTSK(GUESS(WINNER4)),((1755)) HAHA$"6:A0 3 A9 0 4C C6 D9 N 6G N D9C6G"20 30 30 34 20 57 48 41 54 D 2A 41 20 30 30 33 20 44 49 44 D 20 54 20 30 30 33 20 59 4F 55 D 2A 53 N D9C6G":500 xHAHA$APPLE$":20 30 30 37 20 45 58 50 45 43 54 3F D 0 N D9C6G":500G TURN(16151):TSKTSK(7221):SOWHTWINNERGUESS:LFT$LFT$(((`J  e H`I`H`I` H`I` H`H`I` I`H``:SLTĺ(4);"PR#0":PRINT TOTAL LINE & TURN OFF PRINTERh:"WANT TO RUN ANOTHER (Y/N) ";A$:A$"Y"Ĭ 36,T4:PBAL:50:P$:PRINT NEW BALANCEeYTDYTDCHG:LTDLTDCHG:MM12BAL0İ75:PRINT TOTAL LINESLT0MM12BAL0ĺ"PRESS ANY KEY TO CONTINUE ";:A$::8:958:8MMMM1:MM13MM1:YRYR1BAL0455:DONE - EARLY PAYOFFI775PAYMENTWI;:SLTĹ36,4:(DT$,MM32,3);" ";YR;:PRINT MONTH AND YEAR, PRINTER ONLY36,T1:PPMT:50:(P$,7);:36,T2:PCHG:50:(P$,7);:PRINT PAYMENT & CHARGE36,T3:PR(PMTCHG):50:(P$,7);:PRINT PAYMENT TO PRINCIPAL&BALR(BALP):0ĺ"MO. PAYMENT INTEREST PRINC BALANCE"YSLTĺ"MONTH";:36,T1:"PAYMENT";:36,T21:"INTEREST";:36,T32:"PRINCIPAL";:36,T42:"BALANCE" PRINT THE DATA LINES I1TRM:CHGR(APR12BAL):CALC INTERESTPMTBALPMTBALCHG:LAST 6,PW2:"INTEREST RATE (APR) IS ";APR100;"%":PRINTEREPPMT:50:SLTĺ"MONTHLY PAYMENT $ ";P$;:36,PW2:"TERM IS ";TRM;" MONTHS"JSLT0ĺ"PAYMENT $ ";P$;21);"TERM IS ";TRM;" MONTHS"O" ":36,T5:"-- APPLIED TO --";:36,T42:"LOAN"-TSLTSCRN IF NOT USING PRINTERe1SLTĺ(4)"PR#";SLT:(9);PW;"N": CHR$(4) IS CTRL D, CHR$(9) IS CTRL I636,PW2(TITLE$)2:TITLE$:" ";PBAL:50:SLT0ĺ"PRINC. $ ";P$;21)"INT. RATE IS ";APR100;"%":SCREEN6@SLTĺ"PRINCIPAL AMOUNT $ ";P$;:3UATE?SPR(CHGPMT.01):50:(13):958:(7);"THE PAYMENT IS $";P$;" SHORT OF":"ENOUGH TO START PAYING OFF THE LOAN.":"CHECK YOUR ENTRIES AND START OVER."::"PRESS ANY KEY WHEN READY.";:A$:+ PRINT THE HEADING ,SLT0ė:CLR SLT7PW80PW132155S 21:"ARE YOUR ENTRIES CORRECT? (Y/N) ";A$:A$"Y"100u TAB SETTINGS & PMT CHECK T1PW43:T2PW25:T3PW345:T4PW10:T5PW2:SLT0T14:T213:T322:T430:T512CHGR(APR12BAL):CHGPMT300:PAYMENT ADEQG MONTH & YEAR (MM/YR)? ";A$:MM((A$,2)):YR1900((A$,2))Q MM1MM12140 15:"OUTPUT TO PRINTER OR SCREEN? (P/S) ";P$:P$"P"P$"S"150 P$"P"Ģ17:"ENTER PRINTER SLOT NO. ";SLT:19:"ENTER PAPER WIDTH IN COLUMNS: ";PW SLTĭSLT1ULE"( s3:"ENTER LOAN TITLE: ";TITLE$O x5:"LOAN AMOUNT? ";BAL:BAL0120 }7:"ANNUAL LOAN INTEREST RATE (APR)? ";APR:APR1APRAPR100 9:"LOAN TERM IN MONTHS? ";TRM:TRM1130 11:"MONTHLY PAYMENT? ";PMT:PMT0135= 13:"BEGINNIN";P$;:36,PW2:PR(LTD):50:"GRAND TOTAL INTEREST TO DATE $";P$R U" ":YTD0:l c SET UP VARIABLES d:PW40:DT$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" iR(P)(100P.5)100:FNR IS FOR ROUNDING TO 2 PLACES n::10)"AMORTIZATION SCHED(P)P$P$".0"0 7RR(P10):R(R)P$P$"0"h <P$(" "P$,9)::RIGHT JUSTIFY TO 9 SPACES J PRINT YEAR END SUMMARY K" ":PR(YTD):50:SLT0ĺYR;" INT $";(P$,8);:PR(LTD):50:21);"TOTAL INT $";(P$,8)A PSLTĺYR;" INTEREST $j  ********************* < * LOAN AMORTIZATION *Y * JOHN M. PINKERTON *v * MONEY DISK * * COPYRIGHT (C) * * JANUARY 29, 1984 * *********************  1001 FORMAT NUMBERS  2P$(P):P     4:B9 EF 94" "94DD:4C E0 94"5 "94EA:4C ED 94"D *D$"CLOSE"""94C8:06" "94CA:06"' "94D2:09"6 "94D6:08"E "94D8:06"T "94E1:08"c "94E5:09"x "9470:4C A7 94" "9482:4C 85 94" "9488:4C 8B 94" "949C:4C 9F 94" "94A2:4C A5 94" "94AC:B9 EF 94" "94BB:B9 EF 94" "94CD$(4):D$"OPEN MUSIC GRABBER"> D$"WRITE MUSIC GRABBER"O "CALL-151 "d "9470