' +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`@ퟎ`g@`ߟۿܻܛ`g@Ͻ@``@@`pϽ@``Op@@?``@@pݾ@`p`@썜@`?`@`כֿx@`ߟޚޛx?@@``@`?`_A?+ow{{}Ao?;o_Y^Y{x}]}{y?~?~?~y?~?~s?~~yy?^y?~OsO~aa}c_]]]ysy?py?pa~?~?ws?~yy?~y?~OsOy?>y`~aa?~yyO?~'7wy|?~s?~sO|8wx=8Gaa}w~w~y?~~y?~?~{s?~yyOxOsy?~C?~OsOy~~gyyx?~y|?~??~s?|Oy?~OOy?~yO0~?~?~gyyx?~pyq|?~??~s?~sOyOysyx?~?x?`~?s?n}y~OsOy{gsgy?<~}y?`~?~s?~Oy?~yOsO_G+oo;C{s?;s_\Z{7a]}gy?~?y?~?~s?~~yy?^y?~?~OsO?|c]cyx?y?`~?~?ws?~yy?~y?~OsOy?~~yOaC<~`yyOxO8wmy|?~s?~sOy?~C~y?~ws?~yyO?~Ogy?~p?~OsOygs~gyy?~?~y|?~??~s?nOy?~OOy?~yO33~?x?ngyysy?~yn|?~??~xs?~sOyO}aacysysy?~~pa~?s?~}yy?~y?~OsOygsgy?~?~sy?~|a~?}s?~Oy?~yOsO_A{;o_;;{oAoC;w__[{/x]]}_y?~_pn1y?~?~s?|yy?Ny?~~OsOy?~?xy?`~?~xs?~yy?~y?~OsOy?~}yOaC<~?~gyyO@oy|?~s?>sOy?xy~ps?~yyOgoy?~|?~OsO_8wx?7?pG}aAcwygsgyy?>~y?~??~s?^Oy?~OOy?~yO0~a?|gyyx?~yn|?~??~?ws?~sOyOw~}]}]ys~c]Ayx?~py?~|a~?s?>~yy?~y?~OsOy`y?~?~oy?~a~?{s?~Oy?~yOsOO;;g?W;{no{;o__[[{]]}]y?~Ondn|y?~?~s?n~yy?^y?~0~OsOy?~x@y?`~?~?ws?~yy?~y?~OsOy?|yOaC<~|?~gyyOC@gy|?~s?>sOyxygyO?~?ws?~yyOg8why?~?~OsO_?727?7?;}]}w~wwvw~@``@ԧӠؠҿ򠭠젱֮ɮîؠؠ򠠠宠ӠᠧؠҮӠᠧ䮠宠ɠԍ箠Ӡ젡讠Ӡ͠٠ӠӍҠɠϠؠˠɩԠҤةƠؠΠԍ͠ҠӠ뮠讍͠٠ԠӍ͠ΠҠҠɠϠؠˠɩԠҤةԍ̠͠宠ͮ󠵳蠵ؠҮ忠ɠ뮠쬠ŬŬԬǬ㮍Ϡ宍ԧӠؠҿ򠭠젱֮ɮîؠؠy?^y~ya?~yyO3?wy?~Ca?~sO}?77ww:7;]]}so}wvv~y?~x_qn1y?~?~?|s?~yyO@yy?~~?~OsOyOgs?~0~gyysy?~y|?~??~qs?~Oy?~OOy?~yOaC<~~?~}gyysy?~gOyn|?~??~s?>sOyOysysy?~`~?s?~y?~yOsOyCgsgyx=~~y?`~?~s?~Oy?~yOsOԧӠؠҿ򠭠젱֮ɮîؠؠ򠠠宠ӠᠧؠҮӠᠧ䮠宠ɠԍ箠Ӡ젡讠Ӡ͠٠ӠӍҠɠϠؠˠɩԠҤةƠؠΠԍ͠ҠӠ뮠٠ԠӍ͠ΠҠɠϠؠˠɩԠҤةƠؠΠԍԍӬ蠴ˠӠ讍͠٠ԠӍ͠ΠҠҠɠϠؠˠɩԠҤةԍ̠͠宠ͮ󠵳蠵ؠҮ忠ɠ뮠쬠ŬŬԬǬ㮍Ϡ宍٠ԠӍ͠ΠҠɠϠؠˠɩԠҤةƠؠΠԍԍӬ蠴ˠӠ䮠ؠҠ箠ؠؠӬԬĬҬ䮠ؠҠ箠ؠؠӬԬĬҬ宠ӠᠧؠҮӠᠧ䮠宠ɠԍ箠Ӡ젡讠Ӡ͠٠ӠӍҠɠϠؠˠɩԠҤةƠؠΠԍ͠ҠӠ뮠٠ԠӍ͠ΠҠɠϠؠˠɩԠҤةƠؠΠԍԍӬ蠴ˠӠ讍͠٠ԠӍ͠ΠҠҠɠϠؠˠɩԠҤةԍ̠͠宠ͮ󠵳蠵ؠҮ忠ɠ뮠쬠ŬŬԬǬ㮍Ϡ宍䮠ؠҠ箠ؠؠӬԬĬҬz!#??    נǠϠ¹ӠԮР" ԠůҠԠԠƠŠׯ ӠӠ "ԠӠؠҠŠŠӠ٠ǠˠҠŠ¹ ԮǠϠ¹Ԡ!Ϡ ҠŠԮ"ԠŠՠŠɯ̮Šɯ̮Šů̮Šů̮NTINUE *";(8);:A$::NK YOU, AND ENJOY 'THE COMPILER'."&::"P.S. IF YOU DO NOT HAVE A WAY TO READ THE TEXT FILE/S. TRY THE 'TEXT FILE READER/PRINTER' PROGRAM ON THIS DISK."0999X34,0b"RUN TEXT FILE MENU"24:7:"HIT ";::"SPACE BAR";::" TO COOU HAVE ANY COMMENTS OR SUGGESTIONS"R:"ABOUT THE COMPILER, PLEASE SEND THEM"b:"TO THE::" INTERNATIONAL APPLE CORE"" ATTN. JIM SIMPSON, DIRECTOR - WEST"" 908 GEORGE ST."" SANTA CLARA, CA 95050"":" THAUSE THE ARTICLES, IS THAT YOU"$ R "GIVE CREDIT TO THE AUTHOR & USER GROUP"X  "(*USE ALL THE INFORMATION THAT IS FOUND"  "IN THE FIRST FEW CREDIT LINES*)." ::"ALSO ADD (I.A.C.-TC) TO THE CREDIT LINE":999 ":$"IF Y IN AN EASY-TO-USE FORM" J "TO GET YOU STARTED. IF ALL GOES WELL"P  "WE HOPE TO THEN SEE SOME ORIGINAL ARTI-" "CLES COMING FROM THE NEW NEWSLETTERS.":999 : "THE ONLY THING THAT IS ASKED OF YOU"  "WHEN YOU OU DO NOT USE" B "AN ARTICLE IN THE NEWS LETTER, YOU CAN"H w "LEAVE IT ON THE DISK, SO THE MEMBERSHIP"} "CAN BENEFIT FROM THE INFORMATION).":999 : "FOR THE GROUPS WITH NO NEWSLETTER, HERE"  "IS SOME MATERIAL ALL STANDARD" iC n"TEXT FILES, THAT CAN BE READ BY MOST OF"I ss x"THE WORD PROCESSING PROGRAMS.":999y } :"I HOPE THAT THIS WILL BE HELPFUL TO" "THE MANY USER GROUP NEWSLETTER EDITORS,"  "THAT NEED MATERIAL (IF YETTERS PUBLISHED BY THE APPLE USER") -W 2"GROUPS. THE ARTICLES WILL COVER A WIDE"] 7 <"RANGE OF SUBJECTS, THAT SHOULD BE OF" A F"INTEREST TO BOTH THE NOVICE & EXPERT" K P"APPLE USER." U Z d"THE FILES ON THE DISK ARE :3"BLOAD COMPILER TITLE PICT.4"FT15000:T:N : :"-->";::" THE COMPILER - INFORMATION ";::"<--":::34,2"THE COMPILER WILL BE BRINGING TO YOU,""VARIOUS ARTICLES FROM THE MANY NEWS"## ("L     p|@`߻ߛ|@@``콟@``x~@`~@@``@``|@`ߟܛ@@@``@``~G@`G@@@          "RETURN";::" KEY TO CONTINUE ";:"";L$1 1507 ':= ':Y ' READ TEXT FILE SYSTEMt t' COPYRIGHT APRIL 1983 * DAVID H. MILLER . AEN 2 9525 LUCERNE 6 VENTURA CA. 93004 : 805-647-1063DCOL." : :1  **--APPLE IIE/80 COL.--**Q D$;"RUN APPLE IIE/80 COL."W t:] ~:{  **--PAPER PRINTOUT--** D$;"RUN TEXT FILE/PAPER PRINTOUT" \: f: p **--LIST OF FILES--** u zD$;"CATALOG" ( "PRESS THE ";:::5::"SEE YOU NEXT TIME!"::% :+ :1 :P  **--APPLE II/40 COL.--**o D$;"RUN APPLE II/40 COL."u :{ :  **--APPLE II/80 COL.--** D$;"RUN APPLE II/80 COL." : : **--APPLE IIE/40 COL.--** D$;"RUN APPLE IIE/40 " ^: hHT( r"WHICH NUMBER? ";9 |"(1-7) ";NB? :E :`  **--CHECK INPUT--** NB1NB7ĺ:HT::"INCORRECT CHOICE":::160 : NB11000 NB22000 NB33000 NB44000 NB55000 NB66000 NB7ė HT$ "2. APPLE II/80 COL."* "2 'HTT ,"3. APPLE II/40 COL. W/L.C."\ 1HTx 4" APPLE IIE/40 COL."~ 6 ;HT @"4. APPLE IIE/80 COL." J OHT T"5. PAPER PRINTOUT" V XHT Z"6. CATALOG" [:HT \"7. END%d ***--READ TEXT FILE MENU--***+n:1x:O **--INITIALIZATION--**gD$(4): CONTROL Do:xHT82::: **--MENU--**HT3"READ FILE MENU":HT"1. APPLE II/40 COL."      LUCERNE 6 VENTURA CA. 930043: 805-647-1063 CATALOG FOR THE CORRECT"1"FILE NAME!"J34,6: SET WINDOW \D$;"CATALOG"d: "HIT RETURN TO CONTINUE ";L$  ':':' READ TEXT FILE SYSTEMt' COPYRIGHT APRIL 1983* DAVID H. MILLER. AEN2 9525 >:?:,@ **--TEST FILE NAME--**7J8070NTD$;"VERIFY";FILE$j^216,0: RESET ERR FLAGphvr:||: **--FILE ERROR ROUTINE--**216,0: RESET ERROR FLAG12:"****--ERROR--****""CHECK THE1BPAGE$(SCREEN)L5VSCREENLINES1İ7000L`SCREENL21İ7000XjSCREENfo16368,0pt6080v~:|:X **--PAGE FULL--**]16368,0bLINESLINES10l:23:"PRESS THE RETURN KEY TO CONTINUE ";:v"";L${}ONTINUE ";"";L$%:10-D$=D$;"CLOSE"H216,0V16368,0"WOULD YOU LIKE TO SEE THIS AGAIN ";YES$YES$"Y"6200D$;"RUN TEXT FILE MENU"::8 **--DISPLAY AGAIN--**9LINES10:=SCREEN1L2"ESC";::" KEY TO EXIT.";:KEY(16384):KEY1275006D5004e::KEYKEY128:KEY276080kq:16368,0205::p **--ASK IF USER WANTS TO SEE INFO. AGAIN--**zD$216,0 :23:"PRESS THE RETURN KEY TO C C$""151F$-F$(13)106071000?$D$I8C$""SBF$""\L200bV:h`: **--DISPLAY INFORMATION--**20LNE038:"_";:LNE:"_"22:"PRESS THE ";::"RETURN";::" KEY TO CONTINUE."::"PRESS THE ";::150 : :; **--FIND SPACE BEFORE CURRENT WORD--**G X(B$)O YXh ((B$,X,1))32800r XX1{ 720 C$(B$,YX) *C$C$" " 4B$(B$,X) H R: \: **--GET NEXT CHARACTERS--** F$ F$"."1000 A$F$-CHECK LINE LENGTH/STORE IN TWO LOCATIONS--**@ (B$)39İ700F W PAGE$(L2)B$] :i L2L21 L(37):L185000 B$: : : **--MIDDLE OF WORD ROUTINE--** (C$)0B$C$:ZYX:900 B$"" Z1 C$"" : A$) : :2 *).-CONVERT TO UPPER CASE--**C A95AA32[ A13Z35A32180j B$B$(A)t ZZ1} 150 : : **--ELIMINATE FORMAT COMMANDS--** (B$,1)"."035 (B$,1)" "B$(B$,2,((B$)1)) : :- **-. h"WORDS. ANY DELAY AFTER SWITCHING PAGES"4 i\ j"IS CAUSED BY THIS SAME CHECKING." k:"THERE IS NO DELAY IF YOU ASK TO SEE"::"THE FILE AGAIN." l: m: n**--READ FILE ROUTINE--** 6000 D$;"READ";FILE$ A$  A(RMATION--** Z:2 \. ^"PLEASE READ!"8 _::c `"THERE MAY BE A SLIGHT DELAY BETWEEN"i a b"LINES OF TEXT. THIS DELAY OCCURS " c d"BECAUSE THE PROGRAM CHECKS THE LENGTH" e f"OF EACH LINE AND DOES NOT BREAK BETWEEN" g4 ' ***--TEXT FILE/APPLE II/40--***- :3 :P **--INITIALIZATION--**hD$(4): CONTROL DxPAGE$(500)(I1:Z1:L212:7D$;"CATALOG":<24P"FILE NAME ";FILE$Q8000: TEST FILE NAMER:T: U **--USER INFO      COPYRIGHT APRIL 1983+* DAVID H. MILLER5. AENH2 9525 LUCERNE`6 VENTURA CA. 93004s: 805-647-1063$12:"****--ERROR--****"*0Y"CHECK THE CATALOG FOR THE CORRECT"_q"FILE NAME!"34,6: SET WINDOW D$;"CATALOG": "HIT RETURN TO CONTINUE ";L$  ':':' READ TEXT FILE SYSTEMt'SS THE RETURN KEY TO CONTINUE ";:,v"";L$2{=}(12)CI>:O?:l@ **--TEST FILE NAME--**wJ8070TD$;"VERIFY";FILE$^216,0: RESET ERR FLAGhr:|: **--FILE ERROR ROUTINE--**216,0: RESET ERROR FLAG-DISPLAY AGAIN--**9LINES10*:(12)==SCREEN1L21PBPAGE$(SCREEN)VLpVSCREENLINES1İ7000`SCREENL21İ7000jSCREENo16368,0t6080~::X **--PAGE FULL--**]16368,0bLINESLINES10!l:23:"PREE RETURN KEY TO CONTINUE ";!,"";L$;(12):10CD$SD$;"CLOSE"^216,0l16368,0"WOULD YOU LIKE TO SEE THIS AGAIN ";YES$YES$"Y"6200(21): CANCEL 80 COL MODED$;"RUN TEXT FILE MENU"::8 **-::"ESC";::" KEY TO EXIT.";>KEY(16384):KEY1275006H5004n:(12):KEYKEY128:KEY276080|(12):1:16368,0205::p **--ASK IF USER WANTS TO SEE INFO. AGAIN--**u216,0zD$:23:"PRESS THF$ C$""151F$1F$(13)1060;1000C$D$M8C$""WBF$""`L200fV:l`: **--DISPLAY INFORMATION--**20LNE078:"_";:LNE:"_"22:"PRESS THE ";::"RETURN";::" KEY TO CONTINUE."::"PRESS THE "; 150 : :? **--FIND SPACE BEFORE CURRENT WORD--**K X(B$)S YXl ((B$,X,1))32800v XX1 720 C$(B$,YX) *C$C$" " 4B$(B$,X) H R: \: **--GET NEXT CHARACTERS--** F$ F$"."1000A$**--CHECK LINE LENGTH/STORE IN TWO LOCATIONS--**D (B$)79İ700J [ PAGE$(L2)B$a :m L2L21 L(37):L185000 B$: : : **--MIDDLE OF WORD ROUTINE--** (C$)0B$C$:ZYX:900 B$"" Z1 C$"" : A$  A(A$) :$ :G **--CONVERT TO UPPER CASE--**_ A13Z70A32180n B$B$(A)x ZZ1 150 : : **--ELIMINATE FORMAT COMMANDS--** (B$,1)"."215 (B$,1)" "B$(B$,2,((B$)1)) : :1 BREAK BETWEEN" gC h"WORDS. ANY DELAY AFTER SWITCHING PAGES"I iq j"IS CAUSED BY THIS SAME CHECKING." k:"THERE IS NO DELAY IF YOU ASK TO SEE"::"THE FILE AGAIN." l: m: n**--READ FILE ROUTINE--** 6000 D$;"READ";FILE$ORMATION--** WD$;"PR#3") Z(12):2/ \C ^"PLEASE READ!"M _::x `"THERE MAY BE A SLIGHT DELAY BETWEEN"~ a b"LINES OF TEXT. THIS DELAY OCCURS " c d"BECAUSE THE PROGRAM CHECKS THE LENGTH" e f"OF EACH LINE AND DOES NOTt ( ***--TEXT FILE/APPLE II/80--***. :4 :Q **--INITIALIZATION--**iD$(4): CONTROL DyPAGE$(500)(I1:Z1:L212:7D$;"CATALOG":<24P"FILE NAME ";FILE$Q8000: TEST FILE NAMER:T: U **--USER INF     ENTURA CA. 93004#: 805-647-1063I CORRECT"!"FILE NAME!":34,6: SET WINDOW LD$;"CATALOG"T:v "HIT RETURN TO CONTINUE ";L$|  ':':' READ TEXT FILE SYSTEMt' COPYRIGHT APRIL 1983* DAVID H. MILLER. AEN2 9525 LUCERNE6 V@ **--TEST FILE NAME--**'J8070>TD$;"VERIFY";FILE$Z^216,0: RESET ERR FLAG`hfr:l|: **--FILE ERROR ROUTINE--**216,0: RESET ERROR FLAG12:"****--ERROR--****" "CHECK THE CATALOG FOR THEREEN) L%VSCREENLINES1İ7000<`SCREENL21İ7000HjSCREENVo16368,0`t6080f~:l:X **--PAGE FULL--**]16368,0bLINESLINES10l:23:"PRESS THE RETURN KEY TO CONTINUE ";:v"";L${}>:?: "";L$:10D$-D$;"CLOSE"8216,0F16368,0t"WOULD YOU LIKE TO SEE THIS AGAIN ";YES$YES$"Y"6200D$;"RUN TEXT FILE MENU"::8 **--DISPLAY AGAIN--**9LINES10:=SCREEN1L21BPAGE$(SCTO EXIT.";*KEY(16384):KEY127500645004U::KEYKEY128:KEY276080[a:o16368,0x205~::p **--ASK IF USER WANTS TO SEE INFO. AGAIN--**zD$216,0:23:"PRESS THE RETURN KEY TO CONTINUE ";51 F$F$(13)1060'1000/$D$98C$""CBF$""LL200RV:X`:z **--DISPLAY INFORMATION--**20LNE038:"_";:LNE:"_" 22:"PRESS THE ";::"RETURN";::" KEY TO CONTINUE."::"PRESS THE ";::"ESC";::" KEY + **--FIND SPACE BEFORE CURRENT WORD--**7 X(B$)? YXX ((B$,X,1))32800b XX1k 720| C$(B$,YX) *C$C$" " 4B$(B$,X) H R: \: **--GET NEXT CHARACTERS--** F$ F$"."1000 A$F$ C$""1TH/STORE IN TWO LOCATIONS--**0 (B$)39İ7006 G PAGE$(L2)B$M :Y L2L21p L(37):L185000z B$: : : **--MIDDLE OF WORD ROUTINE--** (C$)0B$C$:ZYX:900 B$"" Z1 C$"" : 150 : :(A$) : :3 **--CONVERT TO UPPER CASE--**K A13Z35A32180Z B$B$(A)d ZZ1m 150s :y : **--ELIMINATE FORMAT COMMANDS--** (B$,1)"."215 (B$,1)" "B$(B$,2,((B$)1)) : : **--CHECK LINE LENG/ h"WORDS. ANY DELAY AFTER SWITCHING PAGES"5 i] j"IS CAUSED BY THIS SAME CHECKING." k:"THERE IS NO DELAY IF YOU ASK TO SEE"::"THE FILE AGAIN." l: m: n**--READ FILE ROUTINE--** 6000 D$;"READ";FILE$ A$  AORMATION--** Z:2 \/ ^"PLEASE READ!"9 _::d `"THERE MAY BE A SLIGHT DELAY BETWEEN"j a b"LINES OF TEXT. THIS DELAY OCCURS " c d"BECAUSE THE PROGRAM CHECKS THE LENGTH" e f"OF EACH LINE AND DOES NOT BREAK BETWEEN" g$ ( ***--TEXT FILE/APPLE IIE/40--***. :4 :Q **--INITIALIZATION--**iD$(4): CONTROL DyPAGE$(500)(I1:Z1:L212:7D$;"CATALOG":<24P"FILE NAME ";FILE$Q8000: TEST FILE NAMER:T: U **--USER INF      DAVID H. MILLER. AEN.2 9525 LUCERNEF6 VENTURA CA. 93004Y: 805-647-10633ROR--****"?"CHECK THE CATALOG FOR THE CORRECT"EW"FILE NAME!"p34,6: SET WINDOW D$;"CATALOG": "HIT RETURN TO CONTINUE ";L$  ':':' READ TEXT FILE SYSTEMt' COPYRIGHT APRIL 1983*CONTINUE ";:v"";L${#})/>:5?:R@ **--TEST FILE NAME--**]J8070tTD$;"VERIFY";FILE$^216,0: RESET ERR FLAGhr:|: **--FILE ERROR ROUTINE--**216,0: RESET ERROR FLAG 12:"****--ER**9LINES10:(=SCREEN1L21;BPAGE$(SCREEN)AL[VSCREENLINES1İ7000r`SCREENL21İ7000~jSCREENo16368,0t6080~::X **--PAGE FULL--**]16368,0bLINESLINES10 l:23:"PRESS THE RETURN KEY TO Y TO CONTINUE ";!"";L$+:103D$CD$;"CLOSE"N216,0\16368,0"WOULD YOU LIKE TO SEE THIS AGAIN ";YES$YES$"Y"6200(21): CANCEL 80 COL MODED$;"RUN TEXT FILE MENU"::8 **--DISPLAY AGAIN--";::"ESC";::" KEY TO EXIT.";@KEY(16384):KEY1275006J5004k::KEYKEY128:KEY276080qw:16368,0205::p **--ASK IF USER WANTS TO SEE INFO. AGAIN--**u216,0zD$:23:"PRESS THE RETURN KEA$F$C$""151 F$3F$(13)1060=1000E$D$O8C$""YBF$""bL200hV:n`: **--DISPLAY INFORMATION--**20LNE078:"_";:LNE:"_" 22:"PRESS THE ";::"RETURN";::" KEY TO CONTINUE."::"PRESS THE 150 : :A **--FIND SPACE BEFORE CURRENT WORD--**M X(B$)U YXn ((B$,X,1))32800x XX1 720 C$(B$,YX) *C$C$" " 4B$(B$,X) H R: \: **--GET NEXT CHARACTERS--** F$ F$"."1000**--CHECK LINE LENGTH/STORE IN TWO LOCATIONS--**F (B$)79İ700L ] PAGE$(L2)B$c :o L2L21 L(37):L185000 B$: : : **--MIDDLE OF WORD ROUTINE--** (C$)0B$C$:ZYX:900 B$"" Z1 C$"" : A$  A(A$) :& :I **--CONVERT TO UPPER CASE--**a A13Z70A32180p B$B$(A)z ZZ1 150 : : **--ELIMINATE FORMAT COMMANDS--** (B$,1)"."215 (B$,1)" "B$(B$,2,((B$)1)) : :3 OT BREAK BETWEEN" gE h"WORDS. ANY DELAY AFTER SWITCHING PAGES"K is j"IS CAUSED BY THIS SAME CHECKING." k:"THERE IS NO DELAY IF YOU ASK TO SEE"::"THE FILE AGAIN." l: m: n**--READ FILE ROUTINE--** 6000 D$;"READ";FILE$FORMATION--** WD$;"PR#3"" X+ Z:21 \E ^"PLEASE READ!"O _::z `"THERE MAY BE A SLIGHT DELAY BETWEEN" a b"LINES OF TEXT. THIS DELAY OCCURS " c d"BECAUSE THE PROGRAM CHECKS THE LENGTH" e f"OF EACH LINE AND DOES NZ ) ***--TEXT FILE/APPLE IIE/80--***/ :5 :R **--INITIALIZATION--**jD$(4): CONTROL DzPAGE$(500)(I1:Z1:L212:7D$;"CATALOG":<24P"FILE NAME ";FILE$Q8000: TEST FILE NAMER:T: U **--USER IN     ,6: SET WINDOW #D$;"CATALOG"+:M "HIT RETURN TO CONTINUE ";L$S Y _':e':' READ TEXT FILE SYSTEMt' COPYRIGHT APRIL 1983* DAVID H. MILLER. AEN2 9525 LUCERNE6 VENTURA CA. 93004: 805-647-1063DTD$;"UNLOCK";FILE$1^216,0: RESET ERR FLAG7h=r:C|:d **--FILE ERROR ROUTINE--**216,0: RESET ERROR FLAG12:"****--ERROR--****""CHECK THE CATALOG FOR THE CORRECT""FILE NAME!"34PAGE$(SCREEN)L-VSCREENLINES1İ7000D`SCREENL21İ7000PjSCREEN^o16368,0ht6080n~:t:X **--PAGE FULL--**]16368,0bLINESLINES30l(12){}>:?:@ **--TEST FILE NAME--**J807010D$:D$;"CLOSE"%D$;"PR#0"0216,0>16368,0l"WOULD YOU LIKE TO SEE THIS AGAIN ";YES$YES$"Y"6200D$;"RUN TEXT FILE MENU"::8 **--DISPLAY AGAIN--**9LINES30:D$;"PR#1":(12)=SCREEN1L21 B **--LAST PAGE OF FILE--**3qD$;"CLOSE":216,0Ju(12): FORM FEEDRL1`16368,0oD$;"PR#0":23:"PRESS THE RETURN KEY TO CONTINUE ";:: **--ASK IF USER WANTS TO SEE INFO. AGAIN--**D$;"";L$:CONTINUE."::"PRESS THE ";::"ESC";::" KEY TO EXIT.";YKEY(16384):KEY1275006c5004::KEYKEY128:KEY276080D$D$;"PR#1"(12): FORM FEED D$;"READ";FILE$L116368,0::pF$"."1000A$F$#C$"",1524F$GF$(13)1060Q1000[8C$""eBF$""nL200tV:z`: **--DISPLAY INFORMATION--**D$;"PR#0"::20LNE038:"_";:LNE:"_"922:"PRESS THE ";::"RETURN";::" KEY TO "" Z1 C$"" 150# :) :U **--FIND SPACE BEFORE CURRENT WORD--**a X(B$)i YX ((B$,X,1))32800 XX1 720 C$(B$,YX) *C$C$" " 4B$(B$,X) H R: \: **--GET NEXT CHARACTERS--** F$,((B$)1)) : :M **--CHECK LINE LENGTH/STORE IN TWO LOCATIONS--**` (B$)79İ700h :s 3:B$ PAGE$(L2)B$ LL2 L2L21 L60İ5000 : : **--MIDDLE OF WORD ROUTINE--** (C$)0B$C$:ZYX:900 B$000 D$;"READ";FILE$ A$, A(A$)2 :8 :[ **--CONVERT TO UPPER CASE--**{ (A$)13Z70(A$)32180 B$B$(A) ZZ1 150 : : **--ELIMINATE FORMAT COMMANDS--** (B$,1)"."215 (B$,1)" "B$(B$,2EN" g7 h"WORDS. ANY DELAY AFTER SWITCHING PAGES"= ie j"IS CAUSED BY THIS SAME CHECKING." k:"THERE IS NO DELAY IF YOU ASK TO SEE"::"THE FILE AGAIN." l: m: n**--READ FILE ROUTINE--** xD$;"PR#1" }(12): FORM FEED 6USER INFORMATION--** Z:2# \7 ^"PLEASE READ!"A _::l `"THERE MAY BE A SLIGHT DELAY BETWEEN"r a b"LINES OF TEXT. THIS DELAY OCCURS " c d"BECAUSE THE PROGRAM CHECKS THE LENGTH" e f"OF EACH LINE AND DOES NOT BREAK BETWE * ***--TEXT FILE/PAPER PRINTOUT--***0 :6 :S **--INITIALIZATION--**kD$(4): CONTROL DB$(75),PAGE$(500)(I1:L1:Z12:7D$;"CATALOG":<24P"FILE NAME ";FILE$Q8000: TEST FILE NAMER:T: U **--     栰栰宍ũ堰箍堨ĩũ堰箍ᠥƠıűԠıűԠıű堨ĩũĠŨįũ㥠殍Ơ䮠ĠŠàԠƠōӠȠ֮ɮî庠庠     宍ĬάŠӠ묠箠ĬάŠӠ묠宠Ӡ뮍Ӡ嬠䬠宠堠䮠Ӡ奩宍Ӡ䮠硠Ӡ箍ŠӠŠӠӠ嬠ĠΠ宠ӠĠŠĩ䠧ҧάĬԠӠ쬠󠶶Ġ䧠ӠӍà󠭠젱֮ɮîĬΠŠ     宠ӠᠧؠҮӠᠧ䮠宠ɠԍ箠Ӡ젡讠Ӡ͠٠ӠӍҠɠϠؠˠɩԠҤةƠؠΠԍΠ͠ҠӠ뮠ԠӍ͠ΠҠɠϠؠˠɩԠҤةƠؠΠԍԍӬ蠴ˠӠ讍͠٠ԠӍ͠ΠҠҠɠϠؠˠɩԠҤةԍ͠宠ͮ󠵳蠵ؠҮ忠ɠ뮠쬠ŬŬԬǬ㮍Ϡ宍䮠ؠҠ箠ؠؠӬԬĬҬԧӠؠҿ򠭠젱֮ɮîؠؠ     䮍ɠ箠ɠ䮍Ӡɠ箠ɠ䮍ӠᠢԠԠĢ򮍍ӠźŠŠɠӠӠΠŠŠō򠭠젱֮ɮîӠ΢Ģ䠢Ţ   ɠᠴ栨ĩ¹ɠᠱ讍䮍ᠴ栨ĩ¹ɠᠱ讍ؠ٠ˠ蠨ˠ蠨䮠ƠˠΠō Ԡ̨̍  ԢƠˠΠō  Ԡ̨̍Ϡ̠̠Ǡɠɠō Ԣ̨  Ԣ̨ Ԣ󮍍ɠ¹宍¹ɠǠ٠ǠˠϠ٠ŠŠԍà󠭠젱֮ɮîǠ     yGgsgyy?n=~y?~|a~???>~Oy?~OOy?~yOgC<~g?~gyysy?~yq|?~??~?ws?~sOyO|}]}Ypo}]I}ysy?~|y?~a~??~~yy?~y?~OsOysyx?~ny?~a~?wsa?~Oy?~yOsO_G;onC{q;`?\|?aa}cy?~Oojl|y?~?~s?^~yy?~y?~<~OsOy?~?~y?pa~?~?wsa?~yy?~y?~OsOy?~yOaC<~p?~gyyO~ay|?~s?>sOy?~gyyO?~?wC?~yyO37ry?~a?~OsO_|75v>0?;x}]}w}`wwv~y;gsgyyx=~y?pa~?s?~}Oy?~OO~yOgs?~?~gyyx?~y|?~??~?xsa?~sOyO~a]}Uox_U{ysy?~ay?~a~?~s?~}yy?~y?~OsOysysy?~qy?~|a~??ps@y?~yOsOy?~Oqjj|y?~?~?>~yyx`y?~?~OsOy?~C`yy?~|a~?~xs`yy?y?~OsOy?~yOaC<~s?n}gyyxx?~yyq|?~s?>sOy?^?~yO?~x~?~yyOs7uy?~?xa?~OsO?85u=78Ga]}w|wvy?gsg8>~y?`~?s?n}Oy?~pOyOgs?~<~gyysy?~y|?~??~?spOy?@O|]]}M~cUgysy?~xy?~a~?~s?|yy?~y?~OsOysysy?~pa~?sa?~y?~yOsOy?~O~nf|y?~?~s?~~yypy?~a?~OsOG;G};{`Goq?X[|?}aAAy?~`gy?~a~?~sa?~yy?^y?~OsOy?~yOaC<~C?~}gyysy?~y?~yn|???sO@y?^@y~?x?~yyOs8uy?~~@sO~`y?`~?~s?~Oy?~yOsOyOgs?~<~gyysy?~y|?~??~~sa?~Oy?~OOw]]}]ox}]_ysy?~Cy?~|a~?~xs?~yy?~y?~OsOysyx?~?`~?s?~y?~yOsO y?~?~Onnn|y?~?~s?~yy@~?~y?~?x?~OsO_;o{;{{~o;Wn_[][{?}]}}y?~x?xy?~a~?~s?~yy?^y?~OsO            :3"WHEN FINISHED PRESS ANY KEY TO END"DI13000:IJw("BLOAD PICT.TG TO DB9 CIRCUIT,A$4000"2A$:A$" "90Z:dI0, OR DELETE LINE 60"P