' +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@ [_ /QSIR4b_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- ( u  àԠ@跻~!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#?    ͮӠŠŠ$ Ϡנ  ͮՠ٠ͮŠ ͮҠͮŠͮͮԠ ͮŠ   ͮΠͮŠҠͮΠ ͮ ͮΠͮŠͮŠ"Ϡ"ؠ"ήʠ!Ǯʠ Ӯʠ ®ʠ àԠ! HHHȱ ȱi hhhIȱ` - J| -Jhhh,00,0N,0@$NPp 0 00O P,0HHHLɀpP L9L! D$(4):D$"RUN HELLO,D2"(  HIP-OUT THE" *)"BUG SPRAY!!!"2**M%17İ3200?**216,0:D255A1%1:"Please use (A)bort Command to exit"Y)6)B1%6A1%1:"No such file exists "m)@)(A1%1)10700w)J)3100)T):))::))"Unresolveable Error ("B1%")"))"(LINE = "(218)(219)256")"))"CONTACT OPERATOR AND" *)"TELL HIM TO W,D1"/(&F$"OPEN DRIVE2,D2":F$"DELETE DRIVE2"9(&6000d(&"DRIVE 2 IS CURRENTLY UNAVAILABLE";H$n(&9940|('H$:6000()A1%0()B1%(222)()B1%9A1%1:"Sorry, but the disk is full!"(")B1%13A1%1:"That is not a Message File."0),)B1%H BROSSMAN"+'%" 871-6098"1'H&'R&"Enter 'C' to return to Command list":" or anything to continue with transfer.":2600:O$"C"6000'\&:F$"RUN PH TRANS,D1":'&(O$"2")10000'&"nd Drive Catalog"'&9960(&F$"CATALOG/&%"DO NOT change this condition! When the"^&%"prompt returns, be sure your system has"&%"the proper language resident, and then"&%"type CALL 973 , for the transfer."&%:"If you have troubles, give a call to" '%:" RICates you are back in control."J%%"You may then enter the LOAD or BLOAD"w%%"commands ( or any other ) to load the"%%"file you wish to transfer. Note, that"%%"since PH-TRANS works in half-duplex,"&%"your entry will have double characters."OFT, INTEGER, or even"D$%"BINARY disk files. After you are told"q$%"READY FOR TRANSFER, wait few seconds,"$%" TYPE R, ,"$%"then type PR#2, . You should see"$%"the language prompt ']' from my APPLE,"%%"which indicrams to Another Apple"C#:%"Do You Need Instructions ?";:P$:2700T#D%P$"N"9810`#N%3000:#X%"The PH-TRANS program will first, send a"#b%"short machine code program to your"#l%"APPLE, which will prepare both systems"$v%"to transfer APPLESgain? (Y/N) ";:P$:2700)"#P$"Y"9130Z"$:"Read Another Message? (Y/N) ";:P$:2700k"$P$"Y"8890u",$3200"6$6000"T$:"Enter 'Q' to Quit";:2600"^$O$"Q"ġ:9220"h$(O$M$)9300"r$Z%1:3000:"%(O$"T")9900#0%"ransfer Prog!#3200!2#10500(!<#F$"VERIFY "F1$4!P#10500T!Z#F$"OPEN "F1$:F$"READ "F1$\!d#Y%h!n#G1Y%|!x#768:D$(D$,1)!#T$(G)D$!#G!#F$"CLOSE "F1$!#Z%0:G1Y%!#(37)18X%1İ9300!#T$(G)!#G!#Z%9220"#:"Read it a""rogram Catalog") "F$"CATALOG":6000= `"(O$"R")9500W t""ead a Message File"` "W%0j "2800u ":X%0 ":"Enter Desired File Name "; "F1$ "F1$""Ĭ: "F1$S$X%1:8900 "3000:"File : "F1$ " #W%19010 #W%1(1530):O%0O%256'R!(1914)2O%0\!"ulls currently set at "O%". ":"That is equivalent to ";.01O%;" secs.":"Enter new value:";:G1$:O%(G1$):G1$""6000f!1914,18:O%1Ĺ1914,2p!O%255Ĺ1914,18:O%0z!1530,O%!(O$"P")8800 ABLE...FAST EH?"$ (O$"L")8400= V%0:(1914)2V%1P& "inefeeds -";i0 V%0ĺ"Off":1914,2: V%1ĺ"On":1914,18:1530,1 (O$"M")8500 "essage Catalog" 3200 F$"CATALOG"!3200 !60004!(O$"N")8700H!O%1$:F$;"WRITE ";F1$VG13`H1G1:T$(H):HXjF$;"CLOSE ";F1$:F$;"LOCK ";F1$b~3200j:~@(O$"G")8100O"ood Bye"TF$"RUN BYE":(O$"I")8200"nteger being loaded into Ramcard.""""INTEGER IS NOW AVAIL(Q$,1)"0"Q$(Q$,(Q$)1)CF1$F1$" "Q$::"File Name: ";F1$M3200X7500F$"VERIFY "F1$:"Overwrite existing file? ";:P$:2700:P$"N"72807470$F$;".UNLK ";F1$.74908F$;"DELETE ";F1$B10500LF$;"OPEN ";Ffile name to SAVE message,"E"Enter 'CONT' to continue message,"m"or press RETURN to ABORT message"w2400"";F1$:2500:(F1$)07560F1$"CONT"72102900:Q$(Q$,8)"."(Q$,10,2)(Q$,7,1)"0"Q$(Q$,6)(Q$,8,4)*****"8:"= = = = = = = RICH BROSSMAN = = = = = = "B::b"BEGIN MESSAGE ENTRY NOW."jG$tGG1}*2004T$(G)D$>(T$(G)G$)7160\f:"This program will add the date and time":"to your file name!"pz"Enter CTRL-D and"8"character insertion with the CTRL-I,"R"are now supported."~"When asked to 'Enter file name', use""your own name. The time and date will""be automatically added to your name!""************* THANK YOU ********A lower case ADAPTER,">b"BEFORE CALLING, POKE 1784+(MS),0"il"and receive lower case. Use the ESC"v"key as your SHIFT key.""Back space with the <-- or CTRL-H,""forward space with the --> or CTRL-U," "character deletion with the any message. Bells"C&"will sound at the 34th letter and from"n0"there on. PLEASE HIT RETURN THEN!!":"An automatic carriage return will be"D"forced after 79 characters."N" ALSO, lower case is now supported"X"IF YOU ARE USING d instructions?";:P$:2700-P$"N"71403a"This program will allow you to leave a""message. You may enter your message,""one line at a time. Each line may be""up to 79 letters long. There may be""up to 200 lines inE(B1$):FE:F0E12'F12EF12CE1$"AM":F11E1$"PM"|:"The current time is ";E;":";C1$;":";D1$;" ";E1$6100(O$"E")8000"nter A Message"G0"Press RETURN on a blank line to end!""Should I skip detailend Time"2900&T%((Q$,4,2))8U%((Q$,2))IJ%R%(U%)T%yL%((4928016K%)64):L%1J%59J%J%1J%J%S%X$::"Today is ";A1$(J%7(J%7));", ";Z$(U%);" ";T%;", 1981"B1$(Q$,7,2):C1$(Q$,10,2):D1$(Q$,13,6) at "O%*"P - Program Catalog Drive 1"D"R - Read A Message"Jv"T - Transfer Prog's to another APPLE""2 - 2nd Drive Catalog"""6100d(O$"A")6600x"bort"3100216,0(O$"D")6800"ate aMAND LIST===="`5j"A - Abort Message Service"Nt"D - Date and Time"g~"E - Enter Message""G - Good Bye (Sign Off)""I - Integer Language Loader""L - Line Feed Toggle""M - Message Catalog""N - Nulls Currentlyy,Friday&A1$(7):D06:A1$(D):DX 0,31,59,90,120,151,181,212,243,273,304,334vR%(12):D112:R%(D):DS%53400pz3100:" Command (A,D,E,G,I,L,M,N,P,R,T,2,?)?"::26008(O$"?")6500L:V"====COM1453vU$(2)'wV$"LOG.INDEX"U$7xW$"LOG"U$DyX$(14)QzY$(10)January,February,March,April,May,June,July,August,September,October,November,DecemberZ$(12):D112:Z$(D):DSaturday,Sunday,Monday,Tuesday,Wednesday,Thursda(27)Uf S$(2):F$(4):H$(7):I$(8):J$(9):M$(13):R$(14):L$(21):N$(24)p C%0:D%1:B%2:A%2:F%99:G%34:H%79z T$(200) K%7 I%2 O%(1530) 169,183,160,232,32,0,189,96:C9609607:A:C,A:CtP%1312uQ% 47083,00& 47084,N%:47085,E%@ 47088,187:47089,180J 3300a M%16M%17M%17z M%M%1:M%18M%16 46268,M%:B2 46269,15 46387,00:46388,00 3300  47092,B 960 H D$"X"R G$"":K$(32):E$й777,105:778,200:779,169:780,0:781,145:782,105:783,200:784,169:785,2:v 786,145:787,105:788,96:789,142: T F$"PR#";K%:F$"IN#";K%:Q$:F$"IN#";I%:F$"PR#"I%: R$::  (M%17)M%16:3200  B1 N%17:E%0 47091,00 300  ` 1784I%,32:1 1784I%,0:; ( 2400H ) O$:O$;R * 2500X + a P$; P$"Y"P$"y"ĺ"es";:P$"Y" P$"N"P$"n"ĺ"o";:P$"N" : 768,162:769,0:770,32:771,117:772,253:773,160:774,2:775,138:776,145:M AA1282 mE%C%:A65A90E%D%:A%C%AA32C nA$(A):A$;T oA%D%A%C%j pBBD%:BF%ĺH$;z qA$M$2300 rBG%ĺH$; sBH%D$D$A$:2300 tA$N$ĺ"\":200 uD$D$A$:B$G$300 w(B$)D%B$G$:2200 xB$(B$,(B$)D%)1600 (D$)C%ĺH$;:300I (D$)D%ĺA$;:B$D$B$:D$G$:BC%:300b ((D$,D%))31ĺA$; BBD%:B$(D$,D%)B$:D$(D$,(D$)D%):300 @(A$L$)1900 BB$G$ĺH$;:1900 D(B$)D%A$B$:B$G$:1900 EA$(B$,D%) lA(A$):A127%:300 (A$F$)1000. B$G$ĺH$;:300P (B$)D%ĺ" ";I$;:B$G$:300z B$(B$,(B$)D%):((B$,D%))32300 B$" ";:CC%(B$):I$;:C:300 (A$J$)1300 B$G$ĺH$;:300 B$K$B$:B$;:CD%(B$):I$;:C:300 (A$I$)@"2 LINE 7180 DELETED TO REMOVE LINE NUMBERINGJ LINE 7180 PRINT Gz LINE 7335 CHG (GO TO 7180, TO GO TO 7210)223112,192:23104,193d5000B$"":D$"":B0,A$(A$E$)700A%B%A%C%:300A%A%B%:300 A%D            (0    0    0    0 9+ V V +V V + + + + V V +V V 0 0 0 0 V V +V V 0 0 V V0@             "" "  "" "  && & "" " ++ &+ $< $V "9 "V 6 V 3 V 0 V - V + V ( V & V $ V " V  V  V  V V V +V V + + + + V V +V V + + + + V V +V V + + + P P L "L &D (D 0 3 9` ` "` &` "V V +D D &@ @ "9 9 3 3 &- - "V V +D D 3 3 &- - "V V +D D 3 3 &- - "V V ++ + && & "" "      ++ +       ++ +                  V +V 0V 3V @V 9 3 V @V 3V +V V V   & & & & - - - -  " & - 3 9 -9 &9 9 @ @ @ @ D D "D &D "f f +f "f 9 +9 -9 39 9Z @Z DZ LZ V V L L D D "@ &@ +9 9 3 3 0 "0 &@ +@ 0L L L L " & + 0 3 "Z Z &Z "  ` 9` +` &` "` +` & " ` 9` +` &` "` +` & " ` 9` +0 "0 0 0 V  9 3 - + & "  V "V +V &V "V V   V V "V V V V   " " " " ( ( ( ( + + "+ &+ +V 0V 3V 0V V 9V +V "V V V   V  @ 3@ $@ &@ $ 3 $ 3 @ 3@ $@ &@ $ 3 $ 3 @ 0@ &@ +@ & 0 & 0 @ 0@ &@ +@ & 0 & 0 @ "@ @ @  "  " @ "@ @ @  "  " @ +@ @ @  " & + 0 3 9 @ D L V Z 9Z &Z "Z Z &Z "  Z 9Z &Z V +V $V &V $< +< 3 +3 V +V $V &V $< +< 3 +3 ` &` ` ` ` ` &` +` 0 &0 3 3 9 9 "r &r (f "f (f "f 0 "0 3 "3 (9 "9 (9 "9 @ "@ D "D L "L &3 3 "0 0 0 "0 L "L &L +L 0 3 9 @ D 0D +D 0D +D 0D + 0 r 0r +r 0r +r 0r + 0 - - 3 3 9 9 @ @ D D L L V V ` ` "V V V V V V  "V V V V +V "V & + L 3L L "L L 3L L 3L V 3V V "V L 3L V 3V L &L +L &L + - 3 9 r "r &r      "V &V +V V V V "  +V &V "V V V "V & + X +   @ +@ V +V +   @ +@ V +V &   9 &9 @ &@ &   D &D @ &@ "   9 "9 V "V "   V "V 9 "9   V V V V L L L L D D D D &   @ @ "@ @ &9 9 "9 9 3 +3 -3 3    (6 (@ (PH  % >` HJJJJ Oh) ɺi`H bh槝W`` b b`  / X  "# X%$ " BQSU%R  ' F  hh` ɇ LɄ ɃɆ)Ɍ%ɔ!ɋ)Ɋ/Ɏ!ɀL L L ) Ц)w МH` h  ``i): )𑢈` ? ɠ)`)` \ ɀ5 ɼɾ ` 0 ! /`  L L [) L# Vd  )t V  LoF   v  ')?  B    ` V  LH)th)hh`) hhhL# |>  H !h `(` ɍ`Ɉ\ɠ  ɍ3Ɉ* Ȍ`L``  V    Z V3 ɪ c  LɰJɺF) 3 3   =3 3   ˩  i V   V    - V Z  Z` `LC  B Vd    V ) L V2  )tLCħ`)WH |<  h# /` 0_5 Z+ Zة Z3 8  `L3  B K 0` Vd  Lɛ ɕ` hh` QU&TWPTȹ  ) [Lp   ^IƩL I橩  [ ` L L\ LL8LoLL|LbLjLBLLLLLLLLL/L4LLL B H  V Lk \ Lk Lk  LE  LB 4LB \ ɍ Ɉ"ɇɠ" [  `H h L $ ` ` ` L ɦLLX ` V B          KFgi |oc-J)!Ik mgxJ*N,: v v }bnq e`Oq;Raa d Rri>1cac eiFGCqa an/AKyq ~dycgi `x%/1h/="3) TO USE REFLEXIVE VC, PLACE CALL," T" RUN RVC, THEN INSERT VISICALC DISK.";DftFzbvyO!S#xAfW,: Rg-|7A+6I3]zw%TŮ<;@B'6~ 7; ?)jAn}1FW'1b?_}VF1Y*y_Um   ŠҺĠ̠Ǡ̠ǠǠ͠ŮˠŠžϠŠžϠԠŠųųNO PRIMARY DFX DISK. ŠҠϠ٠ؠŠ̠ԠǠǠˠǠǠǠˠĠҺĮϠӠϠӠź̠ҺŠԠԠҠˠɯϠˠŠԠĠ٠Ġ٠ŠǠǠϠŮˠԠӠҠҺž̭àӠŠ XXXXXYY'Y6Y@YLYcYzYYYYYZ"Z'ZPZ]ZjZZZZZZZZ[[6[_[z[[[[[[P9P_PPPPPQCQiQQQQR'RMRsRRRR S1SWS}SSSST;TaTTTTTUEU Ҡ$Р&ԠŠŠŠŠ!!!!!!h` XX` DOS FILE EXCHANGE 1.1 (C) 1982 BY BLACKSMITH (( ( ( PP    << < < dd LL2CLЙLFJ`  LJ `LKL$L0L@KAKBKK`L& KL KLL aLbL KLiͯL`i( K`  'L)?:L)?PP    ` KH?HKhKK L )K(`H'  L *   XMLL̰LILL    * ) 0 λL  ɆМ  敭LʹLiLLIJ  ? `LLI CLLiELKFL *  L *  LL K  *  ɂ` *  LLJ *  őMLL̰L8 *  ͱL1    L敭LʹL L ȥH$h  D K KL K)?ȩ`ȩȑȑ`ȭLȩȑȑȑȊȩȩ`  ' `L8L唍LL啍LL  L  *  Ɇ`LJ  LʹLvL L KL KL *  LE# K ? %G 3    LH ! * * ) ;HL(G 0 $  K I oHLGLeFHh K` K ! * * ) HL(G 0 $  uIL ILGL K I oHLGLFHȱh $ * ) FL(G 0 $ H bI ILGLE *  ` ! L * * ) 4GL(G 0 $ H bIL) ILGLF K ! K * * ) zGL(G 0 $ " uIL ILGLLFL  L  oH  *  L oHLL   *  LGLoGL    KL@LL 8LLI *  LGL KL8HLE *   YLG *  L *  L KL,G  *   LG)L K"LJLzH  LЙL' K ? " K 3  LBLmC ! L * )_ 0 $ n ' AKBKPLLG67 LL UKPAKLBKL K  LI D  `L+ K *   *  L bDLuELD ? LmC ? LC莭L D4LL뭲L' K" K 3   L CLBLmC KLF  L   $~ D 5D 3  ɠHɃa ɼ ɾ$ ? `ک D%L~ Di` DLߢۮL֩  L  DI`4   L D CLLELhFH Dh`L aLbL` KtLI K K ! `4զ-6K7 AKPBKLL * ħq * * K  *  ɑLG  LB ? `! KPLJ CLL UKL ? LCLpEL`L4) * 0   KL K C *  LBLDɑLL CLLGL 3  ? ` *  LNC 0 4` B` ? `)ML LLC K KL LKLBL B D  ? ` CL K K  K  K bB 3 B  LqBɤL ɦL ? ```L  # 3 6 K 3 6 K 3 6 LB( ` Y K` 3 KL K  K  K bB 3 B   CLDL C """"!!! ! ! ! ! !!!LOADDFXAPPLNMSG.OBJ,A$5800"< D$"BLOADMODEMSUB.OBJ,A$C00"V D$"BRUNDFXGSODS.OBJ"D@ VE8192768:40:D$"BSAVEDFXGSODS.OBJ,A8192,L768":16217,35w WE81923072:40:D$"BSAVEMODEMSUB.OBJ,A8192,L3072" XD$;"IN#0" YD$;"CATALOG" ZD$;"RUNDFX" b"LOSTCARRIER" c16219,0: D$(4):D$"BLOADDFXAPPLN.OBJ,A$4200" D$"B9):::12:5:"TRANSFER OF DFX TAKES 8 MINUTES"O HD$(4):D$;"INITHELLO,D1"i JD$(4):D$;"SAVEDFX"x P16217,35 QE81923072:40:D$;"BSAVEDFXAPPLN.OBJ,A8192,L3072":16217,35 UE81921024:40:D$"BSAVEDFXAPPLNMSG.OBJ,A8192,L1024":16217,35W  200&S(16218):S0S2202S398LD(16217):1251,D:[(K8192:C0})20:K,D:CCD:C255CC256-KK1:KE41.20:DCĹ16217,55:/16217,99:400 F::49)"DFX PULL-THROUGH 1.1"18)"(C) 1982 BY GRAEME SCOTT"8"""""2F AE 60 20 24 ED 20 2F AE 60 NADC3:20 BA BC ND823G"g I1(HEX$):511I,((HEX$,I,1))128::72,0q 144  PRINT CATALOG (4);"CATALOG" D*APPLESOFT MENU***, :BY!!M@SSX L. FREEMAND DAND JAMES P. DAVISW N OF ABACUS...4 HEX$"BCBA:A2 0C 20 4A F9 A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 00 E0 C0 20 D0 07 20 1B E5 20 :D$;B$;N$ 20; :10:"THAT IS A TEXT FILE!!!"T PAUSE11000:PAUSE\ 20v  1027,1155,1283,1411  1539,1667,1795,1923  1067,1195,1323,1451  1579,1707,1835,1963  1107,1235,1363,1491 & 1619,1747,1875,2003 0** 6K$"3"B$"DELETE"& @I:1:868K J" PRESS 'LETTER' YOU WISH TO ";Y TK$"3"ğp ^B$;::198:BELLy h240 rISL(K$)65 |X(L(I)2) X194B$"RUN"B$"BRUN" X212470 N$"" J433 N$N$((L(I)J)) J L(I),160:L(I)2,173$ LLISL1933 L(I)1,LL: Ii "RUN ? LOCK=1 UNLOCK=2 DELETE=3 EXIT=4";v B$"RUN"} 6 K$ K$"4"Ā K$"0"K$"4"290 K$"@"K$(LL127)370 240 "K$"1"B$"LOCK" ,K$"2"B$"UNLOCK"  ::0D$(4):CHR$(4) IS CTRL-DF(D$;"NOMON C,I,O"L2^<D$;"CATALOG"iFL(24)uPI124ZL(I)dInSLSL1xX(L(SL))128X("0")X("2")110ISL24X(L(I))128X("0")X("2")210 """ " " " "