' +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` 䍪  度򩍪 彳 卪 婍  ፪ 婍ٍı٠ī ЩٍٍЩٍ٠ ፠ҠԠ ؠҍ٠ҫҠƠ㭾퍠Ġ䍠Ҡ̍ҠЍӍԠ İҠƍҠԠ ٠轲Щ٠ 䍠ٍЩٍؠҠ 占ҫŠı ٠Ġ 䍠Щٍ؍ٍЩ 򼾰 ፪ ԠҠՠ Ҡՠà Ҡՠ РĠҠԠҠƠ àİ 婍  婍 򽰍 占Ҡ̍Ź٠ ٠ ҠР占ӍРԠ ፪  度򩍪 彳 卪 ٠̠ 占Щ٠ 占ٍЩ٠ 占ٍЩ٠ ؠ忍Šŷ 占ōҠ̠ 占àŹŷؠ뿍ŠŹˠ ፠Щٍٍ͍Щٍͫ٠ ͩ٠ Ҡҍҍҍ ٍͩ٠占 ٍͩ٠𩍠ҠƠҠƠ àŰҠƍŠŰŰҠƍŰ٠ 捠 ŰЩٍٍŠŰӠ 占Ҡ̍ؠˠ󿍠ѠŹ占٠ˠ度 彳 卪  卪  卪 䮍ԠŠҠΠҠ͠ 占ؠҠˠ忍ؠˍҠӠؠύҠ̠ 占Ҡˠ Š 占ҠР 占Ҡˠ 䍠ҠР占Ӎι٠ РҍԠ 䍪  Щ٠轲ٍЩٍ٠Š 占ōЩٍؠϠ Ѡα ؠˠ 俍ѠαϠ Ҡ̍αΠ 占ι ؠōΰؠ̍Ҡˠ쿍ؠ̍ؠ덠ҠˍؠˍҠӠҠƠ Ӡΰ РΠ ΰҠƠҠ͠ ٠ΠҠˠ占ؠōؠ 䍠Ҡˠ ؠύؠԍҠˠѠΰРӠι ؠԍΰؠōҠˠ忍ѠΰРӠΠՠ ̠ՠŠՠ Ġՠ àՠ ˠՠà Ġՠ ΠҠΠҠ͠ 占ؠ :8010^L1IN%:958Hh12:"LAST LINE TO DELETE: #";IN$:IN$""ıprIN%(IN$):IN%L1IN%TLİ60:8040|L2IN%:DLL2L11:TLTLDL:95851:LNL1TLTL$(LN)TL$(LNDL):50_ QUIT `::1  썪 ᩮԠҠՠ Ԡՠ֠ՠà ֠ՠĠ Ԡՠ ϠՠϠՠȠՠ 󩍪 ɽ 󩍪 󩍪 ҽ 󩍪 ý ㍪ 䩍 䮍 䩍  宍 度  ᮍ ƽ ½ 婍 ؠǠ ɠҰҠ͠㍠ҠҠ٠ҍҫҠԠ ӍҰРȠ荠ԠƍϠנ Ԡ΍ǍԠ ፪ ̱ë ̠̲٠̍̍ҠĠ̲Ӎ̠ Ԡ Ԡ̠ҠԠ Ҡ ٠ҫҠ͠㿍Ҡ͠ҠҠٽ鍠٠ҍҫҠ͠ Ҡ̠ ҠӠӍԠҠԠ ؠҠ 占٠ҫҠƠ㭾퍠ӍԠҠԾР ٍٍҠ ЩٍٍҫЩٍٍ 占ЩٍٍЩٍӍԠ 占ԠԠҠΠҠ͠ 占Ҡ͠ Ҡ ӠҰӍҰ٠à 占ЩٍٍҠҠˠ РҍԠ ԠԠ٠à 占Ҡ 占 占ԠР٠ĬٍЩٍٍ̠ӍԠ ԠҠՠIJ ̠٠à Щ٠ 占Ҡ͠ 퍠Ҡάٍٍ̠Р 荠àΠ ӍԠ ԠР٠ЩٍĬٍٍ̠ӍԠ Р 俍ѠΠ Ҡ͠ Р ѠΠ ҠԠ孾ΠӠ͠ҠԠ ҠҠ 򤍠٠ ԩٍ 占ŠԳΠՠΠ٠ŠҍԳ ƠҠ͍ҠҍҠčӍԠ 獠ԠˠҠԠ ፠РƠҠ͠ ٠ЍЫҠŠ ҠР ٠Π İٍɠIJٍͩƬٍŠİIJҠƠ Ӡ Ơ ͠ՠ Ġՠà ͠ՠ ҠՠŠ Ơՠ Ơՠ Ơՠ Ġՠ Щٍ٠ ҍЩٍٍҫЩٍԠ占Ҡ̍ҠЍӍԠ 占Ԡ͠ՠà ҠՠĶ Šՠ 퍪 宍ԠŠҠԠҠƠ ӠΠ ҠƍҠԠ ٠轲Ơ 占Щٍٍƍٍϩٍͫ٠ؠȠ 占àԶ ؠȠ Զٍͩ٩ٍٍ؍ŠԶԶҠà ԸҠŠ ѠԹ 䍠àԹР ㍠ɠԶ ٠ҠԫҠҫԶ덠٠ȠԶٍ٩ٍŠԶϩ٠ 荠ѠԶ 占؍ٍϩ٠獠٩ٍٍ͍РԵԵҠоԠíԍ٠Р§忍ŠԵϠ ѠԵРҍԵύ٩ٍٍԵύԵ٩ٍРԸԶؠԶؠР ㍠ѠԳ㍠Ҡ̠ԳРҧ쿍ŠԴؠ٠٠٫鍠ҠƍРԸԴР󻍠ŠԵҠҠ㭾퍠٠ͫ鍠 󩍪 ý 㩍 㢍 ԠԠҠ̠ΰҠҠ ԲҠ̠ 占ԍҠؠ翍Ӡպ  獪 䮍 ƽ ½ 婍 󩍪 ɽ 󩍪 󩍪 ҽ ԹРΰ Թ٠٠٫ҠԍӍԠ 퍪 宍 度 έ 占 占֠ ፠֠宬 占РΠ ΠҠŠ ѠԹ 䍠àԹРԲ ϩ٠譾ԶҠà ㍠Ԡ 捠٠ԫ Ϡ ٠Ϡ 占РԸԸؠ֍ѠԸ ҠԫҠҫԸΠҠ̠РԸԶԍР ŠԸ 占٠Ƞ Զٍ٠Ơ 䍠ѠԶ٩ٍĠƠ 捠Р뿍ѠԶԶٍ٠ƾР ԍР ŠԸҠ̱ РԸԶؠ Զ٠Ȭ؍٠ì؍؍̠Զ鍠Ҡנ 򮍠ؠ֠򿍠ɠԶ РԸԴР§忍ŠԵؠ齤РԵԵР󿍠ŠԵ٠٩٠鍠ٍРԵԵ٩٠鍠ٍԵ؍Ե٩٠٠  鍠ҠԠ 獠֍Р ֍٠ ٠Ǡ ԍҠؠ翍ӠԶ٠Р ㍠Рҧ쿍ŠԴ٠٠٫鍠Ҡ͠㍠ 㩍ԠРԠҠ̠ΰҠҠ ԲҠԠ Ԡ ٠ԫ ᰽ᱽҠՠųõ נՠŴ àՠŶ ̠ՠŷ Ԡՠij㭾獪 Ԡ ٠ՠ  ԠՠàΠՠ  àՠ ̠ՠķ  Ҡՠð Ҡՠű оԠՠűà㭾 USNG,F3$;CR(I,J)::::)1140:3557HSD:655TMPHI4608:MEHI:I012:"******** ";MO$(I);" (";MO%(I);") ******** ";:USNG,F2$;MS(I)::MO%(I)0585MOI:1160:XEMP25C1MO%(I):(C10)C10XEXE6XE;R(XX);%(C%);B****** ";:USNG,F2$;MS(I)::J1BU%?XXSP(I,J):XYBU(I,J)`BID$(J);:USNG,F3$;XX,XY;:XY0ĺ28);:USNG," ";(XX100XY);:"%";:::1140:355HSD:655I112:1)"****** ";MO$(I);" ******"::J1CR%CID$(J);:44  1800****ELIMINATE INPUT REENTER?***;216,0U("":(1):(21):868`21300f<F(20((Q$)2)):Q$: 2E 2D 2D 2D 2D 2D 2D F5 FD 3F 3F 3F 3F 3F 3F 2E 2D 2D 2D 2D 2D 2D 35 3F 3F 3F 3F 3F 3F 3F 0E 2D 2D 2D 2D 2D 2D 1E 3F 3F 3F 3F 3F 0E 2D 2D 2D 2D 1E 3F 3F 3F CE":1220:144HEX$"4F60: 0B D8 18 18 70 0E 0E 0E 2D 2D 2D 1C 09 0C 0C 0C 04 FF 00":1220:1àààààààààààààààààààààààɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠؠӠҩ٠宍؍Šԍ٠ΠҩٍРˠҠĮЮѠōٍŠ΍ŠÍà٠ٍԠӍӠɠɠɠɠōàԠР󮠠荠à˱ؠԠ٠ԍàԍũٍ٠ԍàԍŠ˲ﬠѠ˳宠̠ĠƠ٠ЍРҩ٠迍Š˱ﬠ箍à󮠠Рԍàԍũ٠占ѠԠ占ɠ̠٠Р٠àЍРҩ٠迍Ӡà 䍠ӍΠ ፠Ԡƍ1 򮍠ԠŠȠ 荠à à٠ ٠٫à٫ҠԠ Р፠ŠðҠԍà 䍠ӍðҠ ㍠Ԡؠؠ ȰРӬؠ荠ѠȲ؍̠ȰȱРؠ Ȳؠ 򿍠ӍӠ §ɧҧç̠ Ԡ ̬ؠ 荠ȠҠԍЍàΠ ÍҠԠ签퍠ؠ͍ѠΠ ؠȠΠҠΠӍԠ РԲ ԹРΰ Թ٠٠٫ҠԍӍԠ ԠҠҠҍѠȱ 䍠ԍҠؠ РDD(I),CH(I):BEBEDD(I)CH(I)::1140HEAD$"MON SPENT = CHECKS + CREDIT + CASH":665:I112:MO$(I);:USNG," 0.00";MS(I),CH(I)CR(0,I),CR(0,I),CA(I)::1140355HSD:655:" SPENT BUDGETED":%I112:5)"****** ";MO$(I);" NG," ";N1,M1;:" ";:USNG,F1$;D1;:" ";:USNG,F1$;E1BBCBD1C1::"BEGINING BALANCE=";:USNG,F3$;BB:"ENDING BALANCE =";:USNG,F3$;CB:1140%HEAD$"MON BEGINNING DEPOSIT SPENT":665:BEBB:I112:MO$(I);:USNG," $ , .00";BE,N%N%0EEXX:LL10N%0CCXX:MM1IN%13DDXX:NN1J:D1D1D:C1C1C:M1M1M:N1N1N:L1L1L:E1E1E:DD(I)D:CH(I)C:CA(I)EMO$(I);:USNG," ";FC,N,M;:" ";:USNG,F1$;D;:" ";:USNG,F1$;E<I::" ";:US55:"MON FC #DEP #CHK DEPOSIT CASH":amMPHI4608:MEHI:D10:C10:M10:N10:L10:E10rI112:D0:C0:M0:N0:FC0:L0:E0:MO%(I)0405:MOI:1160:XEMP25wJ1MO%(I):(J10)J10XEXE6|XE;R(XX);%(N%):XEXE18:FC0N%0FCа655-E"ID CREDIT CARD";30);"SPENT":sJI1CR%:CID$(I);" ";Q$;CR$(I);25);Q$;" ";:USNG,F3$;CR(0,I):O1140:185T645:H0:660Y1830^"?";:SD$::SD(SD$):SD5340:635:SD435,480,505,360:645:185c645:340.hHSD:61140:185HSD:655S" ID BUDGET CATEGORY"::ZBU%:BU%12Z12"I1Z:I;5);BID$(I);" ";Q$;BU$(I);30);Q$::1140:BU%13315,7:1:EOP:I13BU%:I;5);BID$(I);" ";Q$;BU$(I);30);Q$::1140;1710:1140:185@HSD:"MON # MAX USED SPENT"::C0:D0I112:MO$(I);" ";:USNG," ";MO%(I);:10);"/ ";C%;18);(MO%(I)100C%);"%";24);:USNG,F3$;MS(I)CCMO%(I):DDMS(I):: 5:C;10);"/ ";C%12;18);(C100(C%12));"%";24);:USNG,F3$;DR YEAR ENTRIES = ";MO%(0):"CURRENT YEAR ENTRIES = ";Nc:"TOTAL DOLLARS SPENT =";:USNG,F3$;A"BUDGET $ ALLOCATED =";:USNG,F3$;B:"BUDGET $ SPENT =";:USNG,F3$;C"CREDIT CARD $ SPENT =";:USNG,F3$;D1140:185HSD:655. SLOT = ";P%:"CUR. MONTH = ";MO$(M%);20);" CURRENT DAY= ";D%"# OF BUDGETS=";BU%;20);" CREDIT CARDS=";CR%::"CURRENT BALANCE = ";:USNG,F3$;CBA0:B0:C0:D0:N0:I112:AAMS(I):BBBU(I,0):CCSP(I,0):DDCR(I,0):NNMO%(I):6:"PRIOONE."::165 135" HI:120/ H0:6609 1820 "?";:SD$::SD(SD$):SD6170:34,2:635:SD190,240,275,320,340:645:155 645:170 HSD:655 "FILE NAME =";FI$::"FILE TITLE=";Q$;TI$;Q$:>"NEXT CHECK = ";N%;20);" PRINT,OCT,NOV,DEC:4 sT$PX$:1630:FI$F$:SLS:DRD:770[ x:9::"READING BASE DATA AREA":| }OPEN(FI$,0,1,SL,DR,0):1100 1200 1800:H0:660 1810 "?";:OP$::OP(OP$):OP7135:OP170,625,670,780,595,155:CLOSE(FI$):OH:BELL::"D,SP(12,24),BU(12,24),CR(12,12),DD(12),CH(12),CA(12)w FPX$"DATA":TX$"TEXT":H$(0)"SELECT OPTION:":PF$"PFM.DATAFILE" KOE0:1970 Z1800 dA115:A;A(OH):HIOH(51204608):HI:MO$(12):I012:MO$(I)::PRE,JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEPT M% - CURRENT MONTH D% - CURRENT DAY TI$ - FILE TITLE w 7F1$" 0.00":F2$"$ 0.00":F3$" $ , 0.00":Q$(34) <A768:PUTA;B(104,168,104,166,223,154,72,152,72,96):ONERR STACK FIX ROUTINE 3 AMO%(12),BID$(24),BU$(24),CID$(13),CR$(12),MS(12)  CID$(12) - CREDIT IDS CR$(12) - CREDIT NAMES CR(12,12) - CREDIT DOLLARS MS(12) - MONTHLY SPENT CB - CURRENT BALANCE DD(12) - MONTHLY DEPOSITS CH(12) - MONTHLY CHECK TOTALS CA(12) - MONTHLY CASH TOTALS 7  N% - NEXT CHECK NUMBER P% - PRINTER SLO*e UTILITY TO PROCESS PFM.DATAFILE (C) 1983 BY KEN KASHMAREK CALL -A.P.P.L.E. : DEC. 1983  MO%(12) - CHECKS PER MONTH MO$(12) - MONTH NAMES BID$(24) - BUDGET IDS BU$(24) - BUDGET NAMES BU(12,24) - BUDGET DOLLARS SP(12,24) - SPENT DOLLARS                        0: 49 29 2D 2D 75 0E 0E 0E 36 36 36 1E 1E 1E 1E 3F 3F 3F CC E3 1C 1C 24 24 24 0C 0C 0C 04 00 00 49 29 2D 2D 0E 3F 3F 3F F7 2D 2D 2D 2D 35 FD 3F 3F 3F 3F F7 2D 2D 2D 2D 2D 2D 2D 1C 0F 18 0F 18 0F":1220:144HEX$"4F20: 18 4D 91 92 3F 3F 3F 3F 3F 3F 3F2C 2D 25":1220:144HEX$"4EA0: 00 DB DB DB 32 0E 2D 0D 18 E4 3F 27 0C 0C 2D 04 00 DB DB DB 08 18 28 2D 35 1E 1E 1E 36 04 00 DB DB DB 20 0C 2D 15 F6 3F 17 76 2D 0D 18 24 00 DB DB DB 92 2D 0D 18 0D 18 24 E4 3F 17 76 2D 04 00":1220:144HEX$"4EEC 04 00 DB DB DB 08 58 0D 18 36 36 F6 2D 04":1220:144HEX$"4E60: 00 DB DB DB 08 18 0C 2D 15 F6 BF 17 2E 2D 25 00 DB DB DB 08 18 28 2D 35 1E 1E AD F6 3F 0F 18 04 00 DB DB DB 2E 2D B5 23 0C 18 24 BC 0A 18 17 04 00 DB DB DB 12 0E 2D 0D 18 24 1C 3F 27 EX$HEX$" N D9C6G":I1(HEX$):511I,((HEX$,I,1))128::72,0:SO(16336)(16336):8HEX$"4E20: 0D 00 1C 00 22 00 34 00 41 00 50 00 61 00 71 00 81 00 91 00 9F 00 AF 00 C0 00 DF 00 3E 24 2D 36 04 00 DB DB DB 24 0C 2D 15 17 35 36 1E 3F 0F 18 2C 02j1247,159I,tS(16336)(16336)2~^1243,90:1251,90:1241,92:1253,9224:"'CONJURER'S SQUARE'........AGAIN Y/N ?";:Q$:Q$"Y"1190::190::"THINK ABOUT IT !":****NUMERALS SHAPE TABLE****1230[HL****I15J15-IKJL1040JIKĔ13X20,Y:C(I,J)0gJLĔ13X20,Y:C(I,J)0rXX20yJ$X73:YY20.I8FFB21:1:868L:22:(5):"YOUR SELECTION";:34:"=";TAL:V****PLOT ARROW****`I20703:Y33\I15fJ15CpC(I,J)NC(I,J)0:12X20,Y:940NzXX20UJeX73:YY20lI820: INCORRECT SELECTIONKI:LJ22:(XX):N;"+";:XXXX3TALTALN:PLAYERS RUNNING TOTALX73:Y33****DELETE ROW /CO((C$(I,J),1,1))2X20,Y@((C$(I,J),2,1))2X620,YKXX20QaX84:YY20g ****PLAYER INPUT****XX20 FF15*130041:21:868>(1):21:"SELECT A NUMBER ";NH****RING SELECTED NUMBER****RX7A(I)B(I):%NX200: ANS TO SCREEN>XAN$(ANS):LE(AN$)JbI1LEgl((AN$,I,1))248X,81qvXX6w****FILL MATRIX****X84:Y40I15J15C$(I,J)(C(I,J))LE(C$(I,J))LE1ĕC(I,J)2X620,Y:74090,Y190,Y  16304,0A ****MAKE TWO RND ARRAYS****L I15t A(I)(25(1))1:B(I)(25(1))1z  ****NUMBERS FOR MATRIX**** I15 J15 &C(I,J)A(J)B(I) 0: :****PRODUCT TO SCREEN**** DI15:ANSANSO,YLOXLOBO,YHI/ JXHI6BO,YLOXHI6BO,YHI5 Ti ^XLOI12:YLOI12:XHI278(I12):YHI158(I12)r hI4x r |236,75258,75258,87236,87236,75 ****PLOT 5*5 SQUARE**** 3 X9019020 X,30X,130  Y3013020 1( SHI(20000256):SLO20000256SHIX 232,SLO:233,SHI: TO START OF SHAPE TABLEl ****BORDER**** XLO1:YLO1:XHI279:YHI159 6 I12 BO06 "SO(16336) ,XLO,YLOBOXHI,YLOBO 6XLO,YHI6BOXHI,YHI6BO @XLOB2 Q$"RIGHT OF THE CONJURER'S SQUARE.":1350:P 20:"JUST A MINUTE....."x :"LOADING NUMERALS SHAPES TABLE." 1210: LAM STRING OF NUMERAL SHAPES 20:868:22:"ANY KEY TO CONTINUE THE PROGRAM ";:Q$ TAL0:ANS0 0:E NUMBER WILL BE CIRCLED, AND THE":1350:` dQ$"FIGURES IN THE SAME ROW & COLUMN ARE":1350: nQ$"ELIMINATED.REPEAT FIVE TIMES, WHEN THE":1350: x"SUM OF YOUR SELECTION WILL ALWAYS BE THE"; :Q$"FIGURE PLACED BY THE COMPUTER TO THE":1350:= CONJURER'S SQUARE : J TAYLOR CALL -A.P.P.L.E. U****INITIALISE****b::3:h(11:"CONJURER'S SQUARE"211:"*****************"<F"DIRECTIONS.....":P"YOU MAY SELECT ANY NUMBER IN THE SQUARE.";:* Z:Q$"TH     A(A$):A3A27İ635:5%~CLOSE(FI$):OH::165P%INPUT A MONTH OF DATA%SE18MO20:XEMP:RSESE(MO%(I)10):1000:XEXE256:R:%OUTPUT A MONTH OF DATA%SE18MO20:XEMP:RSESE19:1060:XEXE256:R:%GET BASE AREA DATA*&:1940: $$OUTPUT SUBROUTINE 1$.1920:2040N$8WRITE(FI$,R,XE):1940:h$LINPUT BASE DATA AREA$VXEHI:R017:1000:XEXE256:R:$`OUTPUT BASE DATA AREA $jXEHI:R017:1060:XEXE256:R:%t645::"HIT ANY KEY TO PROCEED ";:A$::D$:770J#MMO%(I)199855:CMO%(I)1199:(C10)C10įPUTXE;%(0,0,0)f#RPUTXE;R(0,0,0,0,0):Cu#WMOI:1180|#\I#aD$;"CLOSE";TF$:1940:"FINISHED WITH ";TF$:TF$""#fCLOSE(FI$):120#INPUT SUBROUTINE#1920:2040$(FI$,R,XE):XEMP:PUTXE;B(141);%(0,0);R(0,0,0,0):8:1:EOP::"WORKING ON MONTH OF ";MO$(I);", ENTRIES=";MO%(I):MO%(I)0845">775:D$;"READ";TF$"CC1MO%(I):(C10)C10įPUTXE;%(0,0,0)#HXX,N%,MO,DA,TAG$:PUTXE;R(XX);%(N%);B(MO,DA);C16(TAG$):C:,X5%,X6%,TI$,CB:I112:MS(I):Ib!*BU%:J1BU%:BID$(J),BU$(J):I112:BU(I,J),SP(I,J):I:J!/CR%:J1CR%:CID$(J),CR$(J):I112:CR(I,J):I:J:D$!41430:T$PX$:1630:FI$F$:SLS:DRD:770:OPEN(FI$,0,0,SL,DR,0):1120w"9MPHI4608:I012M.DATAFILEO CLOSE(FI$):HOP:655:T$TX$:1630:TF$F$:TSS:TDD:1920:2060 775:OPEN(TF$,0,1,TS,TD,0):CLOSE(TF$):D$(4):D$;"OPEN";TF$; TS0TD0ĺ",S";TS;",D";TD; :D$;"READ";TF$:I012:MO%(I):I!! N%,P%,C%,X1%,M%,D%,X2%,X3%,X4%""770:155@((SL0DR0)(SLTSDRTD))(TF$"")ıBELL:BELL::"INSERT ";::FI$;::" IN S=";SL;", D=";DR:1140::(TS0TD0)(SLTSDRTD)ı BELL::"INSERT ";::TF$;::" IN S=";TS;", D=";TD:1140: TEXTFILE -> PF";MO%(I):MO%(I)0750H770:MOI:1160:XEMP25:775:D$;"WRITE";TF$nC1MO%(I):(C10)C10XEXE6XE;R(XX);%(N%);B(MO,DA);$16(TAG$):XX","N%","MO","DA",";Q$;TAG$;Q$:C:D$ID$;"CLOSE";TF$:1940::"FINISHED CREATING ";TF$:TF$:MS(I):;BU%:J1BU%:Q$;BID$(J);Q$;",";Q$;BU$(J);Q$`I112:BU(I,J);",";SP(I,J)::CR%:J1CR%:Q$;CID$(J);Q$;",";Q$;CR$(J);Q$I112:CR(I,J):::D$MPHI4608:I012:8:1:EOP::"WORKING ON MONTH OF ";MO$(I);", ENTRIES=$:TSS:TDD:1920:2060\775:OPEN(TF$,0,0,TS,TD,0):CLOSE(TF$):D$(4):D$;"OPEN";TF$;}TS0TD0ĺ",S";TS;",D";TD;:D$;"WRITE";TF$:I012:MO%(I): N%","P%","C%","X1%","M%","D%","X2%","X3%","X4%","X5%","X6%","Q$;TI$;Q$;",";CB:I112"PR# ";PR:155&{PRĺ(4);"PR# ";PR,BPRĺ(4);"PR# 0"H{2:1:EOP::(40(H$(H)))2::H$(H):::2:1:EOP::3:H$(H)::BELL:2:1:EOP::HEAD$::PFM.DATAFILE -> TEXT FILEHOP:655:T$TX$:1630:TF$F40:355)SBUDGET SPENT -> NEW BUDGET $7XHOP:655r]I112:J1BU%:BU(I,J)SP(I,J):::1430:1200:1710b"OKAY TO WRITE BACK (Y/N)? ";A$:A$"Y"ĺ"BYPASSED":620g1120l1140:155qTURN PRINT OPTION ON/OFFvHOP:660:BELL::(MO,DA);C2(AC$);C14(ID$)>DE$" ":MO127DE$"*":MOMO128d!RE$" ":DA127RE$":":DADA128x&C%0ĺC%;:560+C%(C%):CID$(C%);05);RE$;MO$(MO);"/";:USNG," ";DA;513);ID$;:USNG,F1$;XX;:" ";;DE$;" ";AC$DCIIN11E F2 KEY ON THE MODEL 100"M Z"HIT APPLE'S TO CONTINUE ";:A$:a dA(ADI):II1w n(A);:A220130 x100 "END OF FILE":,J APPLE/TRS-80 DOWNLOAD BY ART UDE CALL -A.P.P.L.E. : NOV. 1983 `AD24576:ADDRESSp::D$(4)D$;"CATALOG"("NAME OF FILE TO DOWNLOAD ";N$:(N$)1Ā2(N$,1)"^"70<N$"^"N$FD$;"BLOAD ";N$;",A";AD P:"PRESS TH  IL":H$(3)"CHECK DETAIL":H$(4)"MONTHLY SUMMARY DETAIL":H$(5)"RETURN":T5m00I1T:5:I;" - ";H$(I):::0lERROR HANDLING ROUTINES0vSAVE CURRENT ONERR POINTERS0A244:A;A(OT(OE),OL(OE)):OEOE1:0RESTORE OLD ONERR POINTERS!1OEOE--- -> ------------":H$(7)"FINISH":T7:1840/H$(1)"FILE STATUS SUMMARY":H$(2)"MONTHLY SUMMARY":H$(3)"BUDGET SUMMARY":H$(4)"CREDIT SUMMARY":H$(5)"FULL FILE SUMMARY":H$(6)"RETURN TO MAIN MENU":T6:1840J0&H$(1)"BUDGET DETAIL":H$(2)"CREDIT DETAU(0,J1);:32);:USNG,F1$;SP(0,J1):-.Q.::10::PF$;" UTILITY":::-/H$(1)PF$" -> SCREEN DISPLAY":H$(2)PF$" -> PRINTED REPORT":H$(3)PF$" -> TEXT FILE":H$(4)"TEXT FILE -> "PF$:H$(5)"BUDGET SPENT -> NEW BUDGET $":H$(6)"---------ILE NAME: ";F$'-r(T$)7:"SLOT: ";SC-|(T$)6:"DRIVE: ";D:W-BUDGET DISPLAY-4:1:EOP::"ID BUDGET SPENT";21);"ID BUDGET SPENT":'.J1BU%2:BID$(J);:USNG,F1$;BU(0,J);:12);:USNG,F1$;SP(0,J);:21);BID$(J1);:USNG,F1$;BY SPENT $&,,I112:PUTME;R(MS(I))\,6J1BU%:PUTLY;R(SP(I,J)):PUTLZ;R(BU(I,J)):J,@BU%24āJBU%124:PUTLY;R(0):PUTLZ;R(0):J,JJ1CR%:PUTLO;R(CR(I,J))::CR%12āJCR%112:PUTLO;R(0):,TI:,^GET FILE NAME-hT$;:" F;C22("");%(0):,+CREDIT CARD ID AND NAME+I1CR%:PUTME;C2(CID$(I));C20(CR$(I));%(0)::CR%12āICR%112:PUTME;C22("");%(0):+PUTME;R(CB):$ BALANCE +PUT BUDGET $ AND SPENT $ +LYHI1001:LZHI2441:LOHI3881 ,"FIRST, MONTHLCHECKS PER MONTH :*MEHI:I012:PUTME;%(MO%(I)):S*SOME KEY VARIABLES *PUTME;%(N%,P%,C%,X1%,M%,D%,X2%,X3%,X4%,X5%,X6%);$22(TI$);%(0)*BUDGET ID AND NAME +I1BU%:PUTME;C2(BID$(I));C20(BU$(I));%(0)::BU%24āIBU%124:PUTME)SP(0,J)X:BU(0,J)BU(0,J)Y:SP(I,J)X:BU(I,J)Yl)xSSX:BBY:J:SP(I,0)S:BU(I,0)B:S0:LYLYM:LZLZM)J1CR%:LO;R(X):CR(0,J)CR(0,J)X:SSX:CR(I,J)X:J:CR(I,0)S:LOLON)I:CID$(0)"CASH":CID$(13)"DEP ":)PUT BASE AREA DATA *;%(X):CID$(I)""CR%I6(2:ME;R(CB):$ BALANCE T(<GET BUDGET $ AND SPENT $(FLYHI1001:LZHI2441:LOHI3881:M5(24BU%):N5(12CR%)(PFIRST, MONTHLY SPENT $(ZI112:ME;R(MS(I)):S0:B0(dJ1BU%:LY;R(X):LZ;R(Y)1)nSP(0,JY VARIABLESM'ME;%(N%,P%,C%,X1%,M%,D%,X2%,X3%,X4%,X5%,X6%);$22(TI$);%(X)e'BUDGET ID AND NAME' BU%0:I124:ME;$2(BID$(I));$20(BU$(I));%(X):BID$(I)""BU%I''CREDIT CARD ID AND NAME((CR%0:I112:ME;$2(CID$(I));$20(CR$(I))ARRAY,CR,BU,SP,MS,CR$,CID$,BU$,BID$,MO%~&MO%(12),BID$(24),BU$(24),CID$(13),CR$(12),MS(12),SP(12,24),BU(12,24),CR(12,12)&:12::"SUMMARIZING DATA":12:" PLEASE WAIT ":&CHECKS PER MONTH &MEHI:I012:ME;%(MO%(I)): 'SOME KE3,240,14,164,26,145,6,200,132,26,208,231,230,7\ 76,48,3,169,129,133,56,169,158,133,57,96 00 FOR RS-232 WITH CARD IN SLOT #1 CHANGE LINE 200 TO: DATA 169,193,133,57, 169,5,133,56,169,96, 133,7,160,0,132,6, 132,26 169,0,133,8,133,9,32,12,253,32,240,253,230,8,208,2,230,9. 201,13EGIN UPLOAD - PRESS KEY F3"$ Z792: dL(8)(9)2561H nADL,220l xD$;"BSAVE ^";N$;",A";AD;",L";L{ "DONE.": 169,194,133,57,169,7,133,56,169,96,133,7,160,0,132,6,132,26 FOR MODEM IN SLOT #3 CHANGE 194 TO 195 IN LINE 2^G TRS-80/APPLE UPLOAD BY ART UDE CALL -A.P.P.L.E. : NOV 1983 bAD24576:FILE ADDRESStA792854:LA,L:(::D$(4)2"NAME OF FILE ";N$:(N$)1Ā<:"READY TO RECEIVE."F"REMEMBER, END UPLOAD WITH A CTRL E." P"B  10:" ";::29);::" "f9p14:10::" "18)" "az12:12:"S C O R E = "(RI10)" %"l:830O CHANGE YOUR ANSWER USE THE"N :"LEFT ARROW KEY. PRESS 'RETURN' WHEN YOU"|*:"HAVE THE ANSWER YOU WANT. IF YOU ARE"4:"WRONG THE CORRECT ANSWER WILL BE GIVEN.">150::WR0:RI0:AA13:200H::10:10::" "18)" "RS1113\S::" ";:(T120::774:S1200::]:3:"************* INSTRUCTIONS *************"::" YOU ARE TO REDUCE 10 FRACTIONS TO":"LOWEST TERMS WITH A SINGLE DIGIT NUMERA-" "TOR AND A SINGLE DIGIT DENOMINATOR. IF ":"YOU WISH T C T I O N S"S1511?12:10:"R E"S)"D U C I N G UT1200::774:xS24141:S:16)"BY"40):14:S1911:774:17S:"BY ";:T1200:::S110:18:" "S)"GARY E. LEONARD":T110:774:::23:T140774:8NT1700::0:SC2637:SC,SC11:SC,52SC:cXAA0:X30:Y8:LNF:320:Y24:LDF:320b1:AA13:X26:130:Y8:X30:LN:310:Y24:LD:310l150:v:T127:N,D::S768808:P:S,P::S815837:P:S,P:: 12:12:"F R A135104800NNFDDFRIRI1:550:530FWRWR1:580:530WWRRI9840b:200&12:CK1520:CK,CK10:813,20:814,20:815:0CK2036:CK,50CK:813,10:814,10:815::T1700::D9:SC2637:SC,SC11:774:SC,52SC:]CH(16384)128:CH48CH58Ĺ16368,0:0:AA0:120:AA13:X30::DFCH48:LDF:310:470CH8Ġ0:AA0:120:X30:Y8:LNF:320:AA13:3409:12041016368,0:16384,0CH(16384)128:CH8Ġ0:AA0:LDF:320:AA13:400CH,50,60,70,80,90,100:L0İ110#J4T1:X26:130U^X31:Y8:16368,0:16384,0ah1:120rCH(16384)128:CH48CH58Ĺ16368,0:0:AA0:120::AA13:X30:NFCH48:LNF:310:400|9:12036016368,0:16384,0Y241:120(1)8)2.NUMN:DEMD:NU$(NU):DE$(DE)NTR$NU$:Y8:(TR$)270,280oTR$DE$:Y24:(TR$)270,280X2:1:130:1:140:340X6:L(TR$):310:X3:L((TR$,1)):310"X9:L((TR$,1)):L1X8,310:61@L20,30,40~ 0,0,12,0,0,0,160,0,238,0,3,238,1,3,174,2,3,173,48,192,136,208,10,206,0,3,208,5,206,1,3,240,5,202,240,234,208,238,96,0,0 173,48,192,136,208,5,206,46,3,240,9,202,208,245,174,45,3,76,47,3,96,0,0 F((1)27)1 T1F:N,D:T:M(:. 18,2118:18,2122:AA:17,18:17,22:v 16368,0:16384,0:24:"PRESS 'R E T U R N ' TO CONTINUE..";:ST$ RN((78)1):: 1,9,1,8,1,7,1,6,1,5,1,4,1,3,1,2,2,9,2,7,2,5,2,3,3,8,3,7,3,5,3,4,4,9,4,7,4,5,5,9,5,8,5,7,5,6,6,7,7,9,7,8,8,9AA:Y,Y3X1:Y1,Y2X2:Y4,Y8X2:s nY,Y8X:Y,Y8X3:X,X3Y:X,X3Y8:AA:Y,Y8X1:Y1,Y7X2: xY,Y1X:Y4,Y6X:Y,Y4X3:X,Y8:X,X3Y:X,X3Y4:AA:Y,Y1X1:Y4,Y6X1:Y1,Y3X2:X1,Y8: X,X1120:AA:X1,205,Y8X3:X,X3Y5:X,X3Y8:AA:Y,Y8X1:Y6,Y7X2:p PY,Y8X3:X,X3Y:AA:Y1,Y8X2:X1,Y: ZY,Y8X:Y,Y8X3:X,X3Y:X,X3Y4:X,X3Y8:AA:Y,Y8X1:Y1,Y3X2:Y5,Y7X2:) dY,Y3X:Y,Y8X3:X,X3Y:X,X3Y3::X,X3Y8:AA:Y1,Y3X2:Y5,Y7X2:X1,Y:X1,Y4:X1,Y8: 2Y,Y4X:Y,Y8X3:X,X3Y4:AA:Y,Y4X1:Y,Y3X2:Y5,Y8X2: <Y,Y4X:Y4,Y8X3:X,X3Y:X,X3Y4:X,X3Y8:AA:Y,Y4X1:Y5,Y7X2:X1,Y8:> FY,Y8X:YmG THE BIG REDUCER : GARY LEONARD CALL -A.P.P.L.E. : OCT. 1983 P630pY,Y8X2:AA:Y,Y8X1:Y,Y1X:Y,Y4X3:Y4,Y8X:X,X3Y:X,X3Y4:X,X3Y8:AA:Y,Y1X1:Y1,Y3X2:Y4,Y8X1:D (Y,Y8X3:X,X3Y:X,X3Y4          Ơ 𲍠« 占ԠǍ̠Ұ à 𧍠РҰ 䍪Ұààà؍ŠĠ Ʃ٠ 荠ƍ©٠ 占ٍ©٠ 占àƍƍРƍŠ΍àΠӍԠƍNERROR HANDLER62216,0:768::"ERROR IN ";PX$:2075R2 TEXTFILE ERROR HANDLERu2216,0:768::"ERROR IN ";TX$2X43377(43583(222))::5:BELL:"--> ";2 Y(X):(Y);:XX1:Y1282080::2*(4);"CLOSE":OH:1:A244:PUTA;A(OT(OE),OL(OE)):@1FIRST LEVEL ERROR HANDLERs1216,0:A218:A;A(LI):ER(222):768:BELL:1ER254ĺ"BAD INPUT";:20201ER255ĺ"BREAK";:20201ER0ER172050:"ERROR CODE=";ER;1" IN LINE ";LI:2090 2DATAFILE |`^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X1 1/ 9/110/1 5/11/112/1 3/13/114/1 7/15/1 .063 .125 .125 .188 .25 .25 .313 .375 .375 .438 .5 .5 .563 .625 .625 .688 .75 .75 .813 .875 .875 .938 VRESTORE TO LINELINE DATA RESTORE.RM g R ְZLԥ}~8}}~~{iSi ߠȱȱ `*`ȥȥ`  /`Ȅ A0 )8Ϣ .i` 1/1 2/1 1/ 3/1 4/1 1/ 5/1 6/1 3/ 7/1 8/"-1,0":"EOD"nD$;"CLOSE"hWAIT FORINPUT&SEARCH.RM" {ݥ ߄ lݠȱHȱh S \ۤ`?INPUTSTRING INPUT.RM  " ީ; = l݅ , LCONVERTFRACONVERT.RM Xʽii;STK$;" ";C$(X1);(34)7"PERIODICITY":X;",0":Q1$V"MAJORSTART":X;",0":Q1$u "MINORSTART":X;",0":Q1$"TRUELENGTH":X;",0":Q2$("DATA":"0,0":Q$2Y0SIZE<"-1,0":"BOT"FX03P"0,";B$(X,Y):"V"Z:dTK$;".DIF ":* D$;"WRITE";STK$;".DIF"W "TABLE":"0,1":(34);STK$;".DIF";(34)j Q$(34)(34) "VECTORS":"0,4":Q$ "TUPLES":"0,";SIZE1:Q$ Q1$(34)"1"(34) Q2$(34)(SIZE1)(34) X14"LABEL":X;",1":(34)O IF B$(2,Y) IS BLANK, THAT INDICATES AN OVER-THE-COUNTER SECURITY. IN THAT CASE, USE THE BID AS THE LAST PRICE. VB$(2,Y)""B$(2,Y)B$(0,Y):B$(0,Y)B$(1,Y):B$(1,Y)B$(2,Y) ` e PRINT THE DIF FILE jD$;"OPEN";STK$;".DIF" t"WRITING ";S5,2: SET UP AMPERSAND, TOO. DON'T LOAD AT $200 - WON'T WORK THERE.l $ BREAK A$ LINES INTO PIECES IN B$ .Y0SIZE:X03 8B$(X,Y)(A$(Y),10(X1)1,10) B: G CONVERT B$ ELEMENTS TO DECIMAL FRACTIONS LY0SIZE:X03:,B$(X,Y):s SIONS nA$(SIZE):B$(3,SIZE)6 xX0SIZE:A$(X):q C$(3):X03:C$(X):: NAMES OF COLUMNS FOR DIF FILE LOAD CONVERT ROUTINE INTO INPUT BUFFER A SAFE PLACE DURING THIS PORTION OF PROGRAM. D D$;"BLOAD CONVERT,A$201":1013,76:1014,1:101/4 1071"I +"07/06/83 15 14 1/8 14 1/8 303" ,"07/07/83 14 3/4 14 1/4 14 1/2 578" 2"HIGH","LOW","CLOSE","VOLUME" Z DIM ARRAYS, READ DATA INTO THEM  dSIZE:SIZESIZE1: ADJUST SIZE FOR ARRAY DIMEN C DIF DEMO BY DAVID G SPARKS CALL -A.P.P.L.E. : NOV. 1983 R STK$"XYZ"^D$(4)e5("07/01/83 14 1/2 14 1/8 14 3/8 434")"07/02/83 14 7/8 14 1/4 14 1/2 551" *"07/05/83 15 14 1/2 14 3      ббӍԠƍԠбб٠РàбŠčàбĠбٍѠčҠԍРЍĠббӍԠƍĠбٍѠčҠԍРЍĠԠҠ͠ 䍪 獪 䮍 Ұ 占Ҡ٠ Ұ«ŠҰ 򽰍ԠǍ̠Ұ DZנ ҰҠ٠ Р΍ «ƍ«·ű ԠǍ̠Ұ Ҡ Ұ«Ҡ·ү ҰԠǍàҰנҍנؠԠǍ̠Ұ 獠Ҡ ﺍ؍ҰààҰDZ׬ؠ 占4/1 1/ 5/1 6/1 3/ 7/1 8/1 1/ 9/110/1 5/11/112/1 3/13/114/1 7/15/1 .063 .125 .125 .188 .25 .25 .313 .375 .375 .438 .5 .5 .563 .625 .625 .688 .75 .75 .813 .875 .875 .938  XʽiiiTi ߠȱȱ `*`ȥȥ`  /`Ȅ A0 )8Ϣ .i` 1/1 2/1 1/ 3/1  Ԡﮍ˱٠宍ٍؠ؍˲٠ԍѠŠ٠٠Š٠Ѝ˳٠ƍРȿ嬍Ѡ˱宍٠䬠箍؍ŠıӠ箠򍪍Р٠Ӡİ٠٠Ԡ٠ԍıҩ٠䍠РſѠР䬠ҫŠӠȍحǠ̠Ӡȍà٠򠦠ٍٍҍٍٍҫٍؠӠİ栴̍٠Ӡ̠ؠ占ŠԳ蠾٠占٠蠽ӍԳàҠ덠ŠÍàԱàҍŠԠ󮍠àҫŠԠ֠РحĠ箠宠󮍠Šà덪ƠԠŬĠϠΠҩ٠Р占Š֠򠧪ؠ占ŠԱ٠٠嬠占Ӡ䍠٠٠፠ؠ؍ٍٍҠٍٍҫԠ٠Ԡ󮍠ūÍ占àӭ˫宍ōàӭˍūԠҠ͠占ҠԠ؍ؠˠﮍÍàӭ˫Ǡà荠Š宠占àӭˠōԠՠųРԠԠŠŠҠՠĠҠƵ򠽠Ӎˠؠؠؠˠ Ԡ͠ՠ ͢  &Ԡ ЮЮ̮Ů        T/S LIST + ZCLOSE(F$,1):CLOSE & DELETE1 _VFILE MANAGER WORK AREAI -LOC;A(TS):GET ADDRESS OF TRACK SECTOR LISTh 2CLEAR T/S ENTRY FOR VTOC 4LOCTS12:PUTLOC;B(0,0) 7BUILD T/S LIST FOR DIREC-TORIES <I115 APUTLOC;B(0,0) F ULOCFW4:PUTLOC;B(128):FLAG TO REWRITE 2V DELETE VTOC.DIRECTORY FILE BY KEN KASHMAREK CALL -A.P.P.L.E. NOV. 1983 nF$"VTOC.DIRECTORY"OPEN(F$,8,1,,,,1):OPEN AND UNLOCKVT17:VTOC TRACK=17 ($11)#FM46523:$B5BB IN 48K DOS (LOCFM12:LOC;A(FW):GET ADDRESS OF   J:I" FR560US64:ASSUMES DOS< :FR;" FREE SECTORS"D OHJ :FT127L$"*":FTFT128$ T$"T"5 FT1T$"I"F FT2T$"A"W FT4T$"B"h FT8T$"S"z FT16T$"R" LL$((L1000),3) USUSL L$;T$;" ";LL$;" ";N$:(37)20ĺ:"HIT ANY KEY TO PROCEED";:A$:A(A$):A3A27215: BU256:NEXT PAGE$ dSE:CLOSE(F$)? iVTHI6:VT;B(V)::Y n:"DISK VOLUME ";V:y sDIHI256:DIRECTORY SECTOR xUS0:USED COUNT }I1HS DIDI11:DIR. OFFSET J06 DI;B(T,S,FT);$30(N$);A(L) T0T255200 L$" " "S" FILE 2BUHI:SET BUFFERS 7READ IN VTOC SECTOR AND THE DIRECTORY SECTORSo <HS1:SET HIGH SECTOR #| ASE015 F(F$,SE,BU):READ EACH SECTOR INTO MEMORY KSE095 PLOCBU11:GET TRACK ULOC;B(T) ZT0HSSE:SE15 _BUKZ INPUT VTOC.DIRECTORY FILE BY KEN KASHMAREK CALL -A.P.P.L.E. : NOV. 1983 rF$"VTOC.DIRECTORY"X115:X;A(OH):SAVE OLD HIMEM VALUE#HI(OH256)02564096:COMPUTE NEW HIMEM (HI:SET NEW HIMEM -OPEN(F$,8,1):OPEN TYPE    z#  àԠàԮӠàԠ ϱ ׮Ӡ ǠҠ ӸŠĠ ůӸĠҧӠŠŠ٠,ננàҠ !ϠׯԭԠ"ĠàԠàŠàԮӠ Ԡ ƠϠ  Ϡ٠ϠǠǠŠàϠҮӠ àϠҠˠҠ ƭàϠ  ՠ ȠҠǠϠŠ٠͠ϠҮӠϠҠϮӠD  -      10 - 1983  Lj :LLILI@L ֵŠ oL >0,P,T,W 췩? L"_ $ LPW$ I T췩 ᷥ $I` $P л$T L hh LᵥHH` XQRTH$ ֵՍ$ ֵ׍ $ ֵ$0 ٵϠ ֵ$ ٵРӍ $ ֵ$p ٵϠ֮ ֵ$P ٵ٠Ϡ֮$ ֵĠŠÍ$ ٵԍ$ ٵȿ ɰyɱɲɳ :511I,((HEX$,I))128::72,0:144,  SK:"& <"PICTURE # TO SAVE UNDER?";N? FN1N17N(N)60S PN22N:TRACK #] Z6,N2f d768n n20 HEX$"300:A5 06 8D EC B7 A9 0F 8D ED B7 A9 3F 8D F1 B7 A9 20 8D E1 B7 A9 02 8D F4 B7 A9 00 8D EB B7 20 93 B7 60 N D9C6G"& L(HEX$):I1L.M DOS 3.3 TO SLIDESHOW PIC TRANSFER STOWE KELLER : CALL -A.P.P.L.E. Y D$(4)c1000:"INSERT DOS 3.3 DISK WITH DESIRED PICTURE:""NAME OF PICTURE TO TRANSFER?";N$(:D$"BLOAD"N$",A$2000" 2:"INSERT FAST HIRES SLIDESHOW DIPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 21246 68TH AV. SOUTH KENT, WA. 98032 DDITIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.":G + q*+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:2"Call -Apple Anthol- ogy, Vol 10B, Oct-Dec 1983 Version 1 Release date 11.13.83"g" APNOT AVAILABLE":216,0:110-b(222)255Ħ7l::x'2::4:"CALL -APPLE ANTHOLOGY, VOL10B ":::34,5:11000:*8:"NOT ALL PROGRAMS ON THIS DISKETTE APPEAR IN THE MENU, THOSE WITH A [.S] SUFFIXARE BIG MAC SOURCE FILES."?+"OTHERS NEED A A R N"Q>15:"O M Y G":16:"U";:40:"E";gH17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":10:" "\:34,23:I11200::::10000X(222)1ĺ"LANGUAGE 1:" ";:33:" ";:39:" "&:w "A P P L E":2:"P U R I X"*3:"P G O B C":4:"L E G R H"45:"E T R A A":14:"S ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "o " ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:3ALL -APPLE ANTHOLOGY VOL 10B OCT - DEC 1983 ":: I116:(I64)" "MENU$(I);:20:(I65)" "MENU$(I1):II1:I  :: 1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "3 " ";:5:" ";:9:" O  BUILD VTOC,DELETE VTOC,INPUT VTOC,DIF DEMO,BIG REDUCER,TRS80/APPLE UPLOAD  APPLE/TRS80 DOWNLOAD,CONJURER'S SQUARE,DATAFILE UTILITY,GOTODEMO1  " "," " 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRUN PROGRAMS :P 2::" C "FILE$:BL260! D$"RUN"FILE$= BL0:I11000:::110z A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(24) I116 MENU$(I) I  FILE COPY PROGRAM,BIG ADDING MACHINE,TALKING HELLO,SPEECH WRITER,QUICK ZAPPER,SELF-SYNC DEMO)120 190:150, X(16384):X127ıX :16368,0:KEYX192:KEY24KEY1180m FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"LOADINGh >d " M E N U " BY VAL J GOLDING - 2.80 Qi2000:::500in1000:D$(13)(4)xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::L(A$     :VT:6120%$51:TL$(LN)""MB$:50-.:DW APPEND LINE(S) SXTL01000gb51:LNTL:1020~? DELETE LINE(S) @:4:"THERE ARE ";TL;" LINES IN THE FILE."J10:"FIRST LINE TO DELETE: #";IN$:IN$""ıTIN%(IN$):IN%1IN%TLİ60$(LNIL)TL$(LN)#:TLTLIL:506LNL11L1ILI:TL$(LN1):]VT(37)1:LN;k") ";MB$16800:17280: SPEAK LINE958::"DOES THAT SOUND ACCEPTABLE?";IN$:IN$"Y"IN$"N"6160 IN$:IN$"N"ĢVT:958:LN;") ";MB$ ";TL;" LINES IN THE FILE."Lz10:"INSERT HOW MANY LINES? ";IN$:IN$""ıvIN%(IN$):IN%1IN%TLMLİ60:6010ILIN%:95812:"INSERT AFTER LINE #";IN$IN%(IN$):IN%0IN%TLİ60:6040L1IN%:958:51LNTLL111TL;MB$#16800:17280: SPEAK LINEP958::"DOES THAT SOUND ACCEPTABLE? ";qIN$:IN$"Y"IN$"N"5100IN$:IN$"N"ĢVT:958:LN;") ";MB$:507051:TL$(LN)""MB$:50:o INSERT LINE(S) BETWEEN EXISTING LINES p:4:"THERE AREES IN MEMORY."F"WHICH LINE DO YOU WANT TO CHANGE? ";IN$:IN$""ımIN%(IN$):IN%1IN%TLİ60:5005~LNIN%:958:LN15050:LN1;") ";TL$(LN1):VT(37)1:LN;") ";TL$(LN):LNTL5070:LN1;") ";TL$(LN1)VT:LN;:") ""NAME OF FILE: ";N$:N$""ıC(N$,5)"MOCK."N$"MOCK."N$UD$;"OPEN";N$gD$;"READ";N$SL%LO%:SH%HO%:51TLLN1TLTL$(LN)D$;"CLOSE":50 MODIFY AN EXISTING LINE 10:"THERE ARE ";TL;" LIN% (N$,5)"MOCK."N$"MOCK."N$7 D$;"OPEN";N$J D$;"WRITE";N$V 51:TLc LN1TLp TL$(LN)v  D$;"CLOSE"  LOAD TEXT FROM DISK :4:"INSERT DISK CONTAINING THE FILE AND PRESS RETURN";IN$D$;"CATALOG": LINE NUMBER = ";IN$<\IN%(IN$):IN%L1IN%TLİ60:2130GfL2IN%W:LNL1L2_51|MB$TL$(LN):LN;") ";MB$16800:17280(25)2552240:: SAVE TEXT TO DISK  :4:"PLEASE ENTER A NAME FOR THE FILE:" :N$:N$""INES"/:"2) SPEAK A CHOSEN RANGE OF LINES"S14:"-> WHICH? ";IN$:IN$""ıbIN%(IN$)xIN%1IN%22000 IN%1L11:L2TL:2200416:"FIRST LINE NUMBER = ";IN$>IN%(IN$):IN%1IN%TLİ60:2100HL1IN%:958R18:"LAST 958::"DOES THAT SOUND ACCEPTABLE? ";H IN$:IN$"Y"IN$"N"1160{ IN$:IN$"N"ĢVT:958:LN;") ";MB$:VT:1120 51:TL$(LN)""MB$:1100  SPEAK TEXT IN RAM :4:"THERE ARE ";TL;" LINES OF TEXT IN MEMORY."7:"1) SPEAK ALL L LN0:TL0% SL%LO%:SH%HO%:51q ::3:"MAXIMUM LINE LENGTH = 256 CHARACTERS INPUT ! TO QUIT":34,5 L50::TL$(LN):LNLN1: VVT(37)1 `LN;:") ";MB$:MB$""ĢVT:1120 jMB$"!"TLLN1: t16800:17280: SPEAK LINE ' ~"6) INSERT LINE(S)". :"7) APPEND LINE(S)"I :"8) DELETE LINE(S)"Z :"9) QUIT"t ,::"-> WHICH? ";IN$ 6IN%(IN$) @IN%1IN%9200 JIN%1000,2000,3000,4000,5000,6000,7000,8000,60000 T200  CLEAN SLATE AND INPUT NEW TEXT  D$;"BLOADRNDX2.OBJ"4 D$;"BLOADPHIDRV2.OBJ"Q 1022,161:1023,67:25,0^ MENU ::"1) INPUT NEW TEXT (CLEAN SLATE)" :"2) SPEAK TEXT" :"3) SAVE TEXT TO DISK" :"4) LOAD TEXT FROM DISK" :"5) MODIFY A LINE" :OINTERS 01206 1 SELECTIVE STRING PRESERVATION R 2SL%(111):SH%(112):j 3111,SL%:112,SH%: ; BAD ENTRY MESSAGE <:" BAD LINE NUMBER ";(7):: c LOAD TEXT-TO-SPEECH ALGORITHM xD$;"BLOADT-S2.OBJ" D$;"BLOADRULES2.OBJ" "SPEECH WRITER" A PROGRAM FOR USE WITH MOCKINGBOARD SPEECH I OR SOUND/SPEECH I BY CLAY RUTH, CALL-A.P.P.L.E. STAFF WRITER 24448:(4);"MAXFILES1"ML400: MAXIMUM # OF LINES D$(4):TL$(ML):50 LO%SL%:HO%SH%: "CLEAN SLATE" P     9 u/)ooopooȥpoop` PROGRAM OR RUN USER PROGRAM " >  LOAD TEXT FROM DISK Q N$"GREETINGS"u (N$,5)"MOCK."N$"MOCK."N$ D$;"OPEN";N$ D$;"READ";N$ TL TL$(TL) LN1TL TL$(LN)  D$;"CLOSE":" D$;"BLOADPHIDRV2.OBJ"9 1022,161:1023,67:25,0 ::D$;"CATALOG": CATALOG COMMAND MAY BE DROPPED IF NOT APPROPRIATE FOR YOUR APPLICATION. 4000:L11:L2TL LNL1L2 MB$TL$(LN) 16800:17280 (25)2552240: END  "TALKING HELLO" A PROGRAM FOR USE WITH MOCKINGBOARD SPEECH I OR SOUND/SPEECH I BY CLAY RUTH, CALL-A.P.P.L.E. STAFF WRITER  D$(4)c LOAD TEXT-TO-SPEECH ALGORITHM xD$;"BLOADT-S2.OBJ"D$;"BLOADRULES2.OBJ" D$;"BLOADRNDX2.OBJ   ҠķǠؠҠҠ 荠ؠѠ΍ؠ٠ĠƬؠ ĠƠ Ʃ٠ àƍƍРƍŠ 930 3VT(37):V:H:LABEL$;::VT1:1:L INPUT":925R870X\1059:216,0:"DOS ERROR ON OUTPUT DISKETTE, ONCODE=";(222);zaV9:H3:LABEL$" OUTPUT":925fX43377(43583(222))::5:"--> ";pY(X):(Y);:XX1:Y128880z:690SOME SUBROUTINES:930:A27ġ:760" A13Ģ(37):770(0 HI}*(222)253Č1059:"PROGRAM TERMINATED BY CTL-C OR":" INPUT ERROR":4:> DISK ERROR HANDLING ROUTINE H1059:216,0:"DOS ERROR ON INPUT DISKETTE, ONCODE=";(222) MV5:H3:LABEL$" 1įCLOSE(FILE$)*XO1įCLOSE(OUTPUT$)GSO;" SECTORS COPIED.":j"C TO CONTINUE, E TO END ";A$A$"C"Ĺ34,0:3:958:200HI:1059:"FUNCTION TERMINATED":680 1059:"HIT RETURN KEY TO PROCEED";:A$:::A(A$):A30MS1"NWRITE(OUTPUT$,SO,MEM)BSV11:H20:LABEL$(SO):915ZXSOSO1:MEMMEM256lbSOSISECMSzlSEC:640v860V9:H3:LABEL$" OUTPUT":925216,0:EOF1ī680DSSDī320380 END OF FILE, SO CLOSE DOWN XII0DS)SDĺ"PLACE OUTPUT DISKETTE IN SLOT "OSLOT" DRIVE "ODRIVE::770:FI1[XO1ī540w860:OPEN OUTPUT FILEOPEN(OUTPUT$,TYPE,0,OSLOT,ODRIVE)216,0:XO1EOF1SOSIī680&V9:H3:LABEL$"WRITING":920:MEMLO:630DSECREADING":920MEMLO:450.SEC0MS1C(FILE$,SI,MEM)bV7:H20:LABEL$(SI):915zSISI1:MEMMEM256SEC:470(222)5ī840EOF1:V5:H3:LABEL$"< EOF >":920216,0EOF0V5:H3:LABEL$" INPUT":925L(F; 634,12:SDSLOT0DRIVE0:DS(SLOTOSLOT)(DRIVEODRIVE)x @SDĺ"PLACE INPUT DISKETTE IN SLOT "SLOT" DRIVE "DRIVE: J770 TXI1ī380 YVT(37) ^840:OPEN INPUT FILE hOPEN(FILE$,TYPE,1,SLOT,DRIVE) r216,0:XI1 |V5:H3:LABEL$"6:"SLOT: ";SLOT:5:"DRIVE: ";DRIVE:b "OUTPUT FILE NAME,SLOT,DRIVE"::OUTPUT$,OSLOT,ODRIVE 9:958:4:"OUTPUT: ";OUTPUT$:6:"SLOT: ";OSLOT:5:"DRIVE: ";ODRIVE: XI0:XO0: SET OPEN FLAGS "SI0:SO0:SET SECTOR COUNTS ,FI0:EOF0YPE(R$):I8 :0,T,TEXT,1,I,INTEGER,2,A,APPLESOFT,4,B,BINARY,8,'S','S' TYPE,16,R,RELOCATABLE,32,'A','A' TYPE,64,'B','B' TYPE: T$;:23:MS;" SECTOR BUFFER": "INPUT FILE NAME,SLOT,DRIVE"::FILE$,SLOT,DRIVE' 5:958:5:"INPUT: ";FILE$:R END 6 MS0ĺ"INSUFFICIENT MEMORY TO CONTINUE":T LO:PROTECT THE BUFFERS ^ 800 H18:"ENTER FILE TYPE: ";:I18:T,S$,T$:T;" - ";T$:I4H17 H::::TYPE$ TYPE0:3:958:"FILE TYPE:";:I18:R$,S$,T$:R$TYPE$S$TYPE$TUTPUT FILE NAME MUST BE DIFFERENT THAN INPUT FILE NAME (MAY BE RENAMED LATER). | x::12::"FILE COPY PROGRAM":: HI(115)(116)256 LO81024:BUFFER START MS(HI256)(LO256):SECTORS BUFFERED IN MEMORY BELOMS256:BUFFE4 od APPLESOFT FILE COPY PROGRAM COPYRIGHT (C) 1983 BY KEN KASHMAREK CALL -A.P.P.L.E. OCT. 1983 U n WILL COPY TEXT, INTEGER, BINARY, AND APPLESOFT FILES FROM ONE DISK TO ANOTHER, OR TO THE SAME DISK. FILE TYPE MUST BE SELECTED AND O     AD1)- P2127P2256P2:MAKE AN INTEGER > AD256P2P1D  )" 28,(H256):27,H256(28)< "TEST INPUT B$(0) ";E 768p NPO(2)1:28,(N256):27,N256(28) "TEST INPUT C$ "; 768 * DEMONSTRATION * A$(0) A$(1) B$(0) C$ & * FIND ADDRESS *  P1(AD):P2(6 ,* INPUT A$(0) *8 627,G:28,F:* SET POINTERS *R @"TEST INPUT A$(0) ";[ J768 TQ(27)2:R(28):Q255RR1:QQ256 ^27,Q:28,R h"TEST INPUT A$(1) "; r768 * TWO MORE EXAMPLES * HE42: POINTERS TO B$(0) FOLLOW A$(0(I2)79(I3)71CI:IPO(2)& B C0ĺ"DOG NOT FOUND":o B(C256):DCB256:HIGH AND LOW BYTES * FIND POINTER TO "DOG" * IPO(2)PO(3) (I)D(I1)BEI:IPO(3) E0ĺ"POINTER NOT FOUND": F(E256):GEF25F@ TASC TEST : SAM F VASS CALL -A.P.P.L.E. : AUG. 1983 Q A$(3),B$(3)vA$(0)"DOG":B$(0)"CAT":C$"ANT"AD1014:910:PO(1)AD(AD125:910:PO(2)AD2AD127:910:PO(3)ADd* FIND STRING *nIPO(1)PO(2) x(I)3(I1)68ƍDƠ Ӡ 덠à 򮍠֍Ϡ ֫Ϡ 鍠֫Ӡ ӍΠؠčà Ϣؠİ썠ϭ ԫҠĠ Ӡ 덠Ơ ٠Ҡά٠ ΍ѠčҠԠ Ӎ٠ ΍ŠҠ Ġ ֠ՠƵ ЍԠՠİ ĠՠĴ Ӡՠ ԠՠĠ 򍪍 򍪍Ǡ°ϭ 捠ԍ Ϯ ԠϠՠ 􍍪 󍪍Ơՠ  Ԡ ЮЮ̮Ů      4) d"INPUT SOMETHING ";A$S n"LOCATION 51 = ";(51);" LOCATION 118 = ";(118)h xD$"OPEN A FILE" "OPEN IS SUCCESSFUL" 7 DEMO LOCATION 51 & 118 FOR GOTO, CONT, AND RUN.=s("LOCATION 51 = ";(51);" LOCATION 118 * ";(118)-D$(13)(4)2D$"OPEN A FILE"<"OPEN IS SUCCESSFUL"FZ"LOCATION 51 = ";(51);" LOCATION 118 = ";(118) _D$(13)(  I4 ԧYHH ȩr  ̠`  Lύ 㮍ԠàՠΠՠӠՠĠՠԠՠŠՠˠՠϠՠàՠ Ҡՠ ԠՠŶƸĠՠŷŠ㍪ ˠՠŰ Рՠô ˠՠ ̠ՠŠՠԠՠԠ ˠՠ Πՠ ͠ՠ ՠ ՠ Ԡՠ РՠĠ ͠ՠĶ𠍪 宍 宍 Ԡ 㮍ԠŠՠ Ϡՠ ά 䍪 ӽ Ľ ֽ 祉 վ 卪 ὰ  獪 䩮 ͠ՠƹ㍪ Ơՠ² 㭾 ǍԠ 卪 度 彳 卪 Խ鬲᬴⬸󬱶򬮮 ¸ Πՠ  ͠ՠŠ򠬠Ԡՠų򠍪 ԾРՠŲƲ㍪ Ҡՠŷ㭾퍪 餱Ǡՠ͠ՠוּԠՠ± Ԡՠ· àՠĠ͠ՠĶ ҠՠĶà Ƞՠķ Ӡՠέ 占ŭ 占ĭ 占ŭ 占ԠƍϠ׍Ԡ΍ԭ ㍠ԭ ㍠΍ԠƍϠԍԠ΍΍Ԡ 䍠ԠРՠŧ 䍠 קҧɧԧŧԠƍϠ׍Ԡ΍ Ŭõ  Чէԧñ ΍ԠƍϠԍԠ΍΍  占Ԡ Ԡ̠͍ؠ͍̫ؠ䍠魾렍̬ؠ󠍠ﭾ렍ӍԠ 卪 捠Ԡ̠ ϧЧŧΧ ç̧ϧ ٠򠍠ؠ堍ŠŰ ŰРؠ Űؠ ̬ؠ򠍠ŠŰ ؠ䠍à͍ŠŰ ŰҠΠ ̠ΠՠĹ٫ؠՠùРϠؠ ؠ͍Ű٠Ű̬ؠ ѠŰ 尴РƠ堍ѠŰРҩ٠堍ŠŰ 䰰 򩍠ԠԠ΍ǠԠƍϠԍԠ΍΍Ԡ 䍪 Ԡ͠ՠҠՠ¸ 8BנՠԠՠԠƍϠԍԠ΍΍Ԡ 덪 庱 Ԡ 䰰                        㠣렣«덠ƍ«ƍ« 䍠·űҠ·ү Ҡ٠ Р΍ ϠҠ͠ 䍠̍ѠЍɠР 占Р 忍̠Р Ԡנ荠ԠDZנ荠Ԡנ荠̠𰠻 ǍР΍ ŠҠԠ 㺍ؠčà ؠҠΫ ؠŠҳРΠ􍪍ҳҠŠ 𢍠ѠōРѠҍРҠ̠ РΠ ҠРŰ ÍŠǠ Ҡ ǍР΍ϠǠ ҠؠİȍҠԍà âؠİȍҠԍà ԢؠİȍҠԍàȿؠҠٍРѠύРѠōРѠύР 占Ҡ֠ γҠԍà ֮ؠҠԍàؠԠǍàδ 占Ҡ֠ δҠԍà ֮ТؠҠԍàؠԠǍ̠β 占Ҡ֠ βҠԍà ӢؠİȍҠԍà ؠԠǍӠγ ȍҠԍà עؠİȠ Ҡԍà ؠԠǍɠα 䍠Ҡ֠ αҠԍà ̍ԠǠ 獠« ΠҠŠ ננDZנб 獠Ƞ Ҡԍàբؠĸİ Ƞ ̠ō ·ŸנðנðנðDZנðנðŠõ٠İÍΠĶԠč֠Ÿ͠Ÿ̠Ƴ͠Š÷Ǡ´ Ԡ ȭ ЮЮ̮Ů ԠǠРбō    ) , ` lݠ`i`i`  ` ) , ` lݠ`i`i`  ` ) , ` lݠ`i = PȱQ&PJJJJHȱPHȱPIhh  @ ` ʚ LA K ȑȩȱ Hh 皦 + ` ʚ F K ȩȩȥȥ `  0  u d`E cAD@ C N ,` ZѸL轏 HH`OPENCLOSEWRITE8 g U Uj Uhjh UXhf Uf U LA = ȩ    ħ Q `L g U  = K  6 ȱPȱQP LL `; ) Ĝۜ (  ڦP `ԜL`BAI%RC$ei , 8` `F L̛BLzALyȪ AE L̛ *0 L֛ $-) Ș ڥL֛ 6 㩛HHHHL[ L7L4 `  {ݥ ĜHH hR +LA RQPLMH hBLᥠȥL0@ C N ,` ) , ` lݠ`i`i`  ` hh LҦȥȥȩȑ` s g R  `  +` ⥢ ` ߅ jݦ0 R `Lv  ߅ Ĝ<R* I W = PȱQ&PJJJJHȱPHȱPIhh  @ ` ֚ *LM W ȑȩȱ Hh  + ` ֚ *F W ȩȩȥȥ `  0  u d`E cADZѸL轏 HH`OPENCLOSEWRITEPUTD0 s a aj ahjh aXhf af a *LM I ȩ    ħ Q `L s a     Y:X,X8Y8:Y,Y8X:Y,Y8X8:Y023:" ANOTHER GAME ? ";:NU$:(NU$)89Ĉ:::n:180:150::1906:13,2537:16,3713:16,3725:6:Y1736:14,24Y:S0:Y17352:23,24Y:z11,137:5,912:25,276:25,278190X,X8Y:X,X8Y12:Y,Y12X:Y,Y12X8:6:ZX1X7:Y1,Y11Z::0:6:ZX1X7:Y1,Y11Z::#&X,X8: ::0D1(HH$):(HH$,D,1);:774:6|23:" PRESS SPACE BAR TO BEGIN...........";:ST$:(ST$)" "460::2:X039:0,39X::0:X1:Y1:530:X15:0:530:X29:0:530X1:Y17:550:Y29:550:X29:550:Y17:550613,251RECT ANSWERS. WATCH":GG$"OUT !!!! ONE WRONG ANSWER AND THE TANK":HH$"GOES DRY."|r4:15:D1(DD$):(DD$,D,1);:774:|9:5:D1(EE$):(EE$,D,1);:774:::D1(FF$):(FF$,D,1);:774:::D1(GG$):(GG$,D,1);:774ADDING MACHINE":BB$"BY GARY E. LEONARD"]J7:9:D1(AA$):(AA$,D,1);:774:DD150::T12:11:D1(BB$):(BB$,D,1);:774:DD1100::^D11000:Qh:DD$"INSTRUCTIONS:":EE$"TRY TO FILL THE MACHINE'S TANK BY":FF$"GETTING ALL THE CORYOU WIN";:774:DD1300::R":23:16::"YOU WIN";:D120:(7);::::560k,S768808:P:S,P:60,0,12,0,0,0,160,0,238,0,3,238,1,3,174,2,3,173,48,192,136,208,10,206,0,3,208,5,206,1,3,240,5,202,240,234,208,238,96,0,0(@:::AA$"THE BIG 57İ170:220dN(N$):6:X29:Y1:540:9:AA0:X32:Y3:N20,30,40,50,60,70,80,90,100:N0İ110sNLM260A1:B2:X29:D18:130::180:150:200A12:B2:X1:D18:130::160:UP20280150:190D116:774:774::23:D)",22Z::UP0:7 L((1)10):M((1)10):LM9190t 1:AA0:X4:Y3:L20,30,40,50,60,70,80,90,100:L0İ110 2:AA0:X18:M20,30,40,50,60,70,80,90,100:M0İ110 12:X32:120:16384,0:16368,0:23:15:"HOW MANY ? ";:N$:(N$)48(N$)1824:A:X1,X7Y:B:X1,X7Y12::774:CB:BA:AC^ B:Y1824:X1,X7Y12::774: X1:Y1:540:X15:540:X29:540: 12:D12:UPUP1:14,2237UP:: S16336:D110:SN(S)(S)(S)(S):: 6:Z1736:D113:774::14,X3Y:X,X3Y3:AA:Y,Y3X1:Y1,Y2X2:Y4,Y8X2: nY,Y8X:Y,Y8X3:X,X3Y:X,X3Y8:AA:Y,Y8X1:Y1,Y7X2: xY,Y1X:Y4,Y6X:Y,Y4X3:X,Y8:X,X3Y:X,X3Y4:AA:Y,Y1X1:Y4,Y6X1:Y1,Y3X2:X1,Y8:7 Y8:Q FY,Y8X:Y5,Y8X3:X,X3Y5:X,X3Y8:AA:Y,Y8X1:Y6,Y7X2: PY,Y8X3:X,X3Y:AA:Y1,Y8X2:X1,Y: ZY,Y8X:Y,Y8X3:X,X3Y:X,X3Y4:X,X3Y8:AA:Y,Y8X1:Y1,Y3X2:Y5,Y7X2:< dY,Y3X:Y,Y8X3:XX,X3Y:X,X3Y4:X,X3Y8:AA:Y1,Y3X2:Y5,Y7X2:X1,Y:X1,Y4:X1,Y8: 2Y,Y4X:Y,Y8X3:X,X3Y4:AA:Y,Y4X1:Y,Y3X2:Y5,Y8X2: <Y,Y4X:Y4,Y8X3:X,X3Y:X,X3Y4:X,X3Y8:AA:Y,Y4X1:Y5,Y7X2:X1,Yo Z THE BIG ADDING MACHINE BY GARY E LEONARD CALL -A.P.P.L.E. : OCT. 1983 c 300Y,Y8X2:AA:Y,Y8X1:Y,Y1X:Y,Y4X3:Y4,Y8X:X,X3Y:X,X3Y4:X,X3Y8:AA:Y,Y1X1:Y1,Y3X2:Y4,Y8X1:W (Y,Y8X3:     ĠؠĠؠóԠƍӍԠЍðƍРÍŠōŠЍӍԠ Ӡ ðɠǍðōҍҍӍǠЍЍӍӠؠؠ ÍҠԍàҠԍĹҠԍРҍҠ 䍠 ðӍӍԠҠԠ 䍠ɠԠ ðčȍč̍  ҠԍčҠԍ Ҡԍ ҠԍРҍŠŠ àǠ 䍠Ǡ 䍠Р ЍѠЍЍ̍ЍȍӍР Ǡ ˠР 俍ѠЍРà ҿѠōҠԍҠ̍čȍč΍̍΍ȍӍРР Π Ġ Ƞ č̍ǍРƍѠˠ РñàˍРӠˍ 占 占Ġ 占ƍԍԍԍōԍƍҍ°ҍ±Ԡ÷Ǡƴà ԠčǠưРԍڠؠƠ Ԡؠ Ǡؠ Ԡ 䍠 ԠԠ Р ͠ Ǡ̠ȠȠĠ ֠ŠȠƠ  Ԡ Ү ЮЮ̮Ů      LO@H )=*+ԍ>?̍hH762hH۰h HhHəɌW 67:67h`hHLL {67h`L76 hH  Lf LfHh` 0`Ɍ(`0jj(` N TO DISK":: 6 ::"TRACK "TR", SECTOR "SE;:| 110::::"OK TO WRITE TO DISK [Y/N] ";::A$:A$"Y"ġ::210 0 E3 3 20 B5 B7 90 5 AD F5 B7 85 5 A9 0 85 48 60": RELOCATABLE CODE; IF CHANGED, BE SURE TO CHANGE CALL IN LINE 300 HEX$HEX$" N D9C6G":I1(HEX$):511I,((HEX$,I))128::72,0:144:: S H LAM ROUTINE 2500:" READ ": 2500:" WRITTE SECTOR BACK TO DISK OR CONTINUE EDITING":5 b1000n l::"CONTINUE EDIT OR RETURN TO PROGRAM [E/R]";:A$ vA$"E"610:210: :: HEX$"":1:51,170:64874:I1239:CHR(511I):CHR1411510:HEX$HEX$(CHR128)::1510u HEX$"300:2K VIA RWTS ; 6(5)ĺ:"SORRY, ERROR "(5)" OCCURED":: Z CM2000,2010::CM2Ā: + X"SECTOR WAS LOADED AT $2000.20FF AND MAY NOW BE EXAMINED AND MODIFIED WITH ANY MONITOR COMMAND. YOU WILL BE RETURNED TOBASIC AFTER EACH EDIT AND MAY WRITE THE QUIT [0] READ [1] WRITE [2] ";:CM$:CM(CM$):CM0800:CM23000:CM1CM2210b IO12,CM BU8192:IO8,BU256(BU256):IO9,BU256: [BU]FFER MAY BE CHANGED TO ANY AVAILABLE MEMORY LOCATION IO3,0:5,0:ERR CODE ,768: ACCESS DIS\ QUICK ZAPPER BY STOWE KELLER AND VAL J GOLDING CALL -A.P.P.L.E. : OCT. 1983 qd:1500:IO47080n"USE DECIMAL VALUES"::" TRACK? ";TR:TR0ĺ:"ABORTED":x"SECTOR? ";SE:CM2ı: IO4,TR:IO5,S