' +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- (  Ϡ@跻~!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`ōР ōӠ ΍ū ōȠ ȍ̠ ҍ̠̍̍̍̍ū ԍÍà٠ ٍŠ ȯٍӠ ӍҍӠ Ӎɪ Ů ŠР ōɠ ӍҠ ҍ Ӡ ΍  ҍ ҍ ٍ ΍ ̍ Ǎ Ѝ ԍ ֍ ÍҠ  ҍȠ  ȍ٠  ٍӠ  ҍӠ  ӍӠ  ӍӠ  Ӎz#?     ǮԮԮŮƮӠҠԠ ϠԮîˠîˮàîˠԮˠ Ů٠Ǯ;" DISK AND PRESS RETURN";:" ";DK$-9363C16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI     cvc]ܢ @J0G eeʎd d E DUEX ЃDWcДJEgDfLH eeh) tt L [ _HH`]ɍ]ɬ` ɠ``DE ɤ<(LΡ DE`80!  eDeE eDDeEE8`D鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``Z  :(12)(8)D("DISK OF THE MONTH - JANUARY - 85"X2(4);"CATALOG" O    Ƞ ȍà čӠ ԍ˵àȠ ȍ٠ ȍà čӠ ԍ ҍĠ ҿŠ˴ ԍ٠ ˴ ȍР٠ ȿӠ˲ Ԭ ΍ؠ ҿŠ˵ ԍàҠ ҍ٠ ٍ ԍ˳ڠӠ Ӎà٠ ٍٍР ȿà˲ Ԭ ΍ؠȠ ȍ٠ӭؠ ȍؠٿŠ˴ ԍҠӠ ӍàӠ ӍӍР ӿŠ˲ Ԭ ΍ڠӠ ӍàӠ ӍӍР ٿѠ˳ Ӎ˲à čӠӍӠ ɍ˱àӠ ӍӍР ӿŠ˲ Ԭ ΍ڠӠ ӍàӠ ӍӍР ӿŠ˲ Ԭ ΍ڠ ө ˠĠ ōԠ ōĠ ԿŠ˱ Ӭ ȍà ūɠ ӍӠ ήƠؠؠˍŠРԩԠؠ ōؠôō ŧ Ү ҠŠ Ӎ Ӯ à ӍŠ Ӎō Ƣ ΢ űŠ ōԠ ̍ؠô Ԯ ō٠ Ū Ӯ Ҡɠ ԍؠƍàű Ӭ ȍ ˠ ͍٠ ؍Šˬ٠ ōРˠ ӿŠű ԍū Ӎűũ٠ ō٠ ſŠŠ ԍ ȍ ƫ ̍ū ōū ˍڠŠ ōҠƹ ҍŠô ®Ǡ± ɠ ō ōҠҍӠ  ĬŠ ōԠà ōҠƵ ōɠư ̍Šư ōŠƹ ōŠƹ ōȠ ōÍ         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"    ΠͤɩΠŠ  ԠŢĠҠԠŠ ԠǠͤɩԠĤΠͤɩĠؠˠƠؠΠԠ̠ҠӠĢĠԠĤ Ϡκ ԠҤɠͤɩԠɍ ԠҤΠԢ  ԠȿڠˠƠڠҠڠɠΠɠںŠƠɠΠϠκĠͤɩԠŠҠɠϠԠҤԠԠԠ͠Š̠ՠҠɠϠԠҤԠ̠͠ ҠŠҢԠĤàҢĠ͠捠ԠŠҠϠĤҤͤ͠͠占Ġ΍Ҡɠ͠占ԠĤΠҢԠĤŠҢԠλҠɠϠκԠͤɩԠɍԠԠ̠ԠŠբԠŠҢԠӠԠξΠ٠ϠϠήԠĤǢ͠󠭍Ԡנ٠ӠϠՠԿ΍ԠŠȠŠ٠ӠΠǢҠɠϠκԠŠɻԠͤɩԠɍ͠󍠠ЮЮ̮Ůͤ͠ĤҤԠŠԠϠՠԠϠŠծԠԠŠԠˠՠԠՠΠϠŠŮԠ