' +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- ( 7 Π@跻~!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`000:&+RCX%2ık&0RL%(0)(L$(0)):L%(1)(L$(1)):L%(0)4MG$"DEPTH MUST BE AT LEAST 4":31000:21030&NIN$""ı$HNRN%(IN$):RN%1RN%NMG$"THERE ARE ONLY "(N)" RECORDS IN THE FILE":31000:20020$MN35100:$\N33200:$fN %R*** PRINT :(#>23:1::SP$:SP$;:CX%2160455#>11000:D#>Z$(0)"":[#hB*** VIEW RCDS ***j#rB:32000:w#|B20000:#BDL%Ģ23:1::"THIS IS A ";::"DELETED";::" RECORD"#B# N*** GET RCD# ***#*N33000:$/N23:1:"PLEASE ENTER RECORD NU">*** CHANGE RCDS ***.">MD%1::32000:;">20000:I">IN$""ı">23:1::DL%ĺ"ENTER ";Q$;"*";Q$;" IN RECORD NO. TO DELETE RCD":">DL%ĺ"THIS IS A ";::"DELETED";::" RECORD"#>"PRESS ";::"ESC";::" WHEN CHANGES COMPLETE";:349000,17000,14100:M%M%(2)14010&!7:)NF701:F$(NF)""ı\,):MG$"NO FIELDS NAMED":w**** WRITE TO DISK ****DL$" ":Z$(0)"*"DL$"*"(+Z$DL$(Z$(1)SP$,20)(Z$(2)SP$,30)(Z$(3)SP$,30)(Z$(4)SP$,30)(Z$(5)SP$,29)(Z$(6)SP$,10F,1):P1%(F,2):MX%P1%(F,0):4000:CX%2ı;(BS%10450J(F0FF1U(10400(IN$""F$(F)IN$:(IN$)MX%ĢP1%(F,1):P1%(F,2)(IN$):(SP$,MX%(IN$));(F$(F)""ĭF$(F)(SP$,(F$(F)))F$(F)""(CX%210510(CX%10520(:IELDS ***F(CT%0::T1$"NEW FILE: FIELD NAME ENTRY":T1%(40(T1$))2:32000:4:X18:"FIELD ";X;" ";::(SP$,10)::::21:1:"PLEASE ENTER NAMES FOR YOUR FIELDS.":"PRESS ";::"ESC";::" WHEN DONE."(24:1:SP$;::BK%1(F07+(P1%(IN$"N"ĺD$"DELETE "F$:F$"":10000>'IN$"Y"ĺG$;:10140h'D$"WRITE "F$:"D/W MAILMAN":0:D$:'*** READ IN FILE ***'22:D$"READ "F$:X$,N$:N(N$):NF(NF$):X$"D/W MAILMAN"Ģ23:D$"CLOSE":DS%13:10135(D$:CT%N: <(*** NAME F10050~'*** FILE EXIST? ***V'RW$"W":S%SL%:D%DR%:L%152:40000:DS%110180:'DS%10MG$"FILE LOCKED":31000:10040'DS%13MG$"NOT A MAILMAN FILE":31000:10040$':32000:10:"FILE: ";::F$:::"WILL BE A NEW FILE, OK? ";:36000:N$:1:868*8'3:12:"ENTER FILE NAME:"VB'5);::29);:5:MX%30:4000::CX%ıhL'IN$""10100V'(IN$,1)"A"(IN$,1)"Z"10100`'X1(IN$):(IN$,X,1)","10100l':F$IN$:10110t'MG$"FILE NAME ISN'T VALID":31000:3:5:868:IN$:!MG$""İ31000:5:10:SU$:84003f!32000:8000N'*** GET FILE NAME *** ':32000:29000:RW$"L":S%SL%:D%DR%:40000:24:3:"PLEASE PRESS ";::"RETURN";::" ";:1::D$;"CATALOG,S";SL%;",D";DR%:24:3:"PLEASE PRESS ";::"RETURN";::" ";:I$QTQT:8470:) !QTS$S$C$:8510:O!C$"0"C$"9"A$A$C$:8510:d!PC$PC$S$:S$""t !A$""8500"!(A$)256PC$PC$((A$)):A$"":8500*!MG$"ASCII CODE NOT VALID":85404!X218530>!:8480R!QTMG$"MISSING QUOTE""\$,Y,P%(X,0)):YYP%(X,0)::(Z$,1)"*"DL%146X:66VT%(37)1:HT%(36)1:IN$:23:1:(SP$,39):VT%:HT%:IN$(31)ĺIN$;6X%(IN$):A$:6*** MENU CONTROL *** 6MC%0371006MX%2:6M%(MX%):6M%(0)7:7M%(1)3:""5`CX%234920%5aCX%349165bZ$(2)""MG$"PLEASE ENTER SOMETHING IN LAST NAME":31000:P%(0,1):P%(0,2)::P%(0,0)):349005c5d:349035hM%1āF05:Z$(F)"":5r5.6&DL%0:D$"READ "F$",R"RN%:Z$:D$:Y2:X16:Z$(X)(ZTA IN Z$ ***)4V:BK%1:S%0:M%1S%154WFS%6i4XP%(F,1):P%(F,2):MX%P%(F,0):4000:BS%34910x4[F0FF14\349044^IN$""Z$(F)IN$:(IN$)MX%ĢP%(F,1):P%(F,2)(IN$):(SP$,MX%(IN$));5_Z$(F)""ĭZ$(F)(SP$,(Z$(F)))Z$(F)NY NAME)"::"ADDRESS 1 ";::(SP$,30)::"ADDRESS 2 ";::(SP$,30)::"CITY/STATE ";::(SP$,29)::"ZIP CODE ";::(SP$,10):3Q24:1:SP$;:3*** DISPLAY DATA ***3:X16:P%(X,1):P%(X,2):(Z$(X)(SP$,40),P%(X,0)):: 4T*** PUT DA$""::"2}*** CLEAR SCREEN ***L2 }1:1::T1%);T1$;T1%1);" "::1:h2耲*** DISPLAY RCD FORMAT24:RN$" ":M%1RN$(RN$(N1),4)3"RECORD NUMBER ";::RN$:::"FIRST NAME ";::(SP$,20):::"LAST NAME ";::30)::17:"(OR COMPAAR ARRAY ***$1rY06:Z$(Y)""::<1SL%(0)421400-)HSXLC%1L%(0):LF$:@)SW:D$"PR#0":Z)Y*** GET LBL DATA ***g)Y:BK%1)YF01:P1%(F,1):P1%(F,2):MX%P1%(F,0):4000:BS%23080)ZF0FF1)Z12030*(ZIN$""L$(F)IN$:(IN$)MX%ĢP1%(F,1):P1%(F,2)(IN$):;Z$(2);LF$^(R(SP$,1,L%(1));Z$(3);LF$:Z$(4)(SP$,30)ĺ(SP$,1,L%(1));Z$(4);LF$:LC%LC%1y(RZ$(5)(SP$,29)21300(RX(Z$(5))11:(Z$(5),X,1)" "21270( S(S(SP$,1,L%(1));(Z$(5),X);" ";Z$(6);LF$:21310)4S(SP$,1,L%(1));Z$(6);LF$:D'YR10:10::SP$;:17::"PRINTING"::D$"PR#"PR%:PC$""ĺPC$i'bRW1Y%:LC%3:RN%N%(W):35100:'RZ$(1)(SP$,20)21200'RX(Z$(1))11:(Z$(1),X,1)" "21160'R'R(SP$,1,L%(1));(Z$(1),X);" ";Z$(2);LF$:21210 (R(SP$,1,L%(1))0998 ?ğ!?ΟDE%DE%1:DE%3Ĭ?ӟ:32000:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:36000::32000:RT%040000?&38000:DE%0: 10:40998>X39012>C>OP$"V"RW$"L"(DK$,1)"P"40998e>OP$"R"RW$"R"DS%2:40998>OP$"R"RW$"W"40660>OP$"V"(DK$,1)"P"40900>OP$"R":D$;"RENAME";F$;",";F$;",S";S%;",D";D%:RW$"W"DS%1?ԞD$;"OPEN ";F$;",L";L%:440998=(222)4ė:32000:8:1:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000::32000:40000=0(222)640600=5(222)840900=:(222)13DS%13:40998 >D(222)10DS%08