' +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` & ONE WHITE, WILL APPEAR WHEN"P "YOU PLOT A COLORED FIGURE ON ITS COMPLE-";|0 "MENT. THE DEMO CONSISTS OF VERTICAL"D "BANDS OF VARYING WIDTH."X :"DO NOT USE A BLACK OR WHITE BACKGROUND!"l 7 CC1:C3C7CC2 K1:H1:C::26:C3C42300,C:Y030:X,YX20,Y:IY130160:X,YX20,Y:gXXX204:X,30X,130:rH:C;XX4:HH4C:X169:H26: :  DEMO 3: B/W BANDS  "THIS DEMONSTRATES THAT VERTICAL LINES," "ONE BLACKES5 "THIS DEMO SHOWS THAT SPOTS PLOTTED IN"`"THE COLOR MASK HOLES DO NOT APPEAR.""IT CONSISTS OF PLOTTING THE SAME FIGURE""ACROSS THE SCREEN, WITH VARYING COLORS." 4:\:22:X0:H2:8:21:18:"COLOR";IX01:C1M.":#8"THE CONTROLS ARE: TINT"4L19:"COLOR"H`19:"CONTRAST"^t19:"BRIGHTNESS"e4y::21:X0:H1C16:C41280C:Y130160:X,YX35,Y:H:HC$(C);XX56:HH8: DEMO 2: COLOR MASK HOL:X(X$):X27400;(X8X13X21)ĺG$;:1:660PNN(X21)(X8)aN1N9N1j560p DEMO 1: COLOR ADJUST$"THIS DEMO ALLOWS YOU TO ADJUST THE COLOR";)"CONTROLS ON YOUR SET, AND TO EXPERIMENT"."WITH THEMO NO.? ";:X$:N(X$):NĺX$G$:520+ = ! SELECT DEMOC &q 0:L$:"DEMO NO. "N" -- "T$(N1)::L$:8 DN1000,2000,3000,4000,5000,6000,7000,8000,9000 X l COMMAND PROCESSING  24:".... -> .... ESC .... RTN.... <- ....";:X$ "BLACK","GREEN","VIOLET","WHITE"E h "BLACK","RED","BLUE","WHITE"\ |C$(1)" (CSB SET)"b z  TABLE OF CONTENTS  :6 11:"TABLE OF CONTENTS" 11:(L$,17):: "DEMO"4)"TOPIC": I19:I"."6)T$(I1):% 21::"DE8:T$(I): "COLOR ADJUSTMENT.","COLOR MASK HOLES.","WHEN COLOR = BLACK/WHITE.","POSITION & SIZE EFFECTS.","PROBLEMS WITH THE CSB.","SHAPES AND THE CSB.","SEVEN BIT LINES." ,"SCREEN EDGE EFFECTS.","A MORE COLORFUL APPLE" @I07:HC$(I):! T  n COMMAND MENU xI :8:32,8:15:"COMMANDS":7:"--------":y "->"9)"NEXT DEMO":"<-"9)"PREVIOUS DEMO" "RTN"9)"REPEAT DEMO":"ESC"9)"DEMO LIST":32,0:4 INITIALIZATION I140:L$L$"-": G$(7) I062454:BCC:7 " EVEN COLUMNS";:27:"ODD COLUMNS": 3:96,Y103,Y:99,Y399,Y3:100,Y3100,Y3:177,Y1183,Y1:177,Y1183,Y1: C:40,Y80,Y:40,Y180,Y1:200,Y240,Y:200,Y1240,Y1 C1:120,Y2160,Y2:200,Y2240,Y2: d(? COLOR ME APPLE DEMO CALL -A.P.P.L.E. : NOV. 1982 J16384S100e SUBROUTINES:24:9:"(ANY KEY TO CONTINUE)";:X$::"COLOR (0-7)? ";:X$:C(X$):C7ĺX$G$:5HC$(C)C$(C3):C: 21:"BACKGROUND ";:5::0,0:     :"OF DOS UNTIL YOU REBOOT"! h T$T$" ND9C6G":J1(T$):511J,((T$,J,1))128::72,0:144:5 A2 03 8E BB B5 CA 8E BC B5 AD 6C AA 8D C1 B5 38 6D 72 AA 85 50 AD 6D AA 8D C2 B5 6D 73 AA 85 51 AD 72 AA 85 85 AD 73 AA 85 86 A9 00 A8 91 85 E6 85 D0 02 E6 86 A6 85 E4 50 D0 F2 A6 86 E4 51 D0 EC 4C 85 A3" 500::"LTXT IS LOADED AND WILL REMAIN PART"i5d LTXT BY R.D. PURVES dnT$"A884:4C 54 58": CHANGE INIT TO LTXTxT$T$" NA909:20 7F": ALLOW PARMS A,L,B,R,S,D,V; DISALLOW NEW-FILE CREATIONT$T$" N9D1E:8D AE":ADDRESS-1 OF PATCH500 T$"AE8E:20 26 A  ;?;;???7---- - - -)) )--->???;?;;?;;???7----)))) ) )--->????;;;;???7)------------------:??????????????????7------------------->??????????????????7---- )--->????;???????7----)----)- )-)--->????;;???????7----)--: reverse the order of bits 0->6< n:"Name of font? ";A$v xD$;"BSAVE";A$;".SF,A$2000,L$400": save font to disk :A$;".SF saved to disk" A save the last 768 bytes from the ROM file)T <D$;"BSAVE NORMAL CHAR,A$2500,L$300" FD$;"BLOAD NORMAL.SF,A$2000": for its front end PD$;"BLOAD NORMAL CHAR,A$2100": substitute our ROM code instead of font code ZD$"DELETE NORMAL CHAR"! d768embly language program)Y  NORMAL.SF (so we can use its front end. Any font would do)  ROM FILE (that we have downloaded from a Character Generator ROM) D$;"BLOAD INVERTER" (::"Name of ROM file? ";A$+ 2D$;"BLOAD";A$;".CGR,A$2000": $Y1201403$10&$:Y130:9 ING".x#"MORE THAN 4 COLORS IN HI-RES MODE."L#21:"FIRST ";:5::C1C_#"SECOND ";:5n#Y20402#C1:40,Y80,Y:200,Y240,Y#C:120,Y1160,Y1:200,Y1240,Y1#:Y30:9$Y70903@$10T$:Y80:9|$CCC:CC1:C1CC: SCREEN EDGE^@h"DEMONSTRATION OF 'GHOST' SPOTS CAUSED"R|"BY THE CSB"Y7bY15|C17:CC(CBCC7)CX267279:X,YX,Y10:YY12: (#<# DEMO 9: MORE COLORSP#d#"DEMONSTRATES THE METHOD OF CREATX l DEMO 7: 7 BIT LINES%O"SHOWS THAT 7 BIT WIDE LINES CHANGE"h"WIDTH WITH COLOR."o4:Y0:X156:X2217C16:CC(C4)C I06:X1I,YX1I,Y32:X2I,YX2I,Y32: YY33:4:21:8@ T DEMO 8 DEMO 6: CSB SHAPE QUIRKS#P"THIS DEMO SHOWS THE EFFECT OF THE CSB"m"WHEN PLOTTING SHAPES."t7X0:H3::21C07:CBC6220C$I027:XI,150XI,150I:8XX42:H:C;:HH6L`22:17:"HCOLOR"T WIDE"/"ARE PLOTTED WITH VARYING COLORS."6(7UP0:Y120140:0,Y279,Y:rd3:YY160:0,Y279,Y:xX6:H1::21:C07:CBC5300C:X,0X,160:181X,0181X,160H:C;:26H:C;:XX14:HH2:17:"HCOLOR"8pMAKES THEM";&"SEEM TO BE OFFSET."-,45@Y0KT:C16:C4C5RhCo|X140141:X,YX,Y31:|YY32:: DEMO 5: CSB QUIRKS"THIS IS A DEMONSTRATION OF PROBLEMS WITH";"THE CSB. VERTICAL LINES ONE SPO1 I69020M XIIK1:X,20X,140:279X(I6),20279X(I6),140:u H:K;:40H(K16):K;:K2K:HH3 ::8 DEMO 4: POSITION & SIZE"IN THIS DEMO TWO ADJACENT VERTICAL LINES"; "ARE DRAWN. THE CHANGING COLOR pLL8g尅 gh@ LʅM˅ ʅ˅ 0` 6d INPUT ANYTHING BY R.D. PURVES Un USAGE:- CALL INPT,SVAR$ xINPT768::JINPTINPT27:K:J,K::32,190,222,32,227,223,32,108,221,133,133,132,134,32,111,253,32,57,213,200,162,141,32,233,227,76,154,218  ) ) ) -  - ) )))); -)) );)) ;)) ;) ) ) ;;) ))--) ) )-  ) -  )-;) ;?) ) - )--  ;  - ) );?) ) -  - ) )?? );)-  - ;? ) >??7-)) -  ) ;?)--:??7)--;? ) ) -:??7--->??7)--;? )  ) ;?)--:??7-)) - ) -:)) >)) >) - ?7-- - - )->??7-- ) ) - ) - )->?;;?7-- ) ) )->??;;;?7 - ) -) ) -  ) ? )  )  -  -  );?) )--)-- ; ) -  ; ;)--; )-------:??????????????????7------------------->??7-- ) )->?;?;??7-- ) ) ) ) ) ) )->?;;;;;;?7-- ) ) ) ) ) ) ) )->?;?;??7-- ) ) ) ) ) ) )->?;;;;?7-- ) ) - ) ) )->?;?;???????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7)------------- - )--->???;??????7---- ) -) )--->???;;????7---- - )-- )) )--->???;;;;;;???7)------------------:??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????????7------------------->??????????????????7---- )--->???;???????7----)--- -- )--->???;?;;????????7----)--- -- )--->???;?;;????????7----)--- ) -)- )--->???;??;???????7----)-- )))--->?????????7---- - - ---) -)--->????;;;;;??????7----)--- )- -)--->??????????7----) --) )))--->???;;;;???7----) ) )--->???????7----) - )) ) -)--->???;?;???7---- ) ) ) - )--->?????;?;????7)------------------:????????ͱ΍ŠͲàΫɠԍͲà΍àԍŠͳàԫͳԩٍРҍŠͱҍԩٍŠͱԠӍԠƍҍҍҍŠǍԠčàԍ΍īàԫΫԍԍԫԫ΍ҍҍҍǠ٠ÍŠԍ ì Ӎ Ű ԍ ȍčàԍ΍īàīΫԍԍԫԫ΍ĠƍΠҠčԠΠҠҠǠ ҍÍƵ΍ƶ΍Ʒ ōΠÍРŰ Ԡ ЮЮ̮Ů ԠԠĠÍΠðҠčԠ    = l݅)  L"C"ĺ(4)"CATALOG"# R$:R$2950g 20:1:"Type in Transliteration ":"when screen clears."| (4)"BLOAD";FF$ W1 (FF$,2)"SM"T1:(FF$,2)"SF"T1 I11000:I SC$"" 3210 20:1:"Type in Transliteration  A$A$IN$^ 2410!_ B$""9` (F$,2)"LF"2920?c Sd (4)"BLOAD";H$Ye dh (12)lm U0to T0r 20:1:"Another Font?";AF$| (AF$,1)"Y"3010 (12):20 "Which Font?";FF$ (FF$)22994 FF$""3010 FF$ vR$:R$1210; 20:1:"Type in inscription "V "when screen clears."j >(4)"BLOAD";F$v W0:V0 I11000:I IN$""  (12) j IN$ (IN$)13U1 V0U12912 2 IN$; < I$IN$ 9310 IN$I$ I$"": 15:"GOOD LUCK!"9 X(16384):X1281200G 16368,0O X0Z (12)v F$"":A$"":B$"":C$"" FF$"":G$"":H$"" FH$"SMALL FONTS.F" 20 "Which Font?";F$ J(F$)22010 F$""2110 F$"C"ĺ(4)"CATALOG"." 5 "To shift subfonts type shift-control-"b "M and then a number: 1 = regular; 2 =" "subfont 2; 3 = subfont 3; 4 = medium" "or large font. 5 = Unassigned."  "DON'T HIT RETURN until you have" "finished your input." t"you to input inscriptions and to save"W y"them for later printing on a printer" ~"such as use Computer Station Graphic" "disks. When asked for the font, you" "may type 'C' to see the catalog or hit" "return if font is already in (12) 610 107 "INSCRIPTION WRITER"= bC lQ 18:"By"W *q 12:"Donal Buchanan" X(16384):X1281010 16368,0 [X0 `(12) e4:14:"INSTRUCTIONS" j o" This program is designed to permit"+r  ̠`  L j1 >?  j >?  j >i?h3LgLFȱة LLҠϠŠȠǺҠԠӺҠĠӺĠԠԠƍРؠԠǠΠǠҠٍ̠àҠŠҠŠÍàҫàٍŠ̍٠٠ԠԠҠҠԠƠǠŠРĠŠҠԠԠԠ Ơ٠ԠΠҠؠŠӠŠЭҮѠԠĠƠҠРĠҠŠΠѠԍٍŠЍؠЭҮҠԍؠƠĠӠčō٠ҠҠՠӠƠΠٍǠՠΠǍǠ̠Ҡ̠Ҡ͠ҠԍҠҠҠƠԠǤԍ٠ԫŠҠƠҍ٠Рҩ٠ĠҠĠ ҩ 獪͠ՠŠˠҠԠՠųĠŠҠՠĶàˠҠǤԠՠųŹŭǠĠՠŠҍԠՠ  Ү Į ЮЮ̮Ů      ԍčҠ ÍҠРԍŠà Ǻűà ӺŲà ӺԠƍ 占Р̍ŠԱčÍàР̫àԱ ԍРڠ ԱÍŠȍàčРȍĠٍéٍٍРōŠԍ 占ҠŲ؍Ҡԍ؍ؠŠԲҠ΍٠Ҡ͍ Ž ý Žč čҠԍ٠ȠéٍРƠ 忍ѠčԠàà àҠ͍̠ 占Š፠̫ƍؠ Աű؍Ҡԍ؍ؠŠԱҠ΍٠Ҡ͍̍Í̫čؠ ԲƿѠčӍĠԠ Ԡ 占àȠ ؠԠŬؠ 占Ҡԍ؍ؠŠԍҠ΍ƍŠ Ţ٠ŠԠ̠̠ōڠĶΠĶԠč͠Ǡİ ̠ Π΢̫РΠҠı  Р Ԡ ЮЮ̮Ů ԠȠHASH(HA$)@)_}(222)6ĉ::12:5::(7)"NO CODE FILE"::SD$"OPEN DB.CODES":I0:570e2}AE DB.CODES" I4 J1I:CODE$(J):HASH%(J):JM SD$"CLOSE DB.CODES"V 570\ } ) ***.HASHING ALGORITH.**** )HO((CD$,1))((CD$,1)) )HI((CD$,2,1))((CD$,3,1)) ")HOHOHO:HIHIHI:HTHOHI ,)HA$(HT):HA$(HA$,2,2) 6)10500: HASH THE CODE# qI0650m vJ1I:HASH%(J)HASHĢ23::(7)"CODE CONFLICT!!"::Z1500:Z:600t J IMAXĉ::23::(7)"NO MORE ROOM!!!"::1000 CODE$(I1)CD$:HASH%(I1)HASH:II1 600 SD$"OPEN DB.CODES" SD$"WRITODE"15)"HASH VALUE":5)"----"15)"----------"Y JJ1I:5);CODE$(J);15);HASH%(J):J N23:"HIT ANY KEY TO CONTINUE":A$:570 X::12:5:"CODE ?";CD$ YCD$"?"1000 ](CD$)0600 ^(CD$)4620 bK1(4(CD$)):CD$CD$" ":K lAD DB.CODES"" I: RECORD COUNTD &J1I:CODE$(J):HASH%(J):J] 0SD$"CLOSE DB.CODES" :::12:5:"SELECT ONE OPTION:" D::20:"1) ADD CODES":20:"2) LIST CODES":20:"3) EXIT" FO:O1O2O3570 HO600,585,1050/ I::5)"CMAX25! ,CODE$(MAX),HASH%(MAX)\ ::12:10)"CODE CHECKER":::5)"COPYRIGHT (1982)" 5)"CRITERION SYSTEMS":5)"586 KENT LANE":5)"SHOREVIEW,MN 55112" Z11000:Z 32000 SD$"VERIFY DB.CODES" SD$"OPEN DB.CODES" SD$"REf+ THIS PROGRAM IS USED IN CONJUNCTIONS WITH THE 'MONEY MANAGER' PROGRAM. THIS PROGRAM CHECKS THE CODES WHICH ARE( TO BE USED IN THE 'CODE' FIELD OF THE2 'MONEY MANAGER' FOR CONFLICTS.dSD$(13)(4)SD$"NOMON C,I,O"      1)"Y"Ā23%"Filename?";G$J(4)"BSAVE";G$;",A$2000,L$2000"UJ10310s SECOND SHIFT FONT GOSUB{ Z0v I$(29)X1 I$(29)Y1>!Y1ı!X0ı"I$"1"ĺ(18);:772,28j"I$"2"ĺ(18);:772,24 "I$"3"ĺ(18)%|IO$"2"(B$,I1,1)(29)IO$""KIO$"3"(B$,I1,1)(29)IO$""qIO$"4"(B$,I1,1)(29)IO$""IO$"5"(B$,I1,1)(29)IO$""IO$;IX10250]W1ĺ(18)bC$23V"Save?";N$ (N$,):6010yW1ĺ(17)#zN(B$).I1N6BY0HIO$(B$,I,1)SI$IO$] 8110knY16910yX169106Z1I$""@CH(36)ECH39ĺ::36,0^I0$I$bV16810cIO$(29)IO$""wIO$"1"(B$,I1,1)(29)IO$""pU0N(A$).I1N&Y08PT$(A$,I,1)CI$PT$MZ8110[Y15710i"X15710xZ1I$""CH(36)CH39ĺ::36,0PT$I$PT$;NI pW06010tu(4)"BLOAD";FF$vwT1ĺ(18A10250FW1ĺ(18)Y20:1:"Type in Translation ":"when screen clears."jI11000:Iu(12)RI$"""U0rRI$|(RI$)13U1U14710:RI$;C$C$RI$4210fh(4)"BLOAD";F$ik(12)":"when screen clears."  V1+ SC$""<& I11000:IG (12)W S$"":I$""a B$""l SC$""u SC$ (SC$)13U1R V1U13900\ W1U13900 SC$; I$SC$9310$SC$I$.I$""~B$B$SC$3310< sotp`ɭ `LL { ɫ ޥ!ɯɭ bL٠} ȱ ٠`8`ESLE`AA24LL0LLMMāFF1LL:HH$;:FF:" ";(8);:T$"":60050N>AA24ī60050[>dC$(AA)h>nT$T$C$q>C$;|>60050;>60050(8AA24ĺ(7);(7);(7);:60050G=AA21AA((36)(40)(41)256)]=AA8LL160080=AA8LLMMĺ(8);:T$(T$,LL1):60050=AA8T$(T$,LL1):HH$;:60050=AA8LLT$"":HH$;:60050=AA8ĺ" ";(8);:60050=AA13ĺ"":<>}(222)6Ģ12:5::(7)"FILE NOT FOUND"::Z1500:Zy<}(222)4Ģ12:5::(7)"DISC WRITE PROTECTED"::Z1500:Z<}(222)5ij< }216,0:2000<`HH$(8):HH$" "HH$HH$:+LD%PD%:PD%ND%(PD%)^8H+PD%011060n8M+RC1:120008R+CSC%(0)NC%(SC%(0))0İ13000:NC%(SC%(0))AC%:AC%SC%(0):SC%(0)0:120009S+CSC%(0)İ13000:TEMPNC%(SC%(0)):NC%(SC%(0))AC%:AC%SC%(0):SC** 7+SD%(0)0ıa7 +CSD%(0)ND%(SD%(0))0İ13000:ND%(SD%(0))AD%:AD%SD%(0):SD%(0)0:110907+CSD%(0)İ13000:TEMPND%(SD%(0)):ND%(SD%(0))AD%:AD%SD%(0):SD%(0)TEMP:110907 +ND%(SD%(0))0RC1:120007*+LD%SD%(0):PD%ND%(SD%(0))384+CPD%İRES%SUC%:10120)6'HFLAG1SC%(HASH)C/6'Q6) ***.HASHING ALGORITHM.*** p6)HO((KD$,1))((KD$,1))6)HI((KD$,2,1))((KD$,3,1))6")HOHOHO:HIHIHI:HTHOHI6,)HA$(HT):HA$(HA$,2,2)66)HASH(HA$)6@)7* ***.DELETE ROUTINE.*(0)),28,4))NC%(C)SC%(0):SC%(0)C:HFLAG1:10145^5y'SC%(HASH)0PRES%SC%(0):HFLAG1:10120j5z'HFLAG0~5~'PRES%SC%(HASH)5'SUC%NC%(PRES%)5'SUC%0NC%(PRES%)C:NC%(C)0:101455'(CC$)((B$(SUC%),28,4))NC%(PRES%)C:NC%(C)SUC%:101456'P'SUC%0ND%(PRES%)C:ND%(C)0:10085b4V'(K$)((B$(SUC%),4))ND%(PRES%)C:ND%(C)SUC%:10085x4`'PRES%SUC%:100504e'HFLAG1SD%(((K$,2)))C4f'KD$CC$:10500: HASH THE KEY4j'SC%(0)0NC%(C)0:SC%(0)C:HFLAG1:1014515t'(CC$)((B$(SC%$3'AUDIT1RFWD0İ5100J3$'SD%(0)0ND%(C)0:SD%(0)C:HFLAG1:100853.'(K$)((B$(SD%(0)),4))ND%(C)SD%(0):SD%(0)C:HFLAG1:1008533'SD%(((K$,2)))0PRES%SD%(0):HFLAG1:1005034'HFLAG038'PRES%SD%(((K$,2)))3B'SUC%ND%(PRES%)%4L&R$R$AA$'2&AC$""R$R$FF$:992452&R$R$AC$D2&B$(C)R$:2&22:10:(7);(7);::"CANNOT CHANGE KEY!!!"::I11000:I:RC1:2' ****.GET NEXT RECORD.**** 2'CAD%:C0ĺ"NO ROOM TO ADD!":RC1:2'AD%ND%(C):AC%AD%:RC0:3'B$(C)RFOUND0CND%(C):98401&;1& ***.CHANGE ROUTINE.*** E1&R$""a1&MM$""R$R$FM$:9914k1&99251&DD$""R$R$FD$:99161&99251&II$""R$R$FI$:99181&R$R$II$1&CC$""R$R$FC$:99201&99251&AA$""R$R$FA$:9922 2$(C),3,2):FC$(B$(C),28,4):FA$(B$(C),32,7):FF$(B$(C),39,2):FI$(B$(C),5,23):FOUND1j0&HASH098950&OHASHHASH:KD$FC$:10500: HASH THE CODE0&HASHOHASHRC1:99000&FOUND0M0CND%(C):98400&FOUND0HASH0CNC%(C):98401&"(B$(C),2)MM$RC1:9900A/&DD$""(B$(C),3,2)DD$ī9891o/&FC$(B$(C),28,4):CC$""FC$CC$ī9891/&AA$""(B$(C),32,7)AA$ī9891/&AC$""(B$(C),39,2)AC$ī9891/&II$""(B$(C),5,(II$))II$ī9891Y0&FM$(B$(C),2):FD$(B""Ģ17:16:AC$).%(AC$)2FCT19680/.%M.H& ***.SEARCH ROUTINE.*** f.R&M0CSD%(M):9840.\&HASH0CSC%(HASH):9840.f&CSD%(0).p&C0RC1:9900.q&FOUND0.r&(AA$,3)".00"AA$"": NULL OUT AMOUNT IF NOTHING ENTERED/z&MM$"AMOUNT.-%(AA$)7ĺ(7):AA$" ":9640A-%(AA$)79675d-%I1(7(AA$)):AA$" "AA$:I}-%T$""Ģ15:17:AA$-%(AA$)7FCT19640-%17:16:AC$;:16:MM2:60020-%T$""AC$T$-%(AC$)2(AC$)09715-%AC$AC$" ".%T$я%(CC$)3CC$CC$" ":96359,%(CC$)3(CC$)09635\,%I1(4(CC$)):CC$CC$" ":Iu,%T$""Ģ13:16:CC$,%(CC$)4FCT19600,%I1(CC$):(CC$,I,1)" "9600:I,%15:17:AA$;:17:MM7:60020,%T$""AA$T$-%15000: FORMAT +X%11:16:II$;:16:MM23:600204+b%T$""II$T$U+g%(II$)22II$II$" ":9595r+l%(II$)22(II$)09595+v%I1(23(II$)):II$II$" ":+{%T$""Ģ11:16:II$+|%(II$)23FCT19560+%13:16:CC$;:16:MM4:60020+%T$""CC$T$,MM$"0"MM$$*+%T$""Ģ7:16:MM$E*0%9:16:DD$;:16:MM2:60020X*:%T$""DD$T$r*D%(DD$)1DD$"0"DD$*I%T$""Ģ9:16:DD$*K%K$MM$DD$*N%FCT19560: SKIP CHECKS IF NOT ADD*O%(K$)49490*P%I1(K$):(K$,I,1)" "9490:I!5)"AMOUNT"15);::"<";::"$ ";::">":f)$17:5)"ACCOUNT"15);::"<";::" ";:::">":l)$)$5:16:YY$;:16:T$"":MM4:60020)%T$""YY$T$) %T$""Ģ5:16:YY$)%7:16:MM$;:16:MM2:60020)%T$""MM$T$ *&%(MM$)1";::" ";::">":I($7:5)"MONTH"15);::"<";::" ";:::">":z($9:5)"DAY"15);::"<";::" ";:::">":($11:5)"ITEM"15);::"<";::" ";::">":($13:5)"CODE"15);::"<";::" ";::">":0)$15:2000: START MAINLINEC'# ********.TIME.******************* v'#::"INPUT DATE AND TIME(MM/DD HH;MM)":TI$:'T$RECREC1'^$23:" ":"RECORDS USED="NUM5)"RECORDS LEFT="REC:($5:5)"YEAR"15);::"R$""4665 C10000: GET NEXT RECORD M10010:NUMNUM1:RECREC1: INSERT W4665 \768,R$ aR$""ı+!fK$(R$,4):II$(R$,5,23A$TS$""TS$TI$!5000HSD$"VERIFY LOG."TI$",S"SA$",D"DA$m*SD$"OPEN LOG."TI$",S"SA$",D"DA$/SD$"READ LOG."TI$4RFWD1649007768,TI$L 8T1$(TI$,2)(TI$,4,2)(TI$,7,2)(TI$,2):T2$(TS$,2)(TS$,4,2)(TS$,7,2)(TS$$ RECRECNUM1:9300# 20307 ***.EXIT.*** L ::23:"BYE":p ******.ROLL FORWARD.******** vh11)"R O L L F O R W A R D":17)"****"10:5:"DATE/TIME (MM/DD HH;MM)";TI$011:16:"SLOT?";SA$12:16:"DRIVE?";D SD$"RENAME DB."FF$",DB."FF$",S"SL$",D"DR$P SD$"OPEN DB."FF$",S"SL$",D"DR$f SD$"READ DB."FF$ YY$:NUM:AD%:I012:SD%(I):I:AC%:I099:SC%(I):I I1MAX:ND%(I):NC%(I): I1MAX:768,B$(I): 768,TS$ SD$"CLOSE DB."FF DB."FF$> 2030&H ***.LOAD.*** QR :11)"L O A D M E N U":17)"****"\ 5:5)"FILE"15);::"<";::" ";::">":f 5:16:FF$YY$:FF$;:MM8:60020p T$""FF$FF$T$z 32000 10:16:"SLOT";SL$:11:16:"DRIVE";DR$,"DATE/TIME(MM/DD HH;MM)";TS$4 T$""FF$FF$T$X SD$"OPEN DB."FF$",S"SL$",D"DR$^ u SD$"WRITE DB."FF$ YY$:NUM:AD%:I012:SD%(I):I:AC%:I099:SC%(I):I I1MAX:ND%(I):NC%(I):* I1MAX:B$(I):/ TS$4 SD$"CLOSE0IND%(I):3230* SD$"PR#0":SD$:2030> ***.SAVE.*** j :11)"S A V E M E N U":17)"****" 5:5)"FILE"15);::"<";::" ";::">": 5:16:FF$YY$:FF$;:MM8:60020 10:16:"SLOT";SL$:11:16:"DRIVE";DR$ 12:10:(I):I0IND%(I):3180Ov "NC%("J")= "NC%(J);15)B$(J):J0JNC%(J):3190r I112:"SD%("I")= "SD%(I):I I199:SC%(I)0ĺ"SC%("I")= "SC%(I) I:"AD%= "AD%;10)"AC%= "AC%:IAD%:JAC% B$(I)""ĺ"ND%("I")="ND%(I);15)B$(I) ID$"PR#1":35)"DEBUG"N "PROGRAM SIZE= "((175)(176)256)((103)(104)256):"FREE SPACE= "((111)(112)256)((109)(110)256)X "NUM= "NUM;5)"REC= "RECb "SD%(0)= "SD%(0)5)"SC%(0)= "SC%(0):ISD%(0):JSC%(0)l "ND%("I")="ND%(I);15)B$0ī2850 3060! 9310:2030D 22:(7);"ARE YOU SURE?";:A$q (A$,1)"Y"(A$,1)"N"(A$)133070 (A$,1)"N"3060 RC0:11000: DELETE IT& RC0NUMNUM1:RECREC1:B$(C)"?":93100 3060: ***.DEBUG.*** D :SD$:S :MM$"":DD$"":CC$"":II$"":AA$"":AC$"":M0:HASH0:9400:9470m MM$""M(M$):CND%(C):9840:2940 CC$""KD$CC$:10500:CNC%(C):9840:2940 CND%(C):9840:2940 MM$"":DD$"":II$"":CC$"":AA$"":AC$"":RC0:9470:9910 RCϺFD$:11:16:FI$:13:16:FC$:15:17:FA$:17:16:FF$ 18:5)"1-CONTINUE SEARCH"24)"2-CHANGE A FIELD":5)"3-DELETE RECORD"24)"4-MAIN MENU" 21:18);:::"<";::"?";::">"::21:19:A$:A(A$):(A$)132970 A2990,3030,3070,3060C9)"F I N D M E N U":17)"****",6 9400Z@ MM$"":DD$"":CC$"":II$"":AA$"":AC$""dJ 9470sT M0:HASH0^ MM$""M(MM$):2930h CC$""KD$CC$:10500r RC0:9800: SEARCH FOR KEYS| RC030608 5:16:YY$:7:16:FM$:9:16:(MM$))DD$8(DD$))II$34(II$))CC$9(CC$))AC$12(AC$))AA$:2810p MM$7)DD$11)II$21)CC$26)AC$30)AA$ O$"S"(37)21ĺ"HIT ANY KEY TO CONTINUE":A$: SUMSUM(AA$) A1CND%(C):2700 CNC%(C):2700" ***.FIND.*** ", :"ĺ50)"TOTAL= "SUM:SD$"PR#0":2030_ 25)"TOTAL="SUM:"HIT ANY KEY TO CONTINUE";:A$:2030 MM$(B$(C),2):DD$(B$(C),3,2):CC$(B$(C),28,4):AA$(B$(C),32,7):AC$(B$(C),39,2) O$"S"II$(B$(C),5,9):2800 II$(B$(C),5,23)E MM$10""CSC%(0):26904n KD$CD$:10500: HASH THE KEYDx CSC%(HASH)N SUM0\ C02740 OHASHHASH:KD$(B$(C),28,4):10500:(C0)(A1((B$(C),2))M)(A2CD$""OHASHHASH)2740 (A2CD$""CD$(B$(C),28,4))2840 2760$ O$"PONTH"7)"DAY"11)"ITEM"21)"CODE"26)"AC"30)"AMOUNT":2600z "MONTH"5)"DAY"5)"ITEM"30)"CODE"5)"ACCOUNT"5)"AMOUNT"( O$"S"N40:26202 N80< L$"":I1N:L$L$"-"::L$:F A22660P M13CSD%(0):2690Z CSD%(M):2690d CD$CE LIST OF ALL RECORDS. M((MM$,2)):2540g :10:10)"WHAT CODE?";::"<";::" ";::">": 10:21:CD$"":MM4:60020 T$""CD$T$ O$"S"2560 SD$:SD$;"PR#";:SL$: O$"S"ė:18)YY$:2580 40)YY$; O$"S"ĺ"M~ 13)"1-DATE":13)"2-CODE"b 20:(30)::"<";::"?";::">"::20:31:MM1:60020:A(T$)p A22510 A1ė:10:10)"WHAT MONTH?";::"<";::" ";::">": 10:22:MM2:MM$" ":60020 T$""MM$T$ MM$" "M13:2540: FOR">":. $ O$"S":5:32:O$;:32:MM1:60020:@ . T$""O$T$Q 8 O$"S"2420` B 5:32:O$ L 10:5)"PRINTER SLOT #?";::"<";::" ";::::">": V SL$"1":10:21:SL$;:21:MM1:60020 ` T$""SL$T$ j 10:21:SL$ t 15:5)"LIST BY:",2030$  ***.ENTER THE DATA.**** A 10000: GET FREE RECORD] 10010:: INSERTk NUMNUM1u 9300 2130  ****.LIST.****   9)"L I S T M E N U":17)"****"  5:5)"LIST ON SCREEN OR PRINTER?";::"<";::" ";:: M E N U":17)"****"9 p9400:9470: DISPLAY SCREENS zR$K$II$CC$AA$AC$o 54915: CLEAN UP STACK 18:12)"1-ENTER":12)"2-MAIN MENU" 21:18);:::"<";::"?";::">"::21:19 A$:A(A$) (A$)13İ9470:2170 A2240 FORWARD"' 5:(16):YY$:7:16:MM$h *13:(30)::"<";::"?";::">"::13:31:FCT$:FCT(FCT$) 4FCT2120,2300,2850,3130,3260,3400,3560,4000 >2030 H ******.ADD.****** RREC10Ģ24:"ONLY 10 RECORDS LEFT!!!" \ f11)"A D D $;15);"LAST MODIFIED: "TS$N 5:5)"YEAR"15);::"<";::" ";::">": 7:5)"MONTH"15);:::"<";::" ";:::">": 10:10)"1- ADD":10)"2- LIST":10)"3- FIND":10)"4- DEBUG":10)"5- SAVE":10)"6- LOAD":10)"7- EXIT":10)"8-ROLL}6F MONEY MANAGER BY NELSON CAPES CALL -A.P.P.L.E. : SEPT. 1982 `90:..06/03/81.21;07rZ9000: INITI11000:I: ********.MAIN LINE.******** :35,22:93109)"M A I N M E N U":17)"****" "FILE: "FF                                   ˠŠÍÍ٠Ԡά٠άٍٍ٠ŠԍÍӍȠàȠ̠à̍Р΍̠ؠƠȠؠƠԠƍ1Í΍ΠΫΠΫÍӍΠٍҠÍĠҠٍٍҠƍ̍ȍΠ̠Š̠ȠŠȠРЍ ԠàՠðàՠðΠՠƵčˠՠƵǠÍÍ7);:772,16'f&S$"5"ĺ(17);:772,60F&T1V1W1ĺI$;:B$B$I$e&T1V1W1ĺS$;:B$B$S${&T1V1W13310&I$;:A$A$I$'S$;:A$A$S$'W0V02410' (W0ı((4)"BLOAD";H$(F(;:772,20%"I$"4"ĺ(17);:771,16A"I$"5"ĺ(17);:771,60I2#Z1Q#X0W#n^$ SHIFT FONT GOSUBxh$S$""$I$(29)ı&%I$(29)ľS$%S$"1"ĺ(18);:772,28%S$"2"ĺ(18);:772,24R&S$"3"ĺ(18);:772,20 \&S$"4"ĺ(1ŧԠƍ占Šōٍ̫٠ 占؍ŠӍҠΠ ٠ à 䍠ӍŠ٠Š ٍ̫٠ à 䍠Ӎ ōŠñ ӠƱ àԠ ̠Ơ ϠРƠ 卪 ̺ ō̠٠ ̱٠Š 占ؠӠРŭؠ̫٠ 占Ѡ̠ ƱٍРР ŠƠ ̫٠ 占Ѡ̍РƠ Š̠ àԠ ŠƱ̠Ҡ РϠ ѠϠ Π Ҡˠ ϠР 姍ŠϠ Ԡ ōٍƠ퍪ԠРƠ ѠƠ Ҡ̠ à̠ РԠ ̠Рˠ ƠҠנ ҠР Ҡ̠ ΠĹ 򩍪 Π΍͠ ͍Ӡ 썠΍ͫӫԍ Ы ԍЫӍ ὠ Π Ϡ Р  󍪍ˠð ƠĹű Ԡù Рķ  ˠĹà Ǡİ 󍪍ӠƠ ͍͠נ±ԍ̠·ԍРĠ ԠŠ ŠƠ 򍪍 󍪍РƵ Ơsotp`L  { 媨[HHȈ^ 3Ն B Yՠȹ$Ȱu ȹ L㺪ƭ (ؠ<:L Y ְL|٠88 L hh`  Ԡ Ưί ЮЮ̮Ů Ԡ    ؍ѠҍٍٍŠֳӍҠР̠Ҭ Χ ԍ ˍ̠؍Ѡٍ٠ ӍٍŠ̠Ӎ٠̫ ҍ̫Ӎ РӠ ԍҠ٠٠ ōÍà ōÍàؠ ҍ٠ֳƭ٠ ͍Ѡ ҍѠ٠ ōРΠ ΍Ѡر ύΠРԠ ԍԠҠؠ ؍ҠŠ ҍҠΠ ύӠҠ č ԍӠˠ ԍ̠РƠ ΍Š Ԡ Ӎ ԍ ԍĠ ƍرҠנ ҍҠà ̍٠̫٠ ΍РӠү Ӡˠ ύؠĭōРРŬؠ ōѠˍ؍̠ЍРΠ Š̠ ԍٍƬٍҠ͠ ҠӠ Ǎؠ̫ ҍ٠̫Ҡ׍àԠ ԍҠŠ Ǎ٠Ơ čˠٍˠƬٍѠر ō̠ˠ΍ҠҠ ǯ Ǎؠ ؍ٍѠΠ Ǎ̫ ˍֱٍٍ̫ҩ٠ ҍƬٍŠֱ Ы ҍԍЫӍ ͍ԠРР ѠӠ ύРԠ ԍӠҠҠ ōҠנ ҍҠР ϠŸĵ ҍҠų ҩҠŵĠ ǯ Ǎ ΍Π΍͠ ͍Ӡ ̍΍ͫӫԍԹ ōΠĶ ҍàĸ ōӠĹà ҍƠųŠ ΍ؠà ؍Ԡù ҍРķ  ΍̠΍Р ΍Ӡ ΍Ơ ΍Π ΍Ԡ ΍Ԡ ΍Ԡ ΍ˠˍ ӍӠĵ ōŠĵҠŠ ǍӠƠ ͍̍͠ ̍נ±ԍ̠·ԍ͠ ԍ Ҭ ҬӍРƵ ҍƠ ҍ Ԡ ЮЮ̮Ů ԠǠð Ӎ        RMANENT STRING:";V$:305:D '"SECOND PERMANENT STRING:";W$:305:m <("THIRD PERMANENT STRING:";X$:305: ("FOURTH PERMANENT STRING:";Y$:305: )"FIFTH PERMANENT STRING:";Z$:305:U >ɀ:6ɪɻɍ ɍi L6`Z卪  퍪 宍Ԡƍ 󍠾ؠ ج Рű ȠӠ ΢ 򮍪 Í 荪 :23:" DIAGONALS";:240: :23:" REPEAT?";:160F 958: USE FOR THIS VERSION OF PU&F? ";N2$::"INSERT DISK AND PRESS RETURN..";A$:D$;"BSAVE";N2$;",A";ADR;",L";HMEMADR :"ALL DONE!"x  y u/ v y  J67x`xɗ[H h\ [x`  y x` `ɍ `E CARD SLOT (0-7)? ";A$:S(A$):S0S7ĺ(7):110 xADRADR24:IADRADR23:BʹI,B::ADR11,128S16: 141,129,192,173,0,224,201,76,240,3,141,128,192,104,201,124,208,251,104,162,0,142,0,2 SAVE IT TO DISK v :"WHAT FILENAME DO YOU WISH TO2 REVISE ABSOLUTE ADDRESSES <I111:D1,D2:D1D1ADR:D2D2ADR:D11,D2256:D1,D2256(D11):ʃ 3,16,17,19,26,72,47,72,64,118,68,117,117,130,125,382,127,427,129,485,371,150 P RAM CARD DOS CHANGES d(978)1581604 n12:868:"FIRMWAR PUF EXAMPLE 2 e ::4:13)"PU&F RELOCATER":HMEM(115)256(116):112,(116)3:D$(4)7:"WHAT IS THE FILENAME FOR PU&F ON YOUR DISK? ";N1$10:"PLACE DISK IN DRIVE AND PRESS RETURN..";A$:ADRHMEM533:D$"BLOAD";N1$;",A";ADR  Í ̢ ㍪Ҡԍ̢Ҡԍ΍ҠԍӍǠؠĸï čàŢؠĸàŢؠԠƍRϠԠؠ΍ 獪̠Ǭ؍ѠčҠԍ؍Š̍ĠӍ ӍΠؠαƬ؍РčѠҍҠԍ؍Šα ҠՠϠŠҍԍō ƍҠԠ ΍Ҡ٠ōؠōӍԠҠčҠԠ ӍؠҠ̠ 占ҠԍؠōӍŠؠ덠  덠Ơ ĠѠ  àԍ Р 獠ҠԍЍӠԲ 덠Š ԲРčϠ ȠؠōӍ 덪ϠؠōРҠ 䍠Ѡԍ٠ō ҠԱϠ 󍪍ԍРȍӠ ӍàŠ 덠ūؠ 占Ҡ̠ 占Ҡ΍àŠ ӍūҠ٠ 䍠ύ  Ӎ΍РؠōϠ΍ŠҠ٠ ӍҠčؠҠ̠ 占ؠҠҠ 獠ؠѠȍΠ؍Ƭ؍؍̠΍΍ҠԠԠՠ 卪Ǡ ÍϠÍˠ ƶ ˍƷӍˠƠ占РĠ ŠР ԠՠĸŠ ïҍĠՠŹң ٠ՠŸΣ Ҡՠķ 􍪍 󍪍Ԡՠ ӍŠՠƠ Šՠ  ƠՠÍàՠϠÍΠՠ ՠҠՠà䍠ōΠՠ ՠҠՠ׍΍Ơՠ 卪 󍪍Ƞՠ ԠՠĠ Աՠư  Ԡ ЮЮ̮Ů Ԡ      ˨ة ˨ة 卪 箍à 獠à ᾠ߱ ؠ ˨ةР Ѡű Р 躍Ѡű Ԡű Р 纍Šű 卪 ű߱ ؠ ˨ةР Ѡű Р Ѡű ű ȍРƠ ѠȠ ȍР è ݍѠű Р 躍Šű è 卪 إű߱ ؠ ˨ةР ѠȠ ȍР ѠȠ 卪 Ǡ 󮍪٠ؠ 占ؠ 占 卪  Í 宍 Ϡ ߱à àŠčàĠؠà ˨ةٍؠÍٍΪ 󍪍 󮍪 獪 捪 Ԡ Í 纍ؠ 卪  y Ԡ ЮЮ̮Ů     L`  67Q67H  h LɍH  ͫ`" ͬH hL* LɌɊL6Bҫ堣 <L`5   ӥHHvHuHHL<Ѝz#?"îà îӠ àĠӠ àŠԠŠΠҠ׮ԮӠ׮Ԡ נԠ ҠŠŠϠ ΠŠҠԠҠ îǮҮҮӠ ҮӠҠ ǠĠԠƮز ƯίŮӠ ƯίŠԮӠԠ ͠ҮӠ ͠Ҡ ӮӠ Ҡ٠  Ҡ̮Ӡ  Ҡ̠ȠϠ! ҮӠ Ҡ ůР ҮӠ  Ҡ ïŮӠ ͱͲ Ӡ ٠8ŠҠҮӠҠӮӠԠҮà !Р"ͯƮӠͯƠԠϠˮӠ ԠϠˠ ŠӮӠ ŠӠ ˭ҠүҠ̠ŠҠŠîà̠ǠϠɭ̠ ЮӠ  ՠԠԮӠԠԠŮӠŠӠҠ˭ҮӠ  -      8  - 1982  Lj VX%10100,10200,10300,10400,10500C `"CONTINUE? (Y/N)";A$:306M t1030i  CONCATENATION EXAMPLE A$"APPLES":B$"ARE":C$"THEORY":D$"ABSOLUTE":E$"ASBESTOS" L$A$B$(C$,3)D$(E$,3,4) 306:L$""L$:305 L$  t'"FIRST PE 2111,SL:112,SH:1  INPUT STRING EXAMPLEJ :"SELECT ONE:"::c "1) FIRST OPTION":} "2) SECOND OPTION": $"3) THIRD OPTION": ."4) FOURTH OPTION": 8"5) FIFTH OPTION": B:"WHICH?";A$ LX%(A$):306:X%1X%51030$D AFTERWEED DEMO BY CLAY RUTH CALL -A.P.P.L.E. : NOV. 1982 UD$(4):305^:8x"1) INPUT STRINGS":("2) CONCATENATION/FRAGMENTATION":d20:"WHICH?";A$nX%(A$)xX%1X%220X%1000,2000 1SL(111):SH(112):TA17664:L512:: NORMAL<^A18176:L256:: lowercase :"New file name? ";A$: insert the subset we saved as TEMPw D$;"BSAVE";A$;".CGR,A$4000,L$800": save the ROM code D$;"DELETE TEMP":100 6A16384:L512:: INVERSE Address & Length @A16896:L512:: FLASHING JA17408:L256:: CONTROL subsetc D$;"BLOAD";C$;".SF,A$2000":768: get new font & let C.G.R.BUILDER do its stuff again. D$;"BSAVE TEMP,A";A;",L";L: save the section of code to be inserted. D$;"BLOAD ";A$;",A$4000": get the ROM code from disk< D$;"BLOAD TEMP":re if all code from 1 fontA x:6::"Name of subset font? ";C$ :"To replace: (1) INV"::13)"(2) FLASH"::13)"(3) CTRL"::13)"(4) NORMAL"::13)"(5) L.CASE" "Select a No. ";Q:Q310,320,330,340,350:Q5Q1120: get Address & Length ofode# P:"Name for ROM file? ";A$k ZD$;"BSAVE";A$;".CGR,A$4000,L$800": save ROM code as filename.CGR d:"ROM file ";A$;".CGR saved to disk":A$A$".CGR" n:"Insert a customized subset? (Y/N) ";:B$:B$"N"B$"Y"110 sB$"N"Ā:quit he PROGRAM REQUIRES: CGR BUILDER, FONT(S) TO BE ENCODED. [ (D$;"BLOAD C.G.R.BUILDER" 2:"Higher Text Font Name? ";A$ <D$;"BLOAD";A$;".SF,A$2000":put font at $2000 where C.G.R.BUILDER expects it. F768: let C.G.R.BUILDER build the ROM c>] CHARACTER GENERATOR ROM CODE BUILDER BY IAN M JACKSON CALL -A.P.P.L.E. : NOV. 1982  "Builds code for a Character Generator ROM from H-T.SF D$(4)::6:3)"CHARACTER GENERATOR CODE BUILDER":19)"BY"::14)"Ian Jackson"=   2) J "GIVE DECIMAL ADDRESS":"OR PRESS TO GO ON:";ADDR$o ADDR$""160:ADDR(ADDR$):140230,0,208,2,230,1,136,208,247,152,160,2,32,233,227,76,154,218k "GIVE DECIMAL ADDRESS (TRY 53456):";ADDR 1,ADDR256:0,ADDR256(1) : ::"STARTING ADDR = "(0)256(1) MAKSTR,A$:A$  "LENGTH = "(A$)20)"RFLAG = "(p6d MAKSTR BY R.D. PURVES cnMAKSTR768:JMAKSTRMAKSTR60:K:J,K:= x32,190,222,32,227,223,32,108,221,133,133,132,134,160,0,177,0,41,127,153,0,2,170,240,15,201,13,240,11,200,208,239,162,0,142,255,2,169,254,168,133,2,200,  B FONT WRITER BY IAN JACKSON CALL -A.P.P.L.E. : NOV. 1982  Converts a Character Generator ROM into a HIGHER TEXT.SF D$(4)::6:14)"FONT WRITER"::19)"BY"::14)"Ian Jackson" Disk must contain:  INVERTER (the assL FREE SPACE AND FILEDUMP POKER PUMP/GOLDING/WELMAN/REYNOLDS/EDGE dHEX$"BA69:A0 C8 18 B9 F2 B3 F0 E A 90 FB 48 E6 40 D0 2 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 6 E0 D0 3 4C 24 ED 4C 1E E5":9001 nHEX$"B3AF:BD C5 C3 C1 D0 D3 A0 C5 C5 DNFO.": + 8*+::"HIT ANY KEY FOR MENU"::32,0:M.756:4:958:2"Call -Apple Anthol- ogy, Vol 8, Jul-Dec 1982 Version 1 Release date 12.20.82"/" APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE (ANTHOLOGY 8B) IS A SPECIAL DOS/PASCAL DISK AND SHOULD NOT BE BOOTED - INSTEAD BOOT ON ANOTHER DOS DISK AND THEN CATALOG '8B' OR BOOT ON PASCAL TO ACCESS THE PASCAL FILES."+"OTHERS NEED ADDITIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR IAVAILABLE":216,0:110)b(222)255Ħ3l::t'2::4:"CALL -APPLE ANTHOLOGY, VOL 8 ":::34,5:11000:*8:"NOT ALL PROGRAMS ON THIS DISKETTE APPEAR IN THE MENU, THOSE WITH A [.S] SUFFIXARE BIG MAC SOURCE FILES."*:"THE SECOND DISK A R N"M>15:"O M Y G":16:"U";:40:"E";cH17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":10:" "\:34,23:I11200::::10000X(222)1ĺ"LANGUAGE NOT ";:33:" ";:39:" "":s "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:" "k " ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" CALL -APPLE ANTHOLOGY VOL 8 JUL - DEC 1982 ":: I16:(I64)" "MENU$(I);:20:(I70)" "MENU$(I6):  :: 1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "/ " ";:5:" ";:9:" ";:"CHARSET GEN":MENU$(07)"KEYCODE DEMO":MENU$(08)"WINDOW DEMO":MENU$(09)"SCREEN DEMO":MENU$(10)"HIRES SCREEN READ" :MENU$(11)"PIE CHARTER":MENU$(12)"GRAPH DEMO": 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRUN PROGRAMS :T 2::" OADING "FILE$:BL260' D$"RUN"FILE$C BL0:I11000:::110 A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(24) :MENU$(01)"APPLE DIARY":MENU$(02)"CRYPTOGRAM":MENU$(03)"TALK DEMO":MENU$(04)"SO WHAT":MENU$(05)"HUFFIN"u :MENU$(06)L(A$)120 190:1502 X(16384):X127ı^ :16368,0:KEYX192:KEY24KEY1180s 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:"L0 =d " M E N U " BY VAL J GOLDING - 2.80 Pi2000:::500on1000:D$(13)(4):7000xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::     ؠ Ŭؠ 占ѠĠ 占Ҡԍ؍ŠҫĠҠԍӍӠؠčà ؠӠàӢؠΠؠĸàìɬϢؠĸĸàÍàƍ؍٠ԍ٠İ٠Í٠ƍ٠ë٠ƍ؍ѠԴԵҠԍ̠ԵɠԵԴҠύҠԍɠԶҠύŠԴԶҠύŠԱ ٠ Үҩ٠ ٠Ԡ 姍ҠԠ  Ա٠ԍĠƍԳҠύٍҩٍŠԲҠԍҠԍӍԲ̠Գ٠ ŠҠ 卪Ġؠ 占Ӭ؍ѠIJҠԍ؍ŠīIJҠҍРà ㍪Ԡ٠ 占ҩ٠ 占ؠ 占Ҡ ҧҠ 占ҫ 占ҫҠԍΠ٠ ҩ٠ 占؍ٍҩٍؠҍҫβҩҍҠԍ  ҧ Ҡ 퍠«ҫ٠РβҠ٠Ԡٍҩ٠ 占ѠΠ 占Р² ŠԠ Рؠ 䍠άؠ 占Ѡԭ 占Ҡԍ؍ŠЫҠҍԠؠŬ؍ѠԲҠԍ؍ŠԫԲԠؠ 占Ƭؠ Ѡ̠ ŧŬ؍Šԍ̠Ӡ ӧҠ Ӎҫ٠̲ҩٍŬ؍Ѡčٍ؍Š̲ĠƠՠàՠİΠՠĵÍԠՠķÍϠՠµÍԠՠIJԠՠĸōԠՠčǠؠ ͠Ӭ؍Ѡ΍Ҡԍ؍Š͍ΠҠ΍ؠƍ h Ԡ ЮЮ̮Ů ԠҠՠ ՠԠՠҠՠàՠč  ֍ȍٍ٠ŠЍӍŠà Ϣؠčà ά Ҭ ŢؠčԠƍ 捪 ֩ 䍪РŬٍҠԍ 򍪍Ҡԍ ׍ȍ֍ŬٍҠԱ ԠǠԠՠñ ٍԠՠčԱՠưȠՠ֠ՠ٠֍ȍ  Ԡ ЮЮ̮Ů    ұ٠占ҳ٠썠ٍŠР Ӎ ΠϻҍΠūұΠȫҲΠ̻ҳ 󍍍٠РҩٍҲ٠ ĠƠ 򩍠ΠƻҠ 􍠾ΠŻҳРҩ٠̮î占ҳ٠̮î占ٍŠР 􍍍 󮨲 捪 Ҵ ֬ Ӭ ̬ 󍍠٠Рҩ٠ 占Ҳ٠荠ҳ٠썠ĠƠ ұ٠占Ҵ٠썠ٍŠР 󿨳؍àҫ àԍԍР Šб 獍ΠӻҍΠŻұΠȻҲΠ̻ҳΠ̠Πϻҍбؠ ҩٍРҠ ̠Р ؍ŠР ؍Р ҩ٠ 덠ٍŠб ݱ 썠ݲ ݱ 썠ݲ 鍠΍ 卪 ͮ Ӎ 􍍠ԍٍ Ơū ԠР 卍ҠұҲҳÍҴōǠϠΠà ̠ԫ Ϯ̠ԫ Šԫ Ϡū Ӡū 媪Š Ԡ ŠԠ Ƞԫ Ӯ̠ԫ Ů Ԯ ЮЮ̮Ů ʮ îǮҮ  X ҭ ͮ     ؠŠؠĸà ؠӠؠĸàŢؠŠՠԠƍ3l%H$H+  h$h%+ %H$HAhh`ӠŠ̠ŠԠύŠάŠҬĠōAUSES OUTPUT CTRL-Q ABORTS OUTPUT DURING PAUSE  HEX$HEX$" N D9C6G":I1(HEX$):511I,((HEX$,I,1))128::72,0:144: 2 C6 A0 N ADB9:EA A9 0 85 40 85 41 20 69 BA":900 HEX$"BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 12 20 ED FD AD 0 C0 10 F3 8D 10 C0 20 1B FD C9 91 D0 E9 20 FC A2 60 N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30":900:/ , ANY KEY IN FILEDUMP PР ؍ŠЍР ҩ٠ 덠ٍŠб àҫ àԍԍР ŠбӍԠƍԠҠРǠҠ ԍ٠ ٍ ҫбؠ ҩٍРҠ ̠ ЮЮ̮Ů   ɭ  `ŠìɬύΠŠ9 ,բ99v ( ghLȱɲ ȱڢ1 Lȱ $ ) \ȱ `8Єτ ,0 \ ,0 \ \۩ л9  Ӡ C͠ Π ͫΫ٠ آѠˍҠ٠ ˠ ҠƠ䍠٠ ҩٍРŠҠ Íҍà ፠Ҡ ҫàҫ ͠ՠΠՠҠՠčҠՠΠՠĶƠՠŲƲ ŷǠҠҠ ҠΠ 占àҠ  FԠ ЮЮ̮Ů Ԡ     304 MAIN AV. SOUTH RENTON, WA. 98055 )!j& ` Π 䍠РÍѠ˲ ƍ˲Ӎ֠Ͳ 덪 󺍪 Ь ͮԠƍƠ 䍠Рà 俍Ѡ˱ 占РԲﬠ˱Ӎ֠ͱǠ· ԲĠ 䍠РÍѠ˲ 占Ơ ՠðƠՠðΠՠððƠՠðñàՠŰǠ² 荪 Рà 占Ѡ˱ 占Ơ 䍠̮Ů Ԡ 썪 â  卪 獪 Ӯ Ԡ Щ î Ю    1 R ֐!Ƀi}i~P{Q| `B C":4:"L E G R H" 45:"E T R A A":14:"S A R N" >15:"O M Y G":16:"U";:40:"E"; H17:"N":18:"D") R:::10:" ":10:" P R :" ";:33:" "H " ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" ";:33:" ";:39:" " : "A P P L E":2:"P U R I X"2 *3:"P G O  ::M1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:17:" ";:25UAL SHAPES" N14. XX10:X279X2799 XX10D NX,YK NY X10:Y30d  N59o  NX,Yz  XX50 & N 0 X10:Y100 : N1028 D NX,Y N XX10 X N b 1:"PRESS ANY KEY TO CONTINUE";:OP$:- KO :21:"FINAL DEMONSTRATION:"u " BACK OF CARD AND ERASE CARD" J11000:J X10:Y5:R1:S0:700 *X60:R0:S1:700 J11000:J 62450:X0:Y10:7:0 :21:"AND THE 28 INDIVID360,X:38361,0:38370,Y:38380,R:38390,S:34675:U  DISPLAY CARDS FOUR AT A TIME[ | 5:0,55279,55:0,56279,56 K113 X10:Y5 500:600:700 X60:500:600:700 $X10:Y65 .500:600:700 8X60:500:600:700& B2:232,203: SHAPE TABLE STARTING LOCATION< d SET UP CARDSH nI152S xC(I)IZ Ib I0l 1000  GET A NEW CARD II1 X SET RANK AND SUIT bR(C(I)1)(((C(I)1)13)13)1 lS((C(I)1)13)1 v  DISPLAY CARD2 38 HI-RES PLAYING CARDS TEST BY VINCE ADERENTE CALL -A.P.P.L.E. : NOV. 1982 PROGRAM DISPLAYS ALL 52 CARDS AND 28 INDIVIDUAL SHAPES  3467416384:::255:1D$(4): CNTRL-D(D$;"BLOAD ACARDS"2C(52)) <233,139LJ`F 2,149,160,160,4,185,55,128,153,117,170,136,16,247,76,255,174,11,157,1,0,254,1,15,0,117,170,0,0,0,152,0,151,0,150PT((F$,1)):T64T90ĺ:"ILLEGAL FILENAME!":60G Z32792,(F$)1 dI3282332823(F$)1:I,((F$,I32822,1))128:: STORE FILENAME n32768: STORE DOS ON DISKp 186,142,155,179,162,15,189,37,128,157,187,181,202,16,247,169,0,141,95,170,3r\ DOS UPDATER BY LEIGHTON PAUL CALL - A.P.P.L.E. : JULY 1982 (48K APPLE ][ ONLY) y(I3276832822:A:I,A:2"ENTER THE NAME OF THE GREETING PROGRAM"7"TO BE RUN AUTOMATICALLY UPON BOOTING UP:"<:"FILENAME: ";F$F(F$)604   ---------------->??????????????????7---- )--->????;??????7----)--- -)-)--->???;;????????7----)--- )--->????;;????????7----)--- - )--->?????;;???????7----)-- ) - )--->???????7---- - -- )--->??? `  z ! z `ڍ `;K[k{8Rl " < V p )-:;3-->;3 ; ?--? )):?7--?  ?-->;3 ;)------------------:??????????????????7--- * x`  * x`  * x` z &' z `ڍ ` a ` S ` ̍ ` E ` z z &$ z & z  z ` ؊ * e z ` ؊ *  z  z  z  z ` ؊ҍ * lj z ` ؊T * lj ( z ` n * z ` ؊ * z $ z ` ؊6 * { ` ؊P * z  z $ z $ z ` ؊j * {` ؊ *  zsLmHmؕmٕh ` ` !5I`L抩썝LL %L:5LLLL̈LL>LULLLL>LjL~LLkL ؊J`Ӎٴ ؍ ӍĠԠƍNԫҫӠ 퍪 卪ٱ ؍ Ӎٲ ؍ Ӎٳ ؍ Ԡ 󬍠Ԡ 䍠Ҡ 󮍪Ы 占àĭǠ 占Ы ԫ 卪 Щ ӠР Íà ÍàĭǠ 荠Р ĭǍ 卪 􍪍 ٱǍ ٲǍ ٳǍ ٴǍ ө  P Ǎ ÍԠԠҠčРƍǠԠ֠ àӠ 󍪍 ō     12.20.82"" APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 304 MAIN AV. SOUTH RENTON, WA. 98055 ACCESS THE PASCAL FILES." *r +"OTHERS NEED ADDITIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.":y + *+::"HIT ANY KEY"::32,0: .756:4:958: 2"Call -Apple Anthol- ogy, Vol 8, Jul-Dec 1982 Version 1 Release date ETTE APPEAR IN THE MENU, THOSE WITH A [.S] SUFFIXARE BIG MAC SOURCE FILES." *:"THE SECOND DISK (ANTHOLOGY 8B) IS A SPECIAL DOS/PASCAL DISK AND SHOULD NOT BE BOOTED - INSTEAD BOOT ON ANOTHER DOS DISK AND THEN CATALOG '8B' OR BOOT ON PASCAL TO E S E N T S ":10:" "M \:34,23:I11200::::10000 X(222)1ĺ"LANGUAGE NOT AVAILABLE":216,0:110 b(222)255Ħ l:: '2::4:"CALL -APPLE ANTHOLOGY, VOL 8 ":::11000:M *8:"NOT ALL PROGRAMS ON THIS DISKG$(I)NULL$PURPLE$, DUMMY$NULL$GUREEN$; 24:5:I;Z 30:SPACE(DUMMY);" ";k FGČGARBAGEq  DUMMY(0) 16301,0::22:"THE END.""# wCHR65128FGFG:420: 'A' I |CHR77128PP:16301P,0:420l CHR70128X(0):420: 'F' CHR71128ČGARBAGE10:420:'G' CHR73128DUMMY$NULL$ARANGE$:'I' CHR27128480: 'ESC' KS,0: CLEAR KEYBOARD STROBE  (170)(213)(170)(213)(170)(213)(170)(213)K ,DUMMY$GUREEN$Z 6DUMMY(0)r @KB16384:KS16368 JSPACE(DUMMY)(111)256(112)(109)(110)256 T DEFINE STRINGS ^I01022 hCHR(KB): EXAMINE KEYBOARD rCHR127430 F=FORCE FRE(0) G=FORCE F. GBG";J " I=INSERTS ORANGE STRING"Z 24:"I =";t 17:"FREE SPACE = ";z 16384: TOP OF HIRES SCREEN 4800 G$(1022) GARBAGE37700 PURPLE$"U*U*U*U*" GUREEN$"*U*U*U*U"8 "ARANGE$|d GARBAGE COLLECTION DEMO RICHARD CORNELIUS/MEL ZANDLER WICHITA STATE UNIVERSITY CALL -A.P.P.L.E. : NOV. 1982  INITIALIZATION (4);"BLOAD FAST GARBAGE"21"COMMANDS: M=MIX/FULL GR A=AUTO F. GBG";! "   LL 32)81 g momgmbm]0[ mmni Ӡ hmmkmniln i jέϬΑiospt`LiΥjϠhΑist` Piikmijln`(&'%hfge֦甥蔥(^g_h'e^^__``?(8o(opp甅蔅o')JȽghopȑ?(LY(Dp8n` ؔstopmnU^_R ij^_lk 󅔆nmL^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L}ȱ^ȱ^oȱ^p蔥锐hmnТAʥ甥蔐甝唽蔝攽 ҍ«ҫ٠Рĭٍ­ٍٍŠЍ٠ٍ͍̲ҩٍ©ٍٍ̠̲čڍīګӍī«čҍīҫ٠ٍ͍Рҩٍ©ٍٍ̠ЍЍڍЫګӍҠРҠŠīà٠Ҡ΍٠Р­ٍĭٍٍŠЍčÍà͍čīà«īčӠĠӠĠӠ̠Ҡ͍Ҡԍؠ͍Íà͍ӠҍčàčӠҍàčӠҍà͍Ӡҍɠҍ͍ҠǍčÍà͍ؠՠĠՠčРՠƍڠՠҠՠŠΠՠijų͠ՠĶҠՠűǠՠŴԠՠŶǠР̍Рō͠ӠĠӠĠӠĠӠĠ Ԡ ЮЮ̮Ů Ԡ ՠ ՠ 4)"BLOAD FILE 2 NAME,A";(175)256(176):(175)256(176) (4)"BLOAD FILE 3 NAME,A";(175)256(176):(175)256(176) (4)"BLOAD FILE 4 NAME,A";(175)256(176):(175)256(176): F1(121)256(122)34:PK(F27) j'E5F2PK(F29)Y t'E6F2PK(F211): " Files 3,4... one entry point each m ~'E7F3PK(F35) 'E8F4PK(F45): LOADER SUBROUTINE 63999:176,F1256:175,F1256(176):(4)"BLOAD FILE 1 NAME,A";F1:(175)256(176)< (es for each machine file $ '639998 $'F2F1PK(F13)L .'F3F2PK(F23) 8'F4F3PK(F33):" Find all the entry points file 1... two entry points B'E1F1PK(F15) L'E2F1PK(F17):" File 2... four entry points V'E3F2PK(F25) `'E4F2z " LOAD AND LINKER SUBROUTINES Appending machine files to FP by John L. Shanks Call -A.P.P.L.E. : July 1982 '" LINKER SUBROUTINE To be run as part of the program initialization  '(PK)X(X)256(X1):" Find the starting address    INSCRIPTION WRITER BY DONAL B. BUCHANAN WITH KIND HELP FROM CHRIS WILLIAMSON, BOB CLARDY OF SYNERGISTICS; CHUCK, DAVE, MIKE OF OUR FINE LOCAL COMPUTERLAND CALL -A.P.P.L.E. : NOV. 1982 d(4)"BRUN LOMEM:":16384 n(4)"BRUN HIGHER TEXT"  ,174,32,237,253,202,16,236,165,4,240,139,96` 169,0,141,185,183,96,32,83,249,133,58,132,59,96 170,165,44,72,165,45,72,165,46,72,165,47,72,138,32,0,189,104,133,47,104,133,46,104,133,45,104,133,44,96,5,202,32,218,253,165,0,197,2,165,1,229,3,144,4,230,4,208,12,230,0,208,2,230,1,165,0,41,7,208+ 217,138,48,16,169,160,32,237,253,32,237,253,32,237,253,149,5,202,16,242,169,160,32,237,253,162,7,173,255,2,208,20,181,5,9,128,201,160,176,6,233,127,208,2,1692$D$"WRITE"F2$A (ASFLAG)ĺ"CALL-151":TO EXEC THE FILE LATERJ :  DATA STMTS ARE RELOCATABLE ASMBLY CODE TO BE READ INTO MEMORY ] 164,1,166,0,169,141,32,237,253,32,64,249,160,0,132,4,162,7,169,186,32,237,253,169,160,32,237,253,177,0,149IVER CALL":PR<PR82030:PR:: TURN ON BINARY DRIVERaD$"PR#"PR:::::: REGULAR SLOT x OPEN DISK FILE  "TARGET DRIVE (1/2) ? : ";D2$:"FILENAME TO SAVE : ";F2$:(D2$)(D2$)22510:F2$""2510 D$"MONO"D$"OPEN"F2$",D"DBP1240 ND(2)(3)256:PTR(58)(59)256R $NDPTR1030:DĹ47033,189:i  EXIT ROUTINES } :PRĺD$"PR#0" OUT$"D"(ASFLAG)ĺ"3D0G" OUT$"D"ĺD$"CLOSE" :  PRINTER ROUTINES :"ENTER PRINTER SLOT OR BINARY DRI),J: lBP119,(BP256)256H vI029:J:(BP256I),J::: n  STUFF HEX ADDRESSES INTO $0-3 *I1(H$):511I,((H$,I,1))128::72,0:144::  DISASSEMBLER MODULE OUT$"D"ČBP118 58,(0):59,(1) 63696 H$(HX$,2)" "(HX$,2)" N D9C6G":800? rBP((110)2)256M |600: p  INITIALIZE OUTPUT ROUTINES OUT$"D"2500:OUT$"P"2000:D01000 BP:1500:CALL M/L FOR HEX/ASCII X STUFF MACHINE CODE INTO MEMORY  bI0131:J:(BP :"::16::" SELECT :";:5 " ";:OUT$:OUT$: O , GET HEX ADDRESSES u 6:"HEX START ADDRESS? : ";H$ @(H$)4H$"0"H$:320 JH$"0:"(H$,2)" "(H$,2)" " T"HEX END ADDRESS? : ";HX$ ^(HX$)4HX$"0"HX$:350) hH$X DUMP :":6:"H HEX DUMP ONLY :":6:"D DISASSEMBLY :"::16::" SELECT :";:w " ";:IN$:IN$:IN$"D"D1 ASFLAG,0:IN$"H"IN$"A":ASFLAG,1 ::4:"OUTPUT":6:"D DISK :":6:"P PRINTER :":6:"V VIDEO f MONITOR UTILITY BY VAL J GOLDING WITH WILLIAM STEINBERG CALL -A.P.P.L.E. : OCT. 1982 yd INITIALIZE nASFLAG767:::4:" MONITOR DUMP UTILITY":xD$(13)(4):  MENUS V :"OPTIONS"::4:"INPUT":6:"A ASCII/HE   $20<a(ĠҠ)]ӠȠ̭Ċ$Fd eL]ԠϠϠӊPdQe]ԠŠŊZM]ŠӠĊddQe]ԠԠŊnM-]ŠӠŊxQX]̠ŠҠŊ̠젭ЮЮ̮Ů7 dJedKe@dede@]ͺ KM6!a(̠ŠҠ)c((S(Šź)'`$((2S(Ԡź)'` ̠ ŠȠŠ̠ Ԡ ЮЮ̮Ů ۫ ׯ    ͍ͫͫӍԠƍؠ ɯ ͠ 占 퍠ͫͫͫҠΠ Ӎ ͫ͠ 獠ѠŠ Ӡ 卪 Í  ЫӍҠʠ Ы Í̠ 占٠̫ ٍӍ ҠԍؠǍŠÍàƬؠ 占 썠РŠ̍àƍŠ̍ ̠ҠԠ 占ؠ ̠Íà Ԡ ɠР 䍠 Ҡ 占 Ƭؠ ؠ̠ 卪Р 卍ҫ 䍠àҫԠŠ àǠ ŠԠ ŠàҠ ŠĸˍàҫĸˠҍĠŠԠ 占٠Ǡ獠ؠ ҠԠ ԠҠԠ 占ҩ٠ 占Ƭؠ ؠ ҠŠ 占Ҡ РҠ 潠Ǡƍ ·¹ΠİؠƹʠƹŠԠčǠŠ٠ҫ ؠҠĠ ҠԠ Ҡؠ ٠ ЮЮ̮Ů ԠҠҠǠƠ͠Í̠ 2 Ԡ     D,(S1)(S9)ė:810H(S1)(S4)ĺ:"DO YOU WANT TO PRINT RESULTS? (Y/N)":AS$:(AS$"N")(AS$"Y")ī840R(S5)(S6)SWS4!\J0:S210,110,410,310,5,5,610,1000,1100:DADING FILES"::510::(4): C  **** MENU ******************** *"DO YOU WANT TO:"::"1) SEARCH FOR TITLE":"2) SEARCH FOR A SUB STRING":"3) SEARCH BY TYPE"C4"4) SEARCH FOR VOLUME":"5) SORT BY VOLUME":"6) SORT BY TITLE":"7) SAVE SORT FILE"b"WHAT FILE NAME?":1200ylD$"OPEN "S$:D$"WRITE "S$:N:I1N:V$(I):T$(I):L$(I):N$(I)::D$"CLOSE":JJ1::  **** INITIAL SET UP ********** (4)"BRUN SWAP":D$(13)(4)::(10):"WHICH FILE SHOULD I LOAD?":1200:(10)::"RE:: - **** INPUT FILE ************** D$"OPEN ";S$:D$"READ ";S$:N$:N(N$):V$(N1),T$(N1),L$(N1),N$(N1),B(32):PC$(9)"80N": 80 COLUMN OUTPUT I1N:V$(I),T$(I),L$(I),N$(I)::D$"CLOSE":: X **** OUTPUT FILE ************* ))VĺV$(I);" ";T$(I);" ";L$(I);" ";N$(I):JJ1< J:: a  **** TYPE SEARCH ************ "TYPE?(A/B/I/T/R):";S$:(S$"A")(S$"B")(S$"I")(S$"T")(S$"R")ī410 910:I1N:S$T$(I)ĺV$(I);" ";T$(I);" ";L$(I);" ";N$(I):JJ1 ::: 1 **** TITLE SEARCH ************ ] "TITLE TO SEARCH FOR:";S$:L(S$):910 I1N:(N$(I),L)S$ĺV$(I);" ";T$(I);" ";L$(I);" ";N$(I):JJ1 :: , **** VOLUME SEARCH *********** 6"VOLUME #:";V:9101 @I1N:(V$(I3 +15 -V$(J)V$(LW)15& /17; 1N$(J)N$(LW)15F 317: l d **** SUBSTRING SEARCH ******** n"STRING TO SEARCH FOR:";S$:S(S$):L(N$(1)):ITLS1:910 xI1N:M1IT:(N$(I),M,S)S$ĺV$(I);" ";T$(I);" ";L$(I);" ";N$(I):JJ1 ),T$(LW):SWAPL$(J),L$(LW):SWAPN$(J),N$(LW)@ JLWHIJ27f B(ST1)LW:B(ST2)J1:LWJ1:29 B(ST1)J1:B(ST2)HI:HIJ1 STST2:7 ST035 !HIB(ST):LWB(ST1):STST2:7 # %V$(I)V$(LW)13 '15 )N$(I)N$(LW)1WY SWAPT$(MID),T$(LW):SWAPV$(MID),V$(LW):SWAPL$(MID),L$(LW):SWAPN$(MID),N$(LW)m II1:SW37,41 JJ1:SW45,49 JI21 SWAPN$(I),N$(J):SWAPL$(I),L$(J):SWAPT$(I),T$(J):SWAPV$(I),V$(J):13. SWAPV$(J),V$(LW):SWAPT$(Jy \" MULTI-DISK CATALOG RETRIEVAL by David Linker Call -A.P.P.L.E. : July 1982 e710 ******* QUICKSORT ROUTINE ****** N$(N1)"ZZZZZZZZZZZZZZZZZZZ":V$(N1)N$(N1):LW0:HIN:ST0LWHI31 J