' +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- ( 0 Ϡ@跻~!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 ~(`F d ֠z# u`z#??     ϠǠЮàǠЮàǠϠΠΠàҠҠàϠŠ ϠǠϠǠ;" DISK AND PRESS RETURN";:" ";DK$-9363C16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI     :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 :P *** LOOP ***Y 140w *** END MAIN PROGRAM ***} : : : : *** DATA SUBROUTINE ***  *** USED FOR TEMPOS *** A(209) T402082 ::A(T):A(T1)EMPO DATA *** n1000 s:# t:? x*** DRAW METRONOME ***I 2000Z A$"T":4040` :f : *** KEY PRESS TEST *** *** SET TEMPO/QUIT *** Z(16384):16384,0 Z128ī160 4000 : : *** MOVE PENDULUM *** X ************************%C JACK BENDER HASTINGS,MIIg HGR METRONOME (C) 1980m(2 TEMPOS 4O - 2O8< PRESS ANY KEY TOF CHANGE SELECTIONPZ************************[::3086_:`: d*** LOAD T     ӠҍΠ̠čŠàŠϠŠנŠҠϠΠ̍Ơ̠ĠŠݍΠ̠ԠŠ̩͠ӠҍΠ̠čϠΠ̍Ơ̠ĠŠݍΠ̠ԠŠ̠͠ϠɠŠōƠŠݍĠŠԠōŠנԠǠϩҍɠŠàōčϠΠ̍ŠŠŠ̩ӠՠؠԠ̩čΠ̍č  Р۰ݍčϠŠР۰ݍčϠΠР۰ݍčϠˠР۰ݍčϠΠР۰ݍčŠҠčϠҠР۰ݍčϠҠР۰ݍčϠΠР۰ݍčϠΠР۰ݍčϠΠР۰ݍčϠΠР۰ݍčϠΠϠРčϠРčϠ РčϠàРčϠãРčϠĠРčϠģРčϠŠРčϠƠРčϠƣРčϠǠРčϠǣРčϠàР۰ݍϠŠΠԍƠРԠԠݍԠŠΠԠԠŠΠƠԍčϠŠԍƠРԠРݍРŠŠƠԠԠԍčϠǠԍƠРԠݍŠԠԠҍǠƠԍč   ŠҠŠӠ۶ݍϠŠԍƠРԠРݍРŠŠƠԠԠԍčϠŠΠԍƠРԠԠݍԠŠΠԠԠŠΠƠԍčϠǠԍРŨԩŠԩŠԩŠԩ "; :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"|  "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"23S  :(11):(8)="DISK OF THE MONTH JUNE 1984"Q((4);"CATALOG"dF