' +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`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#PGM:;#֞:A$;::1008:IO$:(IO$)32ĺA$;:1008:T#A$IO$:A$;:1008:}#A$"Y":55000:A$"Y"A$"N"55020#ֺ:#A$"N":55000:A$"Y"A$"N"55040# ׺:55040# ׺:E ENDING OF MAIL LIST":"HIT ANY KEY TO CONTINUE":11NL:PPNİ2000$"VPP1:PPPNE"`́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"~PMM:"PWM:"PLM:"PPM:"PNM:"PSM: 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/N ";:55020:A$"N"::VH7:52170!B̰1000:PPN:QF0:QP0"ĹLL41)K:L,(L)128((L)128):16368,0:VH7VH2252270w ˢVH:LK(40)256(41):L,(L)128((L)128):16384,128 M(16384)128:M11M8M27M68VHVH2:52210 ̭M13M21M10VHVH2:52210 ̭M32VH24:52210]!$VHVH2:"";A$:M(IDTH";k˺::"LABEL HEIGHT"::"PAUSE EVERY LABELS"::"COPIES"::"PRINTER SLOT"::"PAGINATION"˹32,13:33,6:35,20::PM::NL1ĺPW;˺::PL::PP::PN::PS::("YESNO",13PG,3)K1488(32)(40)256(41)8 L(40)256(ˁ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$(M):::VH7ˉ:34,6:7:"LEFT MARGIN"::868:NL1ĺ"LABEL W"LAYOUT CORRECT Y/N ";:55020::A$"N"52010a˺::"SWITCH PRINTER ON"::"FORMAT OF LABELS"˺:"NUMBER OF LABELS ACROSS 1";:1008:A$:(A$)13A$"1"NL(A$):NL:NL0Ā˺:"CARE FOR AN ALIGNMENT TEST PRINT? Y/N ";:55020:TP(A$"N")j10dfNP%(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"zTP%(N)(A$)::(34):(ITP%(N)(ITP%(N)))21:PR$(N);:I(36)1::34,(37)LN.˂:::::"FIELDS TO BE INCLUDED IN LABEL"R4˺:M1NF:PR$(M);" Y/N? ";:B$;:1008j>˾A$:A$(13)A$B$H˭A$"Y"A$"N"52030RB$A$:B$:PL%(M)(A$"N"):PL%(M)Č998:868\::::"LABEL LAYOUT"::1010::I1:L0:34,4::N1NF:PL%(N)521ė:"FILE ";ML$:"FIELD";20);"LOWER UPPER":M1NFa|ĺM;2);(PR$(M),17);:NU%(M)250320ĺ20)"SEARCH "LL$(M):50330ĺ20);(LL$(M),9);30);(UL$(M),9)Ăĺ"OK? (Y/N) ";:55020:A$"N"50160 ˆPL%(NF),TP%(NF),NP%(NF)&*B$"Y":IMIT? (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":50260^ĭNU%(M)ĭ(UL$(M))(LL$(M))ĺ"TOO SMALL":50260hĂ7r:"ENTER SEARCH CODE(S) -> ";:2101:LL$(M)IO$""Kĭ(LL$(M))0NU%(M)0V"ī50280,NU%(M)1:"ALPHABETIC OR NUMERIC RANGE? (A/N) ";6A$"N":55000:A$"N"A$"A"50230@ĺ:A$"N"NU%(M)1:UL$(M)"9999999999":LL$(M)"-"UL$(M)CJĺ"LOWER LY2150146:Y$Y1$:2:PR$(Y1)Y$:501465úD$"CLOSE"dÁM0NF:UL$(M)(127):LL$(M)"":NU%(M)0:ú"ENTIRE FILE? (Y/N) ";:55020:A$"Y"52000āM1NF:"TEST ON ";PR$(M);"? (Y/N) ";:55040:A$"N"Ă:502901Ĵ(PR$(M),4)"CODE"50220:NU%(M)2":vÄY$,Y1,Y2,Y1$:NFY2:Y$"VECTORS"50144:Y$"DATA"50142:Y1,Y2,Y$:NF1:Y201:Y1,Y2,Y$:NFNF1:Y2Y11:ÆFL$(NF),UL$(NF),LL$(NF),PR$(NF),NU%(NF):M1NF:PR$(M)"FIELD "(M)::Y1150150&ÄY$,Y1,Y2,Y1$:Y$"DATA"50150:Y$"LABEL"LE"(Y$)050141: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")Č2104:0:0:"PROBABLY NOT DIF. CONTINUE? (Y/N) ";:55040:2104:A$"N"ĺD$"CLOSE":D$"MAXFILES3ST IN":"DRIVE 1, THEN PRESS RETURN -> ";ML$p×:8:"PRESS 'RETURN' ONLY TO CATALOG":5:"NAME OF MAIL LIST?"Ä"NAME-> ";ML$:958ô(ML$)050140::D$"CATALOG,D1":50120zú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 LIN 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::                   ԍԠԠΠӠԍŠȠŠԠΠŠō  宍䠲ᠶ箩󮍍堲嬠䠴嬠ӠנӟҠ󟲹Ҡ󺍍쮠笠 󮍍󬍍嬠報٠򮍍뮠  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 ";: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 LIN 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::                    宠쮠ﮠ⬠ﮠᬠ⬠쿠쬠宍䮠󮍍宠٧󮍍䠢    ۠ ààܠàĠĠݠĠŠŠޠŠƠƠߠƠ􍳵ՠ֠נؠ٠ڠ ŠΠŠƠƠϠƠРѠ񍳲Ҡ򍳳Ӡ󍳴Ԡ獲Ƞ荲ɠ鍲ʠꍲ  ˠ 덲àà̠à썲ĠĠ͠Ġ퍲Š፲ ⍲à㍲Ġ䍲Š卲Ơ捲Ǡ 㠠à̠àܠĠĠݠŠΠŠޠƠϠƠߠؠàؠàؠÍŠՠƠ֠ǠנȠؠɠ٠ʠڠ ˠ宍ؠàؠÍРѠ ҠàӠĠԠ󮍍ɠ忠쮠宠ɠ宠ɠɠӟɠ䮠      ܛݠݛݛޠޛޛ֛ࠠנככؠ؛؛٠ٛٛڠڛڛ۠ۛۛܠܛЛѠћћҠққӠӛӛԠԛԛՠ՛՛֛֠ʛˠ˛˛̛̛̠͛͛͠ΠΛΛϠϛϛРЛ슜śƠƛƛǠǛǛȠțțɠɛɛʠʛԍ ››àÛÛĠě栱宍ŠƠҠӍɠҠˠӠӍΠΠȠΠΠȠΠΠȍݤݦݣ򍠠捍ϛ󮍍렮󮍍䠠栢䠠򠢠卍堠栱󍍠󠍠󠬠ˠӠ䮠ݠΠȠàĠŠҠӠŠčˠӠӍ堠ˠàͱ̍΍ŠȠͰҠĠŠ宠٠٠ΠȠݡĠƠȠݢǠѠ̠΍ǠӠĠؠΠ٠ؠĠ٠Ơ٠ٍɠŠȠȠŠ󮍍ŏΠ͠Š͠Р̍͠ԠŠȠíȠ썶ፍ堢좬䠢ؠӠӠŠíȠٍōؠ̠Үٍí     )ӆ΅ȱ΅` lΩ$τ` `e΅ΐ` o) `DE:MKEF2:F2F2DE:F2Ĺ1022,0 KF,DE,LO1DE,M,ER:ERı 590 :"PHASING ERROR-CONTACT WYTAND P/L":A$:ER0: KEİ840 ; "ȹ"ȱ)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   䩮嬠٠嬠̠䮍仍廍򠳩䮠䮠堮䮠ŕ򮍍ͰŠȸ嬠堢堨䩮򠳰󮍍ͱŠȷź묠堕򮍍ξ箍ԍ뮠嬠ξǠ뮍ҍΠԠ̠ԍԠ̠Ԡ٠ĠҠӮ碠殠РРҍԠ̠Ԭ亍ˮͰŠȸԠ̠Ԡ箍䬠졠ҠҠ䠠ҠҠ묠Ġ堳멠󩮍ҍΠͱŠȷᮍ٠̠РҮ٠ԠӮԠ̠Ԡ٠Ԡ̠ԠŠȠԠΠͰ԰ҍԠ̠ԍҍ򍍍٠     쮠쬠ҍҠӍ啮䈈宍啈宍ፍӛנӊ󛹛׮ z #  Р Ҡ Š ĠנӠ ٠ ҠƠ  ҠbҠӠ Š  ٠ԠԠ ŮΠíȠΠ ɠŠŠ  ̠Ԡ ҠӠ ԠؠŠ ΠӠŠг ŠҠ  ǠԠҠ  Ԡ̠Ԡ ̠РԠҠŠ٠Π٠  ŠǠҠϠĠ̠ԠƠ  ijŠ̠ԠŠ٠ﮱ﮲ĠƠ󍶴썶󍶵􍶷􍷰荵Π荶󍶰󍶰󍶱󍶱􍶲􍵰䍵卵卵卵፵፵ƶȠ􍵰􍵰􍵰却󍴰䍴􍴵即即即č䶰即即即即䍲䍲卲即即卲卲卲卲卲卲נȠӍ卲卲󍲱󍲱󍲰     #13);"SANDY UTILITIES"0234,3:4D<(4);"CATALOG"PF34,0:34,7:8<(4);"CATALOG"F34,0:34,7:8<(4);"CATALOG"F34,0:CATALOG"F34,0:)䠠ԍᠠ㠠렠ԍԍ䠠󠠠נԠԍ蠠נ젠ԍ󠠠堠נō̍ŠōӢō̍ΠōӢō̍ŠōӢōԍ򠠠ōŢӍӍ̍ŠōӢō̍ԠōӢō̍ ōӢō̍ŠōӢŠԠΠŠŠȠŠŠȠ󮍍堢̠ԠĢŠȠ讍ŠԠΠ쮍Ԡ嬠򺍮ԍ宍ŠȠ嬠ŠԠΠԠԍ䮍Š󍍮Š箍ŠԠΠ󮠨ɠԠ䮠Ҡ򬠠堐Ҡҍ     ᠍Š􍲸Š̠ԍōԍōō΍ō᠍Š􍲸򍵠󍲳׍ĢŭԭŠōΠìɍԠĠҠˮԠРҬŠ̠ˢĠŠ̠ŧŠōϬɍÍΠŢŠŢԬŢԠˠԠӠԠŠŠԠΠŠŠȠŠŠȠ󮍍堢̠ԠĢŠȠ讍ŠԠΠ쮍Ԡ嬠򺍮ԍ宍ŠȠ嬠ŠԠΠԠԍ䮍Š󍍮Š箍ŠԠΠ󮠨ɠԠ䮠Ҡ򬠠堐Ҡҍ    ԍ砠䠠נčԍ堠堠堠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 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 ٠ō     :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"':8:EF::" SORTING POSTCODES IN MEMORY":34,11:B800"VERIFYPOSTCODE DATA,D1":"OPENPOSTCODE DATA":"READPOSTCODE DATA":BS12:30JLH(8):KLH(6):JK900A34,4::G$;"THE FOLLOWING UNDEFINED POSTCODES":"WERE FOUND. THEY WMAT"UD"IN RECORD NUMBER ";LH(30)::"CONTINUE WITH NEXT RECORD";:50:X$"Y"520cN30:6000X30:BS:(222)55000bFLSNFLFLN1:40070:" IF THERE IS ALREADY SOME OTHER DISK":" IN DRIVE 1 IT CAN BE PUT BACK LATER.":608"Y"6106000BS3?"READ";SF$(FL);",B0":29,255IBS9w11:EF:G$;"ERROR:"::(29)570,560,54030:"MEMORY FULL"::"CONTINUE WITH SORT";:50:X$"Y"700&60000"VALID POSTCODE NOT FOUND":580:"INCORRECT FIELD FOR500,AN1X:(H$(A),7)"ADDRESS"Ĺ28,A=:(28)50020:"NO POSTCODE OR ADDRESS":"PROMPTS IN FILE HEADER":6000KN0:AN0X:BS6:KK(ST$H$(A))::K51020:"INCONSISTENT FILE HEADER!"::"SKIP THIS FILE AND CONTINUE";:50:X$CE FILE POSTCODES":34,7"600:"READING ";SF$(FL):26,FL:"VERIFY";SF$(FL);",D";SD%(FL):"OPEN";SF$(FL):"READ";SF$(FL):FL47028,N0:BS6:X(ST$):27,X:H$(X):H$(N0)ST$"":AN1X:BS6:ST$"POSTCODE"Ĺ28,AH$(A)ST$""::(28)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:DF$ST$""@12:40:DD(X$):DDN1DDN2320J:"READING SOUR":" 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$:X$:X$"A"X$"C"230RCE 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:"p 11:" A...STANDARD OR NON-STANDARDD. UP TO 15 FILES MAY BE":" GIVEN. TO END, ENTER ALONE.":34,10 :"FILE #";SNN1:14:"FILENAME ? ";:BS6:ST$ST$"":SF$(SN)ST$:(ST$)160 16:40:SD%(SN)(X$):SD%(SN)N1SD%(SN)N2140 SNSNN1:SN15130 SNĺG$;"NO SOU1:N22:G$(7): nA05:S$(A)::NSW,VIC,QLD,SA,WA,TASe sBP(X)(249)65536(250)256(251) xPC(X)(X)256(X1):LH(X)(X)(X1)256J }" ENTER THE NAME AND DRIVE NUMBER OF":" EACH SOURCE FILE (I.E. MAILING LIST)":" TO BE SORTE:G$;" ENSURE THAT THE FILE 'POSTCODE DATA'":" IS ON THE DISK IN DRIVE 1.": d::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:N00:N12 8192:100: POSTCODE SORTING PROGRAM S30:11:EF:G$;"ERROR:"::j"CLOSE":216,0:(" DRIVE ? ";:EF:X$:X$:240672:" ? (Y / N) ";:X$:X$:43089:<:9:"HIT ANY KEY TO CONTINUE":16384,128:16368,0:T F34,4:        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     ``AAAAAAAAAAAAAAAAAAAAAAAAAAAABFWRITE PROTECT TAB REMOVED? (SEE PAGE 36 OF MANUAL FOR AN EXPLANATION OF THE WRITE PROTECT TAB) (Y/N)";A$ (A$,1)"Y"ĺ:"THEN PLEASE ARRANGE IT SO"::100 2062:"YOUR PRINT DEFAULTS HAVE NOW BEEN CHANGED."Ȍ̍񷩷 ssor disk.":G 105,0:106,916:Reconnect word processor data space 1007,0::833,(55)1216::835,PW:836,PM:845,PM:837,PI256(PI0):842,PT:846,PP:838,PN:839,PLr "IS YOUR WORD PROCESSOR DISK IN THE DEFAULT DISK DRIVE WITH THE east until you run it again." x:"You should have done an OPTIONS PRINTER":"immediately before running this programotherwise you might get nonsense values." :"Before running this program, remove the write protect tab from your sandy word proce1m0100:LLD뷠Ȍ췩ᷩ -`뷠Ȍ췩ᷩ `sd n::"Running this program causes the print":"options that you have chosen while word":"processing to be your permanent defaults, at lS"x30:"PR#0"6000)30:BS20:EF:G$;:R(222):JN0:M143583:M243377:RN0R15ĺ"FATAL ERROR: NUMBER ";R:6000K((RM1)M2J):JJN1:(K);:K1285010R5R96000:22:"TRY AGAIN";:50:X$"Y"Ħp38400::SS(26):"STATE: ";S$(SS):RRN1TAKN1(ST$):J((ST$,K,N1)):SJJ(J95)32F(J);::(" ",29K);(" "(LH(30)),5);" ITEMS":SRRN1:R11İ60:RN0:P1330n(A)ĺ"INSUFFICIENT ITEMS FOR AREA BUNDLE60C"VERIFYPOSTCODE DATA,D1":"OPENPOSTCODE DATA":Sė("CHECKING FOR AREA BUNDLES, I.E. ";(25):"ITEMS OR MORE FOR THE SAME AREA"::R3:AN0:29,N0:SS102BS21:(29)1390 <AN1:"READPOSTCODE DATA,B";BP(N0):BS6:SS(26)STEMS OR MORE WITH THE SAME POSTCODE"::R3:AN0:29,N0NLBS18:(29)1200VAN1:"POSTCODE = ";PC(252);" NO. OF ITEMS: ";LH(30):SRRN1:R11İ60:RN0:`1100(A)ĺ"INSUFFICIENT ITEMS FOR DIRECT BUNDLES"Sĺ:::1310RİNT":" TO THE PRINTER, ENTER THE PRINTER SLOT":" NUMBER (1 - 6). ANY OTHER KEY SELECTS":" THE SCREEN ONLY."34,8:16:"SLOT NUMBER ? ";:X$:X$:S(X$):SN1S6SN0:Sĺ"PR#";S6"CHECKING FOR DIRECT BUNDLES, I.E. ";(25):"IBS6:H$(A)ST$"":<"WRITE";DF$:AN0X:H$(A)::940G400070:60::" THE POSTCODES WILL NOW BE COUNTED TO":" DETERMINE IF THERE ARE ENOUGH TO BE":" GROUPED INTO DIRECT OR AREA BUNDLES.":y" IF YOU WANT A LIST OF THESE TO BE SE90BS15:FL(26)9809FL255ĺ"CLOSE";SF$(FL)XFL(26):FL128İ30:100040672::SF$(FL):43089:"OPEN";SF$(FL);",D";SD%(FL);",L";256127SBP(0):R0:S32511R(S32512):SSR32512"READ";SF$(FL);",R";R;;",B";S:AN0X:AY NOW BE":" REMOVED FROM DRIVE 1 IF NECESSARY":60:"WRITING SORTED POSTCODE FILE":"WITH FILENAME ";(34);DF$;(34):9:"RECORD CURRENTLY BEING READ FROM:":34,10:4000"OPEN";DF$;",D";DD:"DELETE";DF$:"OPEN";DF$:FL255:26,FL:9ILL BE OMITTED":"FROM THE SORTED DESTINATION FILE:":34,9::RN0AJK55:"POSTCODE ";PC(A);" FOUND IN ";SF$(((AN2)16)):RRN1:R9İ60::RN0 :Rİ60900 30:BS:(222)6700*5000634,4::" THE 'POSTCODE DATA' DISK Myourgenerousdonationofwhichwereceivedonanyblindchildrenandchildrenwhowouldotherwisebeblindwillremembernceagainthelindabiesappealisindesperatefinancialtroubleɠgreatlyregretcomingbacktoyouonceagainbu͠ŠȠҍӠɠǠȠԠ̠ŠӠӠϠҠРȠΠӠРРŠ̍͠Ԡightlessrphansppeallarencestydney͠octԠԍearɠamwritingonceagaintothankyoufor嬠쮠謠婠蠠卍嬠ԠԠΠŠȠ宍ԠΠĠΠĠΠԠΠ蠠嬠嬠婠䮍嬠笠嬠孠쮠讠孠٠٠렢忢笠٧殍堢碮嬠٠ﮠ٠쮍宠橮ɠ宠Ӡˮ宠򮍍î宠宠砨宍Ӡ 4 * Sl笠嬠讠ɠ栕ծ刈庠ŠȮ󈈈󍍍ԠΠō΍庠͠蠕啠ծԍﳴЏŠȠ󮍍ō占啈堍ፍΠϠ􍍍ЍŠȠԠҍҠӍ󢺍占啍䈈 獶׍׍덳퍳㍳卶ōԍōō΍ō򍵠󍲳׍荴׍䍶   tthisworthycauseurgentlyneedsyourassistanceleasegivegenerously͠oursfaithfullylfredeech͠ ߍݠݍޠ󺠭ߠ󺠫ݍ堸嬠ޠ쮍򠲹򤨲ݍ򠳰򤨳ލ򠳱򤨳宠٠Π̠ŠŠΠӛ堛ؠήĠƛŠ堛țРĠѠ䠛śǠŠԠŬΠ쮠㠨婠Š쮍ƛǎĠčƛȎ󮍍ƛǎ󮍍䠱ŠŠӍƛ堠󮍍ƛ堠󮍍ś堠󮍍ś堠󮍍ƛǔĠӍƛȏ󮍍ƛǏ宠宍ƛ󮍍ƛ󮍍ś󮍍ś󮍍ԠΠŠȠśǎΠӍȔ󩬠󮍍  䠛Π捍ɠŠՠŠΠΠ󠭠宍堛ծśΠ䮍ՠ  ^ @LLW"/`eАmА`Є!   ȱLfȱ LG = "/JJi L` m8 8 `  L                           !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""󮍍쮍͠ʮ䍮͠Ԡ笠宍讠場箠嬠宠ԍ􍳮嬠嬠𩮍Ԡ͠堭嬠󺍍砨積蠨婮嬠䬠͠Ԡ宠쬠쬠仠ŠȠ͠Ԡ󠲱Ҡ͠򍹰ᠠ򍍍宠   宠쮠ﮠ⬠ﮠᬠ⬠쿠쬠宍䮠󮍍宠٧󮍍䠢堠 g RPQ` HLr HLrŠ ş Ş`0 Ɲ&&&)`ə ƍ}LR祝ɘ FffLm`Hƍ} ghƍ}`  ݶHH`Tl'$l M !)!B, FE"F-#U1G!H>#RU#6/dOK⠠I른HHƍ} hh U BHȱBChBBȥBȥBƍ} P H BBPȱBQ BHȱBChBBȱBȱBJPP(QPƠ(꥟8ƞL)ƍ} (   ,` 䈄#eeeeܥhƍ}` CB`L H BHBiKhi L HBȩB g RP8 PQPB  RPQB PP(QPBȥQB  RPBȥQBƍ}2eeBɀ%hHHƍ}(hƍ}h`$2@R hH hI H I H ɠ H I h0R 2lH ,iȑiȑi`ݚ .#L  RPQ  RPQ  RPQHƍ}jjE0#8⨥㪘ee ΍ L ͍  ͌ : L/L0 = L : ; < ` $ m"/C  `8  ` L/C 8  ` ` jݪL+ { lݠ` ߍ lݠ`l6l8L"ؤ$(H) @(hL .i刱i䈱iH/?)Эѭ  L y Ή Ѝэ ` Hƍ} 4/ԍ( Ժ, ) 8* + (/) ܭ ׮, ( hƍ}` ɠ Ɉ ɍɊ`: ; < ɍ<  L/ bɃTPL 3L0 ?: ɠɊɈЭѭ #/(А y , Lr `.,L e#/`"/8 Ԥ F/ L #/ I/ԍEՍF` #/ ԍՍ (/#/J   L  ^. 0+І,0`  <  @/ а2&ԦаХѭ 1/L C/#/` 4ЍэLr  < , 4`8"/ХѬ"/ 8eЅЩeх, 4`Эѭ Ή L y Ή Ѝэ`  +(!! +(mL (  +(`8` (C8D8ELO(C8D) ) K))ҥ a$ a$Lc(8 a$` (DL(,DmE'EɌmDL(DC8⍀) 'EɌ ( ( , 0΀) >)` `)H8& h( &`ƍ}IHL' (K.C 0 &[ ALi' L' D$  $ # D$L' ' a 0 L'L' Ƀ,L' (L$' 'L'ƍ}`K8G7mL (  srictly fobidden. HEADECENTERCENTRENEEDEJECT ON EJECTINDENNOINDENTPAGE WIDTLEFT MARGIRELATIVE LEFT MARGIRLCOMMENPAGE NOCONTINUSPACENDENDREDEFINLRLFOOTELEFT JUSTIFY ONLYRIGHT JUSTIFYRELATIVE PAGE WIDTRP׬@,&)]ĠҠǠϠǍ 4, 4 38` L M3%3%L+% m$Lc`MR%R%L@% Copyrigh Wytand Py Limited All righs reserve. Reprodution of ay part ofthis codein any fom, withou written ermissionfrom Wytad Pty Limted, is}.iii(hƍ}``H T h`h` a 0` 0` `橨 *$H #[ TS J 0he < <H - h`Hƍ} H hhƍ}` 0 D$h $ * ?2 7 ( . Ԡ#e% $ /"*# E"+#L&# =/ =/hh`(`(! E":/ /"=/L&(ȑ( E"+# E"b#L:/a#`#H) @ v3h v3 3ɍɊɕ#%i#2%H f fh%$$ (HLn#ɋɈ %H  L#ɠ%)߬a#`#`H,iȑiȑih1?+ɀ'Hƍ/" E":/`ڠ宠` ["hh67` ["hh 89`h"h"hz"h{"mz"m{"HHH"H"H` E""L(HH%H ( fh%uH((  f((((hH%hʠ% "(#(%$ :/ Խb%` <L b%Ib%0 `Hƍ} aMՑQ))A[Q @Q) 0L;! 0hƍ}` * Š L! * H 3)hLch` 6!!6H!h!H!h!`=/:/ `8e`    - 6H   <h)  &/'/{  } 0) {  } ȱ `} Lp * ٠͠ǡL%Ԧʄ ȘI` ɩ 0b%`ե`ȱL H h`LZ - 6)IL Ց`H TL8԰h``` < L  L A[ ` < L  L a{)`H aLh``     Ԧȅhey{H)jjj|}tsh) vw) )  )E vw ` `` L{"/̀`@jL ̀ *L{`8`ԤiH` <H8h`H 8h RF,-3%R% J !N!rnj!;By` 0<<0nw0<000  P `,0` H Lo L@L\$L?L\ 6) L~B$(L FBP L R .#^.䚩I)ƍ}L L y ,30 ,0y`ɀ 3,3)? HH` 4),3th lp`x  `!}`Hƍ}C8D,E8E) )hƍ}`C8) >)`L~gkƍ}+  ƍ}8EF 2$L)% $$$"/$Ȧ% I/ԍEՍF^. -  + * L?+ Lj L W)-)$`OAD AVE PTIONS RINTATALOGLOSSARY$( :/Ɉ`)ɠɍ ɕɘLW`  K)ⱞHƍ}h ƍ}LLHƍ}h ƍ}L`Hƍ}C8D) )hƍ':XY&/H$&?w PPHPh L P  UPȥP` g RP PQ` O2 2 % ` O)P-#P#Pʧ` .#L   E"`(LLWȹ)0 $`Ɂ(e$ )Ȍ(8$EN  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 $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 $1678ih`$yz $$Hʊ% $h 4$ v3`{S} {.SPACE } {}  (/Hƍ}h@@ @ 1ƍ} @@ ;1hƍ}Z/` " ^0 $378,Y $478,Y $578,Y $678,Y $3F8,Y $4F8,Y $5F8,Y $6F8,Y  <33`0`ɛL 4ɈP{IA4`ɛ``ɰ1ɳ-,*** 3L 4Ɉ`ɠOL 4ɠ`Ɉ3`H4h,`,Lj4( i(`HJ) h)i `Z/ ,1L4 I`4`  -+ 4(H8(  3L2 @`)?L3ɀ v3H{( H 4Hhhhhh 3`^.^.[. hhhh[. `FHh8h8u3 /h8Я`(!H(8(()i)h(H(i(())h`He h(H8 h`,,`,H 40Hh0hHWh8Hh3 4H f. u4^.^.h(`ɰpɸl - ;1"Z/ / }1 % $ hL Z/ { ˭$% $ ˭L]2 4 2H  ˮ Z/$hɈɕɋL2ɠ8 `Bh`u3,B I 3L2u3H 4 hy   I 3L2yz, 0  3h' ./`{ P!`{  (!` ;1"Z/ / }1 $ "% $` <"8#2 3 kʩ{)!( xxxx0`LX!Pxxxxxxxx0`HeЅАѥ8(i0 ?088аLM0 ?0LM0 I`8m`4LG0Z/H ,1 1 4Z/h ɠH"/ 0hL4ɍL0Ɉ)L0L{4L(1H11010 ./0111011i1'^.% ^.`[._.\.].^.`P-5L4L4LO/L{4L[/L?5L*2L1L/Ld/L5L 5Lk0L4Z/ ,1`"/8JHH( 8(hH /(8(ih /L/`"/L./`e)_m)W(8⨈0 ?0eŠӮ %,-`m&*-m'+- <}}ʆ&' < <` 40`3 4[._.3 / L/ 4[.3_.L/^. u4n^.n].n^.n].m\.\.m].].^.(.]..^..]..^.%m^. ^.i%$\.J\.Jm\.\.]. `  ɨ` +% - < <`,-,-L+%<,-&'Lg-}} +-*-` - < < <-` ,-L$88&',- * ǠϠLJL% -5 * Ϡ٠ Ӯĉ*͇) **L,8)*)*)I$,*******)8)8**)8**`!&*8&``*ޅ*轅* ,` J L,+ɡ,`H,ɛ ɍ L,h`I,` `,, H hI ,L* m* ̃)? Д ,LX+ ,!%? .,̃) Ȣ ,L*`8@+0,( m+ikȱkȱk  +i ` *)) W,*Ȍ**)')J ))LV,)m) W,**Ȍ* & U*!? .,L**L))) )LI*) ))䍅)`H⍆)㍇)䍅)))h`,0~ `^_`` +')')ji ̃)ѱ :0 ȱ \+L*)Ș̓)ԩ- ,L* ,L* ,L*E053) ))(h))))) *) U$C8D)L=)h)` ) * K) n)`) U$  0LQ)  a 0`L⩍ K`)))))䮀)L0* 9tL) L0*L) U*L)L); m* L)XX$(29)(KM)(H 1500:BOLOĂ:2370RH$ TPTP((KM))1:IO$FL$(KM):4::5H8 JJ,TP256:JJ1,TP256(JJ):JJJJ2:4:B:2330HB PPĢ22:::"HIT ANY KEY ":16384,128:16368,0:23::30)HL 800:4:1:3600:3400HV KM1NF)I` JJJJ1:L$(M)UL$UL$(M)FL0:MNF#Gu2190GzFS$LL$(M):CS$FL$(M):FL0:J1(FS$):K1(CS$):(FS$,J,1)(CS$,K,1)FL1:J(FS$):K(CS$)GK,J:FL2190:MNFGM:FL02000:QPQP1GJJ8409620:KMNF11G JJ,0:JJJJ1:JJ,0:JJJJ1H 800:FFL$(M)Y$: FJ34,23:QFQF1FRFL1:M1NF:NU%(M)02190:NU%(M)22170:LL$FL$(M):UL$LL$:(LL$(M))0LL$(LL$,(LL$(M)))F\(UL$(M))0UL$(UL$,(UL$(M)))FfNU%(M)02160:(LL$)(LL$(M))(UL$)(UL$(M))FL0:MNFFk2190GpLL$LL0:2000E&FL$(M)A$:MM1UE,MNF1āMMNF:16437:FL$(M)IO$""::34,23:QFQF1_E22130E8216,0:Y1,Y2,Y$:Y11Y$"EOD"4100E>M1NF:Y1,Y2,Y$:Y10FL$(M)(Y2(Y$"V"))::2122EB(Y$)22118ED(Y$,1)" "Y$(Y$,(Y$)1):2114 F1NF:FL$(M)""NM:MNF/D:NNFM1:2074MDNNFFL$(1)A$:M2:2074DMN1NF:FL$(MN)FL$(M)::FL$(NF1N)A$:MNF2N:MNF2130D16437:A$IO$"":ER1:A$"EOF"A$"END OF FILE"4100E (A$,9)".CONTINUE"ML$(A$,10):D$"CLOSE":100:60000 C(16384)19541000CFZ02104JCER0:16437:A$IO$""oC" "A$(BP$,(A$)1)M1:2074C:" ":" ":"BAD RECORD":" ":PHPH4:M1NF:(PR$(M)".......................",23);FL$(M):PHPH1:DFO$"":PN.2:3960::NNF1:MBOL1,TP1:TPTPL:BOBOL:4GB6M,TPL1,TP,BOL:BOBOL:TPTPL:4lB@(XX$,1)" "XX$(XX$,2):1600BJ(XX$,1)" "XX$(XX$,(XX$)1):1610BTB(XX$,1)" "XX$(XX$,2):1970B(XX$,1)" "XX$(XX$,(XX$)1):1980BCER1:23:M0NF:16437::kA:D$"OPEN"ML$:D$"READ"ML$::24:34,23:Y201:Y$,Y1$,Y1$,Y1$:Y2Y$"DATA"::tALTPA1530:AM256::TPTP1:M,TP,TP,BO:BOBO1:1510AIO$XX$:4::5ABOLOıA:A1400:1530B,LLTP:L0įM,BO,^@216,0:::"MAXFILES1":39590:36864:48000::: o) ,ʊiȑiȑi`89r@0,TP:1,BO:@0,TP:1,BO:@("";:@ TPHI1İ4:@*BOBOTPHI1:M,HI,TP,BO:TPHI1:800AFZ0ĺ:D$"OPEN"ML$:D$"READ"ML$::24:34,M4M10ĺ"WRITE PROTECTED OR LOCKED":5170;XM5ĝ:WXM9ĺ"DISC FULL":5170zXM11ĺ"UNKNOWN COMMAND":5170XM13ĺ"FILE NOT TEXT":5170XM255ĝ:XM254ī5140XM(219)256(218):M2195İ2000:55 YM3500ĺ"BAD RESPONSE:"Y";:5:W!WNĺ"Y"::.W"N"::RWAN0PIN0PWN1PWNPI1:jWANPM0NPMPW:WANPM1NPMPI1:W:"":::12:5010:WM(222)::M8ĺ"I/O ERROR":5170WM16ĺ"SYNTAX ERROR LINE ";(219)256(218):5170.X4230!V|"PAGE NUMBERS START AT"oV" 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ĺ:4270VPN W:NPP:4300:(844)::PS:COMPLETED: ";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::)S(M1)::S(4)TPF1#T843,PH:NT:"MEMORY FULL ERROR";BE$:D$;"CLOSE"uTBOTP4TP((BOTP)22):BOTP4T::"CLOSE":A$:T::"CLOSE":A$:T:::D$;"IN#0"::T216,0:16368,0TD$;"CLOSE":D$"MAXFILES3"@U""MAILER :16368,0:PHPLPF37SMPLPF4:PHMāPHPHM::]SIO$"":PNPN(PN1.5):IO$(PN)SPHM1ĭPN1ĴTP(HE$)6BO800:HE$,IO$:843,PH:Y:Y:Y:PH(843):4SPHPLPFāPHPHPLPF1::TPHPH(PH(PLPF))(PLPF):(1007)āM03:S(M"3845::1008,0:)Rn:PH(843):5000PRxPH03996:IO$"":PNIO$((PN))kR|PHPLāPHPHPL1::RPHPLPF2ĭ(FO$)PN(IO$):(FO$)7TPBO800:FO$,IO$:843,PH:Y:Y:Y:PH(843):4R(1007)ĭPDľA$:A$"R"4055SPPĵ16384,1280:M(XX$" ")64:M0M263740:XX$(XX$,2):1970:N(XX$):N3740:RD$(M)(XX$,(XX$)1):Q:F:D$::"ILLEGAL PRINT COMMAND";BE$;:::16368,0:A$:4055QPLPHN3960:Q::"CONTINUE ";XX$;" (Y/N)";:RA$:A$"N"A$"R"4055:A$"Y3740:PIN:-P[PH3PL3960:X:PH(843):59P^NPW%NRP`4350:A3740:PWN:]PbPT0:hPdPT1:wPjNN(845)Pm4330:A3740:PMN:Po(1007)į:23:1:868:XX$::PpPrPN(XX$):PtN13740:844,N:P]QXX$XX$"'":197(843):PT(842)O)XX$IO$"":N(XX$):(964)3635,5,5,3780,3780,3960,3670,3675,3680,3693,3690,3690,3695,3698,3720,3700,3560,3565,3730,3682,3684,3740,3640,3682,3684,3678,3678:3610O31970:HE$" "XX$" ":O81970:FO$" "XX$" ": PV4340:AN :650::24:3950NBN24:34,23:S(4)TPF1::3950oN3565:(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:PHN(838):PLPLPF:PH0:9M 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ıF:N0L140:PLL:PFN:42007L NNPF:N140:PLN:HL PN((N)):SL PPN:cL 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:P0,3475:3465K N4055XK 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 LPLNPber of copies? ";PA:PA%PA:PA%İ4400:3545CJp A$"4"3400:4400RJu 3545::qJz PP(846):PA1:4200:34,1J 4:R:M2J 4250:(M2)22:"";A$:N(A$):A$"Y"N1 K M(37):(M3)23480,3480,3495,3500,3505,3510,3515,3520,3525,3530,3535,354(JJ)256(JJ1):JJJJ1:LĂ:4:2000@Ij 1580:L(FL$(KM))iIt TPTPL:4:IO$""(KM)::5:2400sI~ 2000IH 5:PA1:1007,0::PS::F:PL3445:OH0I\ A$"2"Ia A$"2"İ3550:3545:If A$"3"A$"7"ıIk A$"5"4055+Jm A$"6"Ą"NumCOMMAND":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 "NO BUFFERS AVAILABLE":6f"FILE TYPE MISMATCH":Qf"PROGRAM TOO LARGE":mf"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 NOT AVAILABLE":&eD"RANGE ERROR":;eN"RANGE ERROR":TeX"WRITE PROTECTED":zeb"MAIL LIST ENDED UNEXPECTEDLY":el"FILE NOT FOUND":ev"VOLUME MISMATCH":e"I/O ERROR":e"DISK FULL":e"FILE LOCKED":e"SYNTAX ERROR":f100:(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:"LANGUAGE55020:A$"N"50160(c8QF0:QP0:34002cBǰ1000 ";:16437:LL$(M)IO$""`ĭ(LL$(M))0NU%(M)0`"ī50270a,NU%(M)1:"ALPHABETIC OR NUMERIC RANGE? (L$(NF),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) ";:5502 NOT 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:R_ÆF;"VERIFY";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:50160T^FZ1:Y1$,Y1$,Y1$:(Y$"TABLE")50130::0:0:"THIS DOESTYPE ";::"RUN ":k\ú"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":501109]úD$);"YOU 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 ":BOTP: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 TO INPUT",YM2500F$(0,0)"I 2":5170CY M3500PL0:5170fYM176ĺ"STRING TO LONG":5170YM6ĺ"FILE NOT FOUND":5170Y("ERROR ";M;" AT LINE ";(219)256(218)Y2:XX$:Y:M1:L1:N1YRD$(26)qZCR13:CR$(CR):BO1:IO$"