' +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 ˆʎõĵ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-` ܫI볩쳢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`ŠנŠӠ׀ŠԠƛԍŠЛӀŠ ЛӁŠΠԍŠԠΠŠŠՠŠ֠ŠĠׁŠàŠŠōŠƠƍŠѠŠРЍŠɠŠʠŠȠōԍҠԠԠΠӠԍŠȠ  ŠӠ׀ŠԠƛԍŠЛӀŠ ЛӁŠΠԍŠŠՠŠ֠ŠĠׁŠàŠŠōŠƠƍŠѠŠРЍŠɠŠʠŠȠŠנɍōԍԠԠΠӠԍŠȠŠԠΠ  ($$bb`$HH$$Fp8DD82HH2 ">DDD8" "@00a@@> ΠΠҠԠξ  X! ɍ K < K V  K y K W = t > K `H,0h` '1;EOYcmw !!!!!!!!!!!!!!!!""" Bj @"@ R@**" 00 D|@"" @><(l  ɧ롍ԠɧԠ㬠宠ɧԠ宠뮠󮍠ɠ۠嬠ԧɧӠҵ堸ˠҬǠ©ҵ蠸ˠ嬠㮠堛Šìİ̤ʮɠ󮍠ɧ嬠ΠЬԠ󠱬堳䮠堲ʠӠ䠛ŠÛʠɧɠ䮠ɠŠ嬠謠֠宠衍򬍠堧ԠɠɧԠɧ쬠ɧ堠嬍Ů宍ŠՠŠ֠ŠĠׁŠàŠŠōŠƠƍŠѠŠРЍŠɠŠʠŠȠŠӠ׀ŠԠƛԍŠӀŠ Ӂ         àѠѠàРàɠ󠠠àʠ󠪍àȠ䍍àӠ荠àԠ􍠠䠠Եàՠ砠à֠砪àĠàààŠ󠠠àƠ󠪍 ōĠбĠвĠгĠдĠеĠж΍ ﮱ﮲ĠƠ󍶴썶󍶵􍶷􍷰荵Π荶󍶰󍶰󍶱󍶱􍶲􍵰䍵卵卵卵፵፵ƶȠ􍵰􍵰􍵰却󍴰䍴􍴵即即即č䶰即即即即䍲䍲卲即即卲卲卲卲卲卲נȠӍ卲卲󍲱󍲱󍲰          ĢŭԭŠōΠìɍԠĠҠˮԠРҬŠ̠ˢĠŠ̠ŧŠōϬɍÍΠŢŠŢԬŢԠˠԠӠԠŠ ᠠŠ􍷰Š̠ƍōԍōō΍ōᠠŠ􍷰򍵠󍲳׍  )ӆ΅ȱ΅` lΩ$τ` `e΅ΐ` o) `,ER:K1:ERı 590 :"PHASING ERROR-CONTACT WYTAND P/L":A$:ER0: KEİ840 (TPBOHILO600 *500 >DEKEF1F24096:DE "ȹ"ȱ)k$")k$"h h` lΩ$ 9$ .$`0HJJJJh)ȱL=$ $ 9$ .$`΅΅υ =$HH΁ .$ hh` $ 9$ .$` =$L!Ǡ I$* I$E`t!t!  X"  ɍ`ns! w!x!8ns!0ݍu!v!` 2Ϊȱu!v!,s!w!x! "iȅ΄`Ι"ΈiH iH  ,8)H  Ff ee&eeh`c  i`ʎt!l$ c d I$* "` J" x" I$iHiH   t!e c i hh L L" L2 LE Ly!L7#Lu#L#hhߚHH`l$8` I$iȩiȩi`ȄȄ I$bc  I$`40#:  G! `ҩк I$0`)8~ `d      獶׍󍠍׍덳퍳㍳卶ōԍōō΍ō򍵠󍲳׍荴׍䍶  tthisworthycauseurgentlyneedsyourassistanceleasegivegenerously͠oursfaithfullylfredeech͠yourgenerousdonationofwhichwereceivedonanyblindchildrenandchildrenwhowouldotherwisebeblindwillremembernceagainthelindabiesappealisindesperatefinancialtroubleɠgreatlyregretcomingbacktoyouonceagainbu͠ŠȠҍӠɠǠȠԠ̠ŠӠӠϠҠРȠΠӠРРŠ̍͠Ԡightlessrphansppeallarencestydney͠octԠԍearɠamwritingonceagaintothankyoufor 嬠쮠謠婠蠠卍嬠ԠԠΠŠȠ宍ԠΠĠΠĠΠԠΠ蠠   ŠӠ׀ŠԠƛԍŠЛӀŠ ЛӁŠΠԍŠŠՠŠ֠ŠĠׁŠàŠŠōŠƠƍŠѠŠРЍŠɠŠʠŠȠŠנɍōԍԠԠΠӠԍŠȠŠԠΠ   笠ﬠ󩮍䮍宠宠䩮ﮠ堨堷宠䮍嬠宠堨堨嬠砭箠쬠㮍ɯϠ󮍍箠箍堭㮠箠堮宍ᠶ宍䬠䠲箩󮍍堲嬠䠴嬠ӠנӟҠ󟲹Ҡ󺍍쮠笠        󮍍󬍍嬠報٠򮍍뮠  ̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAABeheeȪi LT >ȥ >ȥeeȪi LT >ȥ)";A$= (A$,1)"Y"ĺ:"THEN PLEASE ARRANGE IT SO"::100U (4);"UNLOCK SWP1"x (4);"BSAVE SWP1,A$300,L$100" (4);"LOCK SWP1" 1012,0 "Your print defaults have now been" "changed. To reboot hit reset. "; 260 26035,PW:836,PM:845,PM:837,PI256(PI0):842,PT:846,PP:838,PN:839,PL "IS YOUR WORD PROCESSOR DISK IN THE DEFAULT DISK DRIVE WITH THE WRITE PROTECT TAB REMOVED? (SEE PAGE 36 OF MANUAL FOR AN EXPLANATION OF THE WRITE PROTECT TAB) (Y/NONS PRINT' - that is a manual misprint.) You will find yourself in the primary print options. Set them to the desired values then exit them by hittingthe space bar" Mĺ:"Then type 'RUN PRINTER DEDICATE',":"as before.";:M15:A$::H 833,PS:81 PS0M0 Mĉ:::" YOU FAILED TO SET THE PRINT OPTIONS BEFORE RUNNING THIS PROGRAM! "::" Reboot the word processor by hitting control reset, then issue the command OPTIONS PRINTER" Mĺ" from file command mode. (Not 'OPTIunning this programotherwise you might get nonsense values." :"Before running this program, remove the write protect tab from your sandy word processor disk.": 105,0:106,916:Reconnect word processor data space PS1PS7PL3PL700Ľ:Md::" PR#0 IN#0 Running this program causes the print":"options that you have chosen while word":"processing to be your permanent defaults(at least until you run it again).< x:"You should have done an OPTIONS PRINTER":"immediately before r   60004K((RM1)M2J):JJN1:(K);:K1285010FR5R96000l:22:"TRY AGAIN";:50:X$"Y"Ħ{p38400::S ",29K);(" "(LH(30)),5);" ITEMS":SRRN1:R11İ60:RN0:PP1330n(A)ĺ"INSUFFICIENT ITEMS FOR AREA BUNDLES"x30:"PR#0"600030:BS20:EF:G$;:R(222):JN0:M143583:M243377:RN0R15ĺ"FATAL ERROR: NUMBER ";R:ME AREA"::R3:AN0:29,N0:SS1082BS21:(29)1390<AN1:"READPOSTCODE DATA,B";BP(N0):BS6:ST$ST$"":SS(26)SS(26):"STATE: ";S$(SS):RRN1AKN1(ST$):J((ST$,K,N1)):SJJ(J95)32FF(J);::(" SRRN1:R11İ60:RN0:%`1100X(A)ĺ"INSUFFICIENT ITEMS FOR DIRECT BUNDLES"kSĺ:::1310vRİ60|"VERIFYPOSTCODE DATA,D1":"OPENPOSTCODE DATA":Sė ("CHECKING FOR AREA BUNDLES, I.E. ";(25):"ITEMS OR MORE FOR THE SAOT NUMBER ? ";:X$:X$:S(X$):SN1S6SN0@:Sĺ"PR#";S"CHECKING FOR DIRECT BUNDLES, I.E. ";(25):"ITEMS OR MORE WITH THE SAME POSTCODE"::R3:AN0:29,N0LBS18:(29)1200VAN1:"POSTCODE = ";PC(252);" NO. OF ITEMS: ";LH(30):E IF THERE ARE ENOUGH TO BE":" GROUPED INTO DIRECT OR AREA BUNDLES.":" IF YOU WANT A LIST OF THESE TO BE SENT":" TO THE PRINTER, ENTER THE PRINTER SLOT":" NUMBER (1 - 6). ANY OTHER KEY SELECTS":" THE SCREEN ONLY."-34,8:16:"SLBP(0):R0:S32511R(S32512):SSR32512"READ";SF$(FL);",R";R;;",B";S:AN0X:H$(A)""::A(0):AN0X:BS6:H$(A)ST$"":"WRITE";DF$:AN0X:H$(A)::9404000H70:60::" THE POSTCODES WILL NOW BE COUNTED TO":" DETERMIN:34,10:4000\"OPEN";DF$;",D";DD:"DELETE";DF$:"OPEN";DF$:FL255:26,FL:990uBS15:FL(26)980FL255ĺ"CLOSE";SF$(FL)FL(26):FL128İ30:100040672::SF$(FL):43089:"OPEN";SF$(FL);",D";SD%(FL);",L";256127-S60 900% 30:BS:(222)6700/*500034,4::" THE 'POSTCODE DATA' DISK MAY NOW BE":" REMOVED FROM DRIVE 1 IF NECESSARY":60 :"WRITING SORTED POSTCODE FILE":"WITH FILENAME ";(34);DF$;(34):9:"RECORD CURRENTLY BEING READ FROM:"KLH(6):JK90034,4::G$;"THE FOLLOWING UNDEFINED POSTCODES":"WERE FOUND. THEY WILL BE OMITTED":"FROM THE SORTED DESTINATION FILE:":34,9::RN0AJK55:"POSTCODE ";PC(A);" FOUND IN ";SF$(((AN2)16)):RRN1:R9İ60::RN0 :Rİ:" IF THERE IS ALREADY SOME OTHER DISK":" IN DRIVE 1 IT CAN BE PUT BACK LATER.":608:EF::" SORTING POSTCODES IN MEMORY":34,11:800"VERIFYPOSTCODE DATA,D1":"OPENPOSTCODE DATA":"READPOSTCODE DATA":BS12:30JLH(8):;:50:X$"Y"700&6000@0"VALID POSTCODE NOT FOUND":580^:"INCORRECT FIELD FORMAT"D"IN RECORD NUMBER ";LH(30)::"CONTINUE WITH NEXT RECORD";:50:X$"Y"520N30:6000X30:BS:(222)55000bFLSNFLFLN1:40070W"":K510b20:"INCONSISTENT FILE HEADER!"::"SKIP THIS FILE AND CONTINUE";:50:X$"Y"610l6000vBS3"READ";SF$(FL);",B0":29,255BS911:EF:G$;"ERROR:"::(29)570,560,54030:"MEMORY FULL"::"CONTINUE WITH SORT"0)ST$:AN1X:BS6:ST$ST$"":ST$"POSTCODE"Ĺ28,ASH$(A)ST$""::(28)500{AN1X:(H$(A),7)"ADDRESS"Ĺ28,A:(28)50020:"NO POSTCODE OR ADDRESS":"PROMPTS IN FILE HEADER":6000 KN0:AN0X:BS6:KK(ST$H$(A))::ST$ST$$'@12:40:DD(X$):DDN1DDN2320TJ:"READING SOURCE FILE POSTCODES":34,7^600:"READING ";SF$(FL):26,FL:"VERIFY";SF$(FL);",D";SD%(FL):"OPEN";SF$(FL):"READ";SF$(FL):FL470528,N0:BS6:ST$ST$"":X(ST$):27,X:H$(X):H$(N:X$:X$"A"X$"C"230-25,((X$)69)5,34,4::" ENTER THE NAME TO BE GIVEN TO THE":" SORTED DESTINATION FILE, AND THE":" DRIVE TO WHICH IT SHOULD BE WRITTEN:"610:"FILENAME ? ";:BS6:ST$ST$"":(ST$)0310:(ST$)64310:DF$STTANDARD OR NON-STANDARD":" ARTICLES UP TO 50 GRAMS"::" B...NON-STANDARD ARTICLES":" OVER 50 AND UP TO 100 GRAMS": " C...NON-STANDARD ARTICLES":" OVER 100 AND UP TO 500 GRAMS":34,20:11:"SELECT BY LETTER: ";:X$30- SNĺG$;"NO SOURCE FILES GIVEN":6000: SNSNN1 34,4::" GIVEN THAT ALL ARTICLES IN ANY ONE":" LODGMENT MUST BE EITHER STANDARD":" OR NON-STANDARD, SELECT THE CATEGORY":" WHICH DESCRIBES THE CURRENT LODGMENT:" 11:" A...SORTED. UP TO 15 FILES MAY BE":" GIVEN. TO END, ENTER ALONE.":34,10 :"FILE #";SNN1:14:"FILENAME ? ";:BS6:ST$ST$"":(ST$"A")64130:SF$(SN)ST$:(ST$)160 16:40:SD%(SN)(X$):SD%(SN)N1SD%(SN)N2140 SNSNN1:SN1510:N11:N22:G$(7)> nA05:S$(A)::NSW,VIC,QLD,SA,WA,TASi sBP(X)(249)65536(250)256(251) xPC(X)(X)256(X1):LH(X)(X)(X1)256N }" ENTER THE NAME AND DRIVE NUMBER OF":" EACH SOURCE FILE (I.E. MAILING LIST)":" TO BE S;" ENSURE THAT THE FILE 'POSTCODE DATA'":" IS ON THE DISK IN DRIVE 1.": d1012,0:::0:0:1002:" ** POSTCODE SORTING UTILITY **":"NOMON C,I,O":"BLOAD PCODE.BIN":34,4: iSF$(14),SD%(14),S$(5):ST$"":SN0:FL0:BS8192:EF958:N0|0 :8190:100: POSTCODE SORTING PROGRAM Q30:11:EF:G$;"ERROR:"::h"CLOSE":216,0:(" DRIVE ? ";:EF:X$:X$:20:0:" ? (Y / N) ";:X$:X$:1002:<:9:"HIT ANY KEY TO CONTINUE":16384,128:16368,0:P F34,4::G$     T DEC 1981ER FILE NAME:":"NAME-> ";FL$?(FL$)0ė:D$"CATALOG":940J:100d Q& REM WRITTEN BY& REM BOB MATZINGER' REM MICRO APPLICATIONz' REM ARLINGTON, TX ' REM COPYRIGHf216,0:(222)13890:p:"WRONG FILE TYPE":920Wz:FL$" NOT FOUND.":920:"THIS DOES NOT APPEAR TO BE A MAIL LIST!":920:A$" ":D$(4):7508:"PRESS 'RETURN' ONLY, TO CATALOG...":"CONTROL-C TO EXIT...":5"ENT:868:"";S$:S(S$):S1S37305S370,910,760B216,0:^10:958:21:D$"FP":oD$"OPEN"FL$ D$"DELETE"FL$D$"OPEN"FL$ D$"WRITE"FL$*I1NF:HD$(I):4I1NR1:J1NF>IN$(J,ID(I))HJ,IRD$"CLOSE"\2(N10)(N100):LT)N" RECORDS IN THE FILE":NNF1:T2(N10)(N100)lT)N" FIELDS PER RECORD":"SORTED BY "HD$(SF):(7)10:"1. ANOTHER SORT - SAME FILE":"2. SORT ANOTHER FILE":"3. QUIT"14:"ENTER SELECTION -> ""14:20958:"DONE"AXN0:I(FL$)11:(FL$,I,5)".SORT"NI1:I1cbI:N0620:FL$(FL$,N):640l(FL$)23FL$(FL$,23)v(FL$,1)" "FL$(FL$,(FL$)1):630FL$FL$".SORT"(SF1):"SAVING "FL$770:NNR1:"FILE "FL$:T):M0590:5:9:868:SS1:S-J1:KNM5IJKLIM:ST530,540vIN$(SF,ID(I))IN$(SF,ID(L))570:550(IN$(SF,ID(I)))(IN$(SF,ID(L)))570&TID(I):ID(I)ID(L):ID(L)T:IIM:I15700520:JJ1:JK510D490 N5::4305 I1:868:"SORT ALPHA OR NUMERIC? (A/N) "r I1:30:868:"";S$:ST1:S$"A"460:S$"N"450:ST2 SFSF1:I1NR1:ID(I)I: NNR1:MN::5:"SORTING ":S0 8:"APPROXIMATE SORTING TIME = "(N15010)10" MINUTES"M(M2I16". "(HD$(I17),15);! :IG I1:"ENTER FIELD # TO SORT -> " 20:"IF YOU WISH THIS LIST SAVED ON ANOTHER":"DISK, INSERT AN ";::"INITIALIZED";::" DISK IN":"THIS DRIVE NOW.";(7) I1:26:868:"";S$:SF(S$):SF1SFNF1ĺ(7)$ ,I1NR:J1NFF 62102:A$(A$,1):FL0ĴNF1(A$)310:FL1^ @I1HD$(J)A$:340p JIN$(J,I1)A$y TJ,I ^D$"CLOSE":FL0900 h750 r:FNF1:F16F16 |I1F:1(I10))I". "(HD$(I1),15); (NF1)16ĭI16NF1ĺ21) AN INCONSISTENT NUMBER OF FIELDS."::"SORTING HAS BEEN DISCONTINUED!":760 NR1250:"THIS FILE HAS ONLY ONE RECORD!":"NO SORT REQUIRED.":760 (0)ĆIN$(NF,NR),HD$(NF),ID(NR):FL0 230 :"LOADING "FL$ D$"OPEN"FL$ "D$"READ"FL"READ"FL$d 2102:A$(A$,1):FL0NF(A$):NF0170:FL1:NFNF1:(A$)((NF1))Ĺ222,13:200n NN1w 170 216,0:D$"CLOSE" (222)13880:FL0N0NF0900 216,0:NR(NNF):NRNNF240L :5:"MAIL LIST "(34)FL$(34):"HAS `:0:0::1002:D$(4):D$"MAXFILES 1":920:AAA o) ʊiȑiȩi`|d"CHECKING FILE LENGTH"i0:0:1002:1012,0n222,0:870xD$;"VERIFY";FL$}D$;"NOMON C,I,O"200N0:FL0D$"OPEN"FL$ D$     (4):CT36D$;"NOMON I")t1012,01ؽ20HE DISK IN DRIVE ";D::"TO RERUN TYPE 'RUN' AND HIT RETURN"BT:M1:L1:N1d今0:0:1002HCR13:CR$(CR):BO1:IO$" ":BOTP:TP0:N22:N00:BP$" " D$(13):E$:D2:E$""910,D(E$):D1D288075000PD$;"VERIFY"NF$",D"DgD$;"OPEN"NF$",D"DyD$;"READ"NF$NFNA$(NF),F$(NF)X1NFNA$(X)XD$"APPEND"NF$$460<(222)6Ĺ222,0:216,0:::"FILE NOT ON T:"TO RERUN TYPE 'RUN' AND HIT RETURN"-3 f 11:X1NF:15:" ":l4H7:958:9:5:"NAME OF FILE PLEASE ";:NF$:9:958:5:"FILE NAME ";NF$\NF$""840p11:5:"WHICH DRIVE IS IT IN 2";:1008:1008try33,4013:32,13?X1NF:1X:1:2101:F$(X)IO$""T0F$(1)""ĉ:720ZDoXD$;"WRITE ";NF$l:X1NF:F$(X):D$:COCO1:1:10:"ENTRY NUMBER ";CO800500 CLOSE FILE,GOTO BEGINNINGD$;"CLOSE"':D$;"DELETE ";NF$$D$;"OPEN ";NF$9D$;"WRITE ";NF$SNF:X1NF:NA$(X):[D$CO1:::10:"ENTRY NUMBER ";CO:23:5:"HIT RETURN ON FIRST FIELD TO END";:1:1:2:1:35,22:34,1958:X1NF:NA$(X):Get mailing list en:5:"DELETE THE FILE CALLED ":::((40(NF$))2):NF$:: ,:10:"WHICH IS IN DRIVE ";D::5:"HIT RETURN TO CONTINUE":5:"ANY OTHER KEY TO ABORT"::A$:A$(13)ĺ:340 @220 T7:958: OPEN,DELETE,OPEN NF$ hD$;"OPEN ";NF$;",D";D|OF FIELD #";X;:" ";NA$(X):l 9:958:5:"NAME OF FILE TO WRITE TO ";NF$:9:958:10:"FILE NAME ";NF$ 11:5:"WHICH DRIVE IS IT IN 2";:1008:1008:E$:D2:E$""280 D(E$):D1D2240< :11:958:5:"WARNING !! THIS PROGRAM WILL" NAME STREET"` }" CITY STATE ZIP CODE THIS RECORD HAS FIVE FIELDS" 9:5:"HOW MANY FIELDS IN YOUR RECORD ";F$:F$""ĺ"":140 NF(F$) NF1ĺ"":140 NA$(NF),F$(NF) 9:958:X1NF:5:"NAME z#   ˠӮʠ ŮΠ ̠ԠŠ Š Š ϲ ԵӠ ̱  ҠŠ Š ĠנӠ٠  Š ǠҠ ̠Ԡ  Ԡ  Ҡb Ҡ " ٠"ǠԠҠ Ԡ̠Ԡ̠РԠϠ б в г# д;е жLi m췭8 m mᷩ mh `hWhXWXH WXh0lW巬, , LҦ췌`";BOTPKEF1F21;" characters free space"<:1:"FILE COMMAND?";27);"LOAD, SAVE, PRINT, LPBȥQBƍ}2eeBI른HHƍ} hh  BHȱBChBBȥBȥBƍ}  z BpBPȱBQ BHȱBChBBȱBȱBLĠjjE0#8⨥㪘ee 䈄#eeeeܥhƍ}` CB`L z BHBiKhi L zBȩB g RP8 PQPB  RPQB PP(QPBȥQB  R`l6l8L"ؤ$(H) @(hL .i刱i䈱iH/?)ɀ%hHHƍ}(hƍ}h`$2@ hz h{ z { W"H ɠ  z { h0 2lz ,iȑiȑi`ݚ #L  RPQ  RPQ  RPQHƍ}bɃTPL 4Lb ?l ɠɊɈ ο LC Ϳ  ; l 0Lb o LC l m n ` $ m/C  `8  ` 0C 8  ` ` jݪL+ { lݠ` ߍ lݠ  L  / 0+Эѭ  L; λ Ѝэ `N Hƍ} 4 /ԍI ԺM J 8K L /J ܭ שN M I  4hƍ}` ɠ Ɉ ɍɊ`l m n ɍ<  0 Ѝэ` , 4 Эѭ /-А! , 4 PL / U5L! e/`/8 Ԥ 0 L / 0ԍՍ` / ԍՍ //J   L І,0`  E  0 а2&ԦаХѭ /L 0/` 4ЍэL  E `8/ХѬ/ 8eЅЩeх, 4`, 4Эѭ λ L λ  LLO/`eАmА` 4 ЄLWȱ ȱ  = /JJi L, 4` m8 8 `   @L/` /`, O,`, L,`, ,`, g,`BK;, R,`, ,`, (, jݪ +,`,L, ,`, ,`, ,`,L , hh,L"z܇  L LLL`ª`LQ L  @   (4);"EXEC HELLO2"9`h/#h0#h #h!#m #m!#HH#H0#H/#H`" "9#L(HH%H ( fh%uH((  f((((hH%hʠ%"(#(%$ /#e% $ "# "#L# / /hh`(`(! "/ "/L&(ȑ( "#)A[Q y@Q) L! hƍ}` \ Š LY" \ H 4)hLh` 6k"k"6H"h"H"h"`// " "/`ڠ宠` #hh67` #hh 8} C 0) { } ȱ `} L! \ ٠͠ǡL%Ԧʄ ȘI` Y!ɩ &`ե Խ&` L Y! &I&0 `Hƍ}   MՑQ)``  & L N & LA[ `  C L N C La{)`H  Lwh`` |!    Ԧ`8e`    O H N N h) C //{ & ,0 ` 4 P / U5L `` &L!/&&`@jLS & &*L!`8`ԤiH` H8h`H d8h`ȱLH dh`L O )ILT N Ց`H L8԰h`` ')AI'byN N y  1 : yN yyy  cP c`,0` H Lo L@he gH)jjj8"9#h)   g) g)  cg)E I  )ƍ}L L W,40 ,0`ɀ 4,4)? HH` 4),4th lpp`x  `SSSM"SSSgSsoSSSSSSSSkSSSSSS{!SSS-%% {!osgk9"M"g sokg!Х 2$L')% $$$/$Ȧ% 0ԍՍN 4  U50/ O  L K LL L$LL N ) L$(L FBP L R #/䚩I@ K)ⱞHƍ}h ƍ}LLHƍ}h ƍ}L`Hƍ}C8D&* hƍ}`Hƍ}C8D,E8E&* hƍ}`C8&*  )`L@ƍ}L  ƍ}8-#P#Pʧ` #L mxy "4`(LLȹ0: $`Ɂ:(e$})Ȍ~(8$mLj L= -ٙ:$`OAD AVE PTIONS RINTATALOGLOSSARY$( /Ɉ`)ɠɍ ɕɘL`  ghƍ}`} }&(H'H`†'V% M n"!BN E0#F#2G"H#R#/OKpXSYq/H?h PHPh L   PȥP` g RP PQ` O2 2 % ` O)P!JPP(QPƠ(꥟8ƞL)ƍ}  p  P,` g RPQ` zL zLŠ ş Ş`0 Ɲ&&&)`ə ƍ}LR祝ɘ FffL`Hƍ}             50:3005XX$"PRINT"İ4000:3400:A$"7"9000:3600](XX$,4)"LOAD"LZ$(XX$,5):2105}(XX$,4)"SAVE"į11:2125%2120*(XX$,7)"CATALOG"įE:D$;XX$:A$:H:"";XX$::XX$IO$"":F:1970:2200:F$(1,SI)",S"((DL))",D"((DL2CATALO OR ANY DOS COMMAND.";27):1:15:FL$:"";B$:F:34,1O2:958:34,0a:XX$""IO$oXX$""ı5,M:M(IO$)51220751970(XX$,4)"LOAD"XX$(XX$,5):1970:1950:2500:2105 (XX$,4)"SAVE"XX$(XX$,5):1970:190 { ˭$% $ ˭L%3 4 ~3H  ˮ 00hɈ*ɕ&Ƀ"əɘɋLx3ɠ8 `h`U4, I 3L3U4H 5 h   I 3L3, 0  3  3L3 @`)?L3ɀ V4H{ P!`{  (!` 2"0 / E2 $ "% $` <"8#2 4 kʩ{)!( xxxx0`LX!Pxxxxxxxx0`H 2"0 / E2 % $ hL L 1 'I`8m, 4`5L10H 1 2 50h ɠH/ s1hL5ɍLs1Ɉ)LP1L[5L1H11110 /1111111i1'h' /`{ 2L2L0L$0L5L5L31Ls50 1`/8JHH( 8(hH l0(8(ih l0Lw0`/L/`e)_m)W(8⨈0 0eeЅАѥ8(i0 088аL 1 0 ` 40`4 4//4 / PL/ 4/4/L// U5n/n/n/n/m//m///(././././% m/ /i%>/J/Jm///%8 Ii//***)m/I8i//`/////`P 6L5L5L0L[5L0L6L}} --` -   -` -L%88- \ ǠϠLJL% -5 \ Ϡ٠ ӮŠӮ %-`m-m- }}ʆ͗ `!&*8&``++++++ D-` J L-+ɡ,`H,ɛ ɍ  Lg-h`I-`  `,- H   hI  ` ɨ` % -  `--L%<-⭗L .*-L]+`8@I,0,( mI,ikȱkȱk    I,i  ` *++*** ,3+Ȍ2+1+**'.*J ,***L,,*m** ,-+0+Ȍ,+/+-* .+++L,8-*++-*.+**I,*,+-+-+0+,+/+,*8-*8++++-*8.+.+,*-*+***)*h`,0~ `^_`` J,'.*'**ji  )*ѱ :0 ȱ ,L]+.*Ș)*ԩ- D-L]+ *-L]+ D-L]+ *-L]+ +   )*? Д D-L+ D-!%? .,)* Ȣ  L)    `L⩍  K`)*+*,*-*.*&*L* 9tLQ* L*LQ* *LQ*LQ*; + L* & *!? .,L*LQ*'*(* .*L*)* )***+*`H ).*ҥ % %L )8 %` )DL@)-DmE'EɌmDLX)DC8&*  'EɌ ) ) D- &* )` `&*H8E053&* /*+*(h.*'*)*(*** 5+)* $C8D&*L)h&*` /* 5+ ) *`)* $ AL( yL-( $  $ $ $Lt( (    yLq(Lq( Ƀ,Lq( ))L' 'L'ƍ}`K8G7mL )  (!! (mL )  (`8` )C8D8EL(C8D&* /*TLEFT MARGIRELATIVE LEFT MARGIRLCOMMENPAGE NOCONTINUSPACENDENDREDEFINLRLFOOTELEFT JUSTIFY ONLYRIGHT JUSTIFYRELATIVE PAGE WIDTRP׬@,')]& h( &`ƍ}IHLq( )K.C  '[M%%L% Copyrigh Wytand Py Limited All righs reserve. Reprodution of ay part ofthis codein any fom, withou written ermissionfrom Wytad Pty Limted, is srictly fobidden. HEADECENTERCENTRENEEDEJECT ON EJECTINDENNOINDENTPAGE WID ` y`橨 $H $[ S yJ he  H O h`Hƍ}  H hhƍ}`  $h % \ ?2 i ( ` ԠĠҠǠϠǍ 4, 4 48` LM%%L% %L` "$L/$$H) @ V4h V4 4ɍɊɕ#%i#2%H f fh%$$ (HL$ɋɈ %H  LE$ɠ%)߬$$`H,iȑiȑih1?+ɀ'Hƍ}.iii(hƍ}``H  yh`h`   `15302HTPTP(FF$):IO$FX$:4::5:B:GX$"Z"ıBHBOTP1520PH"KE4050VH,wH@XX$IO$"":XX$""GF$XX$:H^BOTP(GF$)3İ800HhIO$GF$:4::5HXX$""XX$FL$:5,M:1:M497:XX$HXX$"PRINTER"FL$XX$HI(XX$,1:M,TPM1,TP,BO:TPTPM'GGX$"N"1560TG(16384)212(16384)244Ĺ16368,0:H GX$"Y"GX$""GX$"Z"ĉ::9:"REPLACE COMMANDS Y: Replace N: Don't replace T: Terminate Z: Replace and end Ctrl Y: Replace all";:GX$:1400:1100FxKEı8FBOTP300ĴTPHI1040600:500CFF2ıTFLOBO999ı]F650FFX$IO$"":XX$FF$:GX$"":M(FF$):BOBOM:M,TPM1,TP,BO:TPTPMF1100:IO$""::B:GX$""ľGX$FGX$"T"ıGGX$"N"M(FF$)1:MBOBOM94050 EC(EHKEF1F2BOTP40964050.EM?ERTPHI1860jEWBOBOTPHI1:M,HI,TP,BO:TPHI1:850|E\F1İ550:850Ep4E"":5500EXX$IO$"":XX$""XX$FF$EFF$XX$:1100:ELIO$XX$:4::5EBOLO1400EF2į: FDEBOTP3690(D(BOLO)įM,BO,LO,BODESDBOBODE:MKEF2:F2F2DE:F2Ĺ1022,0{DK0:KF,DE,LO1DE,M,ER:K1:ERıD590D:"PHASING ERROR-CONTACT WYTAND P/L":A$:ER0:D KEİ840D(TPBOHILO600D*500E>DEKEF1F24096:DE1690QCvDEDE1024:F2F2DE:MKEF2:K0:KF,DE,LO1DE,M,ER:K1:ERBOBO5:590{CM,BO,LODE,BODE:BOBODE:1022,1:4CF2įM,BO,LO1,BO1:BOBO1:CBOTP1040DEKEF1F2:510CDE((BOTP3)2000)1024:DEF2DEF2 DDEDE1024:P3690!B5(HITP)įM,HI,TP,HIDE=B:TPTPDE:DEF1Ĺ1023,0sB?F1F1DE:K0:KF,DE,HI,F1,ER:F1F1DE:K1:ERıBN:"SCRATCH FILE ERROR":ER::F10:F20:KE0:D$;"CLOSE":1022,0:1023,0:4055BX830BbDELOBODELOBOClDE(DE1024):DE DE(DE1024):DE1690OADEDE1024:K0:KF,DE,HI,F1,ER:K1:ERTPTP5:590vAM,HIDE,TP,HI:TPTPDE:1023,1:4A&F1įM,HI1,TP,HI:TPTP1:A(BOTP1030DEKEF1F2:610A+DE((BOTP3)2000)1024:DEF1DEF1B0DEDE1024:DEBOT@9 @48000 @0,TP:1,BO:4@0,TP:1,BO:@@("";:M@74::5_@RBOTP4İ800@Z(226)8060,6000,8010,8030,650,2000,1600,550,5,5,5,8040,5,5,5,7000,5,850,1000,5,5,5,5,1510,5,5,5,5,1990,5,5,5@d55@830@DETPHIDETPHIA               CREEN  SCRNSTAT #$2 >2 #2 SCRNSTAT $C0B4 SETTXT HOME #$B $25 VTABZ ^2 SLOT0OUT  ; FLASH2 : VIS80  SCRNSTAT #1 >2 #$A $C0B0 #$0 $C0B1 #$E $C0B0 CURPOS+1 #$7 $C0B678,Y $16F8,Y  <1  ; RGOUT2 : LAS40COL >4 #2 SCRNSTAT SETTXT LASHOME #$A $25 VTABZ #$8D $FDF0 #$8D $FDF0 TEMP2 TEMP ^4 $FDF0  ;  VIS80 RGOUT2 :#;NORMAL OUTPUT TO 40 COLUMN Sʊ% $h 5$ V4`{S} {.SPACE } {}  /Hƍ}h@@ @ 2ƍ} @@ 2hƍ}0`Y $10F8,Y $1178,Y $11F8,Y $1278,Y $12F8,Y $1378,Y $13F8,Y $1478,Y $14F8,Y $1578,Y $15F8,Y $1IA4`ɛ``ɰ1ɳ-,*** 4L5Ɉ`ɠOL5ɠ`Ɉ4`H4h,`,LJ5( i(`HJ) h)i `0 1Ls5 I`5`  -+ 5(H8(ih`$ $$H( H 4Hhhhhh 4`/// hhhh/ `N hhhh`FHh8h8оU4 /h8У`(!H(8(()i)h(H(i(())h`He h(H8 h`,,`,H 40Hh0hHWh8Hh4 4H / U5//h(`ɰpɸl -44`0`ɛL5ɈP{695,3698,3720,3700,3560,3565,3730,3682,3684,3740,3640,3682,3684,3678,3678,3695:3610nX31970:HE$" "XX$" ":X81970:FO$" "XX$" ":XV4340:A3740:PIN:X[PH3PL3960:X:PH(843):5X^NPW%NX`4350:A3740:PWN:XbPT0:YdPT198N";?WPT(PT0)((PWPMPI)4):MLO1MKF2:MLO1MLO300W835,PW:836,PM:837,PI256(PI0):839,PL:6,M:842,PT:843,PH:4:W$5:PH(843):PT(842)QX)XX$IO$"":N(XX$):(964)3635,5,5,3780,3780,3960,3670,3675,3680,3693,3690,3690,3;" DONE, ";PA;" TO GO.":3600'V :5000-V hV BOLOMKF2HE$" ":(FO$)0(1007)03960:3560}V LOBO350F2ıV :650::24:3950VVPS13445:16368,0:24:34,23:S(4)TPF1::3950W3565:(968)103(1007)ĺ(9);"(833):PL(834):PW(835):PM(845):N(837):PIN256(N128):PI(PMPI)PIU PT(842):NPL(839):PF(N(N))2:PN(838):PLPLPF:PH0:U PHį:PHPHPLPF1:::U U ::M(16384):PA(M3)PA1V PA0İ850:3550:3545:22:PBPAT 4330:A40:PMN:+T 4340:A40:PIN:BT 4350:A40:PWN:MT PTN:wT LPLNPF:N0L140:PLL:PFN:4200T NNPF:N140:PLN:T PN((N)):T PPN:846,N:T 844,(N):T N0N740:PSN:833,N:JU HE$"  ":FO$"":PS):A$"Y"N1fS M(37):(M3)23480,3480,3495,3500,3505,3510,3515,3520,3525,3530,3535,3540,3475:3465sS N4055S PH0:1007,0::PS::845,PM:834,PLPF:PW%PW:PFPN0S 838,(PN255)PN:PN1PNPN1:PHPFPL3S PA1:SI1::F:4250::"2"Ra A$"2"İ3550:3545:0Rf A$"3"A$"7"ıARk A$"5"4055Rm A$"6"Ą"Number of copies? ";A$:PA(A$):PBPA:PBİ4400:3545Rp A$"4"3400:4400Ru 3545::Rz PP(846):PA1:4200:34,1R 4:R:M2 S 4250:(M2)22:"";A$:N(A$O START OF NEXT PAGE 2 SKIP TO NEXT PAGE 3 CONTINUE PRINTING WHERE LEFT OFF"QW "4 PRIMARY PRINT OPTIONS 5 RETURN TO EDIT MODE 6 MULTIPLE COPIES 7 PRINT TO DISK ANSWER 1, 2, 3, 4, 5, 6 OR 7 ";::"2";::A$:A$:A$"1"İ3545:R\ (A$)13A$HI4000İ650:3060@P NLOMKF2BO1:N0įMM,1,HI1,PO,ER:2570WP BONLONLO1BOyP LPO:MM,N,BO,PO,ER:ER2570P LPOL:M,BO,BOL,TP1:BOBOL:TPTPLP 3060NQH 5:PA1:1007,0:F:PS03445::PS::"1 PRINTER MANUALLY POSITIONED T4:LPO:MM,M,TP1,PO,ER:TPTPPOL:POLMİ500:2560AO TPTP1QO ER5įERqO D$;"CLOSE";:KEĺF$(0,SI);yO :O 4000:2200:3045O D$;"DELETE";F$(0,SI);F$(1,SI)O :5000O O1:D$;"OPEN";F$(0,SI);F$(1,SI):MM:PO0P F2ĭBO1,0)",S"((DL))",D"((DL2)):SI0:N LOBOTPHI2ĺ"TEXT IS PRESENT IN MEMORY":"DISCARD (Y/N) Y";:A$:A$:A$"N"İ8030N 2200N LOBO2300KEF1F24096İ600:2510N 5000N O0:"OPEN";F$(0,SI);F$(1,SI):MM:O1:PO05O MBOTPMC2MH:(222)155000:XX$:(222):226,6:90HMM40,0:41,4:2005\MXX$""ġ:2125MM012:XX$F$(0,M)SIM:M24MMM16ıMXX$""XX$F$(0,0)MXX$""2125MM1101:SI01:F$(SI,M1)F$(SI,M)::&NF$(0,0)XX$:F$(",D"((DL2)):FL$F$(0,SI):21258L/XX$"GLOSSARY"4500uL1(XX$,7)"OPTIONS"XX$(XX$,8):1970:1950:5600:2125L4D$;XX$L9LZ$""āM2(LZ$)1:NM:M(","(LZ$,M,1))BOM::XX$(LZ$,N1):LZ$(LZ$,N1):1970:(XX$)İ2505:2105L>5000$,5):1970:1950:3000CKXX$"PRINT"İ4000:3400:A$"7"9000:3600kK(XX$,4)"LOAD"LZ$(XX$,5):2105K(XX$,4)"SAVE"į11:2125K%2120L*(XX$,7)"CATALOG"įE:D$;XX$:A$:H:"";XX$::XX$IO$"":F:1970:2200:F$(1,SI)",S"((DL)) SAVE, PRINT, CATALOG, OR ANY DOS COMMAND.";27):1:15:FL$:"";B$:F:34,1]J2:958:34,0oJ:XX$""IO$}JXX$""ıJ5,M:M(IO$)5122075J1970J(XX$,4)"LOAD"XX$(XX$,5):1970:1950:2500:2105K (XX$,4)"SAVE"XX$(XX)" "XX$(XX$,2):1970AI(XX$,1)" "XX$(XX$,(XX$)1):1980GII:F::K1::6:LOBO1F2;" characters below cursor ";TPHI1F1;" characters above cursor ";BOTPKEF1F21;" characters free space"JJ:1:"FILE COMMAND?";27);"LOAD,2#1007,1:PD1:D$;"DELETE";PD$ch<#D$;"OPEN";PD$:D$;"WRITE";PD$::0:0:OHPH:3545:3600:F:4055|hP#(222)69020:5000h  AA 1043 h:h36864hRD$(26)hBO1:M1:N1:L1iXX$"":O RETURN ";)gA$:A$"R"7140:F::4055cgJ216,0:1012,0::::D$;"IN#0":"PR#0":"CLOSE":g^MK0:F10:F20:TPHI1:BOLO1:1023,0:1022,0:gh:MKMKF2LO1BO:grMK0:""g|g(#"FILENAME? ";PD$::"Printing to ";PD$:9040h5:PLİ3445:7120Vf:"PRINT OPTIONS? (Y/N) N";:C$:C$:C$"Y"3545:C$"Y"İ3445f:NPMPI(PI0):"LEFT EDGE OF SCREEN AT PRINT COLUMN? ";N;:38:1:"";C$:C$""C$(N)f1009,(C$)gPA1::G::1007,1::F:3600::(1009));"R TPH:1008,0:PL7100$evTPHI1ī7100meLTPF1:N4:SIL:M401:S(M)LLS(M):NM:M0:PN4NPNPN4N~e:LSI7100eLLF1:LHI17100eMN01:S(M4N)S(M)::BOBOLTP:M,L1,TP,BO:TPL:4:PH0:(1009)PM7120:7130fPL354:2125^d2200::"SLOT AND DRIVE: S";:M3:5800:NM:",D";:M6:5800:LM:L1L4N1N75630xdDL,N:DL2,L::2270d:"BAD DISK DRIVE";BE$:4055dB$(F$(1,SI),M,1):B$;"";:A$:M(A$):MM(B$)dM;:dpXX$(255):1100:eX:OH12:5010:4055Kc7,N:M(222):F:O1::M16ĺ"SYNTAX ERROR LINE ";N:5095acM255ĝ:5:4055lc5000~cM16įM::cM176ĺ"STRING TOO LONG":5095cN3985ĝ:c"ERROR ";M;" AT LINE";Nc:BE$;:XX$:dXX$"PRINTER"İ3445:paper to top of form, then hit any key. ";:A$::bO0:"OPEN GLOSSARY":MM:O1:PO0:8,L:2,M:NLM:MM,N,M,PO,ER:ER5įERbERğ:"GLOSSARY OVERFLOW"::A$b"CLOSE GLOSSARY":MMPO:M,13:M1,123:M2,255:M3,125: cD$::::PI::PW::NPT:4300:PF::PLPF::PFĺ:42708aPNda:NPP:4300:(844)::PS::"Y";:5:jazaNĺ"Y"::a"N"::aAN0PIN0PWN1PWNPI1:aANPM0NPMPW:aANPM1NPMPI1:/b0PH0:PNPN0:"Position the V`r"RIGHT JUSTIFIED (Y/N) FOLD WIDTH (BOTTOM MARGIN) FORM LENGTH ":PFČ868::4230s`|"PAGE NUMBERS START AT"`" STOP EACH PAGE (Y/N) LINE SPACING PRINTER SLOT":"(SLOT ERROR FATAL)`"(TEST)PRINT (Y/N)";:0a32,26:33,6:34,3::PM:(1007)PHOH:1007,05_PDPD0:"":D$;"CLOSE";PD$=_55{_"SCRATCH DISK OVERFLOW BELOW CURSOR";BE$:LON10244055_DELON1024:630_h::" PRIMARY PRINT OPTIONS ":32,4:33,33:" LEFT MARGIN INDENT PAGE WIDTH (INCL. LEFT MARGIN)"36!^"CURSOR AT BOTTOM OF TEXT!";8^BE$::A$::4055b^:"Intentional? (Y/N) N";:A$:A$:^F:D$::"MEMORY FULL ERROR";BE$::D$;"CLOSE":16368,0:A$^M(HILO)2:NTPM^BOTP4BOBO4N:TPTP4N:4053^:::5000_F:M)S(M1)::S(4)TPF1!]843,PH:g]TPHI1Ğ:"CURSOR NOT AT TOP OF TEXT":4040:A$"Y"İ850:4055]MKĞ:"LOWER LIMIT SET":4040:A$"Y"İ8050:4055]:A1LOBOMKF2:A;" CHARACTERS"::A0ı]:1LOBO0ĺ"LOWER LIMIT TOO HIGH";:408:16368,0:PHPLPF35\MPLPF4:PHMāPHPHM::[\IO$"":PNPN(PN1.5):IO$(PN)\PHM1ĭPN1ĴTP(HE$)6BO800:HE$,IO$:843,PH:Y:Y:Y:PH(843):4\PHPLPFāPHPHPLPF1::]PHPH(PH(PLPF))(PLPF):(1007)āM03:S(:5000[n:PH(843):5000D[xPH03996:IO$"":PNIO$((PN))_[|PHPLāPHPHPL1::[PHPLPF2ĭ(FO$)PN(IO$):(FO$)7TPBO800:FO$,IO$:843,PH:Y:Y:Y:PH(843):4[(1007)ĭPDľA$:A$"R"4055\PPĹ16368,0:16384,12XX$(XX$,2):1970:N(XX$):N3740:RD$(M)(XX$,(XX$)1):Z:F:D$::"ILLEGAL PRINT COMMAND";BE$;:::16368,0:A$:4055ZPLPHN3960:Z:"CONTINUE ";XX$;" (Y/N)";::ZA$:A$"N"A$"R"4055:A$"Y"3845:"Y ":::1008,0:[i1:YjNN(845))Ym4330:A3740:PMN:QYo(1007)į:23:1:868:XX$::WYpgYrPN(XX$):~YtN13740:844,N:YPD3996:(1007)3840::8030:1970:FL$XX$:2500:850::34,23:9ZXX$XX$"'":1970:M(XX$" ")64:M0M263740:ECKxT4340 IS PI CHECK,x^4350 IS PW CHECK3565w4Command 19 ends printingFw5Command 20 checks scratch storage_w6REDEFINE 21 3730zw@ PRINT ERROR 22 3740wJ4330 IS PM CHECKwT4340 IS PI CHECKw^4350 IS PW CHECKEFINE 21 3730w@ PRINT ERROR 22 3740xJ4330 IS PM CHv* RELATIVE LEFT MARGIN 11 36909v+ RLM 12 3690Rv,COMMENT 13 3695kv-PAGE NO. 14 3798v.CONTINUE 15 3720v/SPACE 16 3700v0L 17 3682v1R 18 3684v2END 19 3560w3END 20 andsu HEADER 1 36353u!CENTER 2 3900Lu"CENTRE 3 3900eu#NEEDS 4 3780~u$EJECT ON < 5 3780u%EJECT 6 3980u&INDENT 7 3670u'NOINDENT 8 3675u(PAGE WIDTH 9 3680u) LEFT MARGIN 10 3693S(4)TPtDL43626#tĹ226,6:4:90t 3625 XX$ = IO$ + "": ON PEEK (965) GOSUB 3635, 3900, 3900, 3780, 3780, 3980, 3670, 3675, 3680, 3690, 3693, 3693, 3695, 3698, 3720, 3700, 3682, 3684, 3560, 3565, 3730: GOTO 3610uList of embedded format commsM0:KF,1,0,M,ER:ERįER:súD$;"CLOSE";D$;"OPEN SCRATCH1";D$;"OPEN SCRATCH,";C$:KF:D$;"CLOSE SCRATCH1";D$;"DELETE SCRATCH1"sBE$"":M14:BE$BE$"":så5000sð8030:3,HIsFF$(13)sFL$""""sPS1sù1007,0tÆS(4):"DELETE SCRATCH,";C$vrïK0:216,0::D$;"CLOSE";D$;"OPEN SCRATCH,";C$:KF:M0KE10:DE((KEM)256):DE191DE191rDEDE256:KF,DE,0,M,ER:ERMKE10r:24:M;" CHARACTERS, ";(M2561);" SECTORS ALLOCATED";:1rMM1::ERįER:50045HARACTERS OF FREE SPACE LEFT OVER "lqú"HOW ABOUT ";((M25000)5000)5000;" CHARACTERS OF SCRATCH STORAGE? "qú"How many characters of scratch storage":"do you think you will need? ";A$:M(A$):M100050045qKE((M1023)1024)1024:50100r2500050096pï:"ONLY ";M;". THAT IS A BIT MEAN. DO YOU REALLY NEED ANY SCRATCH STORAGE AT ALL? IF YOU ARE GOING TO ALLOCATE ANY SCRATCHSTORAGE AT ALL, THEN YOU SHOULD ALLOCATEA WHOLE LOT. " qú"SCRATCH STORAGE WORKS BEST WHEN YOU HAVEABOUT 20000 CHARACTERS OF STORAGEAVAILABLE IN THE COMPUTER. IF YOU THINKTHAT YOU ARE GOING TO NEED MORE THANTHIS YOU SHOULD ALLOCATE SOME SCRATCHSTORAGE ON THE DISK":pú"How many characters of scratch storage":"do you think you will need? ";A$:M(A$):M OTHER DISK YOU ";lnú"HAVE PUT IN THAT DRIVE, AND THERE IS NO WARNING, NO ERROR MESSAGE, AND THERE ";nú"IS NO PRACTICAL WAY OF RECOVERING THE DATA THAT WILL BE CORRUPTED. ";40):oú"YOU HAVE ";LOHI;" CING SCRATCH STORAGE":::41);"WARNING";72);" IF YOU REMOVE THE SCRATCH DISK FROM ITS DRIVE AND THE ";nú"WORD PROCESSOR ATTEMPTS TO USE IT THEN HORRIBLE THINGS WILL HAPPEN TO THE WORD PROCESSOR DATA, AND TO THE DATA ON ANY files of moderate size are used specify zero - no scratch disk)";vlÖM:22:XX$:XX$"0"XX$" "XX$"O"XX$" "50120lM(XX$)líM1M750045lúXX$;", D";:C$"S"XX$:XX$:XX$:L(XX$):L1L450050lC$C$",D"XX$nmÉ::"NOW ALLOCAT(49281)2kvï4,LO:TPHI1:BOLO1::F:23:34,21HkxÆF$(1,12):50044dkyß:"LOADING GLOSSARY":|kzð4500:216,0:50045k|ú::"GLOSSARY ";:5010::216,0k}ï:22:34,21kï9,DL?lú"Slot and drive of scratch disk? S";:M(M)1:" (if onlyCat ";:50022#jZí(1101)6ĺ" ";2jdíMĺ" ";@jeíMĺ"80";jfú" 3rd Aug 84 Serial number ";(967)256(966);" Copyright 1983 Wytand Pty. Ltd. "jmâ23:34,21jnúD$;"CLOSE"jpúD$;"MONI"krM(49281)TP1:IO$" ":TPLO iHD$(13)"",iCP$""FiPDL26773:HI4409630NiSÉ:\iTíMĺ" "iVú"S A N D Y W O R D P R O C E S S O R Cracked by the Student Version 1.8 ";:M(972)iXí(1101)6ĺ"2e "; jYí(1101)72ĺ" ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8s"PLEASE WRITE PROTECT YOUR DISK"Ȍ̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8s"PLEASE WRITE PROTECT YOUR DISK"Ȍ̍񷩷 `WRITE PROTECT YOUR DISK"Ȍ̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8s"PLEASE WRITE PROTECT YOUR DISK"Ȍ̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8sDSK"Ȍ̍t tabswith your blank disks."3,D$;"UNLOCK SWP1"T6D$;"BSAVE SWP1,A$300,L$100"h@D$;"LOCK SWP1"rJ22:x FOR NOWT YOUR DISK"DISK"Ȍ̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8s"PLEASE ab (see page 36 of your DOS manual for details.)":270 ::"If you wish to change these values then remove the write protect tab and type 'RUN CONVERT' from file command mode."""Please write protect your disk. You will find several write protec edge of a floppy disk. Ifthe notch is covered the disk cannot be written to, which protects it from beingtrashed, but prevents it from being reconfigured.":(37)76 "Is your disk write protected Y/N ";:50:958:Mĺ"Please remove the write protect trinters cannot. However some dot matrix printers have a software backspace.":(37)7 :"If in doubt answer 'NO'":(37)1:"Can your printer backspace? Y/N ";:50:965,255:MĹ965,0:958 " The write enable notch is a notch cut onthe right hand8,220:" Does your interface demand the characterstring 'CtrlI255N' before it will let your printer exceed 80 columns? Y/N ";:50:MĹ968,103U 958:" Most fully formed character printers, for example thimble printers, can backspace. Most dot matrix p: 972,0 958^ :::::"This is sometimes the case with parallel interfaces." "On the other hand this command makes some daisy wheel printers slam their print heads into the right hand stop and make horrible noises.":(37)11 96 1000 D$(4)3D$;"BLOAD SWP1,A$300"<170Z2:16368,0:"N";::(M)<A$:M(A$"Y"A$"y"):A$"N"MA$"n"A$(13)60FMA$"Y"PA$(13)A$"n"A$"N"Z:A$:958:::: :"WHAT IS YOUR EQUIPMENT? ":`   LiU  湭LORX  f` X` /` ` ` ` ` { lݠ` ߍ lݠ` =` ` ` $` ` `Í `  BI른HHƍ} hh ^ BHȱBChBBȥBȥBƍ} [ S B BPȱBQ BHȱBChBBȱBȱBJPP(QPƠ(꥟8ƞL)ƍ} 1  ) L㪘ee 䈄#eeeeܥhƍ}` CB`L S BHBiKhi )L SBȩB g RP8 PQPB  RPQB PP(QPBȥQB  RPBȥQBƍ}2eeiH/?)ɀ%hHHƍ}(hƍ}h`$2@] hS hT S T H ɠ S T h0] 2lS ,iȑiȑi`ݚ J#L  RPQ  RPQ  RPQHƍ}jjE0#8⨥ɠɊɈ Θ L ͘  ͗ E /L; H L E F G ` $ mX/C  `8  ` /C 8  ` ` jݪL+ { lݠ` ߍ lݠ`l6l8L"ؤ$(H) @(hL .i刱i䈅Эѭ  L y Δ Ѝэ ` - Hƍ} j/ԍ( Ժ, ) 8* + ^/) ܭ ש- , ( hƍ}` ɠ Ɉ ɍɊ`E F G ɍ<  / bɃTPL 4L; ?E Эѭ Y/(А y , L} |.,L eY/`X/8 Ԥ |/ L Y/ /ԍNՍO` Y/ ԍՍ ^/Y/J   L  z. 0+І,0`  <  v/ а2&ԦаХѭ g/L y/Y/` R4ЍэL}  < , R4`8X/ХѬX/ 8eЅЩeх, R4`Эѭ Δ L y Δ Ѝэ` ^ @LLsX/`eАmА`Є!   ȱLfȱ LG = X/JJi L` m8 8 `  L                                 ASE WRITE PROTECT YOUR DISK"Ȍ̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8s`AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8s 8s̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8sB̍񷩷 ``AAAAAAAAAAAAAAAAAAAAAAAAAAAAB8s"PLEiȑih1?+ɀ'Hƍ}.iii(hƍ}``H p h`h` } L` L` `橨 F$H #[ pS J Lhe X XH . h`Hƍ} H &hhƍ}` L `$h %"(7#(%$ p/7#e% $ K"F# a"G#LB# s/ s/hh`(`(! a"p/ K"s/L&(ȑ( a"G# a"~#Lp/}#|#H) @ 3h 3 4ɍɊɕ#%i#2%H f fh%$$ (HL#ɋɈ %H  L#ɠ%)߬}#|#`H,ih"H"h"`s/p/ K" a"p/`ڠ宠` w"hh67` w"hh 89`h"h"h"h"m"m"HHH"H"H` a""L(HH%H ( fh%uH((  f((((hH%hʠ% L~%`ե Խ~%` XL4 ~%I~%0 `Hƍ} }MՑQ))A[Q @Q) LLW! Lhƍ}` 5 Š L! 5 H 4)hLh` 6!!6H"   Ԧ`8e`   & . RH   Xh) 7 \/]/{  } 0)7 {  } ȱ `} &L 5 ٠͠ǡL7%Ԧʄ ȘI` ɩ`H 8h`ȱL&H h`Lv . R)IL Ց`H pL*8԰h``` X L   L&A[ ` X L   L&a{)`H }Lh``   H Lo L@he⬕H)jjjh) ) )  )E  ` `` LX/͜`@jL ͜ *L`8`ԤiH` XH8h`x  `!6# nbH-O%n%7 f !j!0!W^` LXXLLXLLL $ P `,0` * LH+ Lx$LHLx R- ) L^$(L FBP L R J#z.䚩I)ƍ}L L& ,@40 ,0`ɀ @4,@4)? HH` R4),@4th lp) 2hƍ}`Hƍ}C8D,E8E) 2hƍ}`C8) Z)`Lƍ}+  ƍ}8NO 2$L)% $$$X/$Ȧ% /ԍNՍO- R40z. .  + (8$Lj L `2-2$`OAD AVE PTIONS RINTATALOGLOSSARY$( p/Ɉ`)ɠɍ ɕɘL``  K)ⱞHƍ}h ƍ}LLHƍ}h ƍ}L`Hƍ}C8DmOK 0CXY \/H-/?w YPHPh )L Y  ^PȥP` g RP PQ` O2 2 7% ` O)P-#P#Pʧ` J#L  a"`(LL`ȹ20 $`Ɂ(e$)Ȍ ,` g RPQ` SL} SL}Š ş Ş`0 Ɲ&&&)`ə ƍ}LR祝ɘ FffLv`Hƍ} ghƍ}` ݿHH`_w3'$w M !E!B- OE"FI#1G"HZ#Rq#l/`,H R40Hh0hHWh8Hh@4 R4H . 4z.z.h(`ɰpɸl -?4@4`0`ɛLn4ɈP{IAV4`ɛ``ɰ1ɳ-,*** ?4Ln4Ɉ`ɠOLn4ɠ`Ɉ@4`HV4h,`,L4( i(`HJ) h)i `3L.33H 5 h   I K3L@3, 0  K3  K3L.3 @`)?La3ɀ 3H{( H R4Hhhhhh 4`z.z.w. hhhhw. `- hhhh`FHh8h8о3 F/h8У`(!H(8(()i)h(H(i(())h`He h(H8 h`,,xxxxxxxx0`H q1"/ / 1 % $ hL / { ˭$% $ ˭L2 R4 2H  ˮ /0hɈ*ɕ&Ƀ"əɘɋL2ɠ8 `^h`3,^ I K51;10 d/5181;1>151;161i<1'h' d/`{ P!`{  (!` q1"/ / 1 $ "% $` <"8#2 3 kʩ{)!( xxxx0`LX!Pe)_m)W(8⨈0 u0eeЅАѥ8(i0 u088аL0 u0L0 I`8m`5L}0̐/H b1 1 4/h ɠHX/ 0hL>5ɍL0Ɉ)L0L4L^1H61<1.i%>x.Jx.Jmx.x.y.%8 Iiz.x.***)mz.I8iz.z.`w.{.x.y.z.`P{5L4L;5L/L4L/L5L`2L42L/L/Lf5LZ5L0L4/ b1`X/8JHH( 8(hH /(8(ih /L/`X/Ld/`5 5 Ϡ٠ ӮŠӮ 7%H-`m/F-m0G- X}}ʆ/0 X X` R40`@4 R4w.{.@4 F/ LE/ R4w.@4{.LE/z. 4nz.ny.nz.ny.mx.x.my.y.z.(.y..z..y..z.% mz. z,` `,, H hI `  ɨ` G% - X X`H-H-LG%2 #2 SCRNSTAT $C0B4 SETTXT HOME #$B $25 VTABZ ^2 SLOT0OUT  ; FLASH2 : VIS80  SCRNSTAT #1 >2 #$A $C0B0 #$0 $C0B1 #$E $C0B0 CURPOS+1 #$7 $C0B,Y $16F8,Y  <1  ; RGOUT2 : LAS40COL >4 #2 SCRNSTAT SETTXT LASHOME #$A $25 VTABZ #$8D $FDF0 #$8D $FDF0 TEMP2 TEMP ^4 $FDF0  ;  VIS80 RGOUT2 :#;NORMAL OUTPUT TO 40 COLUMN SCRE0  ; ^1 HOME ; ^2 $21 #!80 <1 LAS80HME#$100-$78 #" " ^1 $0F78,Y $0FF8,Y $1078,Y $10F8,Y $1178,Y $11F8,Y $1278,Y $12F8,Y $1378,Y $13F8,Y $1478,Y $14F8,Y $1578,Y $15F8,Y $1678/ b1L4 I`5`  -+ 5(H8(ih`$ $$Hʊ% $h 5$ 3`{S} {.SPACE } {}  ^/Hƍ}h@@ @ 1ƍ} @@ q1hƍ}/`,Y $6F8,Y  N24:34,23:S(4)TPF1::3950kN3565:(968)103(1007)ĺ(9);"198N";NPT(PT0)((PWPMPI)4):MLO1MKF2:MLO1MLO300N835,PW:836,PM:837,PI256(PI0):839,PL:6,M:842,PT:843,PH:4: O$5:PH(8838):PLPLPF:PH0:5M PHį:PHPHPLPF1:::;M M ::PAPA1:PA0İ850:PNPN0:22:PA%PA;" DONE, ";PA;" TO GO."::FO$"":3960::3600M :5000M M BOLOMKF2OH(FO$):HE$" ":OH03960:3560M LOBO350F2ıN 0L140:PLL:PFN:42003L NNPF:N140:PLN:DL PN((N)):OL PPN:_L 844,(N):}L N0N740:PSN:833,N:M HE$"  ":FO$"":PS(833):PL(834):PW(835):PM(845):N(837):PIN256(N128):PT(842):NPL(839):PF(N(N))2:PN(75:3465K N4055TK PH0:1007,0::PS::845,PM:834,PLPF:PW%PW:PFPN0K 838,(PN255)PN:PN1PNPN1:PHPFPL3K PA1:SI1::F:4250::K 4330:A40:PMN:K 4340:A40:PIN:K 4350:A40:PWN:K PTN:L LPLNPF:Nof copies? ";PA:PA%PA:PA%İ4400:3545?Jp A$"4"3400:4400NJu 3545::mJz PP(846):PA1:4200:34,1{J 4:R:M2J 4250:(M2)22:"";A$:N(A$):A$"Y"N1K M(37):(M3)23480,3480,3495,3500,3505,3510,3515,3520,3525,3530,3535,3540,34J)256(JJ1):JJJJ1:LĂ:4:2000M1NF:Y1,Y2,Y$:Y10FL$(M)(Y2(Y$"V"))::2122EB(Y$)22118ED(Y$,1)" "Y$(Y$,(Y$)1):2114 F(222)5ER04100:62000:"PREMATURE ENDING OF MAIL LIST":"HIT ANY KEY TO CONTINUE";:16368,0:A$:4100d0:(222)62010,62020,62030,62040,62050,62060,62070,62080,62090,62100,62110,62120,62130,62140,62150:(222)1562160::"";: e:"LANGUAGE NOT20:A$"N"50160$c8QF0:QP0:3400.cBǰ10008cLǫ2000jc֞:A$;::1008:IO$:(IO$)32ĺA$;:1008:cA$IO$:A$;:1008:cA$"Y":55000:A$"Y"A$"N"55020cֺ:cA$"N":55000:A$"Y"A$"N"55040c ׺:kd`216,0:(222)04100:UL$(M)IO$"":UL$(M)LL$(M)ĺ"TOO SMALL":502606b^Ăqbhė:"FILE ";ML$:"FIELD";20);"LOWER UPPER":M1NFbrĺM;2);(PR$(M),17);:NU%(M)250310b|ĺ20)"SEARCH "LL$(M):50320bĺ20);(LL$(M),9);30);(UL$(M),9)bĂcĺ"OK? (Y/N) ";:550 ";,a6A$"N":55000:A$"N"A$"A"50230ia@ĺ:A$"N"NU%(M)1:UL$(M)"9999999999":LL$(M)"-"UL$(M)aJĺ"LOWER LIMIT? (Y/N) ";:55020:A$"Y"ĺ"LOWER LIMIT? ";:16437:LL$(M)IO$""0bTĺ"UPPER LIMIT? (Y/N) ";:55020:A$"Y"ĺ"UPPER LIMIT? ";:16437:$"Y"51000N`āM1NF:"TEST ON ";PR$(M);"? (Y/N) ";:55040:A$"N"Ă:50280`Ĵ(PR$(M),4)"CODE"50220:NU%(M)2:"ENTER SEARCH CODE(S) -> ";:16437:LL$(M)IO$""`ĭ(LL$(M))0NU%(M)0`"ī50270a,NU%(M)1:"ALPHABETIC OR NUMERIC RANGE? (A/N)F),UL$(NF),LL$(NF),PR$(NF),NU%(NF):M1NF:PR$(M)"FIELD "(M)::Y1150145_ÄY$,Y1,Y2,Y1$:Y$"DATA"50145:Y$"LABEL"Y2150140:PR$(Y1)Y1$:50140_úD$"CLOSE"_ÁM0NF:UL$(M)(127):LL$(M)"":NU%(M)0: `ú"ENTIRE FILE? (Y/N) ";:55020:A LOOK LIKE A SANDY MAIL LIST NOR DOES IT LOOK LIKE A DIF FILE. CONTINUE (Y/N) ";^ð55040::A$"N"ĺD$"CLOSE":D$"MAXFILES3":^ÄY$,Y1,Y2,Y1$:NFY2:Y$"VECTORS"50135:Y$"DATA"50130:Y1,Y2,Y$:NF1:Y201:Y1,Y2,Y$:NFNF1:Y2Y11:N_ÆFL$(NRIFY";ML$;",D1":D$;"OPEN";ML$:D$;"READ ";ML$:"";Y$]ôY$"TABLE"(Y$)050125:NF(Y$):FL$(NF),UL$(NF),LL$(NF),PR$(NF),NU%(NF):M1NF:16437:PR$(M)IO$""::D$;"CLOSE":FZ0:50160P^FZ1:Y1$,Y1$,Y1$:(Y$"TABLE")50130::0:0:"THIS DOES NOT ";::"RUN ":g\ú"PLACE THE DISK WITH THE MAILING LIST IN":"DRIVE 1, THEN PRESS RETURN -> ";ML$\×:8:"PRESS 'RETURN' ONLY TO CATALOG":5:"NAME OF MAILING LIST?"\Ä"NAME-> ";ML$:958\ô(ML$)050120::D$"CATALOG,D1":501105]úD$;"VEOU FAILED TO LOAD THE LETTER";45);" ";39);" PLEASE READ THE RELEVANT CHAPTER IN YOUR MANUAL";26);" ";39);" "::\dÞ:"MAILER";::" NOW PRESENT VERSION 1.5 14TH JUNE 1982 TO INTERRUPT TYPE ";::"C";::" (NOT CTRL C) TO RESTART TYPEOTP:TPLO:N22:N00:BP$" "}Z0:0:1002ZHD$(13)(4):CT36ZD$;"NOMON I":1012,0ZPLO(1019)256(1018):HI(1021)256(1020):5[ZíBOLOTPHIĞ:46);"YINPUT"(YM2500F$(0,0)"I 2":5170?Y M3500PL0:5170bYM176ĺ"STRING TO LONG":5170YM6ĺ"FILE NOT FOUND":5170Y("ERROR ";M;" AT LINE ";(219)256(218)Y2:XX$:Y:M1:L1:N1YRD$(26)mZCR13:CR$(CR):BO1:IO$" ":B4M10ĺ"WRITE PROTECTED OR LOCKED":51707XM5ĝ:SXM9ĺ"DISC FULL":5170vXM11ĺ"UNKNOWN COMMAND":5170XM13ĺ"FILE NOT TEXT":5170XM255ĝ:XM254ī5140XM(219)256(218):M2195İ2000:55YM3500ĺ"BAD RESPONSE TO ";:5: WWNĺ"Y"::*W"N"::NWAN0PIN0PWN1PWNPI1:fWANPM0NPMPW:WANPM1NPMPI1:W:"":::12:5010:WM(222)::M8ĺ"I/O ERROR":5170WM16ĺ"SYNTAX ERROR LINE ";(219)256(218):5170*XMV|"PAGE NUMBERS START AT"kV" STOP EACH PAGE (Y/N) LINE SPACING PRINTER SLOT":"(SLOT ERROR FATAL)V"PRINT (Y/N)";:V32,26:33,6:34,3::PM::PI::PW::NPT:4300:PF::PLPF::PFĺ:4270VPNW:NPP:4300:(844)::PS::"YLETED: ";QF;" ITEMS IN THE LIST ";QP;" ITEMS PRINTED. ":Uh::" PRIMARY PRINT OPTIONS ":32,4:33,33:" LEFT MARGIN INDENT PAGE WIDTH (INCL. LEFT MARGIN)"Vr"RIGHT JUSTIFIED (Y/N) FOLD WIDTH (BOTTOM MARGIN) FORM LENGTH ":PFČ868::4230N 1.5 14TH JUNE 82"onú:"TO INTERRUPT TYPE ";::"C";::" (NOT CTRL C)":"TO RESTART TYPE ";::"RUN":xú:"IF YOU RECEIVE INCOMPREHENSIBLE ERROR":"MESSAGES THEY WILL USUALLY BE EXPLAINED"Gú"IN THE MANUAL. THE USUAL CAUSE IS":"ADD0:0:1002HCR13:CR$(CR):BO1:IO$" ":BOTP:TP0:N22:N00:BP$" "D$(13)(4):CT36D$;"NOMON I"t1012,0dÞ:"LABELLER";::" NOW PRESENT... VERSIO2104:PV665 PHPHPL1PL:PVPVPL::PV0PV0; jLLLLNL:M1NF:LF$(LL,M)"":::3000:216,0:16368,0D$;"CLOSE":D$"MAXFILES3"""LABELLER COMPLETED: ";QF;" ITEMS IN LIST ";QP;" ITEMS PRINTED. "::M1:L1:N1 TP%(ML)XĺTP%(ML)X):XTP%(ML)B A$;" ";:XX(A$)1:3050\ GPWX:G0LLNLG0r G);::PHPH1:& NP%(M)MM1:MNF31100 :2104: PHPLİ3500D PH1ıN 2104:PHPHPL:" "::2104  PGĭPVPHPH64Č2104:(12);:00:QPQP1& PRINT ROUTINES 2104:PH1:M1NF:PL%(M)Ă:2104:3130t PM);:LL1NL:A$LF$(LL,M) X1:TP%(M)XĺTP%(M)X):XTP%(M) A$;" ";:XX(A$)1:L0 NP%(ML)MLNF3090 LL1:PL%(ML)3050# A$LF$(LL,ML):NU%(M)02160:(LL$)(LL$(M))(UL$)(UL$(M))FL0:MNFE k2190j pLL$LL$(M)UL$UL$(M)FL0:MNFt u2190 zFS$LL$(M):CS$FL$(M):FL0:J1(FS$):K1(CS$):(FS$,J,1)(CS$,K,1)FL1:J(FS$):K(CS$) K,J:FL2190:MNF M:FL0201Y$"EOD"4100K KM1NF:Y1,Y2,Y$:Y10FL$(M)(Y2(Y$"V"))::2126^ L2:FL$(M)Y$:q N34,23:QFQF1 RFL1:M1NF:NU%(M)02190:NU%(M)22170:LL$FL$(M):UL$LL$:(LL$(M))0LL$(LL$,(LL$(M))) \(UL$(M))0UL$(UL$,(UL$(M))); fNF1N)A$:MNF2N:MNF2130R *2101:A$IO$"":A$"EOF"A$"END OF FILE"4100 4(A$,9)".CONTINUE"ML$(A$,10):D$"CLOSE":1000:2000 >FL$(M)A$:MM1 HMNF1:MMNF:2101:FL$(M)IO$""::34,23:QFQF1 I2130 J216,0:Y1,Y2,Y$:Y12090t 2104:" ":" ":"BAD RECORD":" ":PHPH4:M1NF:(PR$(M)".......................",23);FL$(M):PHPH1: 2104:3130:NNF1:M1NF:FL$(M)""NM:MNF :NNFM1:2090 NNFFL$(1)A$:M2:2090 MN1NF:FL$(MN)FL$(M)::FL$(V :D$"OPEN"ML$:D$"READ"ML$::24:34,23:Y201:Y$,Y1$,Y1$,Y1$:Y2Y$"DATA"::| A$"0123456789":1030:1020:1030  A$;:: :4100 (16384)1954100 FZ02122 2101:A$IO$"":216,0 " "A$(BP$,(A$)1)M1:216,0:::"MAXFILES1":39590:20000:48000:::L;Lf o) ,ʊiȑiȑi`xH6xh6`AAA(Y$)2ı(Y$,1)" "Y$(Y$,(Y$)1):2 FZ0ĺ:D$"OPEN"ML$:D$"READ"ML$::24:34,23:M0NF:2101::         !!! ! ! ! ! !!!!!!!!!""" " COMMAND":lh"PROGRAM BUG. ERROR NUMBER ";(222):"PLEASE CONTACT WYTAND AT THE ADDRESS IN YOUR MANUAL":T ENDED UNEXPECTEDLY":/gl"FILE NOT FOUND":Hgv"VOLUME MISMATCH":[g"I/O ERROR":ng"DISK FULL":g"FILE LOCKED":g"SYNTAX ERROR":g"NO BUFFERS AVAILABLE":g"FILE TYPE MISMATCH":g"PROGRAM TOO LARGE": h"NOT DIRECT O BUFFERS AVAILABLE":2f"FILE TYPE MISMATCH":Mf"PROGRAM TOO LARGE":if"NOT DIRECT COMMAND":f"PROGRAM BUG. ERROR NUMBER ";(222):"PLEASE CONTACT WYTAND AT THE ADDRESS IN YOUR MANUAL":ROR":fX"WRITE PROTECTED":gb"MAIL LIS AVAILABLE":"eD"RANGE ERROR":7eN"RANGE ERROR":PeX"WRITE PROTECTED":veb"MAIL LIST ENDED UNEXPECTEDLY":el"FILE NOT FOUND":ev"VOLUME MISMATCH":e"I/O ERROR":e"DISK FULL":e"FILE LOCKED":e"SYNTAX ERROR":f"N ";:55020:A$"N"::VH7:52170:"B̰1000:PPN:QF0:QP0S"ĹLL1NL:PPNİ2000f"VPP1:PPPN"`́M1NF:LF$(LL,M)FL$(M)::"jLPLP1:LPPPĢ24:1::"HIT ANY KEY TO CONTINUE";::16384,128:16368,0:LPLPPP:1:38);:1"t̰3000:52300 M10VHVH2:52210*!̭M32VH24:52210!$VHVH2:"";A$:M(A$):A$(A$,1):MM(A$"Y"A$"y"):(VH7)252350,52360,52370,52380,52390,52400,52410:52170!.̉::2104:PS:(968)103ĺ(9);"255N";!"8̌2104:TP52290:3000:"IS ALIGNMENT CORRECT Y/NNO",13PG,3)/ K1488(32)(40)256(41)z L(40)256(41)K:L,(L)128((L)128):16368,0:VH7VH2252270 ˢVH:LK(40)256(41):L,(L)128((L)128):16384,128 M(16384)128:M11M8M27M68VHVH2:52210!̭M13M21(M):::VH7Hˉ:34,6:7:"LEFT MARGIN"::868:NL1ĺ"LABEL WIDTH";˺::"LABEL HEIGHT"::"PAUSE EVERY LABELS"::"COPIES"::"PRINTER SLOT"::"PAGINATION"˹32,13:33,6:35,20::PM::NL1ĺPW; ˺::PL::PP::PN::PS::("YES˺:"CARE FOR AN ALIGNMENT TEST PRINT? Y/N ";:55020:TP(A$"N")ˁM724:::"(LABEL HEIGHT AND WIDTH ARE IN SPACESAND LINES, AND INCLUDES THE GAP BETWEENLABELS.)" PS1:PM3:PN1:PL9:PG0:PW38:PP50:LF$(NL,NF):LL1NL:M1NF:LF$(LL,M)PR$)(ITP%(N)))21:PR$(N);:I(36)1::34,(37)9LNp˂::"LAYOUT CORRECT Y/N ";:55020::A$"N"52010˺::"SWITCH PRINTER ON"::"FORMAT OF LABELS"˺:"NUMBER OF LABELS ACROSS 1";:1008:A$:(A$)13A$"1"NL(A$):NL:NL0Ā@:::"LABEL LAYOUT"::1010::I1:L0:34,4::N1NF:PL%(N)52110fNP%(N)1:Lĺ::"NEW LINE FOR "PR$(N)" Y/N ";:55020:NP%(L)(A$"Y"):A$"Y"Ĺ34,(34)1:I1p˺:PR$(N):"TAB 1";:1008:"";A$:(A$)1A$"1"1zTP%(N)(A$)::(34):(ITP%(N ";:55020:A$"N"501605 ˆPL%(NF),TP%(NF),NP%(NF)h*B$"Y"::::"FIELDS TO BE INCLUDED IN LABEL"4˺:M1NF:PR$(M);" Y/N? ";:B$;:1008>˾A$:A$(13)A$B$H˭A$"Y"A$"N"52030RB$A$:B$:PL%(M)(A$"N"):PL%(M)Č998:868D\:2608^ĭNU%(M)ĭ(UL$(M))(LL$(M))ĺ"TOO SMALL":50260>hĂyrė:"FILE ";ML$:"FIELD";20);"LOWER UPPER":M1NF|ĺM;2);(PR$(M),17);:NU%(M)250320ĺ20)"SEARCH "LL$(M):50330ĺ20);(LL$(M),9);30);(UL$(M),9)Ăĺ"OK? (Y/N)$"N"NU%(M)1:UL$(M)"9999999999":LL$(M)"-"UL$(M)Jĺ"LOWER LIMIT? (Y/N) ";:55020:A$"Y"ĺ"LOWER LIMIT? ";:2101:LL$(M)IO$""Tĺ"UPPER LIMIT? (Y/N) ";:55020:A$"Y"ĺ"UPPER LIMIT? ";:2101:UL$(M)IO$"":(UL$(M)LL$(M))NU%(M)ĺ"TOO SMALL":50";:55040:A$"N"Ă:50290sĴ(PR$(M),4)"CODE"50220:NU%(M)2:"ENTER SEARCH CODE(S) -> ";:2101:LL$(M)IO$""ĭ(LL$(M))0NU%(M)0"ī50280,NU%(M)1:"ALPHABETIC OR NUMERIC RANGE? (A/N) ";6A$"N":55000:A$"N"A$"A"502304@ĺ:AM)::Y1150145hÄY$,Y1,Y2,Y1$:Y$"DATA"50145:Y$"LABEL"Y2150140:Y$Y1$:2:PR$(Y1)Y$:50140wúD$"CLOSE"ÁM0NF:UL$(M)(127):LL$(M)"":NU%(M)0:ú"ENTIRE FILE? (Y/N) ";:55020:A$"Y"52000āM1NF:"TEST ON ";PR$(M);"? (Y/N) ONTINUE (Y/N) ";Eð55040:2104:A$"N"ĺD$"CLOSE":D$"MAXFILES3":ÄY$,Y1,Y2,Y1$:NFY2:Y$"VECTORS"50135:Y$"DATA"50130:Y1,Y2,Y$:NF1:Y201:Y1,Y2,Y$:NFNF1:Y2Y11:ÆFL$(NF),UL$(NF),LL$(NF),PR$(NF),NU%(NF):M1NF:PR$(M)"FIELD "(LE"(Y$)050125:NF(Y$):FL$(NF),UL$(NF),LL$(NF),PR$(NF),NU%(NF):M1NF:2101:PR$(M)IO$""::D$;"CLOSE":FZ0:50160FZ1:Y1$,Y1$,Y1$:(Y$"TABLE")50130:2104:0:0:"THIS DOES NOT LOOK LIKE A SANDY MAIL LIST NOR DOES IT LOOK LIKE A DIF FILE. CST IN":"DRIVE 1, THEN PRESS RETURN -> ";ML$p×:8:"PRESS 'RETURN' ONLY TO CATALOG":5:"NAME OF MAIL LIST?"Ä"NAME-> ";ML$:958ô(ML$)050120::D$"CATALOG,D1":50110zúD$;"VERIFY";ML$;",D1":D$;"OPEN";ML$:D$;"READ ";ML$:"";Y$:Y$"TABITIONAL OR MISSING LINES."::"AN ADDITIONAL LINE AT THE END OF THE"ú"MAIL LIST WILL CAUSE THE ERROR MESSAGE":"'END OF DATA', AS LABELLER LOOKS FOR"ú"THE NEXT FIELD AND DOES NOT FIND IT.":::::,ú"PLACE THE DISK WITH THE MAILING LI WISH TO ADD TO A FILE THAT"::2:"ALREADY EXISTS THEN ANSWER Y"::2:"TO THE FOLLOWING QUESTION"::2:"IF FILE DOESN'T EXIST ANSWER N" d19:5:"DOES FILE ALREADY EXIST Y/N Y";:1008:YE$:YE$"N"YE$"n"840 x7:958:11:" FOR EXAMPLE:OGRAM ALLOWS YOU TO CREATE":4)"MAIL LISTS TO THE FORMAT REQUIRED":4)"TO RUN UNDER SANDY'S PROGRAMS": W4)"LABELLER MAILER"::4)"SORT MAIL LIST AND"::4)"POSTAL GROUP SORT" Z20:5:"HIT RETURN TO CONTINUE";AA$ c7:958:8:2:"IF YOU2 216,0:::"MAXFILES1":39590:20000:48000:::L;Lf o) ,ʊiȑiȑi`xH6xh6`AAA:(D$(4)<CO1P:5:5:"SANDY MAIL LIST ENTRY PROGRAM":5:"-----------------------------"i U:4)"THIS PR"""     $% " ɍ;ɠ7 q  j Ġ %L %$ " \ j `HHل hiHLdh h` dɠɍ8鰐 H eheL`8`ɍ8鰐 H eheL`8`FF$):BOBO1:BO,(TP):TŠ LH j ŠĠĠϠōҠŠˠӠ 8` j y  (!   (`? ƍ}巬 H  (.췭`$ Ly `L $  %$% " \ ɱɲhH )hH h`HHh j  )hH h j `h j ` "(!#`h{ h| { | H { | h0l{ '! j j j j  j ˠŠ LH  j j  j nL1 j e j   L|  ! j L| ! j  M L % j     ( [ LL H귝 h` ƍ} `"DEDH j 䮩   j  H Bh L  j 뷭 뷭 귩ᷭ 1 j   巬  L 뷍 "췍   % B L ᷭ ƍ} J뮠󮍍 귝   j 뿠D j 뿠D 귍 j %""%% B j  / XӍIŌ|Ȅƌ}Ȅnj~@I}@}@3 j Ԡ L j ٠ō" " """""ECT COMMAND":p&"PROGRAM BUG. ERROR NUMBER ";(222):"PLEASE CONTACT WYTAND AT THE ADDRESS IN YOUR MANUAL":0 LIST ENDED UNEXPECTEDLY":3%l"FILE NOT FOUND":L%v"VOLUME MISMATCH":_%"I/O ERROR":r%"DISK FULL":%"FILE LOCKED":%"SYNTAX ERROR":%"NO BUFFERS AVAILABLE":%"FILE TYPE MISMATCH":%"PROGRAM TOO LARGE":&"NOT DIR6368,0:A$:4100$0:(222)62010,62020,62030,62040,62050,62060,62070,62080,62090,62100,62110,62120,62130,62140,62150:(222)1562160::"";:$:"LANGUAGE NOT AVAILABLE":$D"RANGE ERROR":$N"RANGE ERROR":$X"WRITE PROTECTED":%b"MAIL#~PMM:#PWM:#PLM:*#PPM:5#PNM:@#PSM:K#PGM:}#֞:A$;::1008:IO$:(IO$)32ĺA$;:1008:#A$IO$:A$;:1008:#A$"Y":55000:A$"Y"A$"N"55020#ֺ:#A$"N":55000:A$"Y"A$"N"55040# ׺::1