' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦL~]LF LL} LŠčL]72µ- i ư&( Rp ߼ P  LLʬLo 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  $= '*.&  (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;1-30-+6/< 6/$2$ 6/+0*,)E8B ;4H8  `X !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`ĵµ`ڿ8.ڿ.ۿ`êLHIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH 20 LDIVERSI-DOS(TM) BY BILL BASHAM C1982 DSR THIS DISK CONTAINS A HIGH-SPEED OPERATING SYSTEM CALLED DIVERSI-DOS. TO LEGALLY USE DIVERSI-DOS, PLEASE SEND A ONE-TIME FEE OF $30 DIRECTLY TO: DSR, INC. 5848 CRAMPTON CT. ROCKFORD, IL 61111 815 877-1343 (VISA/MC) YOU WILL RECEIVE A UTILITY DISK, DOCUMENTATION, AND A VALIDATION STICKER AS PROOF OF PAYMENT. YOUR HONESTY WILL ALLOW DSR TO DISTRIBUTE FUTURE PROGRAMS THIS SAME, LOW-COST WAY. <> Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL\YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL- Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / FD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `HD٤DFFhiHLGh `, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`L漌ĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ``HH ᥠ ᥠ hh``õĵ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 x(`F d£ Ġz# u`2000 &Da&NaZ0ME%(1)1:&XaME%(4)ME%(1):MS$"L":1250:ME%(0)Z:ME%(1)1:1380:ME%(4)1IX$MV$(ME%(1)1):PO%PO%(ME%(1)1):OP%1:200&vaME%(4)2DF$MV$(ME%(1)1):X$"INDEX":37000:22058&aME%(1)1:&a*'aD$"CLOSE "F$:20:1::G$;"NO0.%_D$"READ "F$:X:D$"CLOSE "F$:X024970%_Y0:F$"VISIFILE.12":RW$"W":40000:D$"WRITE "F$:X0S2:(S2$(X),5)"INDEX"24550%_S2$(X):YY1:Y2424560%_&_"/*":D$"CLOSE "F$:1750:35000:SC$"LOADING SORT FUNCTION":X$"19":DK$P1$:3$MG$(8):$]ME%(1)424500$]TI$"SELECT AN INDEX":1710:3:MX%(1)10:"EXISTING SORT INDEXES":ME%(1)1:MS$"L":1250:ME%(0)Z:1070:MS$"K":1250:1070:1690:1380:ME%(1)324900%_F$FL$".DATA":DK$DD$:RW$"R":S%SL%:D%DR%:40000:DS%22497ı0#*VCT$".INDEX":44000:Z0IX$"":950,13:\#+VZ1IX$MV$(0):200:PO%PO%(0):OP%1:k#,VZ24Z24v#6V24000|#Y#YFL$""ME%(1)1:E1$MG$(8):#Y35000:SC$"LOADING MAINTENANCE FUNCTION":X$"1":DK$P1$:32000#] $]FL$""ME%(1)1:E1G$(9):"UZ1220401"UFL$""IX$"":950,13v"UTI$"SELECTING A FILE":1710:ME%(0)Z:1690:ME%(1)1:1070:1380"VFL$MV$(ME%(1)1):F1$FL$:(F1$)10F1$F1$(SP$,10(F1$))"VSC$"READING":1750:1700:41000:FL$""İ200#'VME%(1)1:FL$""5,26,1,6,26,1,7,26,1,8,26,1,9,26,1,10,26,1,11,26,1,12,26,1,13,26,1,14,26,1,15,26,1,16,26,1,17,26:"/*","Z"p!R!R35000:SC$"LOADING DEFINITION FUNCTION":X$"4":DK$P1$:32000!U"UME%(4)ME%(1):MS$"I":1250:CT$".DATA":44000:Z0ME%(1)2:E1$M0,1,15,30,1,16,30,1,17,30,1,18,30,1,19,30,1,20,30,1,21,30: "/*": "K",3,99: 0,20,2,0,20,13,0,20,24 ( "SELECT","DELETE","CREATE NEW INDEX": "/*": "L",25,99: 1,5,5,1,6,5,1,7,5,1,8,5,1,9,5,1,10,5,1,11,5,1,12,5,1,13,5,1,14,5,1,15,5,1,16,5j!(1,8,2,1,19,2,1,20,2,1,21,2( 1,4,16,1,5,16,1,6,16,1,7,16,1,8,16,1,9,16,1,10,16,1,11,16,1,12,16,1,13,16,1,14,16,1,15,16,1,16,16,1,17,16,1,18,16,1,19,16,1,20,16,1,21,16e ( 1,4,30,1,5,30,1,6,30,1,7,30,1,8,30,1,9,30,1,10,30,1,11,30,1,12,30,1,13,30,1,14,3 "/*":: "H",5,2 : 0,2,1,0,2,16,0,2,28,0,3,1,0,3,16: "DISK/PRINTER","INITIALIZE","TRANSFER FILE","CUSTOM MAPPING","DONE": "/*": "I",54,99( 1,4,2,1,5,2,1,6,2,1,7,2,1,8,2,1,9,2,1,10,2,1,11,2,1,12,2,1,13,2,1,14,2,1,15,2,1,16,2,1,17,2,1,1 UP": "SPECIAL": "DONE": "/*": "B",2,99: 0,18,10,0,18,29: "YES", "NO": "/*": "C",3,1: 0,2,1,0,2,18,0,2,37: "REPORT","LABELS","DONE": "/*": "D",9,99 ' 1,4,12,1,6,12,1,8,12,1,10,12,1,12,12,1,14,12,1,16,12,1,18,12,1,20,12::1:868:(#(2#1:T$""ĺT%)T$QF#:MR%9::CP%0:MR%6:MC%0:MR%:_' "A",9,0' 0,2,1,0,2,10,0,2,19,0,2,30,0,2,37,0,3,1,0,3,10,0,3,19,0,3,30 $' "SELECT","DEFINE","MAINTAIN"B' "SORT": "COPY": "PRINT": "BACK0:1750:1070:1380:207ME%(1)7OP%1İ5541V(970)13ME%(1)7İ5541kSW%(3)0İ50000SW%(2)1ME%(1)1İ45000ME%(1)22000,21000,23000,24000,25000,27000,26000,29000,30000:5561 22:1::G$;ER$;::" ";:36000:22(2):PR%G%(3):LF$G$(0):PI$G$(1):PT$G$(2)1F$"VISIFILE.12":DK$DD$:RW$"W":S%SL%:D%DR%:40000:43000:D$"WRITE "F$:S2:D$"CLOSE "F$:(789)3Ĺ789,2:ME%(1)6:1750:5580(789)1Ĺ789,2:ME%(1)1:5580ME%(1)1MS$"A":125700:32010:DS%1Ĺ970,0:FL$"":F1$"":MN$"":IX$"":SC$"READING":1700:D$;"READ "F$:G%(0),G%(1),G%(2),G%(3),G$(0),G$(1),G$(2):FL$:FL$""5553MN$,IX$:F1$FL$:(F1$)10F1$F1$(SP$,10(F1$))+D$"CLOSE "F$:PM%1SL%G%(1):DR%G%TDR%((Z$,28,1)):SL%((Z$,29,1)):AD%787:AD%,SL%:AD%1,DR%:PT$(Z$,30,1):dSW%(2)1ı SC$"READING":1700:5555:SW%(2)1:F$"VISIFILE.11":DK$DD$:D%DR%:S%SL%:RW$"G":40000:DS%1PM%1Ĺ970,0:X$"31":DK$P1$:SC$"LOADING MAIN MENU":1Z$,5,1):X$(Z$,8,20):X$SP$PI$"":5500AlX120:X205487n(X$,X,1)"#"((X$,X1,1))63PI$PI$(((X$,X1,1))64):XX1:5490o(X$,X,1)" "5500pPI$PI$(X$,X,1)rX|(PI$)20PI$PI$("....................",20(PI$))A$:402006_RW$"C"4007596`RW$"G"RW$"R":406386cOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"409006|DR$(D%)"P":RW$"L"409986OP$"C":D$;"VERIFY CONFIGURATION,S"S%",D"D%:D$;"OPEN CONFIGURATION":DS%1:409986-75Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100Y5v14:"DISK ERROR=";(222)5::14:14:"PRESS ";::"RETURN";::36000:D$"CLOSE":391505ИD$"DELETE VISIFILE.11,S"SL%",D"DR%5216,0:970,0:5@5TDS%0:RT%0:L%0L%1 6VL$"."X$437100h4A$:D$"DELETE "X$",S"SL%",D"DR%:38000:X0S2:X$S2$(X)S2$(X)" * ":37052n44DF$IX$IX$"":950,13:350204Đ4쐌790:38000:4p4z390004Ӕ4X4]790:216,0:;5dD$:G$::12::(222)0(222)1L%(X)3X:(34)U$43D$;"CLOSE VISIFILE.11"::3U3IN$:IN$(13)36010_3A$:e3|3X$"INDEX"370103X$DF$"."FL$".":X0S2:(S2$(X),(X$))X$370063X:3(S2$(X),5)"INDEX"ı3X$S2$(X):37011 4X$DF$"."FD$"WRITE "F$:PL%:SL%:DR%:PR%:LF$:PI$:PT$:FL$""ĺFL$:35090T2ۈOP%0350902݈OP%0:(34)FL$:(34)MN$:(34)IX$:PO%:X023:NA$(X)""ĺ"":" ":X24:350802(I$(X))5I$(X)I$(X)(SP$,5(I$(X)))3(34)NA$(X):I$(X):S%(X):750:OP%1:35000:SC$"LOADING CUSTOM FORMAT FUNCTION":X$"3":DK$P2$J1}t1}1700:PN%(X$):MR%36:RT%0320101}MR%391 }D%1:S%PL%:RT%1:40910:3200111ˆSW%(2)0ıC2̈SC$"WRITING":1700:F$"VISIFILE.11":D$"OPEN "F$",S"SL%",D"DR%:MC%6ĺG$;:31230#0zMC%2431000;0zZ$(SP$,10)ER%1^0z(Z$,1)"A"(Z$,1)"Z"ER%10zX110:(Z$,X,1)","(Z$,X,1)"."ER%100z:ER%1ER$"FORMAT NAME INVALID":7100:312300:zMN$Z$0R6,SS(S5):7,(S5256):54,SS(S3):55,(S3256):56,SS(S33):57,((S33)256):1002>pD$;"CATALOG,S"SL%",D"DR%:D$;"PR#0":D$;"IN#0":>z" ":S6(6)(7)256:S6((S6S519)38):>S5S526:S20:S71S6:R?6,SS(S5):7,(S5256):000="EOF%1==~=3:11:S2$(80):SS(X)X(X256)256:S4$"":S4(107)(108)25612:S5(109)(110)25650:=MS3MR%24:S3043090>N6,SS(S5):7,(S5256):54,SS(S3):55,256(S3256):56,SS(S33):57,256((S33)256):1002:43340 H (X$)42560R XA$(X$,(X$)3):(XA$,1)"'"(XA$)12560 f (XA$,1)F THIS FILE IS ";NR%:AL%1ČMR%33:;l Z%NR%1:7:2560Yv Z%0ĺG$;:4:Z%0:2560j X$"S"4100 9610:U%Z%:9440:4:(Z$,5,1)"*"ĺ"RECORD ";Z%;" IS A ";::"DELETED";::" RECORD" (Z$,5,1)"*"İ7 X$"U"ME%0 6420:IL%2390r IL%2IL%0| 29600 XX$"A"5730? XX$"A"ıY X$"S"X$"S,"(R%)r (X$,2,1)","2610 (X$)22610 Z((X$,(X$)2)):Z99992610 Z%Z:X$(X$,1)D N Z%NR%3190%X G$;:4:"THE ";::"LAST RCD#";::" O0' X$""IL%1Z%Z%1:X$"I":3140U X$""IL%2XP%XP%1:9060:X$"I":3140" XP%1X$"-"IL%2XP%XP%1:9060:X$"I":31406 G$;:IL%0:2600@ J X$"A"AL%1FX$"AL":T X$"A":4100h (X$,3,1)"'"3390m (X$,3,1)"'"32725 Z$""X$"U":@ :MR%9::1::(X$,1)"S"2920V (X$,1)"I"2920l (X$,1)"A"2880 (X$,1)"M"3470 (X$,1)"U"2920 (X$,1)"D"2920 (X$,1)"E"4000 (X$,1)"X"7960 X$"-"IL%1Z%Z%1:X$"I":3142ME%(1)3)X$"":X%1:JF (B$""B$"-")ME%(1)4IL%1X$"":X%1:oP B$"-"ME%(1)1ME%(1)5X$"-"Z B$""(ME%(1)1ME%(1)5)X$"" ME%(1)1ME%(1)5X$""X$"-"X$X$","B$ X$""X$"-"IL%2IL%0:FX$" " X$"U,'*"S":26198 ME%(1)6262069 AX%(0)0İ7960:2600_: AX%(0)0:3:1:" ":2600z; AX%(0)1X$"S,'"KY$< AL%1X$"I"IL%0X$M$:2820> ME%(1)5A$""2600@ AX%(0)1ME%(1)5X$X$",'"IN$:2720A (B$""B$"-")(ME%(1) AL%1ME%(1)1MC%242880Z AL%1ME%(1)2AX%(0)0R%R%1:B$(R%):X$"U":2700( 22:1:(SP$,40):1070:1380:1700:2 ME%(1)1X$"A"3 ME%(1)2X$"U"4 ME%(1)3X$"D"5 ME%(1)7X$"E"6 ME%(1)4X$"I"7 ME%(1)5X$"107440:2220.790:216,0:2312=D$"CLOSE"` SC$"LOADING MAIN MENU":13000 DK$PD$:PN%31:MR%36:RT%02314 MR%39 DK$PD$:D%1:S%PL%:RT%1:40910:2311 8 10420:L V B$:B$:IN$B$:  X%0:;Lu(1)N$(28)N$(1)N$(29)" DATA DISK IN DRIVE ON SLOT26""M1$(12)"":M1$(13)N$(20)N$(1)N$(36)N$(3)N$(1)"*PLEASE ENTER NUMBER OF DISK DRIVES00":M1$(14)"":(121)256(122)33:$:Lii=ii)$M BEH)4iQ`, CHARACTERS WITH #)35"M1$(8)N$(13)N$(4)N$(38)Z2$" (THIS DATA NOT NORMALLY REQUIRED) 34":M1$(9)N$(15)N$(11)N$(31)Z2$" DISK SPECIFICATIONS19"7M1$(10)N$(17)N$(1)N$(35)N$(1)N$(28)"*HOW MANY DISK DRIVES DO YOU HAVE?33":M1$(11)N$(19)N$(7)N$(1)N$(34)N$(3)N$(5)" DOES IT NEED AN EXTRA LINE FEED?32":M1$(5)N$(9)N$(1)N$(28)N$(3)N$(30)" DOES IT SUPPORT FORM FEED?26"M1$(6)N$(11)N$(1)N$(21)N$(20)N$(8)" INITIALIZATION DATA19":M1$(7)N$(12)N$(4)N$(40)Z2$" (PRECEDE CONTROLZ1$:X140:N$(X)(X):iM1$(0)N$(3)N$(10)N$(18)Z2$" PRINTER07":M1$(1)N$(3)N$(18)N$(33)Z2$" SPECIFICATIONS14":M1$(2)N$(5)N$(1)N$(24)N$(3)N$(1)" DO YOU HAVE A PRINTER?00":M1$(3)N$(5)N$(29)N$(38)N$(1)N$(4)"*SLOT NO?08"M1$(4)N$0 1E%D%$1(U$,E%,1)"."6360L1(U$,E%,1)"0"(U$,E%,1)"9"6370^1E%E%1:63401E%E%D%:B((U$,D%,E%)):D%D%E%11 11X$"A"ME%11C20:PG%PG%(0)PG%PG%(0):MR%18:1:CP%0:MR%6::1:ZS$Z$::2zN6090I0$C$"*A":NA:7290:J%1:5160:J%0:D%D%1:(U$,D%,1)":"6070S0V64100`B$(U$,D%,1):B$"+"B$"-"B$"*"B$"/"B$"^"62800tB$"":62900D%D%10(U$,D%,1)"@"63301B((Z$,((U$,D%1,3)),((U$,D%4,2)))):D%D%6:640/U$""6410"/X$"D"6410+/D%1a/A%((U$,D%1,3)):B%((U$,D%4,2)):D%D%7:A0y/6240:B$"+"AAB/B$"-"AAB/B$"*"AAB/B$"/"ĭB0AAB/B$"^"AAB/B$""AB/(A).00001A00(U$,D%,1)":".*5939:6420:5840^.3Z$(MX%)" ":Z$("000",5(Z$))Z$:Z%NR%1:C023:NA$(C)""6010.\(I$(C),1)"*"Z$Z$(SP$,L%(C)):6000.fL%(C)1Z$Z$"0":6000.kZ$Z$(SP$,L%(C)1)"0".pC.z.XX$"A"AX%1Z$MD$/X$" ":XX$"":)PG%(0)1:PG%(0)PG%(1)PG%(0)PG%(1)w-PX$X$:X$"A":9440:X$PX$:PG%PG%(0)PG%PG%(0):MR%18:Z$""ČMR%6:-Z$""ČMR%9:- -"-$:4:"PRESS ";::"RETURN";::" TO ADD, OTHER KEYS TO EDIT ":7:(TZ$)13MC%1:5870-(5865ME%128:+,5882:MR%:MC%2MC%65865=,MC%135870O,ME%1285865m,PN%0PG%(0)PG%(1)5922},MC%6:5865,X%1:MC%1X%0:1850,SF%0XA$(Z$,SF%,LF%),1::,MC%2PG%(0)PG%(0)1:PG%(0)1PG%(0)1'-MC%6PG%(0 +X8550+bV+lXL%1YAX%0::4:"INDEX FILE DOES NOT FIT IN MEMORY":7:6030|+vIM%1:XS%3IX%(XL%1)NR%:5810+XXL%XP%1:IX%(X1)IX%(X):X:IX%(X1)NR%+XL%XL%1:XN%XN%1:6030+CP%0:MC%0:PG%(0)1:MD$""MD$Z$ ,X$"U"$,(Z$)5):6040:Z$Z$W$:9710:1*9440:57007*m*IN$(NR%1):(IN$)4IN$("000",4(IN$))IN$*Z$IN$(Z$,(Z$)4):6040:Z$Z$W$:Z%NR%1:9710:AK%AK%1:AK%25AK%0:7440*NR%NR%1+DXX$X$:X$" ":9440:XX$"A"AX%(0)06030(Z$)A%Z$Z$(SP$,A%(Z$))V)<E$(Z$,A%1):E$E$B$:F(Z$)(A%B%1):F05230n)dE$E$(Z$,A%B%,F)x)nZ$E$~)x)@)JX$"A"5560)TX$"D"A$"*")^X$"U"A$" ")hIN$(Z%):(IN$)4IN$("000",4(IN$))IN$!*|Z$IN$A$(ZV%1274980((`C:SN%0Z%SN%:94407(tX%1:5240X(~((Z$,A%,B%))(B2$)4930^(n(U%Z%:6420(:4:"CONTINUE SCANNING (Y/N)? ";:2390:4:IN$""4960((IN$,1)"N"4980(MC%(IN$):MC%2MC%6İ5882:5030(4960(()22%NR%:IL%3Q1%XP%:Q2%XN%E'CQ1%Q2%:IL%3XP%C:8990:4880T'Z%C:9610l'(Z$,5,1)"*"4960'(C$,1)"*"4990'B2%0X0:4910'$X0B%1'.(Z$,A%X,(B2$))B2$SN%Z%:5000'3B2%04930'8X (BV%(16384):16368,0:(SP$,15(A$))T&C023:C$I$(C):D1$NA$(C):A%S%(C):B%L%(C):D1$(SP$,15)4820e&D1$A$4830l&C&4:G$;::"UNDEFINED";::" FIELD NAME":7:&&SN%0:B$"*"B$"* "&B2%0:(B$,1)"*"B2%1:B$(B$,(B$)1)'B2$B$:Q1%Z%:Q(CP%),3,1)):MR%3:(SP$,((M$(CP%),4,1)));::CP%CP%1:3880k%VT%2:HT%1:MR%3:Z$""X$"I":3140q%w%%X$"E"::%%%ME%0:X$"U"5840%"X$"A"ME%1:5930%6T$"":X$"S"4630%r%& X%1:(A$)15A$A$00=$M$(C)"":M$(C1)"":PG%(2)0PG%(1)PG%(1)1:PG%(0)1M$AM%13850_$D$"CLOSE "F$$ ::CP%0:9440:PG%1:MR%9::3970$(M$(CP%)""3970?%2VT%((M$(CP%),1)):HT%((M$(CP%),2,1)):MR%3:(M$(CP%),7,(((M$(CP%),2))));::HT%((M$9,3))):M$(C)M$(C)(((M$,16,3))):M$(C)M$(C)(M$,28,1):M$(C)M$(C)(M$,15):M$(C)M$(C)(M$,2)#M$""PG%(2)PG%(2)1:PG%(2)13820:PG%(1)PG%(1)1:PG%(0)1:3800#M$""PG%(1)PG%(1)1:PG%(0)1:3800#M$""PG%(2)0#C$790:380(L%(CI%))(S%(CI%))(I$(CI%),1)NA$(CI%)"00":M$" ":M%M%1:CH%CH%(X$)1L%(CI%)1:CI%CI%1:3792"tM$:M$(C)"":M$""ī3792c#M$(C)(((M$,22,3))):M$(C)M$(C)(((M$,25,3))):M$(C)M$(C)(((M$,25,3))((M$,2))1):M$(C)M$(C)(((M$,1X$(IX%(X)):(WX$)4WX$("0000",4(WX$))WX$CA$WX$:X:IM%0XA$D$;"CLOSE ";NX$^A$dA$A$RN$(0)(Z%):(RN$(0))4RN$(0)("000",4(RN$(0)))RN$(0)A$RN$(1)(NR%):(RN$(1))4RN$(1)("000",4(RN$(1)))RN$(1)qB$1:MZ%(1)1::"VIS2%)XA$X2%XP%:9170@$9260J@$((Z$,XD%,L2%))(XA$)X1%XP%:9170u@"$((Z$,XD%,L2%))(XA$)X2%XP%:9170{@,$@6$@@$NX$""9430@J$IM%09420@^$109601Ah$D$;"OPEN ";NX$;",L5":D$;"WRITE ";NX$:XL%:D$;"WRITE ";NX$;",R1":X1XL%:WP%XL%9100?x#Z%IX%(XP%):@?#D$;"READ ";NX$;",R";XP%:Z%:F?#?#X1%0:X2%XN%1:XS%0:L2%(XA$):NM%1L2%L1%XX$"A"L2%L1%?#X2%X1%1XS%2:9260?#XP%(X1%X2%)2:8990:NM%19240?#(Z$,XD%,L2%)XA$X1%XP%:9170@$(Z$,XD%,L>"X$(X$,1)","(ZZ%):2950I>"XX$"A"İ4::"NO SUCH RECORD"::7p>#XS%2X$(X$,1)","(ZZ%):2950> #XS%3XX$"A"2950>#2560>#>(#9060:9610:>2#9060:22:D$;"READ ";FL$(1);",R";Z%:Z1$:Z1%Z%:D$:>d#XP%XN%Z%0: ?n#X"8940!="XP%XP%1:XS%189303="XP%XN%8930S="XP%XP%1:9010:NM%18900q="(Z1$,XD%,L2%)XA$XS%1{="8910="((Z1$,XD%,L2%))(XA$)XS%1="XP%XP%1:8990="XS%1XX$"A"İ4:"NOTE: ";::"MATCHING KEY FIELD";::" EXISTS"::7((Z$,XD%,L2%))(XA$)89507<"XP%XN%XS%3:8950Q<$"XP%XP%1:8990:8950W<8"d Y:3800D o YOL%1:(Z$,S%Y,L3%)S$(X,0)3800x Y:~H R (I$(H%(X,0)),1)"*"3460\ (Z$,S%,L3%)S$(X,0)ıf 3800 ((Z$,S%,L%))(S$(X,0))ı 3800  (I$(H,3400,3500,3600,3700:SL%1ı& X:, K& (I$(H%(X,0)),1)"*"3160[0 L3%03140z5 (Z$,S%,L3%)S$(X,0)3800D (Z$,S%,L4%)S$(X,1)3800N X b L3%03190g ((Z$,S%,L%))(S$(X,0))3800v ((Z$,S%,L%))(S$(X,1))3800TI$(X),(TI$(X))1):2820C (TI$(X))W%9TI$(X)(TI$(X),W%9)V :TI%0TI%1\J b  SL%0:X0Y%:S%S%(H%(X,0)):L%L%(H%(X,0)):L1%(S$(X,0)):L2%(S$(X,1)):L3%L%:L1%L%L3%L1% L4%L%:L2%L%L4%L2% H%(X,1)13100,3200,3300P%(29,6):P1%(12,25,6):I$(25),N$(24),S%(25),L%(25):B(1,24),Q%(2),R%(1):TI$(2):S%(25)1:L%(25)4:I$(25)"*"5290:9000:V%(1)9999: V%(11)0ı L$(V%(11),12):  TI%3:X02:TI$(X)""TI%TI%1:2840 (TI$(X),1)" "TI$(X)(EH)4iQ`,;Lu:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:41000::RT%040000J&38000:J(J2IN$:IN$(13)41010JFAA$:J(121)256(122)33:Lii=ii)$M B39012 I-IOP$"R"RW$"R"DS%2:40998HIOP$"R"RW$"W"40660jIOP$"V"(DK$,1)"P"40900:}IRW$"P"40660IOP$"C"DS%0:40998IOP$"R":D$;"RENAME ";F$;",";F$:RW$"W"DS%1IԞD$;"OPEN ";F$;",L";L%:40998Iğ}JΟ:10:10(DK$,1)"P"40900:'HRW$"L"409988HDS%1:40998>HH790:(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:41000:40000H0(222)640600H5(222)840900IXINE ";(218)(219)256:39100X4%16:"9"D$;"PR#";PR%:X$PI$:Y$"":(X$,1)"."6632P"X120:X206626"(X$,X,1)"#"((X$,X1,1))63Y$Y$(((X$,X1,1))64):XX1:6628"(X$,X,1)"."6629"Y$Y$(X$,X,1)"X"Y$"V%(10)1:""V%(3)16760RNEJ%1:5770&!XGT%MX%EJ%1:5770Q!ZQQ%(16384):QQ%155Ĺ16368,0:5710!bD$"READ "FL$",R"GT%:Z$:D$:806,(49289SS%16DR%):806,(49289SS%16):GT%GT%1:Y%99İ3000:SL%15620!!!50000:!IN$:(IN$)135790"AA$ G$(7): 8000: 4 FL$(FL$,10X): @ S V%(13)05720u D$"READ "IX$",R"SF%1:5680 RN$:D$:38000:806,(49289SS%16DR%):806,(49289SS%16): SF%SF%1:GT%(RN$):5720 0D$:790:38000:(222)539000 !X1:0(X$)U%X$(SP$,U%(X$))X$:5270C(X$)U%5270jY$(X$,U%):(Y$).99(X$)TR%1tX$Y$TL%0B(0,Y)B(0,Y)(X$)TR%1X$(AS$,(X$)):TT%1:B(1,Y)999999992:D$(4):CR$(13): AA$(1):$((X$)Z)&((X$))1000CC%1WA$" "X$:772,0:771,E%:768:(A$)05095}E%0X$"."("00000",E%):5250X$"0":5250X$A$:CC%05250CC%E%:CC%0CC%1 X(X$)CC%423:X25250X$(X$,X1)(X$,(X$)X):X:"FILE ";::FL$;::" IS AN ";::"EMPTY FILE"::X11000:X:SF$"":ER%1:EJ%1:iV%(13)04460:F$IX$:L%5:40000lTR%0:CC%0:((X$)).015074(X$)050935078Z.5:(X$)0Z.5E%0ZZ(10E%) X19X,15)(SP$,15)X$"A"X$"N"X$"P"ER$"DATA TYPE INVALID - FIELD#"(6PX1):7100:21025~RX$"A"I$(X6P)" "RX$"N"I$(X6P)"*"RX$"P"I$(X6P)"!"R(Z$,2119X,15)(SP$,15)E%X15R(Z$,2119X,15)(SP$,15)E%0RX03:Z$(X)FL$MN$(Z$(X),(Z$(X))20)::X043:VF$(X)""21120[XRFL$VF$(X)21110hbR:21120ylR7100:21025vRER$"FILE NAME ALREADY EXISTS - RE-ENTER":21100RdRE%0:X05:NA$(X6P)(Z$,21X19,15):X$(Z$,2119X18,1):(Z$,2100:MR%15:21027#&RMC%2421000e'RFL$(Z$,10):MN$(Z$,11,10):(FL$,1)"A"(FL$,1)"Z"21039)RX110:(Z$,X,1)","(Z$,X,1)"."ī21039+R:21040/RER$"FILE NAME INVALID":211000RFL$(SP$,10)ER$"PLEASE ENTER FILE NAME":21100E1P0:MD$MD$(0):Y0:4000:TI$"FILE DEFINITION":1750:SW%0Z$(SP$,10)"AUTOMATIC ":X16:Z$Z$(SP$,18)"A"::Z$(0)Z$:Z$(1)Z$:Z$(2)Z$:Z$(3)Z$R2:9:"CHARACTERS REMAINING ";CH%:3100!R9000#RMC%1321030$RPN%0MC%6:21031%R74ME%(0)30000RRME%(4)ME%(1):MS$"C":1250:ME%(1)1:1070:1380:ME%(1)421000RFL$MV$(ME%(4)1):ME%(1)1SC$"REORGANIZATION":X$"17":31000RME%(1)5SC$"DELETE":X$"18":31000RSC$"PRINT/DISPLAY":X$"18":31000RRCH%232R:E-ORG","DISPLAY","PRINT","RETURN","DELETE": "/*": "Z"=RP RME%(1)1:SW%0h RMS%1:ME%0:4200: RME%(1)1ME%(0)2MC%2421019 R1700:GB%1ME%(1)ME%(0)1 R:1750:1690:1070:1380:MC%(ME%(1)1,1)1:"*":ME%(1)121019 RME%(1) IX%232:Y03:X3613119:YPX%X%((Z$,X,3)):7430cX%X%((Z$(Y),X,3))X:Y:2:9:"CHARACTERS REMAINING ";X%;" ":(#-#9030F#CP%0:MR%6:MC%0:MR%:7~' "C",5,0: 0,2,2,0,2,10,0,2,19,0,2,26,0,2,34: "R232:X023:NA$(X)""7245/HCH%CH%L%(X):MLL%CH%:2:30:(CH%)" ":CH%0Ģ22:1:G$;"RECORD SIZE TOO LONG ";:7000\X16:Z3X1:X$(X6P):(X$)1X$" "X$M$(Z)(M$(Z),(M$(Z))6)X$(M$(Z),4)::ME%0:P0ME%128|{ȑ|ȑh~h}h|h{hhhhh`HHLzyiȍyi בyziܑyhh`}ȱȱHHy .0ȑ,~.}H}{||{h{H~ h~{} ȑ ȑ}--ȑ 00 0 hhi8m{|{ {%16):$2(121)256(122)547:A$ 437.005000000000000HHHHH{H|H}H~H|~(H2Hh  hh$"W"DS%1-1ԞD$;"OPEN ";F$;",L";L%:4099831ğ1Ο:10:10MZ%(1):G$"INSERT ";::DK$;::" DISKETTE":12:12MZ%(1):"IN SLOT ";S%;" DRIVE ";D%:14:12MZ%(1):"AND PRESS RETURN ";:36000::RT%0400001&38000:1'1Pò2Zù806,(49288SS0(222)640600%05(222)84090000X3900860_0OP$"V"RW$"L"(DK$,1)"P"409980OP$"R"RW$"R"DS%2:409980OP$"R"RW$"W"406600OP$"V"(DK$,1)"P"40900:0OP$"C"DS%0:40998 1OP$"R":D$;"RENAME ";F$;",";F$:RWV":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"40900:R/RW$"L"40998c/DS%1:40998i//790:(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000:400000)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100e.v14:"DISK ERROR=";(222).::14:14:"PRESS ";::"RETURN";::36000:D$"CLOSE":120:.@.TDS%0:RT%0:L%0L%1.VAA$:40200.`RW$"G"RW$"R":40638?/cOP$"F- }SC$"LOADING PRINT MENU":31000:1013:PN%31:MR%36:RT%032040R-}MR%39~-(}DK$PD$:D%1:S%PL%:RT%1:40910:32010--IN$:IN$CR$36010-AA$:-p-z39000-Ӕ-X-]790:216,0:-`D$:50000:G.gG$::12::(22240998 ..790:D$:(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:7000:40000.0(222)640600.5(222)840900.X39012./OP$"V"RW$"L"(DK$,1)"P"14:"DISK ERROR=";(222)]-::14:14:"PRESS ";::"RETURN";::36000::D$"CLOSE":30000c-@~-TDS%0:RT%0:L%0L%1-VA$:40200-`RW$"G"RW$"R":40638-cOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"40900:.RW$"L"F1$F1$(SP$,10(F1$))=,X110:939X,((F1$,X,1))::C,^,IN$:IN$(13)36010h,A$:n,pz,z39000,Ӕ,X,]790:216,0:,dD$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100-vMN$)1):N+0(34)MN$:"":6:950,13:X023:NA$(X)""ĺ"":" ":35190|+](I$(X))5I$(X)I$(X)(SP$,5(I$(X)))+b(34)NA$(X):I$(X):S%(X):L%(X):+vW$(1)":"W$(1)"",(34)W$(1):D$"CLOSE "F$:970,13:971,13:F1$FL$:(F1$)10%:RT%1:40910:31012**̈DK$DD$:F$"VISIFILE.11":D%DR%:S%SL%:RW$"W":L%1:40000:D$"WRITE "F$:PL%:SL%:DR%:PR%:LF$:PI$*PT$*!(FL$,1)" "FL$(FL$,(FL$)1):35105*&(34)FL$:MN$""35120 +*X110:(MN$,1)" "MN$(MN$,(001 )y)yF$"VISIFILE.12":DK$DD$:D%DR%:S%SL%:RW$"W":40000:D$"WRITE "F$:(34)FL$:ME%(1):D$"CLOSE "F$:(SC$,1)"L"SC$"LOADING "SC$" FUNCTION")$yTI$"":1750:PN%(X$):RT%4:MR%36:RT%031028)&yRT%4:MR%39*4yDK$P2$:D%1:S%PL(VIN$("000",3(IN$))IN$O(VB$"@"IN$:IN$(L%(X)):(IN$)2IN$"0"IN$d(VB$B$IN$:22999m(YA1s(Yy(0u(1uSC$"LOADING MAIN MENU":TI$"":1750:PN%31:RT%4:MR%36:RT%030010(3uRT%4:MR%39):uDK$P1$:D%1:S%PL%:RT%1:40910:30"X$":"22070 '"V:A1:22990S'6VB$(Z$,A1):Z$(Z$,(Z$)(A1)):B%622999u'TVB$"REC#"B$"@00104":22999'^V(B$)122990'cVX%(B$)64:Y0:X023:(I$(X),1)"*"22128'lVYY1:YX%22140'pV:22990'|VIN$(S%(X)):(IN$)22217021670(&UW$(2)W$(1):W$(3)W$(0):21525<&UW$(1)W$(1)":"B&Up&USC$"WRITING":1750:43000:35000:5240:&UGB%1:21002&U&UB%6:(Z$,1)"0"(Z$,1)"9"(Z$,1)"."B%20'VA2B%:X$(Z$,A,1):X$"="X$"+"X$"-"X$"*"X$"/"X$"^0)W$(3):21538&%TB$"@00104"21610>%T(B$,1)"@"21610Q%TW$(1)W$(1)B$w%TW$(1)W$(1)(Z$,1):Z$":"21700%TZ$(Z$,(Z$)1)%T(W$(1),1)":"21760%T22000:A021610%T(W$(1))(B$)22621610&TW$(1)W$(1)B$:SP%225(W$(1)):6ĺG$:215005$$TMC%24Z$Z$(0):SW%1:ME%0:21021M$8TZ$(SP$,37)21780v$BT(Z$,1)" "Z$(Z$,(Z$)1):21570$LT(Z$,2,1)"="21610$QTZ$Z$":":W$(0)W$(0)Z$:22000:A021640%jTER$"COMPUTED FIELD ERROR - RE-ENTER":7100:W$(1)W$(2):W$(:4000:1750:2:27:"SPACE LEFT ";:(SP%):1070:#T23:1MX%(1)::"NEW FORMULA";:18MX%(1):"DONE";:26MX%(1):"CANCEL FORMULAS";:2MX%(1):"";:14MX%(1):"<2ND RETURN>";:30MX%(1):"";: $"TZ$(SP$,37):MD$Z$:9000:MC%2MC%%6:X023:NA$(X)""NA$(X)(SP$,15)21300a"SI$(I$,1)" ":S%(X)X%:X%X%L%(X)::21310o"4SNA$(X)""u">S{"S"S1880:X%0W$(1)"":21900"TSP%226:W$(0)"":W$(1)"":W$(2)"":W$(3)"""T3#T:Y23:T$"":TI$"COMPUTED FIELD FORMULAS"IELD NAME BLANK":7100:21025/!RMC%621220E!RPP1:P321220!RP3:22:1:G$;"PRESS ";::"RETURN";::" TO ACCEPT, SPACE TO EDIT ";:IN$:IN$:(IN$)13MC%1!RPPPZ$Z$(P):MD$MD$(P):7300!RMC%121025!RCH%021025-"RIX$"":XX,3))1ER$"FIELD SIZE INVALID - FIELD #"(P6X1):21100 RL%(X6P)X%:X:NA$(0)(SP$,15)MC%1ER$"NO FIELDS DEFINED":7100:21025 R7200: RZ$(P)Z$:PPP:MC%2PP1:P0P0!RMC%6(Z$,21195,15)(SP$,15)ER$"CAN'T PAGE - LAST F:ER$"FIELD NAME #"(P6E%)" BLANK ":7100:21025RX%((Z$,36X19,3)):X%38X$"N"ER$"LENGTH OF NUMERIC FIELD #"(P6X1)" OVER 38":21100RX%128ER$"FIELD#"(P6X1)" OVER 128":21100< R(Z$,2119X,15)(SP$,15)((Z$,3619ʫ400000(222)640600.5(222)8409004N?X39012Jv40022PyOP$"V"RW$"L"(DK$,1)"P"40998OP$"R"RW$"R"DS%2:40998OP$"R"RW$"W"40660OP$"V"(DK$,1)"P"40900: MOUNT DISK MESSAGEOP$"C"DS%098OP$"C"-D$;"VERIFY CONFIGURATION"JD$;"OPEN CONFIGURATION"[DS%1:40998n DISK ERRORw790(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000:Ԙ790֘216,0"ژU%0:7100(@.J4O:QJTDS%0:RT%0YUL%0L%1bVAA$n^40200`RW$"G"RW$"R":40638cOP$"V"hD$;"VERIFY VISIFILE.10,D";D%;",S";S%r(DK$,1)"P"40900: MOUNT DISK MESSAGERW$"L"409790^216,0_dD$-gG$::12:l(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100v14:"DISK ERROR=";(222)::14:14:"PRESS ";::"RETURN";:36000Ƙ39124ИDR%2ĺD$"CLOSE"Ҙ39126LE373DK$WD$DK$WD$:S%SL%:D%1:RT%1:40910B313320H3N3T33DK$DD$DK$DD$:S%SL%:D%1:RT%1:409104D$"CLOSE"L6U%0:7100GET 'RETURN'IN$:IN$(13)36010AA$pz39000ӔX].QQ%(16384),.QQ%155Ĺ16368,0:13000J.D$;"WRITE ";OUT$;",R"RZ%Z.U%112060k.(34)Z$(A)v/12070/(Z$(A),4)&/RZ%RZ%10/D$222DR%2ĺD$"CLOSE":71003333U%11330033CLOSE MERGE FI,1)"DISPLAY FILE DEFINITION ON SCREEN"8MS$(0,2)"PRINT FILE DEFINITION":MS$(0,3)"RETURN TO DISPLAY LIST OF FILES":MS$(0,4)"DELETE A FILE":8(121)256(122)33:D%Lii=ii)$M BEH)4iQ`,;Lu`)4iQ:M1$(Z2)""7M1$(23)N$(20)N$(7)N$(36)Z2$" ENTER COMPUTED FIELD FORMULA28":M1$(24)N$(21)N$(1)N$(3)N$(37)N$(1)" 01":M1$(25)""'80M1$(27)N$(21)N$(5)N$(26)N$(10)N$(1)" ENTER NEW INDEX NAME20":M1$(28)"":MS$(0,0)"RE-ORGANIZE FILE":MS$(0TYPE 40":M1$(3)N$(8)N$(31)N$(39)Z2$" (A,N,P)00" 7|Z4:X16:M1$(Z)N$(72X)N$(2)N$(7)N$(15)N$(X192)" "(X)" 04":M1$(1Z)N$(72X)N$(23)N$(25)N$(3)N$(X1917)"* 01":M1$(2Z)N$(72X)N$(32)N$(34)N$(1)N$(X1920)" 01":ZZ3:òN5ZÆM1$(28),N$(180):Z1$(0):Z2$Z1$Z1$:Z3$Z2$Z1$:X1180:N$(X)(X):566M1$(0)N$(5)N$(1)N$(11)N$(10)N$(1)"!FILE NAME09":M1$(1)N$(5)N$(23)N$(30)N$(10)N$(11)"!FORMAT08":M1$(2)N$(7)N$(1)N$(42)Z2$" FIELD# FIELD NAME SIZE DATA FL$-4t(X$,1)" "X$(X$,(X$)1):43380x4~F$X$".DATA":DK$DD$:RW$"W":S%SL%:D%DR%:40000:D$;"WRITE "F$:0:4239LL%:4D$;"CLOSE ";F$:4૲4嫺D$;"WRITE ";F$;",R";RN%:(Z$)238Z$Z$(SP$,238(Z$))4(34)Z$:RN%RN%1:5PHZ$Z$I$(C%)NA$(C%)IN$X$:C%C%1:B:44000:?3zA:43220L344000:b3Ԩ(W$(0))2432903֨Z$"*"FL$W$(0):44000:3Z$"!"FL$W$(1):44000:3D$;"CLOSE ";F$:X043:VF$(X)""4333038:433603BVF$(X)FL$:VF$(X1)""3`4jX$":DK$DD$:L%240:RW$"W":S%SL%:D%DR%:40000:C%0:A02:Z$" "FL$(MN$,9):B07:NA$(C%)""432002@IN$(S%(C%)):(IN$)3IN$("00",3(IN$))IN$2BX$(L%(C%)):(X$)3X$("00",3(X$))X$2D(I$(C%))5I$(C%)I$(C%)(SP$,5(I$(C%)))131FEOF%141900L1PVF$(Z$,2,10)VF$(Z$,2,10):VF$(X)VF$:XX1:41020W1Z41020u1VF$(X)"":D$"CLOSE "F$:{11$425001.EOF%0:Z$:RN%RN%1:38000:1L429991790:38000:(222)5390001"EOF%111f2F$"VISIFILE.14" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:7000::RT%040000o0&38000:{0'DE%0:0(0-X0:VF$"":RN%0:F$"VISIFILE.14":DK$DD$:L%240:RW$"G":S%SL%:D%DR%:40000:DS%24190007D$"READ "F$0<42000:40998'/OP$"R"RW$"R"DS%2:40998B/OP$"R"RW$"W"40660b/OP$"V"(DK$,1)"P"40900/OP$"R":D$;"RENAME ";F$;",";F$:RW$"W"DS%1/ԞD$;"OPEN ";F$;",L";L%:40998/ğ/ΟDE%DE%1:DE%330000b0ӟ:10:10:G$"INSERT ";::DK$;::Z%0W%(5)1DK$DD$:S%SL%:D%DR%:RT%1:40910pv F$FI$:DK$DD$:RW$"R":L%RL%:S%SL%:D%DR%:40000:DS%0ı RT%1:40910:8310[( "A",26: 1,4,3,1,5,3,1,6,3,1,7,3,1,8,3,1,9,3,1,10,3,1,11,3,1,12,3,1,13,3,1,14,3,1,15,3,1,16,3: 1,4,26,1,5,260:43000:PT%0O%PT%:6D$"WRITE "F$:0:ARL%:QD$:ST%1:d OP%0RW$"W"w OP%1RW$"R" F$FO$:DK$"OUTPUT":S%SL%:D%1:L%RL%:DR%28210 RT%1:40910 40000: DS%28207 OP%1:l 0p DR%1I$O$22:1::G$;ER$;::" ";:36000:22:1:868:7@[JXN%XN%1:XN%XM%EOF%1:8060^D$"READ "FX$",R"XN%:I%:I%I%1:D$|W%(5)0I$O$ST%1:W%(5)18200ST%1ı F$FO$:DK$DD$:RW$"W":L%RL%:S%SL%:D%DR%:4000****":ME%(0)X2:9ER%0:(I$(X%),1)"*"6210`X(X$)11:(X$,X,1)" "6140fX$(X$,X):X1(X$):X1(X$,1)"-"6200(X$,X,1)"."ER%ER%1:6200$(X$,X,1)"0"(X$,X,1)"9"6200.ER%28B1X)""I$(X)" ":5552-S%(X),L%(X):XMX0RL%S%(X1)L%(X1)1vD$;"CLOSE VISIFILE.11":TY%012000TY%42300021000pzMS$"A":1250:X023:NA$(X)""6060MV$(X)NA$(X):MV$(X)"RECORD#":MV$(X1)"DONE&38000:'DE%0:2(121)256(122)33:pLii=ii)$M BEH)4iQ`,;LuLuOP$"R":D$;"RENAME ";F$;",";F$:RW$"W"DS%1RԞD$;"OPEN ";F$;",L";L%:40998XğsΟDE%DE%1:DE%314000ӟ:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:9500::RT%040000 6406005(222)840900/:(222)940270DD(222)1040270JNUX39012[OP$"V"RW$"L"(DK$,1)"P"40998OP$"R"RW$"R"DS%2:40998OP$"R"RW$"W"40660OP$"V"(DK$,1)"P"40900:OP$"C"DS%0:409980:D$;"VERIFY CONFIGURATION":D$;"OPEN CONFIGURATION":DS%1:40998G790:D$:(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";9500::40000&(222)5402700(222)PING '& MERGE WILL RECOVER"=<ȱ<ɀ aJe<<e==ץ<=<ȱ<=<?>`ӠR AND RETURNS TO BASIC"hN:"PROGRAM ON HOLD, USE '&M' TO RECOVER"N:" THIS IS DISPLAYED WHENEVER A"N" PROGRAM IS PUT INTO THE HOLD FILE."N" TY}h/0 ~ # u {ݩ  ЙSL{|}~{}{}80ХР8< J<> J=<<><><i腃i腃еШm{|m}~i腃'л {}0``ИO("ȩ)ȩ{Уh/0 ~ # 30NU { !멍nnhhhz`8mm萔خm{m|{ȱ{m}m~}ȱ}Д m؟36000::RT%0400006&38000:SET GENERAL ONERRB'DE%0:^(121)256(122)48:Z$(0):Y%:T%(0,0):ȹ{HHHzyi%腸h/0  ߠȱzyi(腸h/0  ߥzyi腸h/0  愥:40998OP$"R"/D$;"RENAME ";F$;",";F$BʞRW$"W"DS%1]ԞD$;"OPEN ";F$;",L";L%hޞ40998nğΟDE%DE%1:DE%339110ӟ:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";INVALID":+:L+:F$FO$:DK$"OUTPUT":RW$"W":D%1:L%RL%:40000:43000:a+:PT%0O%PT%:+:D$"WRITE "F$:0:RL%:D$:D$"CLOSE "F$:+:+:TI$"COPY A FILE":1710:2:25::"INDEX=";IX$::+R+ RX124:V%(X,0)0::6000:A,RME%(4)ME)ER$"PLEASE ENTER 'COPY FROM' FILE NAME":b*6O$(SP$,10)ER$"PLEASE ENTER 'TO' FILE NAME":*6(X$,1)" "X$(X$,(X$)1):14016*6(X$,1)"A"(X$,1)"Z"14100*6X110:(X$,X,1)","(X$,X,1)"."14100*6: +7ER$"FILE NAME "X$" O%:RL%:XRL%((O%))((RL%))3:(SP$,1,X):D$"CLOSE ":34000:I)2)2:12:5:"RETURN TO MAIN PROGRAM? (Y/N) ";:36040:)2)2IN$"Y"PN%31:DK$P1$:Y$"MAIN":22170)2IN$"N"Ĭ)3G$;:13010)6,*6ER$"":I1$I$:O1$O$:I$(SP$,10Z$(N))4):D$"WRITE "FO$",R"O%:(34)Z$(N):D$F(2Z$(N)"":N:X(0)X(2EOF%112900k(2ST%112560:((2D$"CLOSE "FO$:8300:(<212560:(d2(i2O%0ĺD$"CLOSE":20:1::G$;"NO RECORDS SELECTED":X13000:::13010C)n2D$"WRITE "FO$",R"0:3000:SE%1Z$(N)"*":12575#'1N>'1EOF%1SE%1Z$(N)""Z'1W%(5)1ĺD$"CLOSE "FI$i'1N012820u'18070:'1N0Z%:Z$(N)""12820'1(Z$(N),1,1)"*"12800'1O%O%1:RN$(O%):(RN$)4RN$("000",4(RN$))RN$/(1Z$(N)RN$(Z$(N),( &1Z$(Z%)&1&1N0Z%1&1W%(4)1İ8000L&$1I%I%1:I%MX%EOF%1^&+1EOF%112713&.1D$"READ "FI$",R"I%:Z$(N):D$:W%(0)112700:&`1W%(1)1(Z$(N),5,1)"*"Z$(N)"*":12575&j1W%(2)1(Z$(N),5,1)"*"Z$(N)"*":12575't1W%(3)1İFX$:DK$DD$:RW$"G":L%5:S%SL%:D%DR%:40000:DS%2W%(4)0:D$"CLOSE "F$:12500k%0D$"READ "F$:XM%:D$q%0&08300:X(0):Z%(X23)(RL%3):W%(4)1W%(5)0I$O$MX%Z%ĺD$"CLOSE":20:1::G$"UNABLE TO COPY IN PLACE BY INDEX":X13000::12000.$f0D$"READ "FI$:MX%,LN%:D$:LN%RL%12472$0:10:5:G$;"FILE DEFINITION AND DATA FILE":12:12:"NOT COMPATIBLE":14:15:"PRESS ";::"RETURN";::" ";:36000:D$"CLOSE"::13000$0$0W%(4)012500Q%0FX$IX$"."I$"."(PO%)".INDEX":F$0:F$FI$:RW$"R":40000:DS%2İ15040:MR%9::CP%0:MR%6:1800:ER$"FILE '"I$"' DOES NOT EXIST":7100:12070#4041000:#90EOF%0:ER%112030#@0W%(3)1ī21000:#H0#R0DR%2W%(5)1İ15000$\0SC$"DATA FILE COPY IN PROGRESS":1700:8300:/ER$"COPY TO ANOTHER DISKETTE - 'Y' OR 'N'":7100:12070P"/O$"(SAME)"O$I$"/FI$I$".DATA":FO$O$".DATA"::10:8:G$;"INSERT DISKETTE CONTAINING":12:17::I$::14:4:"IN SLOT ";SL%;" DRIVE ";DR%;" AND PRESS ";::"RETURN";::" ";:36000r# 070!/(Z$,25,1)"N"12260]!/(Z$,25,1)"Y"IX$""ER$"NO INDEX SELECTED":7100:12070!/(Z$,25,1)"Y"W%(4)1:12260!/ER$"COPY IN A SPECIAL SEQUENCE - 'Y' OR 'N'":7100:12070!/(Z$,26,1)"N"12282!/(Z$,26,1)"Y"W%(5)1:122829"' OR 'N'":7100:120700 /(Z$,23,1)"N"12200S /(Z$,23,1)"Y"W%(2)1:12200 /ER$"COPY DELETED RECORDS - 'Y' OR 'N'":7100:12070 /(Z$,24,1)"N"12230 /(Z$,24,1)"Y"W%(3)1:12230!/ER$"COPY SELECTED RECORDS - 'Y' OR 'N'":7100:1214000:I$X$:ER$""İ7100:12070;N/(Z$,21,1)"N"12140^X/(Z$,21,1)"Y"W%(0)1:12140b/ER$"COPY ENTIRE FILE - MUST BE 'Y' OR 'N'":7100:12070l/(Z$,22,1)"N"12170v/(Z$,22,1)"Y"W%(1)1:12170 /ER$"ELIMINATE DELETED RECORDS - 'YX$"Y"I/Z$F1$"(SAME) ""YNNN"X$"Y":MR%9::CP%0:MR%6:1800^&/X05:W%(X)0:{+/MC%0:MR%:MC%13120750/MC%2MC%6ĺG$;:12075:/MC%24ī13000D/I$(Z$,10):O$(Z$,11,10):O$"(SAME) "O$I$!F/X$O$:14000:O$X$:X$I$:"REPLACE","APPEND": "/*"n( "D",3: 0,20,5,0,20,17,0,20,32: "DIF->VF","VF->DIF","DONE": "/*": "E",3:0,18,5,0,18,18,0,18,31:"APPEND","DELETE","CANCEL":"/*"( "Z"..F1$""F1$(SP$,10).Y4:4000.15040:/X$"N":IX$"",1,6,26,1,7,26,1,8,26,1,9,26,1,10,26,1,11,26,1,12,26,1,13,26,1,14,26,1,15,26,1,16,26: "/*"F( "B",6: 0,20,6,0,20,22,0,21,1,0,21,10,0,21,23,0,21,35: "CONTAINS","NOT CONTAINS","EQUAL","NOT EQUAL","GREATER","LESSER": "/*": "C",2: 0,20,10,0,20,24: N CONFIGURATION":DS%1:40998#;T;790:D$:(DK$,1)"B"(222)8DS%9:40998;(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000:40000;&(222)540270 <0(2":13040:@):TDS%0:RT%0:L%0L%19:VA$:40200L:_RW$"C"40075h:`RW$"G"RW$"R":40638:cOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"40900::|DR$(D%)"P":RW$"L"40998;OP$"C":D$;"VERIFY CONFIGURATION":D$;"OPE܌A$: 9p9z390009Ӕ%9X79]790:216,0:9dD$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:391009v14:"DISK ERROR=";(222)9::14:14:"PRESS ";::"RETURN";::36000::ИD$"CLOSE":IN$"YD$"CLOSE "F$:D$"DELETE "F$:40000:|8ʅD$"WRITE "F$:X0X11:(34)(Z1$(X),1)O1$(Z1$(X),(Z1$(X))11)::X20343508X0X21:(34)Z$(X):8.D$"CLOSE "F$:88IN$:IN$(13)360108A$:8Ȍ8ҌIN$:(IN$)3ĺG$;:3605097ڄW%(5)0I$O$ıB7D%1:DK$"OUTPUT":W%(5)0D%DR%:DK$DD$7F$"VISIFILE.14":RW$"W":S%SL%:L%240:40000:DS%1342507X20:D$"READ "F$:341007 Z$(X2):(Z$(X2),2,10)O1$340607X2X21:3406074790:38000:(222)539000$8HX,Y)(SP$,(S$(X,Y)))S$(X,Y)"":24116Z6*^Z(S$(X,Y))11:(S$(X,Y),Z,1)" "24112a6.^Zz60^S$(X,Y)(S$(X,Y),Z)64^66^Y:X:6耲612:1:G$;MG$" ";:36000:12:1:(SP$,40):6Є6ՄX%0:O1$O$:(O1$)10O1$O1$(SP$,10(O1$))AME INVALID":7100:23040\5xZRN$O$:V%(0,0)O%:V%(0,1)I%:1070:1690:1380:ME%(1)3130005ZV%(1,1)ME%(1):Y%1:ME%(1)2220105ZTY%5:1:(SP$,39):MS$"C":1250:1070:1380:V%(1,0)ME%(1):220105]5$^X0Y%:Y01:S$(X,Y)""24116(6(^S$(#4#Z(I$,1)"A"(I$,1)"Z"ER%1D4(ZX110:(I$,X,1)","ER%1w47ZER%1ER$"DIF FILENAME INVALID":7100:230404(S>*ER%1:X10:F$"VISIFILE.14":L%240:RW$"G":40000:DS%2EOF%1:41030`><42000:>FEOF%1ė:10:16::G$;I$;::12:14:"NOT DEFINED":14:14:"PRESS RETURN ";:36000:>P(R$,2,10)I1$41020>UER%0:A%0.?nC07:B%21(C26):8<=OP$"R":D$;"RENAME ";F$;",";F$;",D";D%:RW$"W"DS%1^=ԞD$;"OPEN ";F$;",L";L%:40998d=ğ=Ο:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:36000::RT%040000=&38000:>'22)640600<5(222)8409003<:(222)940270Hti?8>`s=ma?>?> ,h<8<?8<";:::D10:"* USE ARROWS, SPACE OR FIRST LETTER":" TO MOVE CURSOR.":13:"* PRESS TO SELECT MENU ITEM.":FT%1:X049:X1YX:M$(X)M1$(X1):M$(X)""4160X@SW%(1)1ı>SW%(1)1:F$FILE 1.00":2:"C 1981 CREATIVE COMPUTER APPLICATIONS":FT%01850fE1$""Ģ22::G$;E1$:E1$"":lr 20:1:(SP$,39):23:1:(SP$,39):24:MZ%(1)1:(SP$,39);:23:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL":MZ%(1)1:"";:HZ%:1:TI$"VISIFILE - "TI$::(MX%(0)(TI$))21MX%(1):TI$:1MX%(1):FL$:IX$""Ė25:2:"INDEX=";IX$q:wX8%0ė1::(SP$,40)::2:(SP$,40):3:(SP$,40)::4:(SP$,40):4:F1$;:IX$""Ė25:"INDEX=";:IX$B:6:13:"VISIME%(0)139023:1:868:24:1:868:23:3::"MOVE";:19:"JUMP";:33:"SELECT":24::"";:14:"";:32:"";::1:2:(SP$,40):3:(SP$,40):3:SC$;"...":14:i::(SP$,MX%(0)):2:(SP$,MX%(0)))ME%(1)ME%(1)10.XME%(1)0ME%(1)ME%(0)8Y1390KZMS$"H"1630~[ME%(1)ME%(1)3:ME%(1)ME%(0)ME%(1)ME%(1)6\ME%(1)0ME%(1)ME%(0)]1390^ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1h1390|ME%(1)ME%(1)1:ME%(1)0ME%(1)"ME%ME%(1)9,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1N6ME%(1)ME%1462|;MC%(ME%(1)1,2)0MQ$(MF$(ME%(1)1),1)<MC%(ME%(1)1,2)1MQ$(MV$(ME%(1)1),1)@MQ$M$1580JMP$:1390TMS$"A"1626VME%(1)ME%(1)5:ME%(1)ME%(0E%(1)1)))&:MC%(ME%(1)1,0):MH%GX9%(16384):X9%127146216368,0:M$(X9%128):(M$)8(M$)21(M$)32ĖMH%:MP$;(M$)211630(M$)321620(M$)81660(M$)13ĺMP$;:(M$)42ĭ(M$)65(M$)901462 372 cd+iME%(1)ME%(0)ME%(1)1ynMC%(ME%(1)1,0):MH%MC%(ME%(1)1,1):MC%(ME%(1)1,2)0MP$MF$(ME%(1)1)MC%(ME%(1)1,2)1MP$MV$(ME%(1)1) MC%(ME%(1)1,0):MH%::MP$:ME%(7)99Ģ1:MS$(ME%(7),ME%(1)1)(SP$,40(MS$(ME%(7),ME%(3)ME%(1):ME%(1)1:1371:ME%(0):ME%(7):MX0ME%(0)1:MC%(MX,2),MC%(MX,0),MC%(MX,1)::MX059:MF$(MX):MF$(MX)"/*"ćMM$:1350 <MX FME%(1)ME%(3) Z [ \ML$MS$:MM$MS$1379 ]MM$MS$Į:1375 ^MM$:MM$"/*"1374_MM$:1:MX0:MX0ME%(0)1:MC%(MX,2)0MF$(MD%)"/*"MP$MF$(MD%):MD%MD%1:1140 VMC%(MX,2)1MV$(MZ%)"/*"MP$MV$(MZ%):MZ%MZ%1:1140 `MF$(MP%)"/*":1200 tMC%(MX,0):MC%(MX,1):MP$;:M$(MP%)MP$:MP%MP%1:MX   ML$MS$1370 MF$(25),MV$(59),PP%(29),PO%(59):MC%(59,2):> G%(3),G$(2):L ME%(7):m MD%(2,2),MF%(2):P%(29,6):{ MX%(1): SR%(24,1),ST%(9,3),TI$(2),V%(14):MX%(0)40:MX%(1)0:PM%1SW%(1)1: 38000:51000:5000:5556 .M 8MZ%0:MD%0:MP%030 949X,13& :IX$""Ĺ950,13, 2 ,D 6(970)13ı @X110:F1$F1$((939X)):(950)13ĭ(949X)13IX$IX$((949X)) T:FL$F1$ |(FL$,1)" "FL$(FL$,(FL$)1):380 + MS$(4,8):NA$(24),I$(24),S%(24),L%(24):M(4):G$(7):D$"NOMONI,O,C":SP$" ":SP$SP$SP$:SP$SP$SP$:SP$SP$(SP$,127):P1$"PROGRAM-#1":P2$"PROGRAM-#2":DD$"DATA":990 d  970,13:971,13:X110:939X,((F1$,X,1)):X(IX$)Ĺ949X,((IX$,X,1)):2R>wMR%0:VT%1:HT%1:MC%0:MU%0:MS%0:Z$"":MV%0:MD$"":MW%1:AL%0:PN%0:RT%0:M$(50):63999::10:SW%(4):MV%0** V I S I F I L E **10 PM%0: 12 (970)13(971)13İ300 <PL%(800)16:SL%(787):DR%(788):A$(1):D$                    RW$"R"DS%2:40998*400820ğΟ:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:31000::40000&38000:'PòZÆM1$(14),N$(40):Z1$(0):Z2$Z1$Z1$:Z3$Z2$"ĺD$;"UNLOCK "F$0D$;"OPEN "F$:DS%1:409986790:(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:31000::400000(222)6406005(222)840900v3901212::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100pv14:"DISK ERROR=";(222)::14:14:"PRESS ";::"RETURN";::31000:D$"CLOSE":5560@TDS%0:A$:40200hRW$"R"ĺD$"VERIFY "F$",D1,S"PL%rRW$"W000,.9000:MC%1MC%2MC%6ĺG$;:12030> /MC%2412030/DR%(Z$):DR%1DR%2ĺG$:22:"VALUE MUST BE 1 OR 2 ";:31000:12030&/Z$"":y"yIN$:(IN$)13310106yA$:pz39000ӔX]790:216,0:RdD$:G$::%1;L'(Z$,1)"Y"ĭ(Z$,30,1)"Y"(Z$,30,1)"N"ER%1fV'(Z$,28,1)"1"(Z$,28,1)"2"ER%1`'(Z$,29,1)"1"(Z$,29,1)"7"ER%1e'(Z$,1)"N"Z$(Z$,3)"0"(Z$,(Z$)4)j'..MS%1:Y13:4000:G$:LG$"":Z$(SP$,3):6 VISIFILE - SYSTEM CONFIGURATION":::CP%0:MR%6:MC%0:MR%:E'p'ER%0:(Z$,1)"N"(Z$,1)"Y"ER%1.'(Z$,1)"Y"ĭ(Z$,4,1)"1"(Z$,4,1)"7"ER%18'(Z$,1)"Y"ĭ((Z$,4,1))PL%ER%1B'(Z$,1)"Y"ĭ(Z$,5,1)"Y"(Z$,5,1)"N"ER 5610 D$"RUN VISIFILE"W790:38000:DK$PD$:S%PL%:D%1:RT%1:40910:5560]pz23:2MX%(1)::"ACCEPT";:14MX%(1):"CANCEL":24:1MX%(1):LG$;:13MX%(1):"";::(#?-#:MR%9:1:1::(SP$,MX%(0));:1:1MX%(1):" D$"WRITE "F$:Z$:D$"CLOSE "F$::8:10)"PLACE WRITE PROTECT TAB":10:10)"ON DISKETTE IN DRIVE 1":12:12"AND PRESS ";::"RETURN";::" ";IN$:Z$(Z$,(Z$)1)SC$"LOADING MAIN MENU":1700:PN%31:RT%4:MR%36:RT%05590RT%4:MR%3920,Y0:T$"":4000::LG$"":6000C9000:MC%135317_MC%2MC%6ĺG$;:5317wMC%24ST%2556010000:ER%1ĺG$:22:1MX%(1)::"CONFIGURATION ERROR - RE-ENTER"::X12000:X:5317mA$::Z$(34)Z$:RW$"W":40000:256)5) <:X17:T%(X)1T%(X)55240? d:Z$"NO 0":5250v xZ$"YES"(X):PT%T%(X):PT$"NO ":PT%4PT$"YES"|  SL%PL%:X17:T%(X)1XPL%SL%X:5290 Z1$Z$:12000:Z$Z1$:Z$Z$"NO "(DR%)(SL%)PT$:53:C149408:C750944:SC1C7256:K02:CS(K)0 I02558:CS(K)CS(K)(SI):::CS(0)CS(1)CS(1)CS(2)CS(2)256CS(0)256CS(1)256T%((S49152)256)0:5180 I14:(S5)S5(I)(S7)S7(I)T%((S49152)256)I:I99 (I:I5T%((S49152)ING"::"BUILT FOR YOU. IF YOU WISH TO CHANGE"::"THESE DEFAULTS AT A LATER TIME, USE". :"THE ";::"SPECIAL FUNCTIONS";::" AND ":::"CHANGE DISK/PRINTER INFO";::" OPTIONS.":S5(1)3:S5(2)24:S5(3)56:S5(4)72:S7(1)60:S7(2)56:S7(3)24:S7(4)72X049:X1YX:M$(X)M1$(X1):M$(X)""41602 8 @> y DK$PD$:RW$"R":S%PL%:D%1:40000:ST%DS%:DS%25030 D$"READ "F$:Z$:D$"CLOSE "F$:5314 W FH%1:SC$"EXAMINING COMPUTER SYSTEM":1710:8:"A DEFAULT CONFIGURATION FILE IS BEP$SP$:SP$SP$SP$:SP$SP$SP$:MD$(SP$,29)Z F$"CONFIGURATION":PD$"PROGRAM-#1":2060`  ::" VISIFILE - VERSION 1.0 ";:(SP$,40);:2:15:"PLEASE WAIT":4:21((SC$)2):FH%1ğ FH%0:SC$:: 38000:5000 , MR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%1:AL%0:PN%31:RT%0::38000:M$(13):63999:MV%0:MX%(1):MX%(0)40:MX%(1)0:MV%0MX%(0)80:MX%(1)20<PL%(800)16, F50000:G$(7):D$(4):A$(1):SP$" ":SP$S        :3470X%0MN$"":2045( Z$"".9X%0:r MD$ZS$:MD$""ĭ(MD$,1)(34)MD$(MD$,(MD$)1)*2560:X$"E"2190>X$"I"2070H4110:X%0FX$"AL"X$" ":FX$" ":Z%Z%1:9440:2070\X%02070f5440:2080221954(BB$(BB$,(BB$)1):X1XX18IN$;:1954LIN$" ":XXG%jIN$;:X:AA$:IN$BB$::v7550:7650:2330:MS$"A":ME%(1)1:1250MN$""MN$"AUTOMATIC"MN$"AUTOMATIC "İ10670:AM%1:3660:X%0AM%0İ10690UE":22:2MZ%(1):G%38:1950:KY$IN$:KY$"*"Z$""KY$""NME%(1)51906TZoBB$""::X1G%IN$:IN$(21)IN$" "IN$(13)1978IN$(3)ĺG$;:1954IN$(8)BB$BB$IN$:1980(BB$)1ĺIN$;:1951BB$""pME%(1)5ır22:2MZ%(1)::(SP$,15);::" ";::(SP$,22)::4MZ%(1):"FIELD NAME DATA VALUE":22:2MZ%(1):G%15:1950:A$IN$:A$""ı{22:18MZ%(1):G%22:1950:B$IN$:;22:2MZ%(1)::(SP$,38)::16MZ%(1):"KEY VALF((Z$,S%(X),L%(X)))01899%H+JLG$:4:"BLANK RCD: ";::"RETURN";::" TO ADD,";::"SPACE";::" TO DROP ":7:(TZ$)131899PX%1:AL%1ČMR%33:klmME%(1)5AX%(0)11920nME%(1)6ıoAX%(0)1ME%(1)519209:"PAGE FORWARD";:MZ%(1)32:"PAGE BACK";:MZ%(1)1:"";:HZ%(1)10:"";:MZ%(1)21:"";:MZ%(1)32:"";:::>X023:NA$(X)""1866B(I$(X),1)"*"1862D(Z$,S%(X),L%(X))(SP$,L%(X))1899E1864(B$)1ĺIN$;:1750%B$""1762:B$(B$,(B$)1)GIN$;:Xy:23:MZ%(1)16:" ";:R%(B$):R%0R%11900 23:MZ%(1)1:(SP$,39);:24:MZ%(1)1:(SP$,39);23:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL";:MZ%(1)11)16:"RCD# ";::" ";:MZ%(1)216B$"":X14VIN$:IN$(21)XX1:1762tIN$"-"B$"-":X5:1790IN$(13)Č868::1792IN$(3)ĺG$;:1762IN$(8)(IN$(48)IN$(57))ĺG$;:XX1:XIN$(8)B$B$IN$:1790%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1/h1390[|ME%(1)ME%(1)1:ME%(1)0ME%(1)ME%(0)e1390k(ME%(1)3(ME%(1)2AX%(0)1))AL%1ČMR%33:AL%1IL%0ıME%(1)1ME%(1)61800ME%(1)7ıAX%(0)11799%23:MZ%(-"ı+ (M$)42ĭ(M$)65(M$)901460: "ME%ME%(1)f ,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1{ 6ME%(1)ME%1460 ;MC%(ME%(1)1,2)0MQ$(MF$(ME%(1)1),1) <MC%(ME%(1)1,2)1MQ$(MV$(ME%(1)1),1) @MQ$M$1580 JMP$;:1390%^MEMH% 38000/ X9%(16384):X9%1271462q 16368,0:M$(X9%128):(M$)8(M$)21(M$)32ĖMH%:MP$; (M$)21(M$)321630 (M$)81660 MC%(M$):MC%12ČMR%33:1430 MC%2MC%6İ5882:1430 (M$)13M$"": M$"75 ^MM$:MM$"/*"1374* _MM$:13720 c6 dR iME%(1)ME%(0)ME%(1)1 nMC%(ME%(1)1,0):MH%MC%(ME%(1)1,1):MC%(ME%(1)1,2)0MP$MF$(ME%(1)1) MC%(ME%(1)1,2)1MP$MV$(ME%(1)1) MC%(ME%(1)1,0):MH%::MP$;::MC%(ME%(1)1,0):X,0):MC%(MX,1):MP$;:MP%MP%1:MX) / R ME%(3)ME%(1):ME%(1)1:1371: ME%(0):MX0ME%(0)1:MC%(MX,2),MC%(MX,0),MC%(MX,1)::MX059:MF$(MX):MF$(MX)"/*"ćMM$:1350 <MX FME%(1)ME%(3): [ \MM$MS$1379 ]MM$MS$Į:13000 . 023:MZ%(1)1:(SP$,40);:24:MZ%(1)1:(SP$,39);:MZ%0:MD%0:MP%0:MX0:MX0ME%(0)1:MC%(MX,2)0MF$(MD%)"/*"MP$MF$(MD%):MD%MD%1:1140 VMC%(MX,2)1MV$(MZ%)"/*"MP$MV$(MZ%):MZ%MZ%1:1140 `MF$(MP%)"/*":1200# tMC%(MCbMR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%0:AL%0:PN%0:RT%0:AD%787::1022:1:(SP$,39):22:1:22:40:TZ$:4 G$(7):38000:63999:MV%0:M$(50),MZ%(1):MZ%(0)40:MZ%(1)0:MV%0MZ%(0)80:MZ%(1)20 $2                      16:AS$"******************************":DH$"----------------":DH$DH$DH$:DH$DH$DH$:DH$DH$DH$:DH$DH$(DH$,127):DD$"DATA":PD$"PROGRAM-#1":2010:V%(5)11660:2790:40:mU%(24),T%(24),V%(14),F%(24),E%(24),B%(24),R$(1),L%(P%(Y,0)):P%(Y,2)U%U%P%(Y,2)bX$(Z$,S%(P%(Y,0)),U%):X(X$)11:(X$,X,1)" "1810n:1850P$P$(X$,X)" ":1850&P$""1750031:51750:YDP600:YV%(1)V%(0)1:P$" ":31:l:PL%(800)"RETURN";::" WHEN READY ";:5780)w/|?W%0W%30J180:hV%(11)1V%(12)0ī10000s230:30000:EJ%01101720:1680:V%(1)0:X%P%(0,1):Y029:X%P%(Y,1)X%P%(Y,1):1830P%(Y,1)01860#U%0P$(DH$,W%):31:15479LN%LN%1:P%(A,1)LN%1520C 1410X BK%1C%0İ710^i50000x"Q%01650,Z$"":X1RL%:Z$Z$"0":X:B$"":Q%(1)1:Q%(0)0Q%(0)1T1090:Q%(0)11650hC%1:1320#rV%(3)1Ģ24:1:"PRESS ";::(X$)4X$("***",4(X$))X$'1440;P%(A,5)01510\(B(C%,A)).00001B(C%,A)0X$(B(C%,A)):U%P%(A,2):TL%1:E%P%(A,4):5070:TL%0:TT%1X$(AS$,(X$)):FT%1TT%0P$P$(SP$,P%(A,3)(P$)1)X$A31:P%(A,1)01180(B(1,A)B(1,A)B(0,A):B(0,A)0H:R%(1)R%(1)R%(0):R%(0)0NgQ%(0)0B$"":1240B$(Z$,Q%(0),Q%(1))R%(0)R%(0)1:(<P$(DH$,W%):31:LN%1:A029:P%(A,1)LN%1520zP%(A,0)11410|X$(R%(C%)):P%(X,1)09909P$" "P$P$(DH$,P%(X,2)):980iP$P$(SP$,P%(X,3)(P$)1)(DH$,P%(X,2))oy31:V%(1)V%(1)1:BQQ%(2)0Q%(2)1:1210VQ%(0)01240`B$(Z$,Q%(0),Q%(1))1240jC%0:1320:A029:P%(A,5)X,2)NA$(SP$,P%(X,2)(NA$))NA$FP%(X,3)(P$)1P$P$NA$:925kP$P$(SP$,P%(X,3)(P$)1)NA$q{31:P%(X,1)0940LN%LN%1:P%(X,1)LN%930910P$" ":ML%1V%(14)1P$(DH$,W%):990X029:P%(X,6)0980(SP$,1,W%(P$)8)PG$:31:PG$(SP$,8):GfP$" ":31:V%(14)1940ozP$" ":LN%1:X029:P%(X,6)0925P%(X,1)LN%930P%(X,0)1NA$"REC#":V%(9)1:914NA$N$(P%(X,0)):(NA$)P%(X,2)NA$(NA$,P%(X,2))"P%(X,4)99(NA$)P%(V%(3)1ė:790( PT$"Y"ĺ(12):790H AV%(1)V%(0):P$" ":31:Z A:W%8W%8i W%8W%8 V%(2)V%(2)1:V%(1)0:X$(V%(2)):(X$)3X$(SP$,3(X$))X$**PG$"PAGE "X$:X0TI%1:X%(W%8)2(TI$(X))2:P$(SP$,1,X%)TI$(X):P$P$LN%1:P%(Y,1)LN%540! ,504' Xk bV%(3)1Ģ24:"PRESS ";::"RETURN";::" WHEN READY ";:5780:q lw  V%(2)0V%(3)0790 V%(3)1V%(2)0V%(1)0 V%(3)1HS%1Ģ24:"PRESS ";::"RETURN";::" WHEN READY ";:5780 HS%1:06 U%L%(P%(Y,0)):P%(Y,2)U%P%(Y,4)99U%P%(Y,2){ X$(Z$,S%(P%(Y,0)),U%):P%(Y,4)99E%P%(Y,4):U%P%(Y,2):5070 (P$)1P%(Y,3)2P$P$X$:530 P$P$(SP$,P%(Y,3)(P$)1)X$ Y 31:P%(Y,1)0555 )ML%1İ31 * +LN% r |+ V%(1)4ML%V%(0)İ710D Q%0Q%(1)0İ1090r P$(Z$,5,1):LN%1:Y029:P%(Y,6)0530 P%(Y,1)LN%540 P%(Y,0)1512 Z03:(Z$,Z1,1)"0"509 Z Z0X$(Z$,4):520 X$(SP$,Z)(Z$,Z1,4Z):52V%(1)1:P$"": (! 2180:, F230:< PEJ%0110G Z380:Q d70:] n1560:l xD$"CLOSE"} 9000:32000 :GT%0:4130: ER%0140 6660: 5610:EJ%1370 V%(4)1280 (Z$,5,1)"*"240 \,MR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%1:AL%0:PN%0:RT%0:63999:MV%0:SP$" ":SP$SP$SP$SP$SP$:SC$"READING FILES":31000:1920 P$""P$" "!P$:V%(3)0LF$"Y"ĺ(10) #V%(1)                       TY$"A":(I$(Y),1)"*"TY$"N";(I$(Y),1)"!"TY$"P"eMD$(X)MD$(X)NA$(Y)X$TY$:NA$(Y)""uZ:X:5500MD$(X)MD$(X)(SP$,18)"A":5340|XbIN$:IN$(13)7010lA$:22:1:G$;ER$" ";:7000: *CH%(SP$,10(F1$)).zMN$""MN$"AUTOMATIC "V{(MN$)10MN$MN$(SP$,10(MN$))~MD$(0)F1$MN$:MD$(1)MD$(0):MD$(2)MD$(0):MD$(3)MD$(0):BY%0:X03:Z05:YZ6X:NA$(Y)""BY%1BY%1:5400X$(L%(Y)):(X$)3X$("00",3(X$))X$R:TI$"FILE DEFINITION":SC$"READING":1750:D$"READ "F$:PL%,SL%,DR%,PR%,LF$,PI$,PT$,FL$:FL$""Ĺ970,0:5230gMN$,IX$,IX%:X023:NA$(X),I$(X):NA$(X)""5230kS%(X),L%(X):nD$"CLOSE "F$:5240:41000:xyF1$FL$:(F1$)10F1$F1$P1$"PROGRAM-#1":P2$"PROGRAM-#2":A$(1):D$(4):G$(7):MX%(0)40:MX%(1)0:MV%0MX%(0)80:MX%(1)20 SP$" ":SP$SP$SP$:SP$SP$SP$:SP$SP$SP$:F$"VISIFILE.11":DK$DD$:L%0:RW$"R":S%SL%:D%DR%:40000:DS%230000p1MV$(X1)"DONE****":MV$(X2)"":ME%(0)X2:7PL%(43626):SL%(787):DR%(788):NA$(23),I$(23),S%(23),L%(23):MD$(3):MF$(59):MV$(59):MC%(59,2):ME%(7):MD%(2,2),MF%(2):MX%(1)hVF$(59):X$(3),Z$(3):W%(1):W$(3):MS$(0,4):DD$"DATA":EL";:19:"PAGE FORWARD";:32:"PAGE BACK";:"";:10:"";:21:"";:32:"";::uX049:X1YX:M$(X)M1$(X1):M$(X)""4160@M$(X1)"":hrMV$(0)"CREATE**":X043:MV$(X1)VF$(X):MV$(X1)""ĂX%)"-"NA$(X):MC%(X%,1)Y%:MC%(X%,2)0:MC%(X%,0)X%YY%5:X%X%1]iX:X%12Y%24:YY%12ulX%12Y%24:YY%12nMC%(X%,1)Y%:MC%(X%,2)0:MC%(X%,0)X%YY%5:MF$(X%)"REC#=RECORD#":ME%(0)X%1:MF$(X%1)"/*": o& 23:3::"DONE";:11:"CANCSC$""X8$SC$"..."j:2:X8$;(SP$,40(X8$))::3:(SP$,40):3:FL$:IX$""Ģ3:25:"INDEX=";IX$y:SC$"":XZCH%65:Y%1:ME%(1)1:YY%0:X%0:X023:X%12Y%24:YY%12`NA$(X)""1900b(I$(X),1)"*"1897BeMF$(X%)(CH%Ⱥ"";:32:"";::-aQ1%0:Q2%2:MX0ME%(0)1:MX16Q1%17:Q2%16zMX33Q1%34:Q2%30MC%(MX,2)1:MC%(MX,0)5Q1%MX:MC%(MX,1)Q2%:MX:ME%(7)99:1::(SP$,40):TI$""Ģ1:21(TI$)2:TI$X8$"":MC%(ME%(1)1,2)1MQ$(MV$(ME%(1)1),1)< @MQ$M$1580K JMP$:1390w ^ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1 h1390 |ME%(1)ME%(1)1:ME%(1)0ME%(1)ME%(0) 1390'23:3::"MOVE";:19:"JUMP";:33:"SELECT":24::"";:14:(M$)32ĖMH%:MP$;/ (M$)21(M$)321630A (M$)81660W (M$)13ĺMP$;:~ (M$)42ĭ(M$)65(M$)901460 "ME%ME%(1) ,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1 6ME%(1)ME%1460 ;MC%(ME%(1)1,2)0MQ$(MF$(ME%(1)1),1)* +RN%RN%1H+D$..210?#1::"WRITING INTERMEDIATE RECORD # OF ";MX$:CU%30H#M%1N$T$b$ STD MSG$::" VISIFILE - VERSION 1.0 ";:SP$:2:15:"PLEASE WAIT":4:21((SC$)2):SC$::* GET INPUT RCD+RN%MX%EOF%1:EN%1:11907160Y%39>DK$PD$:D%1:S%PL%:RT%1:40910:7110D'#J(#P)#Z2#9400<#4:8::"READING RECORD # OF ";MX$:CU%24:F#M%1P#####9400:4#U%19200#9::"WRITING INDEX # OF ";MX$:CU%24#9bD$"WRITE "OUT$",R0?dX$(RZ%1):X$("000",1,4(X$))X$OlX$:# RCDS^vU%17050wX%(0): RCD LENGTHD$"CLOSE"1013U%2PN%31:SC$"LOADING MAIN MENU"U%1PN%6:SC$"LOADING MERGE FUNCTION"9400Y%36:RT%":RW$"R":40000:D$"CLOSE "F$:DS%2RT%1:40900:6120: INSURE NOT DATA DISKW7]8c9oBA1Y%DM%0İ9100F4:CU%::RZ%:L12000:PUT RCDVZ$(A)""`jV%V%1tX(0)~4000:READ MORE RCDSWXYo pquM%0,zU%16100F$"VISIFILE.12":DK$DD$:RW$"R":S%SL%:D%DR%:40000:DS%2RT%1:40900:6020D$"CLOSE "F$6200DK$WD$:RW$"L":S%SL%:D%1:40000:INSURE NOT PROG. DISKQF$"VISIFILE.1490004:CU%::RN%:.11000:GET RCD?EOF%14120LZ$(A)Z$XY%Y%1_AyRN%MX%EOF%1:41205000EN%1ghrY%0ī7000 SORT RECORDS:12:16::"** SORTING **":S%S:63999NDEX" F$OUT$:L%51 DK$DD$:RW$"W":400007=CbY%X%(4)Y%0:EN%1:4200kY%0{EN%14200F$"VISIFILE.14":DK$DD$:RW$"R":S%SL%:D%DR%:40000:D$"CLOSE "F$:DS%2RT%1:40900:4040M%0A1X%(4)M%0DEX NAME "/*"9( S1ĺ6:T%(0,1):1:T%(0,3):2660F2 A0S1Q< B03^F T%(A,B)eP BlZ A~d D$"CLOSE "F$    OUT$"VISIFILE.16" D$"OPEN "OUT$",L"X%(0) 4000    OUT$IX$"."FL$"."N1$".IDK$WD$:RW$"R":S%SL%:D%1:40000:D$"CLOSE "F$:DS%2RT%1:40910:2502h F$"VISIFILE.15":RW$"W"s 40000} 9400 D$"WRITE "F$ U%: # STRINGS S: # KEYS X%(4): # RCDS/STRING X%(0): RCD LEN IX$"."FL$"."N1$:IN(0) A%(SP23)(X%(0)3)1 MX%A%A%MX%> B%X%(0)J Z$(A%)W X%(4)A%b A%MX%r U%A%X%(4) U%X%(4)A%U%U%1 _ ` a j L%RL%:RW$"G":40000 t U%13000: ONLY 1 STRING K F$"VISIFILE.14":)1):1096   > F$FL$".DATA":RW$"G":40000Z 4 READ # RCDS & RCD LENk HD$"READ "F$x RMX%,RL% TD$ VMX%039120 \X%(0)RL%:S1X%(0)T%(0,1)7 fMX$(MX%):(MX$)3MX$MX$(" ",3(MX$))    SP40000:DS%2RT%1:40900:10100 D$"READ "F$C FL$,IX$,N1$,SN 783,S[ $X0S1 .T%(X,0),T%(X,1),T%(X,2),T%(X,3) 8T%(X,2)2T%(X,2)0 BX DD$"CLOSE "F$ F(IX$,1)" "IX$(IX$,(IX$)1):1094 H(N1$,1)" "N1$(N1$,(N1$ PL%(800)16, SL%(AD%):DR%(AD%1)W PD$"PROGRAM-#1":DD$"DATA":WD$"WORK"t D$(4):AA$(1):G$(7) LM$"LOADING MAIN PROGRAM" Y%9999:V%1:RN%1:RZ%1    F$"VISIFILE.12":DK$DD$:RW$"R" S%SL%:D%DR%:L%0:RY%0:S%0:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%0:AL%0:PN%0:RT%0r ** V I S I F I L E . 5 **}38000 SP$" "SP$SP$SP$:SP$SP$SP$FSC$"READING FILES":9400denT%(10,3),X%(5),W%(5)xAD%787                0:Ƙ39150%ИDR%2ĺD$"CLOSE"0ژ391609790J216,0:8060P@kTDS%0:RT%0:L%0L%1|VAA$:40200`RW$"G"RW$"R":40638cOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"40900:RW$"L"40998AOP$"C" 67906216,0:8060 p3q216,0:390009Ӕ?XQ]790:216,0:dD$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100v14:"DISK ERROR=";(222)::14:14:"PRESS ";::"RETURN";::9503)9510+%AA$:"/(Z$(A),4)6&/RZ%RZ%1:D$:<2M2DR%213120`13DK$DD$1312063DK$DD$:S%SL%:D%1:RT%1:40910@313200E3D$"CLOSE":D$"DELETE "FL$",D"DR%:132103790338000:806066140506D$"CLOSE":14060"READING RECORD # OF ";H4%::CU%24:M%1:4#t#4:868:8::"WRITING INDEX # OF ";H4%:CU%23:M%1::z$$::" VISIFILE - VERSION 1.0 ":2:SP$:2:15:"PLEASE WAIT":4:21((SC$)2):SC$::%&%IN$:IN$(11DK$WD$:S%SL%:D%1:RT%1:40910.l8052nnD$"DELETE VISIFILE.15,D1":D$"DELETE VISIFILE.16,D1":8054wt790v216,0|SC$LM$:9400:PN%31:MR%36:RT%08100MR%39DK$PD$:RT%1:S%PL%:D%1:40910:8060(#.<#4:868:8::07999lOP%1snF$"VISIFILE.14":DK$DD$:RW$"R":S%SL%:D%DR%:40000:D$"CLOSE "F$:DS%2RT%1:40910:7022vF$FL$:RW$"W":L%5:40000?@J5000:TD$"WRITE "FL$",R0"^X$(X%):X$("000",1,4(X$))X$:X$#hD$"CLOSE":DR%DS%2RT%1:40900:57152USC$" ":9400:9100:XA0P%1:4:CU%::X%1::D$"WRITE "FL$",R"X%1:(Y$(A),4):X%X%1:Y$(A)"":D$:AX(0):M%0pzE%((C%1)R%)DD%:E%H4%6030E%C%R%6040E%0XbOP%VISIFILE.15":DK$WD$:RW$"R":S%SL%:D%DR%:40000:D$"CLOSE "F$:DS%2RT%1:40910:4462rpDR%1SC$" ":9400~v3200:&P%05800D7000:NOP%1OP%2:5717SF$"VISIFILE.14":RW$"R":DK$DD$:S%SL%:D%DR%:40000:D$"CLOSE "F$:%(16384):QQ%155Ĺ16268,0:13000I^D$"READ VISIFILE.16,R"E%:4260orZ$(B):D$:Q%(B)Q%(B)1:38000:y4400790:38000:(222)539000Z$(B)""0:Z$""8000:DY$(P%)Z$:P%P%1:P%V%3200b5000:P%0YnDR%1F$"((Z$(F),H%,I%))4080F ((Z$(E%),H%,I%))((Z$(F),H%,I%))4100S G:4130b J%14130l 4120{ J%04130 4120 BF "A ,Z$Z$(B):Z$""4400 JC%B:DD%Q%(B):6000:E%04300 VM%0İ9000$YN%N%1:4:CU%::N%::QQ ABZ%1:E%B:E%Z%41409 FA1Z%:Z$(F)""3330K F:BE%:4140  G0K%1:H%T%(G,0):I%T%(G,1):J%T%(G,2):T%(G,3)14040: (Z$(E%),H%,I%)(Z$(F),H%,I%)4080 (Z$(E%),H%,I%)(Z$(F),H%,I%)4100 4060 ((Z$(E%),H%,I%))):Y$(V%):P%0:b F$"VISIFILE.16":DK$WD$:RW$"G":S%SL%:D%1:L%U%:40000:D$"READ "F$:H4%:t 9400:9000: A1Z%:4:CU%::A::C%A:DD%1:6000:D$"READ "F$",R"E%:Z$(A):D$:Q%(A)2:A B1Z%:Z$(B)""3250 B:B1:4140 FILE.15":DK$WD$:RW$"W":S%SL%:D%1:L%0:40000:9400:O D$"READ "F$:Z%:Y .K%:c 8R%:m BU%:x LFL$: VIN$: [FL$FL$".INDEX":Q%(Z%):N%Z%:B0K%1:T%(B,0),T%(B,1),T%(B,2),T%(B,3):B:D$"CLOSE "F$ SP(0):V%(SP23)(U%3SL%(AD%):DR%(AD%1):PD$"PROGRAM-#1":DD$"DATA":WD$"WORK":D$(4):AA$(1):G$(7):LM$"LOADING MAIN PROGRAM":Y%9999:V%1:RN%1:RZ%1 DK$WD$:RW$"L":S%SL%:D%1:40000: F$"VISIFILE.14":RW$"G":40000:DS%2RT%1:40900:10108 F$"VISIuTMR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%1:AL%0:PN%0:RT%0s** V I S I F I L E . 6 **38000:63999:SP$" ":SP$SP$SP$:SC$"INITIALIZATION":9400: nT%(10,3),X%(5),W%(5):AD%787:PL%(800)16:     L%:RW$"R":40000:D$"READ "F$:RN$:TY%:D$"CLOSE "F$:F$"VISIFILE.11":RW$"G":40000:DS%1X$"VISIFILE":Y$"MAIN":22170D$;"READ "F$:X17:IN$:X:FL$,MN$,IX$,PO%:F1$FL$:(F1$)10F1$F1$(SP$,10(F1$))X023:NA$(X),I$(X):NA$( V3800t/~(I$(V%(X,0)),1)"*"3760N(Z$(N),S%,L3%)S$(X,0)ıX3800|((Z$(N),S%,L%))(S$(X,0))ıSE%1:X049:X3YX:M$(X)M1$(X3):M$(X)""4160X@*F$"VISIFILE.12":DK$DD$:D%DR%:S%S,0))ı 3800 5 (I$(V%(X,0)),1)"*"3560U (Z$(N),S%,L3%)S$(X,0)ı_ 3800 ((Z$(N),S%,L%))(S$(X,0))ı 3800(I$(V%(X,0)),1)"*"3660$(Z$(N),S%,L3%)S$(X,0)ı.3800L((Z$(N),S%,L%))(S$(X,0))ı%))(S$(X,1))3800{  J Y0L%1:(Z$(N),S%Y,L3%)S$(X,0)ıW Y:3800]  YOL%1:(Z$(N),S%Y,L3%)S$(X,0)3800 Y:H R (I$(V%(X,0)),1)"*"3460\ (Z$(N),S%,L3%)S$(X,0)ıf 3800 ((Z$(N),S%,L%))(S$(X,3200,3300,3400,3500,3600,3700:SE%1ı0 X:6 U& (I$(V%(X,0)),1)"*"3160e0 L3%031405 (Z$(N),S%,L3%)S$(X,0)3800D (Z$(N),S%,L4%)S$(X,1)3800N X b L3%03190g ((Z$(N),S%,L%))(S$(X,0))3800v ((Z$(N),S%,L9);:23:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL":MZ%(1)1:"";:HZ%(1)10:"";::l  SE%0:X0Y%:S%S%(V%(X,0)):L%L%(V%(X,0)):L1%(S$(X,0)):L2%(S$(X,1)):L3%L%:L1%L%L3%L1% L4%L%:L2%L%L4%L2%' V%(X,1)13100SION 1.0 ";:(SP$,40):2:15:"PLEASE WAIT"::21((SC$)2):SC$::T::(SP$,MX%(0)):2:(SP$,MX%(0))::1:TI$"VISIFILE - "TI$::(MX%(0)(TI$))21MX%(1):TI$:1MX%(1):FL$::f 23:1:(SP$,39):24:MZ%(1)1:(SP$,3%(1)ME%(0)ME%(1)1h1390J|ME%(1)ME%(1)1:ME%(1)0ME%(1)ME%(0)T139023:1:868:24:1:868:23:3::"MOVE";:19:"JUMP";:33:"SELECT":24::"";:14:"";:32:"";::N::" VISIFILE - VER42ĭ(M$)65(M$)901460*"ME%ME%(1)V,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1k6ME%(1)ME%1460;MC%(ME%(1)1,2)0MQ$(MF$(ME%(1)1),1)<MC%(ME%(1)1,2)1MQ$(MV$(ME%(1)1),1)@MQ$M$1580JMP$:1390^ME%(1)ME%(1)1:MEMV$(ME%(1)1)G MC%(ME%(1)1,0):MH%::MP$;::MC%(ME%(1)1,0):MH%M n X9%(16384):X9%1271462 16368,0:M$(X9%128):(M$)8(M$)21(M$)32ĖMH%:MP$; (M$)21(M$)321630 (M$)81660 (M$)13ĺMP$;:(M$)%(1)ME%(3) Z [1 \ML$MS$:MM$MS$1379F ]MM$MS$Į:1375_ ^MM$:MM$"/*"1374n _MM$:1372t cz d iME%(1)ME%(0)ME%(1)1 nMC%(ME%(1)1,0):MH%MC%(ME%(1)1,1):MC%(ME%(1)1,2)0MP$MF$(ME%(1)1) MC%(ME%(1)1,2)1MP$140 `MF$(MP%)"/*":1200I tMC%(MX,0):MC%(MX,1):MP$;:MP%MP%1:MXO U g ML$MS$1370 ME%(3)ME%(1):ME%(1)1:1371: ME%(0):MX0ME%(0)1:MC%(MX,2),MC%(MX,0),MC%(MX,1)::MX059:MF$(MX):MF$(MX)"/*"ćMM$:1350 <MX FME0MX%(0)80:MX%(1)20] S%(25)1:L%(25)4:I$(25)"*":SC$"READING FILES":1700:50000:4500c . 8MZ%0:MD%0:MP%0:MX0:MX0ME%(0)1:MC%(MX,2)0MF$(MD%)"/*"MP$MF$(MD%):MD%MD%1:1140 VMC%(MX,2)1MV$(MZ%)"/*"MP$MV$(MZ%):MZ%MZ%1:1SP$:SP$SP$(SP$,127) BL$(SP$,22):P1$"PROGRAM-#1":DD$"DATA":P2$"PROGRAM-#2":NA$(24),I$(25),S%(25),L%(25):MF$(6),MV$(26):MC%(26,2):ME%(6):MD%(2,2),MF%(2):MX%(1): V%(25,1),V1%(5):W$(6):S$(25,1): Z1$(4):MX%(0)40:MX%(1)0:MV%ϋ?TMR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":MW%1:AL%0:PN%0:RT%0Z38000:M$(50):63999:MV%0:PL%(800)16 FSL%(787):DR%(788):PG%(789):A$(1):D$(4):G$(7):SP$" ":SP$SP$SP$:SP$SP$                 FaZ0ME%(1)124934) IaME%(4)ME%(1):U NaMS$"L":1250:ME%(0)Z:ME%(1)1:1380: baME%(4)1IX$MV$(ME%(1)1):PO%PO%(ME%(1)1):OP%1:1050 caME%(4)324934 daME%(4)2DF$MV$(ME%(1)1):X$"INDEX":37000:DF$IX$IX$"":OP%1:950,13 !eaME%""ĭ(IX$,1)" "IX$(IX$,(IX$)1):24867f$aOP%1:35000:SC$"LOADING SORT FUNCTION":X$"5":32000l0a1aZ1N%S%(X1):2aST%(Z1,0)S%(X1):ST%(Z1,1)L%(X1):ST%(Z1,2)SR%(X,1):ST%(Z1,3)0:(I$(X1),1)"*"ST%(Z1,3)14a24840Da ST%24828 aPO%ST%(0,0):aF$"VISIFILE.12":DK$DD$:RW$"W":S%SL%:D%DR%:40000:D$"WRITE "F$:FL$:IX$:N%:ST%1:X0ST%2:ST%(X,0):aST%(X,1):aST%(X,2):aST%(X,3):aX:D$"CLOSE "F$:X110:949X,((IX$,X,1)):+#aIX$D$"A":ME%(1)2AD$"D"N`ME%(5):ME%(6)4::AD$::SR%(ME%(4),1)ME%(1):o`1980:ME%(1)ME%(4)1:24520u|``ME%(1)1:MS$"N":1250:1070:1380:ME%(1)2ME%(1)1:24500`ME%(1)324000`Z0`ZZ1:X124:SR%(X,0)Z24880 aX:Z_ME%(5)MC%(ME%(1)1,0):ME%(6)MC%(ME%(1)1,1):ME%(6)3:ME%(5):SN$:ME%(4)ME%(1):1900:ME%(0)2:MC%(0,0)18:MC%(0,1)8:MC%(0,2)0:MC%(1,0)18:MC%(1,1)24:MC%(1,2)0:MF$(0)"ASCENDING":MF$(1)"DESCENDING":ME%(1)1:1070:`1380:18:1:(SP$,40):A_ME%(0)X1_1070:ST%ST%1N_SN%SN%1:SN$(SN%):(SN$)1SN$"0"SN$Z_1690:y_1380:ME%(1)ME%(0)24700_ST%11ME%(1)ME%(0):24540_SR%(ME%(1),0)0SR%(ME%(1),0)ST%:24546_ME%(1)ME%(1)1:SR%(ME%(1),0)024543_24540"."ĺG$;:24041/]:Z$(SP$,10)ĺG$;:24041Q]IX$Z$:OP%1::SN%0:ME%(1)1W__TI$"SELECTING SORT FIELDS":1710:SN%0:ST%0:X124:SR%(X,0)0:X:MS$"L":1250:X024:NA$(X)""MV$(X)"DONE****":MV$(X1)"/*":24510_MV$(X)NA$(X):X )"RETURN":MF$(1)"CREATE NEW INDEX":ME%(0)2:ME%(1)2`]1070:1690:1380:Z0ME%(1)224040u]ME%(1)324900]Y0:4000:1800:Z$(SP$,10):T$""]9000:MC%2MC%6ĺG$;:24041]ME%(1)1:MC%2424020]X110:(Z$,X,1)","(Z$,X,1)ZMV$(Z)X$:ZZ1";:HZ%(1)10:"";::+:D10:"* USE ARROWS, SPACE OR FIRST LETTER":" TO MOVE CURSOR.":13:"* PRESS RETURN TO SELECT MENU ITEM.":FT%1:lvX01:W02:MD%(X,W)MC%(X,W):W:X:MF%(0)ME%(0):MF%(1)ME%(1):MF%(2)ME%(2):$,MX%(0)):1:TI$"VISIFILE - "TI$::(MX%(0)(TI$))21MX%(1):TI$:1MX%(1):FL$:IX$""Ė25:2:"INDEX=";IX$z:% 20:1:(SP$,39):23:1:(SP$,39):24:MZ%(1)1:(SP$,39);:23:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL":MZ%(1)1:"<23:3::"MOVE";:19:"JUMP";:33:"SELECT":24::"";:14:"";:32:"";::::" VISIFILE - VERSION 1.0 ";:(SP$,40):2:15:"PLEASE WAIT"::21((SC$)2):SC$::r::(SP$,MX%(0)):2:(SP(ME%(1)1,2)0MQ$(MF$(ME%(1)1),1)S<MC%(ME%(1)1,2)1MQ$(MV$(ME%(1)1),1)e@MQ$M$1580tJMP$:1390^ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1h1390|ME%(1)ME%(1)1:ME%(1)0ME%(1)ME%(0)1390j23:1:868:24:1:868:16368,0:M$(X9%128):(M$)8(M$)21(M$)32ĖMH%:MP$;X(M$)21(M$)321630j(M$)81660(M$)13ĺMP$;:(M$)42ĭ(M$)65(M$)901462"ME%ME%(1),ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)16ME%(1)ME%1462%;MC%1)1,1):MC%(ME%(1)1,2)0MP$MF$(ME%(1)1)U MC%(ME%(1)1,2)1MP$MV$(ME%(1)1) MC%(ME%(1)1,0):MH%::MP$:ME%(7)99Ģ1:MS$(ME%(7),ME%(1)1)(SP$,40(MS$(ME%(7),ME%(1)1))) :MC%(ME%(1)1,0):MH% X9%(16384):X9%1271462<C%(MX,1):9 MX059:MF$(MX):MF$(MX)"/*"ćMM$:1350A <MXS FME%(1)ME%(3)Y Z_ [y \ML$MS$:MM$MS$1379 ]MM$MS$Į:1375 ^MM$:MM$"/*"1374 _MM$:1372 c d iME%(1)ME%(0)ME%(1)1, nMC%(ME%(1)1,0):MH%MC%(ME%(MC%(MX,2)1MV$(MZ%)"/*"MP$MV$(MZ%):MZ%MZ%1:1140Q `MF$(MP%)"/*":1200 tMC%(MX,0):MC%(MX,1):MP$;:M$(MP%)MP$:MP%MP%1:MX   ML$MS$1370 ME%(3)ME%(1):ME%(1)1:1371:ME%(0):ME%(7):MX0ME%(0)1:MC%(MX,2),MC%(MX,0),M0:MV%0MX%(0)80:MX%(1)20O SC$"READING FILES":1700:38000:50000:5000 X1(IX$):949X,((IX$,X,1))::XX10(IX$):949X,32:: . 8MZ%0:MD%0:MP%0:MX0:MX0ME%(0)1:MC%(MX,2)0MF$(MD%)"/*"MP$MF$(MD%):MD%MD%1:11409 VAM-#1":P2$"PROGRAM-#2":DD$"DATA":MS$(4,8):NA$(24),I$(24),S%(24),L%(24)z MF$(25),MV$(59),PP%(29),PO%(59):IX$(24): MC%(59,2): ME%(7): MD%(2,2),MF%(2):P%(29,6): MX%(1): SR%(24,1),ST%(9,3),TI$(2),V%(14):MX%(0)40:MX%(1)O"qMR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":MW%1:AL%0:PN%0:RT%0:M$(50):63999:PL%(800)16J FSL%(787):DR%(788):A$(1):D$(4):G$(7):SP$" ":SP$SP$SP$:SP$SP$SP$:SP$SP$(SP$,127):P1$"PROGR           ,2),MC%(MX,0),MC%(MX,1):H MX059:MF$(MX):MF$(MX)"/*"ćMM$:1350P <MXb FME%(1)ME%(3)h Zn [ \ML$MS$:MM$MS$1379 ]MM$MS$Į:1375 ^MM$:MM$"/*"1374 _MM$:1372 c d iME%(1)ME%(0)ME%(1)1; nMC%(ME%(1)1,MD%1:1140H VMC%(MX,2)1MV$(MZ%)"/*"MP$MV$(MZ%):MZ%MZ%1:1140` `MF$(MP%)"/*":1200 tMC%(MX,0):MC%(MX,1):MP$;:M$(MP%)MP$:MP%MP%1:MX   ML$MS$1370 ME%(3)ME%(1):ME%(1)1:1371:ME%(0):ME%(7):MX0ME%(0)1:MC%(MX MX%(1):w ST%(9,3),TI$(2),V%(14):MX%(0)40:MX%(1)0:38000:TI$"PRINT A REPORT":(789)2TI$"PRINT LABELS" 1750:SC$"READING":1700:50000:5556 . 8MZ%0:MD%0:MP%0:MX0:MX0ME%(0)1:MC%(MX,2)0MF$(MD%)"/*"MP$MF$(MD%):MD% ":SP$SP$SP$:SP$SP$SP$:SP$SP$(SP$,127) P1$"PROGRAM-#1":P2$"PROGRAM-#2":DD$"DATA":MS$(4,8):NA$(24),I$(24),S%(24),L%(24):MF$(25),MV$(59),PP%(29),PO%(59):MC%(59,2): ME%(7): MD%(2,2),MF%(2):P%(29,6):DaMR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":MW%1:AL%0:PN%0:RT%0:63999::10MR%887,234:MR%888,234** V I S I F I L E . 20 **M$(31) SW%(4):K <PL%(800)16:SL%(787):DR%(788):A$(1):D$(4):G$(7):SP$"                      !!! ! ! ! ! !!!!!!!!!(122)33:'TLii=ii)$M BEH)4iQ`,;Lu" ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:36000::RT%040000S)&38000:Y)Pò)ZÆM1$(1),N$(26):Z1$(0):Z2$Z1$Z1$:Z3$Z2$Z1$:X126:N$(X)(X)::M1$(0)N$(21)N$(5)N$(26)N$(10)N$(1)" ENTER NEW INDEX NAME20":M1$(1)"": *(121)256S%2:40998&(OP$"R"RW$"W"40660F(OP$"V"(DK$,1)"P"40900`(OP$"C"DS%0:40998(OP$"R":D$;"RENAME ";F$;",";F$:RW$"W"DS%1(ԞD$;"OPEN ";F$;",L";L%:40998(ğF)Ο:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOTN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000:40000X'&(222)540270l'0(222)640600'5(222)840900':(222)940270'D(222)1040270'N'X39012''OP$"V"RW$"L"(DK$,1)"P"40998 (OP$"R"RW$"R"D(DK$,1)"P"409001&|DR$(D%)"P":RW$"L"40998~&OP$"C":D$;"VERIFY CONFIGURATION":D$;"OPEN CONFIGURATION":DS%1:40998&&790:D$:(DK$,1)"B"(222)8DS%9:40998D'(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"I222)5%::14:14:"PRESS ";::"RETURN";::36000k%ИD$"CLOSE":X$"31":SC$"LOADING MAIN MENU":32000q%@%TDS%0:RT%0:L%0L%1%VA$:40200%_RW$"C"40075%`RW$"G"RW$"R":40638&cOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:ELETE"X$",S"SL%",D"DR%:38000:X0Y:X$IX$(X)IX$(X)"*"B$:T$쐌790:38000:Z$pf$z39000l$Ӕr$X$]790:216,0:$dD$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100%v14:"DISK ERROR=";(E VISIFILE.11":#1#IN$:IN$(13)36010;#A$:A#X#X$"INDEX"37010#X$DF$"."FL$".":X0Y1:(IX$(X),(X$))X$37006#X:#(IX$(X),5)"INDEX"ı#X$IX$(X):37011#X$DF$"."FL$"."X$#37100:$A$:D$"D40000`"ֈD$"WRITE "F$:PL%:SL%:DR%:PR%:LF$:PI$:PT$:(34)FL$:(34)MN$:(34)IX$:PO%"X023:NA$(X)""ĺ"":" ":X24:35080"(I$(X))5I$(X)I$(X)(SP$,5(I$(X)))"(34)NA$(X):I$(X):S%(X):L%(X)#X:(34)U$:D$;"CLOS(4)1240007!fa35000:X$"31":SC$"LOADING MAIN MENU"=!}o!}1700:DK$P1$:PN%(X$):MR%36:RT%032010{!}MR%39! }D%1:S%PL%:RT%1:40910:32001!!ˆOP%0ı"̈SC$"WRITING":1700:DK$DD$:F$"VISIFILE.11":D%DR%:S%SL%:RW$"W":L%1:1750:5:12MZ%(1):"REPORT DEFINITIONS":1070:1690j1380:MC%(ME%(1)1,0):MC%(ME%(1)1,1)1:"*":ME%(1)ME%(0)128500jME%(1)ME%(0)ME%(1)1:jDF$MV$(ME%(1)1):MS$"Q":1250:ME%(1)1:1070:1380:ME%(1)2ıjME%(1)4X$"REPORT":37LETE":"/*":"Z"xi*i(789)127200>i(789)227600DiJ@j]EjME%(1)1:TY%1~JjCT$".REPORT":44000:2050:LjZ0ME%(4)1:285005TjMV$(Z)"DEFINE REPORT":MV$(Z1)"DONE****":MS$"E":1250:ME%(0)Z2:ME%(4)Z1:TI$"PRINT A REPORT":,7,3,1,8,3,1,9,3,1,10,3,1,11,3,1,12,3,1,13,3,1,14,3,1,15,3,1,16,3: 1,4,26,1,5,26,1,6,26,1,7,26,1,8,26,1,9,26,1,10,26,1,11,26,1,12,26,1,13,26,1,14,26,1,15,26,1,16,26,1,17,26( "/*": "Q",4,3: 0,2,1,0,2,11,0,2,24,0,2,35: "PRINT","RETURN","SELECT","DE1: 0,2,1,0,2,18,0,2,37: "REPORT","LABELS","DONE": "/*": "E",18,99: 1,7,2,1,9,2,1,11,2,1,13,2,1,15,2,1,17,2: 1,7,15,1,9,15,1,11,15,1,13,15,1,15,15,1,17,15: 1,7,28,1,9,28,1,11,28,1,13,28,1,15,28,1,17,28("/*": "F",27,99:1,4,3,1,5,3,1,6,3,1:40000:D$"WRITE "F$:FL$:IX$:PO%:X02:TI$(X)(SP$,79)TI$(X)""uv(34)TI$(X)::X014:V%(X)::PP%1:X%:X0X%1:Y06:P%(X,Y):Y:X:D$"CLOSE "F$:(#2#1:T$""ĺT%)T$F#:MR%9::CP%0:MR%6:MC%0:MR%:' "C",3,(X$))X$9l2:12::"LAST PRINT POSITION USED=";X$::?s22:1::G$;ER$;::" ";:36000:22:1:868:y@EX$".REPORT":V%(5)1X$".LABELS"F(RN$,1)" "RN$(RN$,(RN$)1):8006GJF$RN$"."FL$X$:DK$DD$:RW$"W":S%SL%:D%DR%P%(X%,1)1P%(X%,1)6ER$"LINE MUST RANGE FROM 1 TO 6"LER$""İ7100RXz(Z$,1)"1"(Z$,1)"6"6140X$(PP%(((Z$,1)))):(X$)3X$("00",3(X$))X$Z$(Z$,4)X$(Z$,4)XbX$(PP%1):(X$)3X$("00",3AK/BREAK AND PAGE - 'Y' OR 'N'"JP%(X%,5)999ER$"TOTAL - 'Y' OR 'N'"P%(X%,4)999ER$"DECIMAL PLACES: 0-5 OR 'N' FOR NO EDIT"P%(X%,3)0ER$"REVERSE TABBING NOT ALLOWED"P%(X%,2)1P%(X%,2)232ER$"SIZE MUST RANGE FROM 1 TO 232"91$))=X023:NA$(X),I$(X):NA$(X)""I$(X)" ":5552QS%(X),L%(X):XqX0RL%S%(X1)L%(X1)1yU$D$"CLOSE "F$:43000:5541:27000:X$"31":SC$"LOADING MAIN MENU":1750:32000puER$"":P%(X%,6)999ER$"BRE$(X1):M$(X)""4160X!@'7SW%(2)1ıSW%(2)1:F$"VISIFILE.11":DK$DD$:D%DR%:S%SL%:RW$"R":L%1:40000:2000:D$;"READ "F$:PL%,SL%,DR%,PR%,LF$,PI$,PT$,FL$:FL$""5554MN$,IX$,PO%:F1$FL$:(F1$)10F1$F1$(SP$,10(FP$,39);:23:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL":MZ%(1)1:"";:HZ%(1)10:"";::p806,(49289SL%16DR%):806,(49289SL%16): 806,(49289SL%16DR%):806,(49288SL%16):X049:X1YX:M$(X)M1IX$""Ė25:2:"INDEX=";IX$$:*7X8%0ėm1::(SP$,40):TI$""Ģ1:(40(TI$))21:TI$:2:(SP$,40)::3:(SP$,40):3:FL$;:IX$""Ė25:"INDEX=";:IX$:j 20:1:(SP$,39):23:1:(SP$,39):24:MZ%(1)1:(S:24:1:868:23:3::"MOVE";:19:"JUMP";:33:"SELECT":24::"";:14:"";:32:"";::2:1:(SP$,40):2:SC$;"...":::(SP$,40):2:(SP$,40):1:TI$"VISIFILE - "TI$::(40(TI$))21:TI$:1:FL$:%14624;MC%(ME%(1)1,2)0MQ$(MF$(ME%(1)1),1)b<MC%(ME%(1)1,2)1MQ$(MV$(ME%(1)1),1)t@MQ$M$1580JMP$:1390^ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1h1390|ME%(1)ME%(1)1:ME%(1)0ME%(1)ME%(0)1390y23:1:8681271462K16368,0:M$(X9%128):(M$)8(M$)21(M$)32ĖMH%:MP$;g(M$)21(M$)321630y(M$)81660(M$)13ĺMP$;:(M$)42ĭ(M$)65(M$)901462"ME%ME%(1),ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)16ME%(1)ME0):MH%MC%(ME%(1)1,1):MC%(ME%(1)1,2)0MP$MF$(ME%(1)1)d MC%(ME%(1)1,2)1MP$MV$(ME%(1)1) MC%(ME%(1)1,0):MH%::MP$:ME%(7)99Ģ1:MS$(ME%(7),ME%(1)1)(SP$,40(MS$(ME%(7),ME%(1)1))) :MC%(ME%(1)1,0):MH% X9%(16384):X9%(Z$,252,1)"Y"V%(13)1:28760:,NpER$MG$(5):7100:28530_,Xp(Z$,253,1)"N"V%(14)1:28790z,bp(Z$,253,1)"Y"28790,lpER$"PRINT NAMES - 'Y' OR 'N'":7100:28530,vp>-{pTI$"SELECTING FIELDS FOR REPORT":1710:PP%2:MS%1:X16:PP%(X)2::7000)"N"V%(3)1:286800+oER$MG$(3):7100:28530+pV%(0)((Z$,249,2)):V%(0)6ER$"DEPTH MUST RANGE FROM 6 TO 99":7100:28530+p(Z$,251,1)"N"28730+&p(Z$,251,1)"Y"V%(4)1:28730+0pER$MG$(4):7100:28530+:p(Z$,252,1)"N"28760,Dp15*oX110:(Z$,X,1)","(Z$,X,1)"."ER%1:X11P*o:RN$(SP$,10)ER%1*oER%1ER$"REPORT FORMAT NAME INVALID":7100:28530*oTI$(0)(Z$,11,79):TI$(1)(Z$,90,79):TI$(2)(Z$,169,79):X014:V%(X)0::(Z$,248,1)"Y"28680+o(Z$,248,1":1710:Y2:4000:1800:X$"N":IX$""X$"Y"J)koX1$"N":PR%0X1$"Y"z)loX$X1$"66N"X$"Y":Z$(SP$,247)X$:MD$Z$)ro9000:MC%1328530)|oMC%2MC%6ĺG$;:28530)oMC%24ME%(1)1:27220*oRN$(Z$,10):ER%0:(Z$,1)"A"(Z$,1)"Z"ER%oZ$X$(Z$,3):X%X%1:ME%(1)ME%(1)1:ME%(1)ME%(0)1ME%(1)ME%(0)`(o:CP%0:MR%6:28350|(oER$MG$(6):7100:28290("oX%0ME%(1)1:27610(,o1750:SC$MG$(7):1700:8000:S2S21:S2$(S2)F$:ME%(1)ME%(4):27610(To.)^oTI$"DEFINING A REPORTST RANGE FROM 1 TO 232":7100a'nER$""ER$"":MC%(ME%(1)1,0):MC%(ME%(1)1,1)2:" ":28350'oMC%(ME%(1)1,0):MC%(ME%(1)1,1)2:P%(X%,1):PP%(P%(X%,1))PP%(P%(X%,1))P%(X%,2)2:PP%(P%(X%,1))25728445'oX$(((Z$,2))1):(X$)2X$"0"X$F(nZ$(Z$,2)X$:18008&n9000:MC%2MC%6ĺG$;:28385S&nMC%24ER$" ":28415&nP%(X%,0)ME%(1)1:P%(X%,1)((Z$,1,2)):P%(X%,2)((Z$,3,3)):P%(X%,1)1P%(X%,1)12ER$"LINE MUST RANGE FROM 1 TO 12":7100'nP%(X%,2)1P%(X%,2)232ER$"SIZE MUX2:X129:PP%(X)0::X%0:ME%(1)1:1070:Y29:4000:Z$"01000":MD$Z$:MR%9::CP%0:MR%6%n1690:1380:MC%(ME%(1)1,0):MC%(ME%(1)1,1)2:"*":ME%(1)ME%(0)127600%nME%(1)ME%(0)28450%nX$(L%(ME%(1)1)):(X$)3X$("00",3(X$))X$&1)"N"282900$xn(Z$,20,1)"Y"V%(13)1:28290L$}nER$MG$(5):7100:28070R$n$nTI$"SELECTING FIELDS FOR LABELS":1710:3:13:"FORMAT=";RN$:MS$"F":1250:X023:NA$(X)""28330$nMV$(X)NA$(X):^%nMV$(X)"CANCEL**":MV$(X1)"DONE****":ME%(0)(11)5ER$"NO. OF LABELS MUST RANGE FROM 1 TO 5":7100:28070#dnV%(12)((Z$,16,2)):V%(12)0ER$"OFFSET MUST RANGE FROM 0 TO 99":7100:28070#nnPP%((Z$,18,2)):PP%1PP%50ER$"WIDTH MUST RANGE FROM 1 TO 50":7100:28070 $onPP%PP%1:(Z$,20,"N"V%(3)1:28215/"2nER$MG$(3):7100:28070"7nV%(0)((Z$,12,2)):V%(0)1ER$"DEPTH MUST RANGE FROM 1 TO 99":7100:28070"Fn(Z$,14,1)"N"28250"Kn(Z$,14,1)"Y"V%(4)1:28250"PnER$MG$(4):7100:28070>#ZnV%(11)((Z$,15,1)):V%(11)1V%7620:!mRN$(Z$,10):ER%0:(Z$,1)"A"(Z$,1)"Z"ER%1i!mX110:(Z$,X,1)","(Z$,X,1)"."ER%1!m:RN$(SP$,10)ER%1! nER%1ER$"LABEL FORMAT NAME INVALID":7100:28070!nX014:V%(X)0::V%(5)1:(Z$,11,1)"Y"28215"(n(Z$,11,1)`m% emFL$""E1$MG$(8):ME%(1)1:m jmTI$"DEFINING LABELS":1710:Y20:4000:1800:X$"N":IX$""X$"Y" mX1$"N":PR%0X1$"Y" mZ$(SP$,10)X1$"06N10030"X$:MD$Z$ m9000:MC%1328070 mMC%2MC%6ĺG$;:28070!mMC%24ME%(1)1:20G l1380:MC%(ME%(1)1,0):MC%(MX,1)1:"*":ME%(1)ME%(0)128000:e*lME%(1)ME%(0)ME%(1)1:4lDF$MV$(ME%(1)1):ME%(1)1:MS$"Q":1250:1750:1070:1380:ME%(1)2ıklME%(1)4X$"LABELS":37000:27600plDF$DF$"."FL$".LABELS":27360 ":X$"2"lk32000k,kME%(1)1:TY%2MkCT$".LABELS":44000:2050:fkZ0ME%(4)1:28000kMV$(Z)"DEFINE LABELS":MV$(Z1)"DONE****":MS$"E":1250:ME%(0)Z2:ME%(4)Z1:TI$"PRINT LABELS":1710:5:12MX%(1):"LABEL DEFINITIONS":1070:169000:ME%(1)1:44000:272208jDF$DF$"."FL$".REPORT">jjDK$DD$:F$"VISIFILE.12":D%DR%:S%SL%:RW$"W":L%1:40000:D$"WRITE "F$:DF$:TY%:99:D$"CLOSE "F$:ME%(1)3SC$"LOADING SELECTION FUNCTION":X$"7":27500.kSC$"LOADING PRINT FUNCTION$,2,10)F1$41020EqS2S21:S2$(S2)F$:ME%(1)ME%(4):272104}MR%887,240:MR%888,824}1700:789,2:PN%(X$):MR%36:RT%0320104}MR%390(X%,1):PP%(P%(X%,1))P%(X%,3)P%(X%,2)2:6100::CP%0:MR%6:X16:PP%(X)PP%PP%PP%(X)3p:PP%PP%2:7000:X%X%1:PP%Y%255288953pME%(1)ME%(1)1:ME%(1)ME%(0)2ME%(1)ME%(0)3pZ$(Z$,7)"NNNN":288203pER$MG$(6):7100:287904qX%68(2p(Z$,11,1)"Y"P%(X%,6)2:2886892pP%(X%,6)999C2p60002pER$""ĢMC%(ME%(1)1,0):MC%(ME%(1)1,1)2:" ":288922pMC%(ME%(1)1,0):MC%(ME%(1)1,1)2:P%(X%,6)0ĺ0:X%X%1:ER$"BREAK FIELDS NOT PRINTED - SEE MANUAL":7100:28892[3pP%P%(X%,4)99:P%(X,5)0:28856B1p(Z$,9,1)"N"P%(X%,5)0:28856j1p(Z$,9,1)"Y"P%(X%,5)999:288561pP%(X%,5)1:P%(X%,4)99P%(X%,4)01p(Z$,10,1)"N"P%(X%,6)0:288621p(Z$,10,1)"Y"P%(X%,6)1:288621p288662p(Z$,11,1)"N"288 SIZE MUST BE 4":7100:2886930pZ%((Z$,5,3)):O0pZ%PP%(P%(X%,1))Z%10pP%(X%,3)Z%:(Z$,8,1)"N"P%(X%,4)99:288500p(Z$,8,1)"0"(Z$,8,1)"5"P%(X%,4)((Z$,8,1)):288500pP%(X%,4)999:288511pME%(1)1ĭ(I$(ME%(1)2),1)"*"MC%1MS%1İ6100:MS%0M/pMC%13MS%0:6100:18:21::X$:MR%15:28832j/pMC%2MC%6ĺG$;:28830/pMS%1:MC%24ER$" ":28869/pP%(X%,0)ME%(1)2:/pP%(X%,1)((Z$,1)):/pP%(X%,2)((Z$,2,3)):0pME%(1)1P%(X%,2)4ER$"RECORD#C%(ME%(1)1,0):MC%(ME%(1)1,1)2:"*":ME%(1)ME%(0)1MS%0:27200b.pME%(1)1X$"004":28828{.pME%(1)ME%(0)28950.pX$(L%(ME%(1)2)):(X$)3X$("00",3(X$))X$.pZ$(Z$,1)X$(Z$,(Z$)4):1800.p6100:9000:MC%13PN%028830/p:3:13:"FORMAT=";RN$:MS$"F":1250:MV$(0)"RECORD #":X023S-pNA$(X)""28814i-pMV$(X1)NA$(X):-pMV$(X1)"CANCEL**":MV$(X2)"DONE****":ME%(0)X3:X%0:ME%(1)1:1070:Y12:4000:Z$"1000002NNNN":MD$Z$:MR%9::CP%0:MR%6D.p1690:1380:M`,;Lu$(1,2)"RETURN TO MAIN MENU":MS$(3,0)"PRINT TO TERMINAL/PRINTER":MS$(3,1)"RETURN TO MAIN MENU":MS$(3,2)"SELECT RECORDS FOR PRINTING":MS$(3,3)"DELETE PRINT FORMAT":K(121)256(122)33:dLii=ii)$M BEH)4iQN$(2)N$(18)"*WIDTH05":M1$(27)N$(13)N$(1)N$(29)N$(1)N$(20)MG$(2)JfM1$(28)"":M1$(29)N$(19)N$(9)N$(14)N$(2)N$(1)"*LINE04":M1$(30)N$(19)N$(24)N$(29)N$(3)N$(3)"*SIZE04":M1$(31)"":MS$(1,0)"PRINT A REPORT":MS$(1,1)"PRINT LABELS"KMSMG$(0):M1$(22)N$(7)N$(19)N$(25)N$(2)N$(12)"*DEPTH05":M1$(23)N$(9)N$(1)N$(30)N$(1)N$(14)MG$(1)HJ>M1$(24)N$(11)N$(1)N$(19)N$(1)N$(15)"*NO. LABELS ACROSS17":M1$(25)N$(11)N$(22)N$(29)N$(2)N$(16)"*OFFSET06":M1$(26)N$(11)N$(32)N$(38)1)N$(9)" TOTAL?06":M1$(17)N$(20)N$(12)N$(19)N$(1)N$(10)" BREAK?06":M1$(18)N$(20)N$(23)N$(39)N$(1)N$(11)" BREAK AND PAGE?15":M1$(19)""iIM1$(20)N$(5)N$(1)N$(19)N$(10)N$(1)" LABEL FORMAT NAME17":M1$(21)N$(7)N$(1)N$(16)N$(1)N$(11)0":M1$(11)""GM1$(12)N$(18)N$(1)N$(6)N$(1)N$(1)"*LINE04":M1$(13)N$(18)N$(8)N$(13)N$(3)N$(2)"*SIZE04":M1$(14)N$(18)N$(17)N$(21)N$(3)N$(5)"*TAB03":M1$(15)N$(18)N$(30)N$(39)N$(1)N$(8)" DECIMALS00"HM1$(16)N$(20)N$(1)N$(8)N$(N$(1)N$(16)N$(1)N$(248)MG$(0):M1$(7)N$(13)N$(19)N$(25)N$(2)N$(249)"*DEPTH05" GM1$(8)N$(15)N$(1)N$(30)N$(1)N$(251)MG$(1):M1$(9)N$(17)N$(1)N$(29)N$(1)N$(252)MG$(2):M1$(10)N$(19)N$(1)N$(26)N$(1)N$(253)" PRINT FIELD NAMES? (Y/N)02)N$(5)N$(1)N$(20)N$(10)N$(1)" REPORT FORMAT NAME18":M1$(3)N$(7)N$(1)N$(15)N$(79)N$(11)" TITLE LINE #100"VFvM1$(4)N$(9)N$(1)N$(15)N$(79)N$(90)" TITLE LINE #200":M1$(5)N$(11)N$(1)N$(15)N$(79)N$(169)" TITLE LINE #300":M1$(6)N$(13)ȚDMG$(3)"PRINTER - 'Y' OR 'N'":MG$(4)"PRINT DELETED RECORDS - 'Y' OR 'N'":MG$(5)"INDEX ORDER - 'Y' OR 'N'":MG$(6)"PRINT LINE EXCEEDS 255 CHARACTERS"uEMG$(7)"WRITING":M1$(0)N$(21)N$(5)N$(26)N$(10)N$(1)" ENTER NEW INDEX NAME20":M1$(1)"":M1$():PO%(Z)((S3$,Y1,(S3$)Y6)):ZZ10C0X:6CPòCQSW%(3)1:M1$(33),N$(253):Z1$(0):Z2$Z1$Z1$:Z3$Z2$Z1$:X1253:N$(X)(X)::MG$(9):MG$(0)" PRINTER? (Y/N)14":MG$(1)" PRINT DELETED RECORDS? (Y/N)28":MG$(2)" PRINT IN INDEX ORDER? (Y/N)00")Y)FL$CT$MV$(Z)(S3$,Y1):ZZ10BZ16ı\BCT$".INDEX"(S3$,6)".INDEX"44080B Y(S2$(X))601:(S2$(X),Y,1)"."44066B!YB"AY1Y111:(S3$,A,1)"."AYA1:44070B$A'C&(S3$,Y(FL$),A)FL$MV$(Z)(S3$,Y2(FL$)$S2$(X):(S3$)(CT$)144080bACT$".DATA"ĭ(S3$,5)CT$MV$(Z)(S3$,(S3$)5):ZZ1:44080A(S3$)(CT$)(FL$)244080AY(S3$)11:(S3$,Y,1)"."44054AY:44080AYY111:(S3$,Y,1)"."44060AY:44080$B(S3$,(S3$(7)256:S6((S6S519)38):<@S5S526:S20:S71S6:@6,SS(S5):7,(S5256):S41,(6):S42,(7):S36:S4,(8):@S2S21:S2$(S2)(S4$,1):S5S538:S280Ģ20:1::G$;"WARNING: TOO MANY FILES ON DISK":@S7:@૲AZ0:X1S2:S35256):54,SS(S3):55,256(S3256):56,SS(S33):57,256((S33)256):1002:43120?R6,SS(S5):7,(S5256):54,SS(S3):55,(S3256):56,SS(S33):57,((S33)256):1002:?pD$;"CATALOG,S"SL%",D"DR%:2000:D$;"PR#0":D$;"IN#0":@" ":S6(6)"READ "F$:42500.>.EOF%0:Z$:38000:42999O>790:38000:(222)539000Z>"EOF%1`>f>>2:11:S2$(80):SS(X)X(X256)256:S4$"":S4(107)(108)25612:>HS5(109)(110)25650:>MS3MR%24:S3043090U?N6,SS(S5):7,(SEOF%141300*=(Z$,11)" "F1$41300;=A%2441070A=Ti=YNA$(A%)"":C023:NA$(C)""41340p=rC=|RL%S%(C1)L%(C1)1:(Z$,1)" "41900=EOF%141900=42000:EOF%141900=U$(Z$,(Z$)11)=D$"CLOSE "F$:=>D$ӱϠӍ"bna`H= Hcz ,1L cn1L2";w1L2%<`VC4HHKӉ绬+1*B uȹȹ)aȢVɠ7ɮAȹɠI )H  ehe٬i#L`췌  鷩 ȩ  鷍H`OŠPi?  c,iijH e֍3L`Wi` 췌  B )пȹȄ  ``@ %   Pi 4Wi`` OQ]{ `*`,L̀LLXLX>m>? ` `$4i8 WIiʊiM0 `)LOCKTHE FIELD MUST BE NUMERIH )h ``HH hh`,LXLXLXLX)7zBa@{00:0.+-6*ʩ 0 0``Lʊ2 ]  ]?2`4i ] `# Z#`4iLL N2 ] RH h?2`8/mmm` 0 ` `  0 `B0  ֈ ` `<00,P ߈ ٜ 0`<0`*[ ,,0MВ  τL( ? x Y م L ˅0 x N ` LLs  LƮ0 Ɓ L>? ]2 ?2 > 2 ?2`0m ] ) s"'H2 ?2h 5,H )h> , τ0 Ɓ L ҆L twso\ &i^*WRMzs i: ( n, 2׭!,0`` mikȱk>ȱk?ȱk<ȱk=Lk<><>>ʎ>>>ʎ>ʎ8>ʎ>ʎ-im<ȱi==;imBȱiCC` >?, ` ]> 0 ?2, x `iʠ i% $ o`4i%$ `i @Bi 2 20ݭ`>? `>? ``p ,?ii@ii)L'M }4iQL`,>,LL2LLLLLQL߀LLLLzLLkLLLLLLL , H%2h` N  i Piީ2`8n 22"" " " " " """""""