' +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- ( Z  Ϡ@跻~!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`Input Help Screen Entry&&EC0:965e&D$"VERIFY";PF$:D$"OPEN";PF$:D$"READ";PF$;",R";BN:216,0&T$:(T$,1,1)(0)NN1:NBNB(T$)1:FE$(N)T$:940&D$"CLOSE";PF$:N0NB0ı&L(FE$(1))1:J1L1:(FE$(1),J,1)" "LJ1:J256;'ELA16j%(LA)ĹSR2,LE:SR3,FE1:SR$"HELPSCREENS"(FE16)4įFE17,KEYBLOCK:FEDIRECTRY512:BN6r%FE|%BN:%Install ONERR Fixup Routine%768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:&yblock Find9$p105,SR:115,BUFFER:DIRECTRYBUFFER512$uB1BUFFER:B22:970:EL(BUFFER35):EN(BUFFER36):BUFFER37,FC:RC0ı$zBN25:B1DIRECTRY:B2BN:970:RC0BN6:910%FEDIRECTRY4DIRECTRY4(EN1)ELEL:LE(FE):LA(LE16):LEL5:#MPathname InputV#RESC$"":MENU$PT$:785:PMT$"Pathname ":710:RESP$""870#WVX:(RESP$,1)"/"RESP$PX$RESP$#\HT2:(RESP$,31);:(RESP$)32ĺ31(RESP$));#a:HT4:(RESP$,32,29);30((RESP$,32,29)))#f $kHELPSCREEN Ke Display":765:VT2:HXHT2"9:HX:"Keyword: ";KEY$::HX:"Hashcode: ";HASH::HX:"Byte #: ";BYTE::HX:"Record #: ";BN">N0NB0ĺ:HX:"Lines: ";N::HX:"Bytes: ";NB"C24:1:HR$;:740:S13S27835#HMENU$ESC$:ESC$MS$:783);"|"::HT:"|";(US$,33);"|";8!1:1:868:MENU$;O!19:"ESC->";ESC$;b!24:1:868:y! Obtain Hash Value!%KEY$,HASH:BYTEHASH256:BNBYTE512:!*Display Keyword & Block #!/VTVT2:HTHT2:MS$ESC$:ESC$MENU$"4MENU$"HashcodeS$;:28> SLS16ĺD$"PR#";SL:(9)"S";:D$"PR#0":750:740N 16368,0:k S(16384)128:S0S0y S$(S): Menu Folder VT:HT:" ";(US$,18);" " HT:"|";" ";MENU$;(SP$,17(MENU$));"\";(US$,14) ! I112:HT:"|";(SP$,1,3Input A Response`24:1:X(34):Y(35):34,23:35,24:868:PMT$;:"";RESP$:34,X:35,Y:wInput A Selection24:HT2:"[ ] Enter Selection";:730:Get Input CharacterHT3::" ";::(8); 16384,128:755:" ";(8);:S32ĺRESP$"N"ī700HD$"UNLOCK";PF$:D$"OPEN";PF$:D$"WRITE";PF$;",R";BN{216,0:I1NX:FF$(I)::Z511NB:Z255Z255Z$"":J1Z:Z$Z$(0)::Z$;D$"CLOSE";PF$:D$"LOCK";PF$:62524:1:HR$;:740:S13S27700ESC$M$:140H:G$;"ERROR: KEYWORD MISMATCH":700KNXN:NYNB:N0:NB0:925:EC0700]NB0N0680KEY$(FE$(1),1,L)BYTEBYTE512:BNBN1:N0:NB0:66014:H:G$"KEYWORD ALREADY EXISTS":PMT$"Okay To Replace "(FE$(1),1,L)" (Y/N) ":710:RESP$""RESP$:800'q810:MENU$M$:785:5701v645Q{D$"OPEN";HI$:D$"READ";HI$}T$:NN1:NBNB(T$)1:FF$(N)T$:640216,0:(222)5ĺD$"CLOSE":16:H:G$"ERROR WITH INPUT FILE":700D$"CLOSE";HI$$KEY$(FF$(1),1,(KEY$))660:14:gram"%I:H:"Help Keyword: ";KEY$:N:RESP$HI$:860US720:S27155:M$ESC$XS$"P"605:S$"K"615:S$"R"630:G$;:595]VX16:845:HI$RESP$bESC$M$:MENU$UH$:785:595gESC$"":MENU$EK$:785:PMT$EK$:710 lRESP$""610:KEY$RITE";HO$+I1N:FE$(I):60D$"CLOSE";HO$:540W5Update (Replace) Help Entry:VT5:HT3:ESC$MENU$:MENU$UH$:765:N0:NB0?VT3:HHT2:H:"[K] Keyword For Help Entry"D:H:"[P] Pathname For Input File"::H:"[R] Run The Update ProSC$5S$"P"520:S$"K"530:S$"R"545:G$;:510NVX16:845:HO$RESP$n ESC$M$:MENU$CH$:785:510ESC$"":MENU$EK$:785:PMT$EK$:710RESP$""525:KEY$RESP$:800810:MENU$M$:785:485!925:EC0700 &D$"OPEN";HO$:D$"WEnt9y 7VT5:HT3:ESC$MENU$:MENU$CH$:765:N0:NB0iVT3:HHT2:H:"[K] Keyword For Help Entry":H:"[P] Pathname For Output File"::H:"[R] Run The Copy Program":H:"Help Keyword: ";KEY$:RESP$HO$:860720:S27155:M$E,1)" "::15:H:"Control String:"::H:CX$YMENU$M$:ESC$MENU$:MENU$PC$:785:435wESC$MENU$:MENU$SS$:785PMT$"Enter Slot Number ":710:SL(RESP$):SL0SL7ĺG$;:47013:H:"Printer Slot: ";SL;" (0 = Screen)":460Copy Help ҠԍҠ͠ЭӍҠҠԠӍ٠àͫͩ٠ȠɍàͫÍà԰ҠՠԠźԠҤźҤӠŠǠϠŠŠčҠˍźҠӬōźӠӠŠ٠ΠƠŠϠōŠ̠Π˨ө˨ӫԠŠРĵҠ΍ŠԍҠ͠ЭӍҠҠԠӍ٠ٽύɍҠ͠Ҡ͠ĭÍҠҠԠӍ٠٠ɭٍ͍͠ϭ٠ϭ͍ӍŠՠԠϠŠˠРȍˠՠԠϠŠŠ΍źŠӬōźӠӠŠ٠ΠϠŠčŠӠĠΠŠ٠΍ԠŠР¹Š΍ŠōҠȠԍëύ̠βӬ΍٠̠ϬĠˍ̠ϠÍҠĠҠӠЍβҠ͠נҍҠԍҠ͠ÍؠؽϠōǠӠԠ̍ɠҰРƠԍРƠí׍ҰŠƠӍԠŠРŲˠ΍ŠˍҠԍҠ͠ЭӍҠҠԠӍ٠ͩ٠Ƞɍٍ԰Πˍͩ٠Ƞύ٠ϠٍԠɍԠҠРϮҠŠҠ밠ÍàԍȠՠԠϠŠˠ΍źˠӬōźӠӠŠ٠΍Š̠ΠŠȲ̠밠ٍĠ밍Ƞ밍٠٠밠ϠōȫɠōԠŽ밍ҠҠٍҠȠٍĠ퍠ȫ퍠ȫРҠ׍٠ϠԠҍĠˍؠˠŠǠȍԠȲӠٍҩ٠ԠҠӽF 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 4C C9 DE 91 00 00 00 00 ":1005-16384:6 51 B1 50 C6 51 18 90 9D C9 84 D0 32 20 B1 ":1005- H$"4140:00 20 E3 D76 DD C9 B9 ":1005,H$"4100:D0 20 20 B1 00 20 67 DD 20 52 E7 84 3C 85 3D 20 BE DE 20 67 DD 20 52 E7 A0 01 91 3C 88 A5 50 91 3C 60 C9 D5 D0 14 20 B1 00 20 67 DD 20 52 E7 A0 00 E6 51 B1 50 C6 51 18 90 9D C9 84 D0 32 20 B1 ":1005- H$"4140:00 20 E3 D 07 85 07 C8 A9 20 E0 03 90 02 B1 08 0A 29 3F 05 06 A8 ":1005,H$"40C0:A5 07 18 90 17 C9 E2 D0 35 20 B1 00 20 67 DD 20 52 E7 A0 01 B1 50 88 48 B1 50 A8 68 20 F2 E2 A5 A2 10 07 A0 99 A9 47 20 BE E7 20 BE DE 20 E3 DF 20 6A DD AA A5 12 30 03 4C 2B EB 4C 0 00 BF 80 19 00 A8 A9 00 F0 72 4C 99 E1 C9 E5 D0 54 20 B1 00 20 E3 DF 20 6C DD A0 00 B1 83 AA C8 ":1005>+H$"4080:B1 83 85 08 C8 B1 83 85 09 A0 00 84 06 84 07 A9 20 E0 01 90 02 B1 08 0A 0A 0A 85 07 C8 A9 20 E0 02 90 02 B1 08 4A 66 06 4A 66 06 29 07 058D F7 03 85 43 A9 2C 85 3C A9 40 85 3D A9 78 85 3E A9 41 85 3F A0 00 20 2C FE 60 C9 87 D0 3D 20 B1 00 20 F8 E6 8A 29 07 F0 2F 0A 0A 0A 0A 85 ":1005i*H$"4040:1A 20 BE DE 20 67 DD 20 52 E7 84 1B 85 1C 20 BE DE 20 67 DD 20 52 E7 84 1D 85 1E A9 03 85 19 2CE CONNECTED";12):6(17:H:G$;"I/O ERROR";21):s("Loading HASHCODE.";:48647,158:48648,190:48888:1010(H$H$"ND9C6G":I1(H$):511I,((H$,I,1))128::72,0:144:".";:)H$"4000:20 F8 BE A9 02 20 F5 BE A9 00 8D F6 03 85 42 A9 98 J:KEY$(FE$(1),1,L)BYTEBYTE512:BNBN1:N0:NB0:930A''216,0:768:EC(222):218,EL:D$"CLOSE":17:HT2:G$;"ERROR WITH HELP PATHNAME(";EC;")":'Access ProDOS Via Read Block'DSLOT,B1,B2,RC:RC0ı(RC40Ģ17:H:G$;"NO DEVIōР ōӠ ΍ū ōȠ ȍ̠ ҍ̠̍̍̍̍ū ԍÍà٠ ٍŠ ȯٍӠ ӍҍӠ Ӎɪ Ů ŠР ōɠ ӍҠ ҍ Ӡ ΍  ҍ ҍ ٍ ΍ ̍ Ǎ Ѝ ԍ ֍ ÍҠ  ҍȠ  ȍ٠  ٍӠ  ҍӠ  ӍӠ  ӍӠ  ӍԩٍٍЍԩٍٍЫԩٍӍԠՠР؍̠ ĠՠΠՠĭҍԠ΍Ҡؠƍ٠ƍҠҍ٠΍ǠӠĠӍԠŠРԠ΍ŠԍҠԍҠԍҠҍؠؠԍҠ΍ؠ΍ҠӍ΍Ҡؠƍ٠ƍҠҍ٠΍  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>    z#??    خǠ!Ơ"ǠŠ Ů٠ǮǮԮԮŮƮӠҠԮŠخƠϠĮР'ͮӠԮîˠîˮàîˠԮˠ T  :(12)(8)>("ANTHOLOGY 13A JAN-MAR 1985"R2(4);"CATALOG" G" 7155:M$ESC$:S$"S"465:S$"C"440:G$;:435JESC$"":MENU$PS$:785v24:1:"Enter Printer String ";:CW$""740:S13CW$CW$S$:450-CW$""CX$"$":J1(CW$):X((CW$,J,1)):HI(X16):LOXHI16:CX$CX$(HEX$,HI1,1)(HEX$,LO1L FILE BLOCKS = ";1MITB:SLĺD$"PR#0"N24:1:HR$;:740:S13S27410_ESC$M$:140uPrinter ControlsVT5:HT3:ESC$MENU$:MENU$PC$:765VT4:HHT2:H:"[S] Slot # For Printer"::H:"[C] Control String For Printer"/720:S22);"DATA BLOCK = ";BN;", RECORD=";I256J;", BYTE=";I1281024J512;", KEYWORD=";(34);:K09:((BUFFERK));:(BUFFERK)65K10|:(34):TBTBDB:12);"TOTAL DATA BLOCKS = ";TB:6);"TOTAL INDEX BLOCKS = ";MI':"TOTA7İ750:ESC$"":X(37):785:X1:410a^IBMI%(I):B1DIRECTRY:B2IB:970:RC0410:DB0:MIMI1c:6);"INDEX BLOCK = ";IB;", RELATIVE INDEX = ";IhJ0255:DIRECTRYJ,BNmIB%(J)BN:BN0385rB1BUFFER:B2BN:970:RC0410:DBDB1w16):235 ;2@115,BUFFER:DIRECTRYBUFFER512EB1DIRECTRY:B2KEYBLOCK:970:RC0410:MI0:SLĺD$"PR#";SL:CW$""ĺCW$;J:"MASTER INDEX BLOCK = ";KEYBLOCKOI0127:DIRECTRYI,BN:MI%(I)BN:TTB0:I0127:MI%(I)0390%Y755:S2N0NB0300::3SLĺD$"PR#";SL:CW$""ĺCW$;V"I1N:FE$(I)::SLĺD$"PR#0"}'24:1:HR$;:740:S13S27295,ESC$M$:1401Display Help File Structure6KEYBLOCK0İ875:RC0410:KEYBLOCK0Ģ17:HT2:G$"Keyblock Must Be Set";301:YX(X16J)16J:X(X16J):CX$CX$(HEX$,X1,1):XY::" "CX$:235mDisplay Help File Entry M$ESC$:ESC$"":MENU$RH$:785:PMT$EK$:710RESP$""140:KEY$RESP$:800N0:NB0:810:S27140925:EC0295:820:S27140:(48944)16*ESC$M$:MENU$SH$:785:220e216,0:15:H:G$"PATH NOT FOUND";17)::H:31):235ESC$"":MENU$BN$:785:PMT$"Enter Key Block ":710RESP$""235:KEYBLOCK(RESP$):17:H:"Key Block: ";KEYBLOCK;" ";:XKEYBLOCKPCX$"$":JH:"[P] Set Help File Pathname"::H:"[K] Set Key Block Number"g:H:"[D] Display File Structure"720:M$ESC$:S27155:S$"D"305:S$"P"225:S$"K"245:G$;:220VX15:845:RESP$""235:PF$RESP$:240 D$"VERIFY";PF$:216,0:DSLOTurn." :H:"To Continue Without Destroying":H:"Your Parameter Values, Enter":H:"CONT And Hit Return (In Case":H:"You Hit ESC One Too Many Times)."::23::140 Help File Information VT5:HT3:ESC$MENU$:MENU$SH$:765@VT4:HHT2:420:S$"C"480:S$"U"565:S$"Q"S27180:G$;:175@ Quitm VT3:HT1:MENU$"Finished":ESC$"+":765 VT3:HHT2:H:"Extended Help Returning To":H:"Applesoft And BASIC.SYSTEM."::H:"To Start The Program Again,":H:"Enter RUN And Hit RetVT3:HHT2:H:"[H] Set Help File Information"::H:"[D] Display Help File Entry" :H:"[P] Printer Control Setup"::H:"[C] Copy Help File Entry" :H:"[U] Update Help File Entry"::H:"[Q] Quit";6 720:S$"H"200:S$"D"260:S$"P"$" ":? US$"":I115:US$US$"_____"::US$US$"____" (21);:::D$"PREFIX":PX$:PF$PX$:(PF$,1)"/"PF$(PF$,(PF$)1) Setup Screen Area (21);::" "; 2:1:(US$,39):34,2:35,23 VT3:HT1:MENU$MM$:ESC$QU$:765V ring":HEX$"0123456789ABCDEF":BN$"Key Block" xSS$"Set Printer Slot":CH$"Copy Help Data":UH$"Update Help File":HR$"Hit Return To Proceed ":EK$"Enter Keyword ":D$(4):G$(7):DSLOT6:SL0:MI%(127),IB%(255),FE$(30),FF$(30) }SP$"":I113:SP$SP% d Extended HELP For ProDOS?i(C) 1984 By Ken KashmarekynSR$"":(116)148İ1000:915:Load Hashcode Program- sMM$"Main Menu":QU$"Quit":SH$"Help File Info":PT$"Set Pathname":RH$"Read Help File":PC$"Printer Controls":PS$"Set Printer St               ٠ϠԠҍĠˍؠˠȠƠǍԠȱŠˍҩ٠ԠҠӽȱҠٍҠȠٍҠĠˍؠˠȠƠǍԠȰŠˍҩ٠ԠҠӽȰ̠ٍ̠ٍ̠ٍȫĠРҠ׍ȍҠԍҠԠԠӠƠōҠҠӠԠǿ٠ԩٍؠРȍٍԩ٠Ǡҍҍٍԩٍҫ٠٠ȠҠԍ٠ȫȠĠ̠ҤȍŠȠ͠ŠҍˠŠ͠ĠҍźҤӠŠǠȠŠčȠӠŠŠϠŠŠōԠŠРŵ̠΍ŠΩ٠͍ͫԠԍԍҠɍ ˍԍ٠ΠŠϠٍѠԍ͠РҍĠՠԠŠϠȠӠϠ͠ŠŠźѠ͠ΧԠŠύ̠̠̠̠ԍҠ͠Ҡ͠ҠӠÍҠҠà͠٩٠ҍҫҠ͠Ҡ͠ˣÍҠҠà͠ҠӠΠΠ٠өˠӠ͠ϠŠƠˍΠӠɠΠŠ٩ԠŠРĠ΍ŠĠ٠ԠōҠԍҠԠԣ؍ĠԠĠˠōϠĠ٠Šˠ͠Ӎˮ٬ԠΠϠĠ̍ĠӠӮźĠԬҬˬ΍źԠӠŠŠˠӠΠŠҍҍ֫ҍ֫΍΍٠Ҡ֍ӍՠǠРҠՠРԠՠŷà͍ĠՠŷŠԠčƠՠ² àٍΠՠĶԠō֠ՠŲàŠٍԠРĠŠϠҠٍԠǠҠҠҍԠӍҠˠҠؠՠùؠҍԠՠųԠŠӍҠՠű٠ҍРՠŲƲҠϠԍՠŴԠǠōҠՠŵŲŠǠϠٍԠՠŶƸҠÍƸӠŠӍɠՠưŠŠōӠՠĵҠȠӍ͠ՠĶˠҠàԍȠՠķȠҍ͠ՠĶōҠՠĶàˠҠǍ͠ՠŠŠҍˠՠɠĮˠōԠՠӠԠҍàՠĠҍԠՠ±ҠԠōƠՠĠҍ֠ՠƵĠҍҠՠƵӠԠӍҠՠ ՠԠҠԠҠՠ Ҡҍ͠ՠĠˠҠҠčԠՠΠԠҍՠàҠӍՠōՠ͠ՠ̠ҠčРՠƠŠǠ٠Ԡ΍ԠĠРĠӍ٠ΠˍԠΠՠǠȠҠԍȠՠĠōҠՠӠԠǍǠՠҠǠԠՠ͠ԠҠĮˍ     Ƞ ȍà čӠ ԍ˵àȠ ȍ٠ ȍà čӠ ԍ ҍĠ ҿŠ˴ ԍ٠ ˴ ȍР٠ ȿӠ˲ Ԭ ΍ؠ ҿŠ˵ ԍàҠ ҍ٠ ٍ ԍ˳ڠӠ Ӎà٠ ٍٍР ȿà˲ Ԭ ΍ؠȠ ȍ٠ӭؠ ȍؠٿŠ˴ ԍҠӠ ӍàӠ ӍӍР ӿŠ˲ Ԭ ΍ڠӠ ӍàӠ ӍӍР ٿѠ˳ Ӎ˲à čӠӍӠ ɍ˱àӠ ӍӍР ӿŠ˲ Ԭ ΍ڠӠ ӍàӠ ӍӍР ӿŠ˲ Ԭ ΍ڠ ө ˠĠ ōԠ ōĠ ԿŠ˱ Ӭ ȍà ūɠ ӍӠ ήƠؠؠˍŠРԩԠؠ ōؠôō ŧ Ү ҠŠ Ӎ Ӯ à ӍŠ Ӎō Ƣ ΢ űŠ ōԠ ̍ؠô Ԯ ō٠ Ū Ӯ Ҡɠ ԍؠƍàű Ӭ ȍ ˠ ͍٠ ؍Šˬ٠ ōРˠ ӿŠű ԍū Ӎűũ٠ ō٠ ſŠŠ ԍ ȍ ƫ ̍ū ōū ˍڠŠ ōҠƹ ҍŠô ®Ǡ± ɠ ō ōҠҍӠ  ĬŠ ōԠà ōҠƵ ōɠư ̍Šư ōŠƹ ōŠƹ ōȠ ōÍ           98,141,14510 191,173,126,98,10,10,10,10,10,46]: 145,191,24,109,127,98,141,144,191,173D 128,98,141,147,191,173,129,98,141,146N 191,40,96X -29577  -29577  2,208,8,173,125,98,41,3,208,1L  200,152,205,127,98,176,217,224,12,208u  13,238,125,98,169,1,141,127,98,141  126,98,24,96,238,126,98,169,1,141  127,98,24,96,84,10,13,0,0,0  0,31,28,31,30,31,30,31,31,30 & 31,30,31,8,120,173,125,*  131,98,238,130,98,173,130,98,201,60U  208,26,156,130,98,238,129,98,173,129  98,201,60,208,13,156,129,98,238,128  98,173,128,98,201,24,240,2,24,96  156,128,98,238,127,98,173,127,98,201  29,144,241,174,126,98,188,131,98,224 42,32,0,191,64,247,97= r 144,1,0,173,18,196,141,254,97,162e | 196,160,64,169,8,32,251,97,169,76  141,6,191,169,144,141,7,191,88,96  2,0,0,98,108,254,97,0,196,216  173,124,7,41,8,208,2,56,96,238  131,98,173,131,98,201,60,208,39,156, * HERE IS THE ASSEMBLY LANGUAGE CODE FOR THE CLOCK *s 6 ****************************************************y @ J 120,169,1,32,245,190,176,34,141,250 T 97,133,7,141,8,191,100,6,160,0 ^ 185,0,98,201,98,208,2,165,7,145 h 6,200,208,2*********************************' / T0< I1263D I%T 25008I,I%_ TTI%f In I%y TTI% T0ĺ"ERROR": (4);"BSAVE IIC.CLOCK,A$61B1,L263"   " ****************************************************8 1d *****************************************an * PROGRAM TO GENERATE ASSEMBLY LANGUAGE *x * LOAD MODULE FOR IIC CLOCK * * BY * * CECIL FRETWELL AND GARY LITTLE *! ********     b(`ax "adbb @ačaĠ@ aLX`blaح|)8`bb<'bbb<bbb< bbb`bbb~bb}b)Șb }bb~b`~bb`T x}b~b .mbb 25216,HH25217,MI : -FIRE UP THE CLOCK@$K.25009Q80i15:8:" "p  -INITIALIZE SYSTEM DATE AND TIMEHH12HH0A$"P"A$"p"HHHH12::25213,YY25214,MM25215,DD p18:2:" CORRECT? Y/N ";/zP$L(P$"N")(P$"n")920U570i15:8:" "p  -INITIALIZE SYSTEM DATE AND TIMEHH12HH0A$"P"A$"p"HHHH12::25213,YY25214,MM25215,DD "9")710!MI10MI(A$):A$;0MI597107  K -GET AM OR PMR  d*(A$)27580l427>A$:(A$"A")(A$"a")(A$"P")(A$"p")(A$" ")(A$(13))810H(A$"P")(A$"p")ĺ"P";R \ -REPEAT UNTIL CORRECTf ')(A$"1")620 HH(A$):A$;? A$:(A$"0")(A$"9")620W HH10HH(A$):A$;k HH12HH1620r   -READ MINUTE INTO MI  (A$)27580 23:"MM";:23 A$:(A$"0")(A$"5")710 MI(A$):A$; A$:(A$"0")(A$10(A$):A$  /  -REPEAT UNTIL CORRECT6  ] 18:" CORRECT? Y/N ";e &A$| 0A$"N"A$"n"190 :13:8:" " D15:8:"ENTER TIME: HH:MM AM"; N X -READ HOUR INTO HH b l20:"HH";:20 vA$:(A$"0"400 |MMMM3:MM39ī370$ 330I A$;:COUNTCOUNT1:COUNT4ī350Y MM(MM1)3`  y  -READ YEAR INTO YY  (A$)27190 27:"YY";:27 A$:(A$"0")(A$"9")450 YY(A$):A$; A$:(A$"0")(A$"9")450 YYYYA$):A$;' A$:(A$"0")(A$"9")240? DDDD10(A$):A$;S "DD31DD1240Y ,s 6 GET MONTH INTO MMz @ J(A$)27190 T23:"MMM";:23:COUNT1:M1$"" ^A$:(A$)96A$((A$)32) hM1$M1$A$::MM4 rM1$(MO$,MM,COUNT)ī******************** < (4);"BLOAD IIC.CLOCK"n MO$"???JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"x 12: " ENTER DATE: DD-MMM-YY"; -READ DAY INTO DD 20:"DD";:20 A$:(A$"0")(A$"3")240 DD(R8d ************************************************on * PROGRAM TO SET UP IIC CLOCK THEN ACTIVATE IT *x * BY * * CECIL FRETWELL AND GARY LITTLE * ****************************     )256125 T(B5) ] (B);" ";(B1);" ";(B2);" ";(B3);" ";(B4);" ";(B5)o T(B5)200x 170 * * CECIL FRETWELL AND GARY LITTLE * **************************************** B(48904y0d ****************************************_n * ROUTINE TO CHECK OUT CLOCK OPERATION *x * BY * * CECIL FRETWELL AND GARY LITTLE * **************************************** B(48904 S.H. LAM ROUTINEo H$"0300:A9 04 F0 0B 20 F5 BE C9 0C F0 07 8D 18 03 60 4C F8 BE 8D 0F BE 4C 09 BE 00 " H$H$"ND9C6G":I1(H$):511I,((H$,I,1))128::72,0:144:DDRESS THE BUFFERS MAY BE FREED BY POKE 769,0: CALL 768 R ACCORDING TO THE SIZE OF YOUR MODULE. P FADDRESS(792)256:BUFFER ADDRESSj P"ADDRESS = ";ADDRESS ZHIMEM(116)256 d"HIMEM = ";HIMEM x(4)"BLOAD your.pathname,A";ADDRESS THE BUFFERS MAY BE FREED BY POKE 769,0: CALL 768 LISTING 19 FILE LOAD DEMO BY KEN KASHMAREK O (12);(21);::r:I141:" ";::40:" ";:10:"BINARY FILE LOAD DEMO";(:40:" ";:40:I141:" ";:::2200:LOAD INTERFACE ROUTINE) <769,4:768: SET THE NUMBE   D$"CLOSETEST.FILE": "A$=";A$:"B$=";B$:"C$=";C$K D$"CATALOG" $a iD$"CATALOG"y nD$"OPEN TEST.FILE" xD$"WRITETEST.FILE" "NEW RECORD 1";(0) D$"CLOSETEST.FILE" D$"OPEN TEST.FILE" D$"READ TEST.FILE" A$,B$,C$ST.FILE" PA$,B$,C$. ZD$"CLOSETEST.FILE"P d"A$=";A$:"B$=";B$:"C$=";C$a iD$"CATALOG"y nD$"OPEN TEST.FILE" xD$"WRITETEST.FILE" "NEW RECORD 1";(0) D$"CLOSETEST.FILE" D$"OPEN TEST.FILE" D$"READ TEST.FILE" A$,B$,C$MLISTING 2 D$(4)hD$"CREATE TEXT":D$"PREFIX /GENERAL/TEXT":DELETE THIS AFTER FIRST RUND$"OPEN TEST.FILE"D$"WRITETEST.FILE"("RECORD 1":"RECORD 2":"RECORD 3"2D$"CLOSETEST.FILE"<D$"OPEN TEST.FILE" FD$"READ TE  Š ȠŠƠӍԠƬ͍ҠϠԧ͍РҠҿѠҠƠϬԍŠŠȠōӠ΍ŠРҠŠ̠ӍҠŠŠҠōРԠҠōӍѠŠϠӠŠ̍ҠҠϠԧ͍РҠҿѠҠƠϬԍŠŠȠōӠ΍ŠРҠŠ̠ӍҠŠŠҠōРԠҠōƠԠүҠōԠӠՠҠӠҠ׍ԠՠŰŠĠōŠՠŰƠҠōҠՠƵԠӍҠՠƸŠ̠ӍǠԠӠҠƠ  6Z(16384)192:Z1ZI3100 @IZ:16368,0N JIN1ė:10:18:"BYE":V O:t T:10:"LOADING ";PGM$(I) hD$;"RUN ";PGM$(I) | X(222):X13ĺ"A FATAL ERROR HAS OCCURRED": D$;"BRUN ";PGM$(I)O GO ON.";A$ D$;"CATALOG" xN I1N:PGM$(I):7 :I039:(32);:h " SELECT FROM THE MAGICAL MENU "; I039:(32);:: Now print the menu 8 I1N:5:(I192);") ";PGM$(I):I "5:(N1192);") QUIT" ,23:16:"" GM$(I);:I - ."DEL 0,59"1 1"SAVE MENU"E 2"DELETE MAKER"X 3"CLOSE MAKER"m 4D$;"EXEC MAKER"s 7 ; Next starts menu itself <: A400 FD$(4) PPGM$(20) Z The next line will contain titles after menu is made d  This gets titles -A "HOW MANY TITLES DO YOU WANT? ";Nn "TYPE EACH TITLE EXACTLY AS IN CATALOG" I1N:"TITLE #";I;:PGM$(I):I # This makes exec file (D$;"OPEN MAKER" )D$;"WRITE MAKER" *"100 DATA ";N; ,I1N:",";PC MENUMAKER BY KEN WATTERS CALL - A.P.P.L.E. QPGM$(20)]D$(4) ::"SO YOU WANT TO MAKE A MENU....":"PLEASE PUT DISK YOU WANT MENU ON INTO THE DRIVE.."::"HIT WHEN READY TO GO ON.";A$ D$;"CATALOG"    0  32,245,190 " 240,6. , 32,12,190= 6 76,208,3F @ 96MEM DOWN A SPECIFIEDs NUMBER OF PAGESy CECIL FRETWELL:I768781JI,J"HOW MANY PAGES? ";I769,I768  169,Gd FILE NAME = GET.SPACE#n@x PROGRAM TO MOVE PRODOS] HIMEM DOWN A SPECIFIEDs NUMBER OF PAGESy CECIL FRETWELL:I768781JI,J"HOW MANY PAGES? ";I769,I768  169, BSAVE PUF,A$";LOC$;",L533" E4,LOC> BASE14,LOCL "LOCLOC1] ,BASE27,LOCn 6BASE48,LOC @BASE65,LOC JBASE69,LOC TBASE118,LOC ^BASE372,LOC hLOCLOC1 rBASE126,LOC |BASE128,LOC BASE130,LOC D$BASE9,234 BASE13,96+ BASE4,LOC< BASE14,LOCJ "LOCLOC1[ ,BASE27,LOCl 6BASE48,LOC} @BASE65,LOC JBASE69,LOC TBASE118,LOC ^BASE372,LOC hLOCLOC1 rBASE126,LOC |BASE128,LOC BASE130,LOC D$;"!d FILE NAME = FIX.PUF!n<x PROGRAM TO FIX PRINTT USING AND FRIENDSo TO WORK UNDER PRODOSu CECIL FRETWELL:D$(4)LOC$"97EB"LOC151BASE38891D$;"BLOAD PUF,A