' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`00&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$;"NO R,%_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$:320MG$(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%224970.#*VCT$".INDEX":44000:Z0IX$"":950,13:Z#+VZ1IX$MV$(0):200:PO%PO%(0):OP%1:i#,VZ24Z24t#6V24000z#Y#YFL$""ME%(1)1:E1$MG$(8):#Y35000:SC$"LOADING MAINTENANCE FUNCTION":X$"1":DK$P1$:32000#]$]FL$""ME%(1)1:E1$(9):"UZ122040/"UFL$""IX$"":950,13t"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$""ı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"n!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$MG$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,5h!(1,5,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,16c ( 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,30, "/*":: "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,18,P": "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$OF#: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": "BACK U1750:1070:1380:205ME%(1)7OP%1İ5541T(970)13ME%(1)7İ5541iSW%(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:):PR%G%(3):LF$G$(0):PI$G$(1):PT$G$(2)/F$"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":1250:0:320108DS%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%(2DR%((Z$,28,1)):SL%((Z$,29,1)):AD%787:AD%,SL%:AD%1,DR%:PT$(Z$,30,1):bSW%(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":170,5,1):X$(Z$,8,20):X$SP$PI$"":5500?lX120: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$))R:402006_RW$"C"4007576`RW$"G"RW$"R":40638~6cOP$"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+710:"ERROR=";(222);" AT LINE ";(218)(219)256:39100W5v14:"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%16VA$"."X$437100f4A$:D$"DELETE "X$",S"SL%",D"DR%:38000:X0S2:X$S2$(X)S2$(X)" * ":37052l44DF$IX$IX$"":950,13:350204Đ4쐌790:38000:4p4z390004Ӕ4X4]790:216,0:95dD$:G$::12::(222)0(222)15(X)3X:(34)U$23D$;"CLOSE VISIFILE.11":83S3IN$:IN$(13)36010]3A$:c3z3X$"INDEX"370103X$DF$"."FL$".":X0S2:(S2$(X),(X$))X$370063X:3(S2$(X),5)"INDEX"ı3X$S2$(X):370114X$DF$"."FL$"WRITE "F$:PL%:SL%:DR%:PR%:LF$:PI$:PT$:FL$""ĺFL$:35090R2ۈ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):L%0:OP%1:35000:SC$"LOADING CUSTOM FORMAT FUNCTION":X$"3":DK$P2$H1}r1}1700:PN%(X$):MR%36:RT%032010~1}MR%391 }D%1:S%PL%:RT%1:40910:3200111ˆSW%(2)0ıA2̈SC$"WRITING":1700:F$"VISIFILE.11":D$"OPEN "F$",S"SL%",D"DR%:D$%6ĺG$;:31230!0zMC%243100090zZ$(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:P?6,SS(S5):7,(S5256):S40 ="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:431208OP$"R"RW$"R"DS%2:40998Y8OP$"R"RW$"W"40660y8OP$"V"(DK$,1)"P"409008OP$"C"DS%0:409988OP$"R":D$;"RENAME";F$;",";F$;",S";S%;",D";D%:RW$"W"DS%18ԞD$;"OPEN ";F$;",L";L%:409988ğ9790:D$:(DK$,1)"B"(222)8DS%9:409987(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000:4000070(222)64060075(222)8409007X3901278OP$"V"(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$,1%24M$"":3792-!WNA$(CI%)""M$"":3792S!XCL%20CL%4:CH%1:M$"":3792:c!YX$NA$(CI%)!Z(X$,1)" "X$(X$,(X$)1):3674![CH%13680!\CH%(X$)1L%(CI%)HZ%(0)CL%CL%2:CH%1:CL%203672i"`M$(C)(CL%)(CH%)(CH%(X$)1)"'"XA$(XA$,(XA$)1). p (X$,1)"I"IL%2E z (X$,1)"S"IL%3Q 8550:W F$MN$"."FL$(0)".MAP":DK$DD$:RW$"R":D%DR%:S%SL%:40000:DS%2X%1: SC$"READING FORMAT FILE":13000:D$"READ "F$:3810 LC049:AM%03700!VCI4100 X$"I"IL%1:4100. X$"D"4100F (Z$,5,1)"*"2560 4:"CTRL-A TO DELETE - CTRL-X TO KEEP":7:(TZ$)14100 (TZ$)242560 G$;:3320> 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:,PO%:FL$(1)FL$(0)".DATA":X023:NA$(X),I$(X):NA$(X)""I$(X)" ":7819}6(I$(X))5I$(X)I$(X)(SP$,5(I$(X)))6S%(X),L%(X):PO%S%(X)SF%PO%:LF%L%(X)6X 7U$:D$"CLOSE "F$:RL%S%(X1)L%(X1)1:F1$FL$(0):(F1$)10F1$F1$(SP$:SP$SP$SP$:SP$SP$SP$SP$:SC$"READING FILES":13000:AA$(1):D$(4):CR$(13):5fAD%787:SL%(AD%):PL%(800)16:DR%(AD%1):F$"VISIFILE.11":DK$DD$:L%1:RW$"P":S%SL%:D%DR%:40000O6xD$"READ "F$:PL%,SL%,DR%,PR%,LF$,PI$,PT$,FL$(0),MN$,IX$U4M1$(50):MF$(8),MV$(8),MC%(8,2),ME%(4):NA$(23),I$(23),S%(23),L%(23):PG%(2):c4RN$(1):4Y((2(0)3)2):Y3500Y35004FL$(1),MN$(1),IX$(1):AX%(1):4V52:UL%0:PD$"PROGRAM-#1":DD$"DATA":SP$" ":SP$SP$S TOO SMALL FOR RESULT";:7::4:A0:B$"0":740063<3P3FL$(1)""7540e3.FU%1NR%NR%1{38NR%1RL%175403BD$;"WRITE ";FL$(1);",R0":NR%:3VRL%:3XXRL%((NR%))((RL%))3:3\(SP$,1,X):D$:3jX$"E"İ92703t4~.01N.01N0B$(N):7400H2X2113:NN10:N((N)):N(N)7340P2X22B$((N)):B$"."("0000000000000",X2(B$))B$:N0B$"-"B$2(B$)B%B$(B$,B%):74302B$(SP$,30)B$:B$(B$,B%)03(A)((B$))İ4::G$;"NUMERIC FIELD0 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:X","DONE": "/*": "Z"F2F2::" VISIFILE - VERSION 1.0 ";:(SP$,40):2:15:"PLEASE WAIT"::21((SC$)2):SC$::FpFz39000FӔFXF]790:216,0:GdD$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LRN$(1)("000",4(RN$(1)))RN$(1))E)/E)RE)SC$"FORMATTING SCREEN":13000uE)M%0:UI%0:CL%4:CH%1:CI%0:E*39000:F. "A",7: 0,24,1,0,24,6,0,24,11,0,24,15,0,24,23,0,24,23,0,24,36: "ADD","CHG","DEL","INSPECT","SEARCH","SEARCH INDEE":" ";::"NOT COMPATIBLE"::22206D)216,0:AD)10650SD)216,0:790:_D,)10960tD6)(222)510960DT)D$"WRITE "FL$(1):"0":RL%:D$:D|)10650#E)D$;"OPEN ";FL$(1);",L";RL%;",S";SL%;",D";DR%:RN$(0)"0000":RN$(1)(NR%):(RN$(1))4C&38000:D$;"WRITE ";FL$(1);",R";Z%:(Z$)RL%2Z$Z$(SP$,RL%(Z$)2)eC*&(34)Z$:D$:CH%1:kCR&qC(}C(10960C(D$"OPEN "FL$(1)",L"RL%",S"SL%",D"DR%:D$"READ "FL$(1):10520)D(NR%,LL%:D$:LL%RL%İ4:G$;"FILE DEFINITION AND DATA FILIFILE - FILE MAINTENANCE PAGE ";PG%(0);" OF ";PG%(1):2:MZ%(1)1:F1$;" IND=";X1$;" RCD# ";RN$(0);"/"RN$(1)::wB%B%4:38000:EOF%0:Z%NR%EOF%1:9700B%D$;"READ ";FL$(1);",R";Z%:Z$:Z0%Z%:ZZ%Z%:D$:9440B%B%B%MD$Z$:MP%İ6420KX$(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>>":; 21:1:868:H CI%CI%1:CI%0CI%0 R 4,(764)14 MR%72:MR%45:MR%75:MR%66:3380: N (767)4ī3369! VT%(767):MR%48:767,(767)1:MR%72:MR%45:MR%75:MR%66:3380) * (767)18ī3379+ VT%(767)2:MR%48:767,(767)1:MR%72:MR%45:MR%75:MR%66:338" "MA$(8)MA$(21)3307' 3310: (766)03349| MR%48:766,(766)1:765,(765)1:(764)C4%Ĺ764,(764)1 MR%72:MR%45:MR%75:MR%66:3380  (765)3393359  MR%48:766,(766)1:765,(765)1:(765)(764)38Ĺ760  3309( MA$(8)MA$(21)3330G MA$(13)X%1ĺ"":3310i MA$(13)X%0İ3380:3109:s 3310 MD%0MA$(8)İ3340:3338 MD%0MA$(21)İ3350:3338 MD%1MA$(8)İ3360:3338 MD%1MA$(21)İ3370:3338 MA$3306:MA$(13)3302 % 3:16 MA$(7)ıN MD%0:MR%57:3099[ 1:3100 VT%(767)1:HT%(765)1:MR%3:MA$:MA$(2)MA$(6)ČMR%72:MC%(MA$):3200:MR%75:MR%63:3260:3530:3310 MA$" "3318 MD%MD%1:MD%1MD%(3)PG%(3)1:AM%1ČMR%18:PG%PG%(3):MR%9` PG%(3)PG%(4)PG%(4)PG%(4)1:PG%(1)PG%(1)1j 3261 (714)0CH%1: CH%(714)23268 CH%(714)CH%(714)2   3386 VT%(767)1:HT%(765)1:MR%3:MA$:MA$(7)İ(767)1:MR%45:22:1:868:21:1:868:M%14 > CL%4j CH%HZ%(0)(X$)1L%(CI%):CH%1CH%1{ 726,CL%1: 725,CH%1:724,CH%(X$)12:719,L%(CI%):PG%PG%(3):MR%78:C9%(760):(715)128ī3272- CL%CL%2:CL%20CL%4:CC1:PG%)PG%(3)9PG%(4)PG%(4)1:PG%(1)PG%(1)1j MC%6PG%0:PG%(3)PG%(4)PG%(3)PG%(3)1:PG%(0)PG%(0)1 PG%PG%(3)ČMR%18 PG%PG%(3):MR%9:9440: (715)127Ģ22:1:"FIELDS OVERLAP, NOT MAPPED";:3259. 760,C9%:MR%54:MR%60:VT%1:"CNTL-G CNTL-D CNTL-A CNTL-X CNTL-F/B";::: 23:1::"GRAB NEXT PLACE ACCEPT PAGING ";::24:1::"CNTL-G ARROWS RETURN CNTL-A CNTL-F/B ";:: MC%2ĭPG%(3)1PG%(3)PG%(3)1:PG%(0)PG%(0)1* MC%6AM%2PG%0:PG%(3)PG%(4EH)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:39100-F$MN$"."FL$(0)"1İ5090]+D$;"WRITE ";F$:CI%0:C050:M$(C)""CI%CI%1:CI%PG%(1)ĭPN%(CI%)05060:x+M$(C)""MD$"":5040+,MD$(M$(C),7,15)("000"(((M$(C),5,1))),3):MD$MD$("000"(((M$(C),4,1))),3):MD$MD$("000"(((M$(C),1,1))),3):MD$MD$*?*MF%0Ģ22:1:868:1:"THERE IS NO MAP TO SAVE":*24:868:1::"WRITING MAP... ";:3:1:*(MN$,1)" "MN$(MN$,1,(MN$)1):5006+F$MN$"."FL$(0)".MAP":DK$DD$:L%1:RW$"W":S%SL%:D%DR%:40000:DS%D$;"CLOSE ";F$:D$J) 22::PG%(0)1:PG%PG%(0)PG%1:MR%18:MR%9{) CPG%(1):C0PN%(C)0PG%(1)PG%(1)1:3851) PG%(1)0PG%(0)0)AM%1:PG%(4)PG%(1):9440)(M$(CP%)""3970)-3970)VT%2:HT%1:MR%3:Z$""X$"I":3140*""PG%(2)PG%(2)1:PG%(2)13820o(M$""PG%(1)PG%(1)1:PG%(0)PG%(0)1:PG%(3)PG%(1)1:AM%2PG%PG%(3)(M$""PG%(2)0(PG%PG%(3)PG%PG%(3)(X%ī3825(C(216,0:790(PG%(2)0PG%(1)PG%(1)1:PG%(0)1(AM%03850)(C)M$(C)(((M$,25,3))):M$(C)M$(C)(((M$,25,3))((M$,2))1):M$(C)M$(C)(((M$,19,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)"0"(((M$,29,2))):CI%((M$,29,2)):CI%(CI%)C1:MF%MF%1"(M$CI%)>&aM$" ":M%CI%(CI%)C1:MF%MF%1:PN%(PG%)PN%(PG%)1r&bCH%CH%(X$)1L%(CI%)1:CI%CI%1:AM%13792&f3429:X%03792&hM$"":3792&t4:1:M$:M$(C)"":M$""ī3792'PG%PG%(1)1:PN%(PG%)PN%(PG%)1:PG%0:M$(C)(((M$,22,3))):M$1L%(CI%)HZ%(0)CL%CL%2:CH%1:CL%203666C%ZAM%1M%1:3680U%[9440:3510:}%\MA$(13)M%0:3380:3250:3681:%]MA$(1)MA$(24)3820:%^3662&`M$(C)(CL%)(CH%)(CH%(X$)1)(L%(CI%))(S%(CI%))(I$(CI%),1)NA$(CI%)"0"(NA$(CI%)""İ3400:M$""3792B$PAM%1X%0:I%1:3432:X%3825e$QNA$(CI%)""İ3400:M$""3792$RCL%20CL%4:CH%1:M$"":3792:$SX$NA$(CI%)$T(X$,1)" "X$(X$,(X$)1):3668$UC9%C:AM%1İ3260:3674$VCH%13674-%XCH%(X$)18:MR%9#CI%0:3109:3661B#)10670::AM%0ĺD$;"READ ";F$S#.AM%2İ3109^#B3810#LPG%(0)0:PG%(1)0:PG%(2)0:PG%(3)1:PG%(4)0:PG%0:9440:AM%2ČMR%18:PG%PG%(3)#MC049:PG%PG%(3):AM%03700#NNA$(CI%)""M$"":AM%13792$O(SP$,6)NA$(CI%)"00":VT%CL%:MR%45::MR%42:MR%60::MR%57:S"MF%03625"22:1:"DELETE CURRENT MAP (Y/N) ?";:MA$:MA$"Y"MA$"N"3602"22:1:868:MA$"Y"3625"AM%2ı #PG%(3)1:PG%(0)1:9440:PG%PG%(3)PG%PG%(3):MR%ȮMʊ2 H  H?2`4i H cK`# Z#`4iLL朢$4i8 KIiʊiM0 G`8kli?k mi`k` K K>k` Kʎ-im<ȱi==;imBȱiCC`` =JK>K?m H ) LSJ ڢ@<870, ( $ &i LsJ K` fKLSJLJߩ2 G?2`KM$ `Bi I  I0ݭ`, I׭!,0`` mikȱk>ȱk?ȱk<ȱk=Mk<><>>ʎ>>>ʎ>ʎ8>ʎWiʎ;i>ȱi?芑>芑>芑>>>芑>> H`8n I I2/,KMkMM H>` H> G0 G?2 J`iʠ i% $ I`4i%LpL , H%2KNh` Ki I MI >Ji2`;i`;ii` H2KN `MʝJN` Gn8n i mHn`liʎzisieiiPiʎ^iʎ Xʚhi-=i?8<6*DK$:216,0:790:(222)9FU%16*(222)0(222)15ĺG$::"FMA8 ";::"ERROR = ";(222);::" AT LINE ";(218)(219)256:110206+:G$:"FMA8 ";::"DISK ERROR";::" = ";(222)6 +2170i7. "A",6: 0,24,1,$:5|)106505)D$;"OPEN ";FL$(1);",L";RL%;",S";SL%;",D";DR%:RN$(0)"0000":RN$(1)(NR%):(RN$(1))4RN$(1)("000",4(RN$(1)))RN$(1)5)5)5)AM%1İ28806)X%0:MF%0:C0XX:CI%(C)0:C:C050:M$(C)"":C:C010:PN%(C)0:C:M%0:UI%0:,S"SL%",D"DR%:D$"READ "FL$(1):105204(NR%,LL%:D$:LL%RL%Č1059::"FILE DEFINITION AND DATA FILE":" ";::"NOT COMPATIBLE"::22704)216,0:4)106504)216,0:790:4,)1096046)(222)5109605T)D$"WRITE "FL$(1):"0":RL%:DSTOM MAPPING PAGE ";PG%(0);" OF ";PG%(4):2:1:F1$;MN$;:(SP$,24(F1$)(MN$));:MF%" OF "XX%" MAPPED";:I0:MF%9XX%9II1:MF%9II13$(SP$,3I);::AM%2PG%(0)PG%(3)1:PG%(1)PG%(1)13$3(3(10960&4(D$"OPEN "FL$(1)",L"RL%"80:HZ%(1)2022$Z2$RN$(0)(Z%):(RN$(0))4RN$(0)("000",4(RN$(0)))RN$(0)2$RN$(1)(NR%):(RN$(1))4RN$(1)("000",4(RN$(1)))RN$(1)2$AM%2PG%(4)0PG%(4)12$AM%2PG%(0)PG%(3):PG%(1)PG%(1)1:3$1:1::"VISIFILE - CU: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$,361919X,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Š 0O`8n`,N)LOCKH )h ``HH hh`7xa@{  `` Imi IMphծ:mii; I/'ixFnHZ$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$;::40998 ..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$(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)* 2060z10960 1013' :12:10::"LOADING MAIN901462 "ME%ME%(1)C ,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1X 6ME%(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$1580 JMP$;:1390^ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)%(1)1)A MC%(ME%(1)1,0):MH%::MP$;::MC%(ME%(1)1,0):MH%a X9%(16384):X9%1281462 16368,0:M$(X9%128):(M$)8(M$)21(M$)32ĖMH%:MP$; (M$)21(M$)321630 (M$)81660 (M$)13ı (M$)42ĭ(M$)65(M$) FME%(1)ME%(3): [+ \MM$MS$1379@ ]MM$MS$Į:1375Y ^MM$:MM$"/*"1374h _MM$:1372n ct 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$MV$(MEP$MV$(MZ%):MZ%MZ%1:11403 `MF$(MP%)"/*":1200a tMC%(MX,0):MC%(MX,1):MP$;:MP%MP%1:MXg m  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 <MX3):7 MZ%(0)40:MZ%(1)0:MV%0MZ%(0)80:MZ%(1)20A $2000G . 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%)"/*"M<MR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%1:AL%0:C1%0:C2%0:C3%0:C4%0:C5%0:C6%0:C7%0:C8%0:AD%787::10** V I S I F I L E . 3 **22:1:(SP$,39):22:1: :63999:MV%0:M$(50),MZ%(1): M%(50),CI%(2                                    :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                       z!#    Ů ŮŮŮ! Ů6Ů'ŮŠ ̭Һ!Ϡ"Š@ŮEŮ>Ů2Ů":Y$FL$(3)".DATA":25300V>DR%1MG$"INSERT DATA DISK IN DRIVE 1":33000:32000>DK$DD$:F$FL$(2)".DATA":RW$"R":S%SL%:D%DR%:40000:SC%132000>D$;"READ ";F$:16400! H?MX%,RL%:216,0:RL%RL%(IN%)ĺD$:MG$"FILE DEFINITIOND/DATA FILE(CF%)CO%(CF%)1:CO%(CF%)N%(IN%)CO%(CF%)08813600m9CO%(CF%)CO%(CF%)1:CO%(CF%)0CO%(CF%)N%(IN%)xl9136009CF%CF%1:CF%N%(OUT%)CF%14:13400:CF%CF%1:CF%1CF%N%(OUT%):13400`;SW%1::29110T==X$FL$(2)".DATACO%(CF%)::12500:LS%C:22:1:868:C0NM%(CF%,OUT%)NM%(C,IN%)L%(CF%,OUT%)L%(C,IN%)ĺ"WARNING: FIELD WILL BE SHORTENED";5IN$:IN$(1)15200L6IN$(13)148006IN$"^"150007IN$(8)14600x7IN$(21)144007G$;:13800-@8CO%%(C,IN%)Y$"N"Hd2Y%:X%:X$;::Y$;" ";:X$"NEW FIELD"ĺL%(C,IN%);Nn2T,33CF%1:LS%0:35200:C0N%(IN%):12500:CX4Y$"A":NM%(CF%,OUT%)Y$"N"419:1:"OUTPUT FIELD: ";N$(CF%,OUT%);" ";Y$;" ";L%(CF%,OUT%);:868~ 5CLS%:12500:C2,10)X$EOF%112200(X/20400:12110/N%(FL)C1:20:CR$;D$;"CLOSE VISIFILE.14":RL%(FL)S%(N%(FL),FL)L%(N%(FL),FL)1:FL:081C0X%15:Y%3:X$"NEW FIELD":Y$"":129001Y%((C1)2)3:X%1:(C2)2CX%212X$N$(C,IN%):Y$"A":NM(Z$,B%5,15)(SP$,15)12110v.I$(C,FL)(Z$,B%,5):N$(C,FL)(Z$,B%5,15):NM%(C,FL)0:(I$(C,FL),1)"*"NM%(C,FL)1|.S%(C,FL)((Z$,B%20,3)):L%(C,FL)((Z$,B%23,3)):CC1:B%B%26:A:20400:EOF%112200D/(Z$,11)" "X$11700N/FL0(Z$,3))1):9330m%FL01:X$FL$(FL):F$"VISIFILE.14":DK$DD$:RW$"R":S%SL%:D%DR%:L%240:40000:D$"READ "F$*20400:EOF%111400+(Z$,2,10)X$11000$,11600,ER$"FILE '"FL$(FL2)"' NOT DEFINED":35000:29090P-C1-B%21:A18:IZ$Z$A$:C:D$;"WRITE ";Y$;",R";PT%:(34);Z$:PT%PT%1:Z$(A)"":AOU m!ERR%0:9000:13100s(##X10:FL$(2)FL$(0)^$(FL$(2),1)" "FL$(2)(FL$(2),(FL$(2))1):9310h$FL$(3)FL$(1) r$(FL$(3),1)" "FL$(3)(FL$(3),(FL$($(A$,L%(C,OUT%)):22700:7900=A$(A$,L%(C,OUT%)):7900wL(A$)L%(C,OUT%)A$(SP$,L%(C,OUT%)(A$))A$:7900(A$)L%(C,OUT%)7900(A$,(A$)L%(C,OUT%))(SP$,(A$)L%(C,OUT%))A$(A$,L%(C,OUT%)):22700:7900xA$(A$,L%(C,OUT%))(A$,1)" "A$(A$,2,(A$)1)7TP:NM%(B%,IN%)7000^ZN$A$:A$((A$)):ZN$A$İ22700tXNM%(C,OUT%)7500L%(C,OUT%)(A$)A$A$(SP$,L%(C,OUT%)(A$)):7900 L%(C,OUT%)(A$)7900(A$,(A$)L%(C,OUT%))(SP$,(A$)L%(C,OUT%))AD$:DR%1MG$"INSERT OUTPUT DISK IN DRIVE 1":33000V A0Z%:X%1(Z$(A))08100Z$(Z$(A),5):C1N%(OUT%):B%CO%(C):A$"":NM%(C,OUT%)A$"0"B%07000dA$(Z$(A),S%(B%,IN%),L%(B%,IN%)):NM%(B%,IN%)NM%(C,OUT%)7000,TP1(A$):,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`,;LuO: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:5PVAA$:40200-`RW$"G"RW$"R":40638tcOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"40900RW$"L"40998 790:D$:(DK$,1)"B"(222)8DS%9:40998T(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKEӔ X ]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";::36000:D$"CLOSE":310@ TDS%0:RT%0:L%0L%1N ":4:(SP$,40):4:FL$;:IX$""Ė25:"INDEX=";IX$4N:6:13:"VISIFILE 1.00":2:"C 1981 CREATIVE COMPUTER APPLICATIONS":N N2:(SP$,40):3:(SP$,40):3:SC$;"...":13: IN$:IN$(13)36010AA$:p z39000T ENOUGH ENTRIES":"IN INDEX FILE :";::IX$::"ABORTING...":3000:11000)14:G$;"ERROR - CANT FIND INDEX FILE!":"ABORTING...":3000* +18:12:"PRESS ";::"RETURN";::" ";:36000:305 N 7%N::" DATA INTERCHANGE FORMAT CONVERSIOTION NOT FIELD COMPATABLE":"WITH DIF FILE...ABORTING...":3000:11000(14:D$:G$;"ERROR...FILE DEFINITION NOT FOUND!":"ABORTING...":3000:11000)14:D$:G$;"ERROR...FILE DEFINITION NOT FOUND!":"ABORTING...":3000:11000Jh)14:G$;"ERROR - NO:3000:11000R$'14:G$;"ERROR...";PF$;" NOT FOUND!":"ABORTING...":3000:11000B'D$;"OPEN ";PF$;",D";VD%;",S";SL%:D$;"CLOSE ";PF$:t'14:G$;"ERROR : CANT READ FROM":"DIF FILE - ";SF$:"ABORTING...":3000:11000F<(14:G$;"ERROR...FILE DEFINI &38000:DS%0:40998@OP$"R":D$;"RENAME ";F$;",";F$:RW$"W"DS%1bԞD$;"OPEN ";F$;",L";L%:40998hğΟ:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:36000:20000:20100:RT%040000IVE ";D%:12:12:"AND PRESS RETURN ";:36000:40000H0(222)640600\5(222)840900gX39012mOP$"V"RW$"L"(DK$,1)"P"40998OP$"R"RW$"R"DS%2:40998OP$"R"RW$"W"40660OP$"V"(DK$,1)"P"40900 OP$"C"0&U(A$)1ĺIN$;:21400,&TVA$""21500A&VA$(A$,(A$)1)R&WIN$;:21500X&Wc&WIN$A$i&HXo&X&YD$:LT%0PA%0İ26300&YMSG%0İ24100:MSG%1'@OF%NF%10300DJZT790:38000:4160a R%IRC%:(XF$)0İ700014:"OUTPUTTING RECORD ";IRC%:IX$""ĺ"(INDEX NUMBER : ";R%;")"CR$" "CR$:RN$(R%)(RN$)45009 RN$"0)162C$(C$,(C$)1)  D$:' 9 D$;"CLOSE":@ M6000: [216,0: eOF%0Q2120326:(TP$,Q5,1)" "4160OF%OF%1:OF%NF%10300FS%(OF%)((TP$,Q20,3)):FL%(OF%)((TP$,Q23,3)):Q:4180TP$:38000:(R - DIF FILE OUT OF ALIGNMENT":"ABORTING...":11000; JA02110VC$(B)4Q(C$)FL%(J)1:C$" "C$:Q:CR$CR$(C$,FL%(J)):>Q(C$)FL%(J)1:C$C$" ":Q:CR$CR$(C$,FL%(J)):  D$;"READ";SF$:A,B:C$:C$""ĭ((C$,1);"WRITE";PF$:RA%31075*.RC%NR%:990?3RC%NR%RC%NR%M5RC%:990dL790:38000:10020k }RA%2RC%0F$PF$:RW$"G":L%RL%:S%SL%:D%VD%:40000:@ T2500: ^C$"BOT"ī1800: hCR$"": 412:G$;"ERRO))3(SP$,1,X):D$:1790:38000:100508 uF$PF$:DK$DD$:RW$"R":S%SL%:D%VD%:40000:DS%2100201100D$"READ "F$:RC%,OL%:RL%OL%10010QQ216223:QQ,0:QQ:QQ244248:QQ,0:QQ:D$;"OPEN ";PF$;",D";VD%;",S";SL%:D$0 1012BRA%1ĺD$;"DELETE ";PF$;",D";VD%;",S";SL%RL%FS%(NF%)FL%(NF%)1:QQ216223:QQ,0:QQ:QQ244248:QQ,0:QQ:RA%11020F$PF$:DK$DD$:RW$"W":S%SL%:D%VD%:40000:D$"WRITE "PF$:NR%RL%:XRL%((NR%RC%))((RL%L%(I)1788F12:"FIELD WIDTH FOR DMS FIELD ";I;": ";:"";FL%(I)s:I2NF%:FS%(I)FS%(I1)FL%(I1):I:/4000: 4R W870\D$;"READ";SF$:TK$:A,B:C$:D$:QQ216223:QQ,0:QQ:QQ244248:QQ,0:QQ:f790:38000:1010PEN ";IX$;",D";VD%;",L5":38000/ NF%0:NR%0; 850: S TK$"VECTORS"750 NF%(B):FS%(NF%),FL%(NF%):I1NF%:FL%(I)1:I TK$"TUPLES"NR%(B) TK$"SIZE"FL%((A))(B) TK$"DATA"720 FS%(1)6:FH%0815 I1NF%:F 12:"NEW VISIFILE ";::FL$;::" MUST BE IN DRIVE ";::VD%: 16:5:"CHECK DRIVES AND PRESS ";::"RETURN";::" ";:36000:20000:20100:F$SF$:DK$DF$:RW$"R":S%SL%:D%DD%:40000:DS%210100 0  IX$""710 10700 D$;"OEAD "F$:FL$,SF$,TY%,Y%,VD%,DD%,RA%:F1$FL$V (FL$,1)" "FL$(FL$,(FL$)1):512j PF$FL$".DATA" (SF$,1)" "SF$(SF$,(SF$)1):516 SF$SF$".DIF":D$"CLOSE "F$:10:"DIF FILE ";::(SF$,(SF$)4);::" MUST BE IN DRIVE ";::DD%:BQQ,0:QQ:QQ244248:QQ,0:QQ:J:5000: : "I:3000: A 1 d 6SC$"LOADING MAIN MENU":20100 @PN%31:MR%36:RT%0340 JMR%39 TD%1:S%PL%:DK$PD$:RT%1:40910:320  + F$"VISIFILE.12":DK$DD$:D%DR%:S%SL%:RW$"R":40000:D$"R "1 X14:SP$SP$SP$::38000: _ *SC$"READING":20000:20100:1013:500: k 700: w 950: 1500: SC$"CONVERTING DIF FILE":20100:I1NR%:I%(I):1600: J1NF%:J%(J):2500: 2000: * QQ216223:4TMR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%1:AL%0:PN%0:RT%0t ** V I S I F I L E .16 ** MX%50:  AA$(1):D$(4):G$(7):DD$"VISIFILE DATA":PD$"PROGRAM-#1":DF$"DIF INPUT":PL%(800)16:SL%(787):DR%(788):SP$"       X0X21:(34)Z$(X):,3.D$"CLOSE "F$:23k3ˆ22:1::G$;ER$;::" ";:36000:22:1:(SP$,40):q33&X$(SP$,10)ı30(X$,1)"A"(X$,1)"Z"ı3:X110:(X$,X,1)","ı3N:ER$"":34:FL$"":TI$"FILE REORGANIZE":1710: "F$:3410052 Z$(X2):(Z$(X2),2,10)FL$(1)34060H2X2X21:34060i24790:38000:(222)5390002HD$"CLOSE "F$:D$"DELETE "F$:F$"VISIFILE.14":DK$"OUTPUT":RW$"W":S%SL%:D%1:400002ʅD$"WRITE "F$:X0X11:(34)Z1$(X)::X20343503E";:34:"DONE":24:2:"";:12:"";:22:"";:32:"";::5:5:"":j1耲112:1:G$;MG$" ";:36000:12:1:(SP$,40):1Є1ڄF$"VISIFILE.14":DK$"OUTPUT":RW$"W":S%SL%:D%1:40000:DS%134250 2X20:D$"READ0 {23:34::G$;"DONE"::23B0*{IN$:(IN$)1(IN$)24ĺAA$:R04{G$;:31530X0}0}FL$FL$(1):TI$"FILE REORGANIZE":1710:LT%0Ģ2:18::"NUMBER OF PROBLEMS ";NP%:d1}7:"DATA CONVERSION PROCESSING"::23:4:"STOP";:13:"CANCEL";:24:"PAG0Ģ2:37::NP%:*/"yLT%1Ģ5:1:2100:=/,yVP%2231100\/1y23:24::G$;"PAGE"::23v/6yIN$:(IN$)1631040/8y(IN$)1(IN$)19(IN$)24ĺAA$:3105/:yG$;:31030/@y32000:VP%5:P$" "ı/|yVP%:1:2100:VP%VP%1:/ {/{LT%1ı.DR%1MG$"INSERT DATA DISK IN DRIVE 1":33000:32000>DK$DD$:F$FL$(2)".DATA":RW$"R":S%SL%:D%DR%:40000:SC%132000>D$;"READ ";F$:16400 H?MX%,RL%:216,0:RL%RL%(IN%)ĺD$:MG$"FILE DEFINITIOND/DATA FILE NF%)CO%(CF%)1:CO%(CF%)N%(IN%)CO%(CF%)06813600k9CO%(CF%)CO%(CF%)1:CO%(CF%)0CO%(CF%)N%(IN%)vl9136009CF%CF%1:CF%N%(OUT%)CF%14:13400:CF%CF%1:CF%1CF%N%(OUT%):13400`;SW%1::29110T==X$FL$(2)".DATA":%(CF%)::12500:LS%C:22:1:868:C0NM%(CF%,OUT%)NM%(C,IN%)L%(CF%,OUT%)L%(C,IN%)ĺ"WARNING: FIELD WILL BE SHORTENED";5IN$:IN$(1)15200L6IN$(13)148006IN$"^"150007IN$(8)14600x7IN$(21)144007G$;:13800+@8CO%(Ci=ii)$M BEH)4iQ`,;LuN1$(1)N1$(21)" PRINT MESSAGES ON PRINTER (Y/N):00":M1$(3)"":;j"A",3: 0,20,7,0,20,16,0,20,30:"MATCH","REORGANIZE","DONE":"/*": "B",3: 0,18,5,0,18,18,0,18,31: "APPEND","DELETE","CANCEL": "/*"; "Z";(121)256(122)33:(1Li000: :Pò:ZÆM1$(3),N1$(34):Z1$(0):Z2$Z1$Z1$:Z3$Z2$Z1$:X134:N1$(X)(X)::M1$(0)N1$(6)N1$(1)N1$(19)N1$(10)N1$(1)" INPUT FILE NAME: 00"@;xM1$(1)N1$(9)N1$(1)N1$(19)N1$(10)N1$(11)" OUTPUT FILE NAME:00":M1$(2)N1$(12)N1$(1)N1$(34)DS%0:40998?9OP$"R":D$;"RENAME ";F$;",";F$:RW$"W"DS%1a9ԞD$;"OPEN ";F$;",L";L%:40998g9ğ9Ο:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:SC%1:36000::RT%040020:&38027080(222)640600,85(222)840900@8:(222)940270U8D(222)1040270[8Nf8X39012l88OP$"V"RW$"L"(DK$,1)"P"409988OP$"R"RW$"R"DS%2:409988OP$"R"RW$"W"406608OP$"V"(DK$,1)"P"40900 9OP$"C"ION":D$;"OPEN CONFIGURATION":DS%1:4099807a7790:D$:(DK$,1)"B"(222)8DS%9:409987(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000:400008&(222)54216,0:253006@6ESC%076TDS%0:RT%0:L%0L%1H6VAA$:40200[6_RW$"C"40075w6`RW$"G"RW$"R":406386cOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"409006|DR$(D%)"P":RW$"L"40998*7OP$"C":D$;"VERIFY CONFIGURAT05Ӕ 5X5]790:216,0:5dD$:G$::12::(222)0(222)15Ė10:G$;"ERROR=";(222);" AT LINE ";(218)(219)256:391005v14:"DISK ERROR=";(222)5::14:14:"PRESS ";::"RETURN";::36000:391245ИD$"CLOSE":391265Ԙ790 6֘:2:10:"INPUT FILE: ";FL$(0):17:1:(SP$,40):17:9:"OUTPUT FILE: ";FL$(1):23:3:"MOVE";:15:"MATCH FIELDS";:34:"DONE":"";:17:"";:32:"";:44IN$:IN$(13)360104A$:4쐌790:38000:4p5z39000X21:(34)Z$(X):*3.D$"CLOSE "F$:03i3ˆ22:1::G$;ER$;::" ";:36000:22:1:(SP$,40):o33&X$(SP$,10)ı30(X$,1)"A"(X$,1)"Z"ı3:X110:(X$,X,1)","ı3N:ER$"":34:FL$"":TI$"FILE REORGANIZE":1710::F$:3410032 Z$(X2):(Z$(X2),2,10)FL$(1)34060F2X2X21:34060g24790:38000:(222)5390002HD$"CLOSE "F$:D$"DELETE "F$:F$"VISIFILE.14":DK$"OUTPUT":RW$"W":S%SL%:D%1:400002ʅD$"WRITE "F$:X0X11:(34)Z1$(X)::X20343503X;:34:"DONE":24:2:"";:12:"";:22:"";:32:"";::5:5:"":h1耲112:1:G$;MG$" ";:36000:12:1:(SP$,40):1Є1ڄF$"VISIFILE.14":DK$"OUTPUT":RW$"W":S%SL%:D%1:40000:DS%134250 2X20:D$"READ " {23:34::G$;"DONE"::23@0*{IN$:(IN$)1(IN$)24ĺAA$:P04{G$;:31530V0}0}FL$FL$(1):TI$"FILE REORGANIZE":1710:LT%0Ģ2:18::"NUMBER OF PROBLEMS ";NP%:b1}7:"DATA CONVERSION PROCESSING"::23:4:"STOP";:13:"CANCEL";:24:"PAGE"2:37::NP%:(/"yLT%1Ģ5:1:2100:;/,yVP%2231100Z/1y23:24::G$;"PAGE"::23t/6yIN$:(IN$)1631040/8y(IN$)1(IN$)19(IN$)24ĺAA$:3105/:yG$;:31030/@y32000:VP%5:P$" "ı/|yVP%:1:2100:VP%VP%1:/ {/{LT%1ı0.(aA$(Z$,2,10)A$(Z$,2,10):A$I( b24800e(pbD$"CLOSE MAINTFILES":k(bw(d26100(ddOO%026000(dDR%1MG$"INSERT OUTPUT DISK IN DRIVE 1":33000(,eD$;"CLOSE ";FL$(2)".DATA"(eD$"CLOSE":216,0:26200 )eUT%),TP,1)" "23400"'[TP:TP1'h[P$" '"(N$(C,OUT%),TP)"' WAS GIVEN VALUE:":31000:P$" "A$:31000:P$" INPUT VALUE WAS:":31000:P$" "(Z$(A),S%(B%,IN%),L%(B%,IN%)):31000:P$" ":31000:LT%0İ28400'\]'$^'^(`2&U(A$)1ĺIN$;:21400*&TVA$""21500?&VA$(A$,(A$)1)P&WIN$;:21500V&Wa&WIN$A$g&HXm&X&YD$:LT%0PA%0İ26300&YMSG%0İ24100:MSG%1' P 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 FME%(1)ME%(3) Z [(1)20: 38000:SC$"READING FILES":1700:Z$(120):5000@ . 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:1140 `MF$(MP%)"/*":12002 tMCP1$";xM1$(1)N1$(9)N1$(1)N1$(19)N1$(10)N1$(11)" OUTPUT FILE NAME:00":M1$(2)N1$(12)N1$(1)N1$(34)N1%0:40998=9OP$"R":D$;"RENAME ";F$;",";F$:RW$"W"DS%1_9ԞD$;"OPEN ";F$;",L";L%:40998e9ğ9Ο:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:SC%1:36000::RT%040020:&38007080(222)640600*85(222)840900>8:(222)940270S8D(222)1040270Y8Nd8X39012j88OP$"V"RW$"L"(DK$,1)"P"409988OP$"R"RW$"R"DS%2:409988OP$"R"RW$"W"406608OP$"V"(DK$,1)"P"40900 9OP$"C"DSN":D$;"OPEN CONFIGURATION":DS%1:40998.7_7790:D$:(DK$,1)"B"(222)8DS%9:409987(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRIVE ";D%:12:12:"AND PRESS RETURN ";:36000:400008&(222)54026,0:253006@6ESC%056TDS%0:RT%0:L%0L%1F6VAA$:40200Y6_RW$"C"40075u6`RW$"G"RW$"R":406386cOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"409006|DR$(D%)"P":RW$"L"40998(7OP$"C":D$;"VERIFY CONFIGURATIO5Ӕ 5X5]790:216,0:5dD$:G$::12::(222)0(222)15Ė10:G$;"ERROR=";(222);" AT LINE ";(218)(219)256:391005v14:"DISK ERROR=";(222)5::14:14:"PRESS ";::"RETURN";::36000:391245ИD$"CLOSE":391265Ԙ790 6֘212:10:"INPUT FILE: ";FL$(0):17:1:(SP$,40):17:9:"OUTPUT FILE: ";FL$(1):23:3:"MOVE";:15:"MATCH FIELDS";:34:"DONE":"";:17:"";:32:"";:44IN$:IN$(13)360104A$:4쐌790:38000:4p4z390002uSC$"LOADING DEFINITION FUNCTION":1700:PN%4:RT%4:MR%36:RT%030010^6uRT%4:MR%39:uDK$P1$:D%1:S%PL%:RT%1:40910:30002yk"yME%(1)1:CT$".MAP":44000:MV$(Z)"AUTOMATIC MAPPING":MV$(Z1)"DEFINE A NEW FORMAT":MS$"D":1250:ME%(0)Z.LC%20X$P$:12060:P$X$..P$""P$" "L.P$:TY%3LF$"Y"ĺ(10)\ /LC%LC%1:i/TY%3ı&/24:"PRESS ";::"RETURN";::" WHEN READY";:11000::LC%90İ9000D/HqOP%1:35000:SC$"LOADING MAIN MENU":X$"31":DK$P1$:320020uLLE=";::F1$::9030<#12000F#P$" FIELD NAME TYPE START LENGTH":12000:P$" --------------- ---- ----- ------":12000:' "A",2: 0,20,10,0,20,27: "NO","YES": "/*": "Z"*+IN$:IN$(13)11010 +A$:."":12000:P$(SP$,7)"CALCULATED FIELD FORMULAS":12000:P$"":12000:X123439:P$(U$,X,39):(P$,1)" "8900("12000:X""LC%99:12060:D$"PR#0":30000(#*#LC%0:TY%2ė2#P$(SP$,17(F1$)2)"FILE="F1$:TY%2Ė17(F1$)2:"FI(L%(X)):(L$)3L$(SP$,3(L$))L$Pr!I$(I$(X),1):TY$"A":I$"*"TY$"N"dv!I$"!"TY$"P"x!HY$" ":TY$(X)" "HY$"-"z!P$TY$(X)HY$NA$(X)"..."TY$"....."S$"....."L$:12000:X!"U$""8900 "LC%12TY%3İ12060q"P$220 PI$PI$(X$,X,1)  X) PI$54!9000:Q>!X023:NA$(X)""8700J!(NA$(X),1)" "NA$(X)(NA$(X),(NA$(X))1):8522L!(NA$(X))15NA$(X)NA$(X)("..............",15(NA$(X)))R!S$(S%(X)):(S$)3S$(SP$,3(S$))S$&f!L$"READY PRINTER AND PRESS ";::"RETURN";::" ";:11000::12:17::"PRINTING"::1:D$;"PR#";PR%X$PI$:PI$"":(X$,1)"."8500X120:X208190(X$,X,1)"#"((X$,X1,1))63PI$PI$(((X$,X1,1))64):XX1:8200(X$,X,1)"."8 Y:630078X$(S2$(X),Y1,(F1$)):X$F1$6300NLD$"DELETE "S2$(X)uX:SF$F1$FL$"":35000:970,0:30000XIN$:IN$(13)7000bA$:22:1:G$;"ER$+"";:GOSUB 7000:RETURN@J41000:TY%2PR%08500b:12:5:X%1:XX1:5200790D"38000:D$"DELETE "F$:X%060006D$"OPEN "F$:D$"WRITE "F$:Y0X1:(34)Z$(Y)::D$"CLOSE "F$pz6100D$"DELETE "F1$".DATA":38000:F%1790:38000:X1S2:Y1(S2$(X)):(S2$(X),Y,1)"."6200RMATS"N:5:"CUSTOM FORMATS"::ME%(1)1:1070:1690:1380:ME%(1)130000(SC$"FILE DELETION IN PROGRESS":1700:F$"VISIFILE.14":40000:X0:X%0:D$"READ "F$:5400PZ$(X):(Z$(X),2,10)FL$5200_(Z$(X),2,10)(SP$,10)Z$(X)""5410dRNING!"::8:"SELECTING ";::"YES";::" WILL PERMANENTLY DELETE"10:4:"THE DATA FILE ";::F1$;::" AND ANY OF":12:"THE FOLLOWING FILES ASSOCIATED WITH IT:":14:5::"FILE DEFINITION";:25:"REPORT FORMATS"::5:"INDEX FILES";:25:"LABEL FOSE "F$:F1$FL$:SV$FL$B(F1$,1)" "F1$(F1$,(F1$)1):5056\TY%3TY%5İ44000:rSF$FL$:FL$SV$:TY%58000TI$"FILE DELETION":1710:43000:CMS$"A":1250:4:2:"DO YOU WANT TO DELETE FILE ";::F1$;::" ?":6:17::"WA:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL":MZ%(1)1:"";:HZ%(1)10:"";::eX049:X1YX:M$(X)M1$(X1):M$(X)""4160X@F$"VISIFILE.12":DK$DD$:RW$"R":S%SL%:D%DR%:40000:D$"READ "F$:FL$,TY%:D$"CLO$,40):2:15:"PLEASE WAIT"::21((SC$)2):SC$::;::(SP$,MX%(0)):2:(SP$,MX%(0))::1:TI$"VISIFILE - "TI$::(MX%(0)(TI$))21MX%(1):TI$:1MX%(1):FL$::_ 20:1:(SP$,39):23:1:(SP$,39):24:MZ%(1)1:(SP$,39);:2313901|ME%(1)ME%(1)1:ME%(1)0ME%(1)ME%(0);139023:1:868:24:1:868:23:3::"MOVE";:19:"JUMP";:33:"SELECT":24::"";:14:"";:32:"";::5::" VISIFILE - VERSION 1.0 ";:(SP60"ME%ME%(1)=,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1R6ME%(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:ME%(1)ME%(0)ME%(1)1h"R":S%SL%:D%DR%:40000:DS%2ıd-D$"READ "F$:PL%,SL%,DR%,PR%,LF$,PI$,PT$,FL$:D$"CLOSE "F$:-(121)256(122)33:Z$Lii=ii)$M BEH)4iQ`,;Lu1): ,S5S526:S20:S71S6:c,6,SS(S5):7,(S5256):S41,(6):S42,(7):S36:S4,(8):,S2S21:S2$(S2)(S4$,1):S5S538:S280ĂS7:,:20:1:G$;"WARNING: TOO MANY FILES ON DISK":X13000:::,૲"-F$"VISIFILE.11":DK$DD$:RW$S3MR%24:S3043100h+Y54,SS(S3):55,256(S3256):56,SS(S33):57,256((S33)256):1002:43120+\54,SS(S3):55,(S3256):56,SS(S33):57,((S33)256):1002:+pD$;"CATALOG":D$;"PR#0":D$;"IN#0":,S6(6)(7)256:S6((S6S519)38F$: *#*D$"READ "F$:42500@*.EOF%0:Z$:38000:42999a*790:38000:(222)539000l*"EOF%1r*x**6:24:S2$(80):SS(X)X(X256)256:S4$"":S4(107)(108)25612: *HS5(109)(110)25650:+R6,SS(S5):7,(S5256):)TY$(A%)" ")A%A%1:C8)42000:EOF%141300U)(Z$,11)" "FL$41300f)A%2441070l)T)YNA$(A%)"":C023:NA$(C)""41340)rC)|RL%S%(C1)L%(C1)1:(Z$,1)" "41900)EOF%141900)U$(Z$,(Z$)11)*D$"CLOSE "(Z$,230,1):ME%(1)3:OP%1:A%0:TY$"@"p(nC07:B%21(C26):(Z$,B%5,15)(SP$,15)I$(A%)(SP$,5):41200)NA$(A%)(Z$,B%5,15):I$(A%)(Z$,B%,5):S%(A%)((Z$,B%20,3)):L%(A%)((Z$,B%23,3)):(I$(A%),1)"*"TY$((TY$)1):TY$(A%)TY$:41130'(]'2F$"VISIFILE.14":DK$DD$:L%240:RW$"G":S%SL%:D%DR%:40000:DS%2EOF%1:41030h'<42000'FEOF%1ė:10:16::G$;FL$::12:14:"NOT DEFINED":14:14:"PRESS RETURN ";:36000:FL$"":IX$"":'P(Z$,2,10)FL$41020((QMN$(Z$,12,9)ENAME ";F$;",";F$:RW$"W"DS%1B&ԞD$;"OPEN ";F$;",L";L%:40998H&ğc&ΟDE%DE%1:DE%330000&ӟ:10:10:G$"INSERT ";::DK$;::" DISKETTE":12:12:"IN SLOT ";S%;" DRIVE ";D%:14:12:"AND PRESS RETURN ";:36000::RT%040000'&38000:DE%0:(222)840900!%:(222)9402706%D(222)1040270<%NG%X39012M%v%OP$"V"RW$"L"(DK$,1)"P"40998%OP$"R"RW$"R"DS%2:40998%OP$"R"RW$"W"40660%OP$"V"(DK$,1)"P"40900%OP$"C"DS%0:40998 &OP$"R":D$;"RS%1:40998$B$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(222)640600 %5#TDS%0:RT%0:L%0L%1)#VA$:40200<#_RW$"C"40075X#`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$;"OPEN CONFIGURATION":D0:38000:"p"z39000""Ӕ("X:"]790:216,0:"dD$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100"v14:"DISK ERROR=";(222)"::14:14:"PRESS ";::"RETURN";::36000:D$"CLOSE":"@FL$:OP%035100O!MN$:IX$:PO%:X023:NA$(X)""ĺ"":" ":X24:35080}!(I$(X))5I$(X)I$(X)(SP$,5(I$(X)))!NA$(X):I$(X):S%(X):L%(X)!X:(34)U$!D$;"CLOSE VISIFILE.11":!!IN$:IN$(13)36010!A$: "쐌79TION":X$"3":DK$P2$> }1700:PN%(X$):MR%36:RT%032010J }MR%39n }D%1:S%PL%:RT%1:40000:32002t !ֈSC$"WRITING FILES":1700:DK$DD$:F$"VISIFILE.11":D%DR%:S%SL%:RW$"W":L%1:40000:D$"WRITE "F$:PL%:SL%:DR%:PR%:LF$:PI$:PT$:T":1710:Y32:4000:1800:Z$(SP$,10)Iy9000:MC%2MC%6ĺG$;:31230[zMC%2431000szZ$(SP$,10)ER%1zX110:(Z$,X,1)","ER%10z:ER%1ER$"FORMAT NAME INVALID":7100:31230 DzMN$Z$:OP%1:35000:SC$"LOADING CUSTOM FORMAT FUNC2:TI$"SELECTING A FORMAT":1710:1070:1690:1380:MC%(ME%(1)1,0):MC%(MX,1)1:"*":ME%(1)ME%(0)31200hyME%(1)ME%(0)1MN$"AUTOMATIC ":31100ryMN$MV$(ME%(1)1):(MN$)10MN$MN$(SP$,10(MN$))|yME%(1)5:29000&yTI$"DEFINING A FORMA Y:630078X$(S2$(X),Y1,(F1$)):X$F1$6300NLD$"DELETE "S2$(X)uX:SF$F1$FL$"":35000:970,0:30000XIN$:IN$(13)7000bA$:22:1:G$;"ER$+"";:GOSUB 7000:RETURN@J41000:TY%2PR%08500b:12:5:X%1:XX1:5200790D"38000:D$"DELETE "F$:X%060006D$"OPEN "F$:D$"WRITE "F$:Y0X1:(34)Z$(Y)::D$"CLOSE "F$pz6100D$"DELETE "F1$".DATA":38000:F%1790:38000:X1S2:Y1(S2$(X)):(S2$(X),Y,1)"."6200RMATS"N:5:"CUSTOM FORMATS"::ME%(1)1:1070:1690:1380:ME%(1)130000(SC$"FILE DELETION IN PROGRESS":1700:F$"VISIFILE.14":40000:X0:X%0:D$"READ "F$:5400PZ$(X):(Z$(X),2,10)FL$5200_(Z$(X),2,10)(SP$,10)Z$(X)""5410dRNING!"::8:"SELECTING ";::"YES";::" WILL PERMANENTLY DELETE"10:4:"THE DATA FILE ";::F1$;::" AND ANY OF":12:"THE FOLLOWING FILES ASSOCIATED WITH IT:":14:5::"FILE DEFINITION";:25:"REPORT FORMATS"::5:"INDEX FILES";:25:"LABEL FOSE "F$:F1$FL$:SV$FL$B(F1$,1)" "F1$(F1$,(F1$)1):5056\TY%3TY%5İ44000:rSF$FL$:FL$SV$:TY%58000TI$"FILE DELETION":1710:43000:CMS$"A":1250:4:2:"DO YOU WANT TO DELETE FILE ";::F1$;::" ?":6:17::"WA:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL":MZ%(1)1:"";:HZ%(1)10:"";::eX049:X1YX:M$(X)M1$(X1):M$(X)""4160X@F$"VISIFILE.12":DK$DD$:RW$"R":S%SL%:D%DR%:40000:D$"READ "F$:FL$,TY%:D$"CLO$,40):2:15:"PLEASE WAIT"::21((SC$)2):SC$::;::(SP$,MX%(0)):2:(SP$,MX%(0))::1:TI$"VISIFILE - "TI$::(MX%(0)(TI$))21MX%(1):TI$:1MX%(1):FL$::_ 20:1:(SP$,39):23:1:(SP$,39):24:MZ%(1)1:(SP$,39);:23,"*",118,2,"NET AMOUNT","*",120,10,"ORDER DATE"," ",130,8,"ORDER STATUS"," ",138,10,"HOW SHIP"," ",148,10,"SHIP DATE"," ",158,8,"SHIPPER NAME"," ",166,15," "," "> "@12010=@11802/100*@10810:@12010=@10810-@12010::" : "/*"E................","N","ORDERS","AUTOMATIC","ORDNUM",78,"LASTNAME"," ",6,15,"FIRSTNAME"," ",21,15,"ADDRESS"," ",36,20,"CITY"," ",56,15,"STATE"," ",71,2,"ZIP"," ",73,5,"ORDER NUMBER","*",78,10/ "SALESPERSON"," ",88,20,"AMOUNT","*",108,10: "DISCOUNT" 66,0,0,1,0,0,0,0,0,0,0,0,0,0,0,39,3,0,1,15,2,99,0,0,6,1,9,19,0,0,0,10,1,10,30,2,1,0: "/*" : 66,0,0,0,0,0,0,0,0,0,0,0,0,1,0,64,5,0,1,15,2,99,0,0,6,1,10,19,99,0,0,8,1,10,31,2,1,0,10,1,10,43,2,1,0,12,1,10,55,99,0,0: "/*"* 6,6,2,1,"N","...."/*"1310((X$,1)"@"ĺQ$X$:13000 X$6D$"CLOSE "FL$:2:G$;"FILE CREATION COMPLETE":4::66,0,0,0,0,0,0,0,0,0,0,0,0,1,0,78,6,0,1,15,2,99,0,0,2,1,20,19,99,0,0,3,1,15,41,99,0,0,4,1,2,58,99,0,0,5,1,5,62,99,0,0,8,1,10,69,0,1,0:"/*"006":"0008":"0007":D$"CLOSE "FL$BFL$"ORDNUM.ORDERS.78.INDEX":D$"OPEN "FL$:D$"WRITE "FL$:"0008":"0008":"0002":"0006":"0004""0003":"0001":"0007":"0005":D$"CLOSE "FL$:FL$"VISIFILE.11":D$"OPEN "FL$:D$"WRITE "FL$:X1100 X$:X$FL$:"ORDERS":"ORDNUM":78tRQ$"ORDER LISTING BY ORDER NUMBER":Q$"SEPT. 14, 1981":Q$:X1100:X$:X$"/*"930~X$:D$"CLOSE "FL$:FL$"ZIP.ORDERS.73.INDEX":D$"OPEN "FL$:D$"WRITE "FL$:"0008":"0005":"0001"#"0002":"0003":"0004":"0 NX$:ibD$"CLOSE "FL$:FL$"DISPRP.ORDERS.REPORT":D$"OPEN "FL$:D$"WRITE "FL$:"ORDERS":"ZIP":73Q$"SAMPLE REPORT FOR SCREEN":Q$:Q$:X1100:X$:X$"/*"770X$:D$"CLOSE "FL$:FL$"ORDBYNO.ORDERS.REPORT":D$"OPEN "FL$:D$"WRITE "010::"(SP$,180):FL$"VISIFILE.14"|D$"OPEN "FL$:D$"WRITE "FL$:X14:(34)X$(X)::D$"CLOSE "FL$:FL$"PRTRP.ORDERS.REPORT":D$"OPEN "FL$D$"WRITE "FL$:"ORDERS":"ZIP":73:Q$;"SAMPLE REPORT FOR PRINTER":Q$:Q$:X1100:X$:X$"/*"610"ORDER STATUS ""138010 ""HOW SHIP ""148010 "#TX$(2)X$(2)"SHIP DATE ""158008 ""SHIPPER NAME ""166015"(SP$,10):X$(3)"*ORDERS D=C/100*B:D=B-D:"(SP$,211):X$(4)"!ORDERS @12010=@11802/100*@10810:@12010=@10810-@12 "Y@X$(1)X$(1)"ORDER NUMBER ""078010 ""SALESPERSON ""088020"(SP$,10)?JX$(2)" ORDERS AUTOMATIC* ""AMOUNT ""108010* ""DISCOUNT ""118002* ""NET AMOUNT ""120010 ""ORDER DATE ""130008 "):D$"CLOSE ORDERS.DATA"6X$(1)" ORDERS AUTOMATIC ""LASTNAME ""006015 ""FIRSTNAME ""021015 ""ADDRESS ""036020 ""CITY ""056015 ""STATE ""071002 ""ZIP ""073005* ""SAN FRANCISCO ""CA94104"" 23718""BENSON "" 4800.25"" 8"" 4416.23""8/24/81 ""IN PROCESS""COMM CARR "" ""CARLTON "D$"OPEN ORDERS.DATA,D1":D$"WRITE ORDERS.DATA":8:182:(SP$,175):X18:(34)X$(X ""444 ANTONIO AVE ""PALO ALTO ""CA94303"" 98347""BENSON "" 4897.11"" 8"" 4505.3412""6/12/81 ""BACK ORDER""UPS "" "" "X$(8)"0008 LEVIN ""RONALD J. ""145 POST PPLY"" ""2617 ARAPAHOE ""BOULDER ""CO80501"" 33826""CUTHBERT "" 1002.10"" 6"" 941.974""8/20/81 ""IN PROCESS""COMM CARR "" ""ROUTE SIX "X$(7)"0007 HARTFORD ASSOC "" (5)"0005 MANNE FEEDS "" ""FRONT STREET ""CLYDE ""OH04221"" 99231""ESHELMAN "" 346.50"" 5"" 329.175""7/30/81 ""BACK ORDER""COMM CARR "" ""JONES "X$(6)"0006 FLATIRON SUNES " X$(4)"0004 HOOPER HARDWARE""JOHN ""533 MAIN STREET ""MINOR ""IL05899"" 38131""DAILY "" 3890.00"" 8"" 3578.8""2/10/81 ""COMPLETE ""COMM CARR ""3/5/81 ""CVV " X$MM CARR ""7/1/81 ""GREEN BALL " X$(3)"0003 POLLEY ""JOHN ""54 MAYLOCK AVE ""BENTON BAY MI05661"" 71175""ALLOT "" 2319.88"" 7"" 2157.4884""6/20/81 ""COMPLETE ""COMM CARR ""8/1/81 ""JO81 ""IN PROCESS""COMM CARR "" ""JONES "& X$(2)"0002 ABBOTT ""FARLEY ""317 RAILROAD STREET ""CLYDE ""OH04522"" 24485""ESHELMAN "" 2000"" 7"" 1860""5/14/81 ""COMPLETE ""CO;::"RETURN";:" ";IN$:X h10:868:12:868:14:868::2:"CREATING FILES...":4; X$(1)"0001 BEAN SUPPLY "(SP$,15)"GRADE AVENUE ""FREPORT ""OH04413"" 72914""ESHELMAN "" 1009.75"" 7"" 939.0675""7/15/ * SAMPLE FILE GENERATOR *j G$(7):D$(4):Q$(34):SP$" ":X14:SP$SP$SP$:: (::" VISIFILE - SAMPLE DATA FILE GENERATOR ":3:(SP$,40)::10:8:"INSERT INITIALIZED DISKETTE":12:15:"IN DRIVE 1":14:12:"AND PRESS "          RW$"R":40638UcOP$"V":D$;"VERIFY VISIFILE.10,D";D%;",S";S%:(DK$,1)"P"40900hRW$"L"40998nt790:D$:(DK$,1)"B"(222)8DS%9:409984(222)4ė:8:G$"REMOVE WRITE PROTECT TAB FROM DISKETTE":10:12:"IN SLOT ";S%;" DRdD$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39100}v14:"DISK ERROR=";(222)::14:14:"PRESS ";::"RETURN";::36000:D$"CLOSE":440:@TDS%0:RT%0:L%0L%1VAA$:40200`RW$"G"------------*": o'::34,6:-:"DO YOU WISH TO CONTINUE? ";Z$:(Z$,1)"N"Ĺ34,0::\ (222)6(222)11(222)13Ĭbo'::"*--------------------------------------*";:"*";40);"*";:"* V - I - S - I - F - I - X *";:"*";40);"*";:"*-------------------------- THE WRITE PROTECT TAB.":5100X(222)6Z$"THAT PROGRAM IS NOT ON THE DISK.":5100(222)11Z$PN$" IS NOT A VALID PROGRAM NAME.":5100(222)13Z$PN$" IS NOT AN APPLESOFT PROGRAM.":5100Z$"DISK ERROR = "((222))"."8:Z$:(A$)13ı(A$)821006(Z$)0ĺ"";:2020O(Z$)1Z$"":2070d Z$(Z$,(Z$)1)~(8);" ";(8);:20204(A$)27İ30009(A$)32ĺ"";:2020>Z$Z$A$:A$;:(Z$)2552020R  (222)4Z$"PLEASE REMOVEAFIX A WRITE PROTECT TAB.";Q$:"NEW"p"POKE 34,0":"DELETE VISIFIX.REPAIR":D$"CLOSE VISIFIX.REPAIR":D$"EXEC VISIFIX.REPAIR":(Z$)0ıX1(Z$):Y((Z$,X,1)):CVCV(XY)CV10000CVCV10000:1040X:Z$"" A$:"INIT ";PN$;",D2":"LOCK ";PN$}SN1NS:Z$(SN):SN:"UNLOCK ";PN$;",D1":"DELETE ";PN$:"SAVE ";PN$:"LOCK ";PN$:"HOME"$*"PRINT ";Q$;"THE PROGRAM MAINTENANCE IS DONE.";Q$:"PRINT ";Q$;"YOU MAY NOW REMOVE THE PROGRAM DISK";Q$:"PRINT ";Q$;"AND RE- INTERRUPT.":5603D$;"VERIFY ";PN$;",D1":600B05000:540LX620qbD$;"DELETE VISIFIX.REPAIR":650l(222)6650v5000:6006707005000:D$"OPEN VISIFIX.REPAIR":D$"WRITE VISIFIX.REPAIR":"LOAD ";PN$:BD$"Y"ĺ THE VISIFIX"J "REPORT AND INSERT THE DISK INTO DRIVE 1.":BD$"N"450 ::"ALSO, MOUNT A SCRATCH DISK ON DRIVE 2":"FOR SAVING THE ORIGINAL PROGRAM.": : "READY? ";Z$:(Z$,1)"Y"460:"PROGRAM MAINTENANCE IN PROGRESS.":"DO NOTT, CONTACT PERSONAL":"SOFTWARE.":::1000  :"THANK YOU. YOU HAVE ENTERED THE FIX":"CORRECTLY. THE FIX WILL NOW BE APPLIED":"TO YOUR SYSTEM."::"PLEASE REMOVE THE WRITE PROTECT TAB":"FROM THE VISIFILE PROGRAM DISK":"SPECIFIED IN ITEM (B) OF 3 3 4":"1...5....0....5....0....5....0....5....0":OP(34):34,14:SN1NS:CH%(36):CV%(37):9:30:SN;:CH%1:CV%1 2000:1000:Z$(SN)Z$:::SN:34,OP:::CVCN400* 1:"THE FIX IS NOT VALID. PLEASE TRY AGAIN.":"IF PROBLEMS PERSIS85^ d" (C)":"CONTROL NUMBER? ";CN%:CNCN%::" (D)":"PROGRAM NAME? ";Z$:1000:k PN$Z$: " (E)":"NUMBER OF STATEMENTS? ";NS%:NSNS%:NS0NS50180 :::5);"PLEASE ENTER STATEMENT # 1"::" 1 1 2 2 SCRATCH DISK ON DRIVE 2":"WILL BE RE-INITIALIZED. ANY EXISTING":"DATA ON IT WILL BE LOST.": U"DO YOU WANT TO SAVE THE ORIGINAL PROGRAM";:"ON A SCRATCH DISK ON DRIVE 2 BEFORE":"UPDATING IT? ";BD$::(BD$)085 YBD$(BD$,1):BD$"Y"BD$"N"! g:D$(4):Q$(34):SP$" ":Z$(100):D$"NOMON I,O,C":10000<"HOW MANY DISK DRIVES DO YOU":"HAVE (1 OR 2)? ";DD%::DD%1DD%260PDD%1BD$"N":100_ Q"IF YOU ANSWER 'YES' TO THE NEXT":"QUESTION, A     FL$:"ORDERS":"ORDNUM":78tRQ$"ORDER LISTING BY ORDER NUMBER":Q$"SEPT. 14, 1981":Q$:X1100:X$:X$"/*"930~X$:D$"CLOSE "FL$:FL$"ZIP.ORDERS.73.INDEX":D$"OPEN "FL$:D$"WRITE "FL$:"0008":"0005":"0001"#"0002":"0003":"0004":"0)N$(2)"*DESTINATION DRIVE00":M$(2)N$(14)N$(2)N$(35)N$(3)N$(3)" INITIALIZE DESTINATION DISKETTE?00":M$(3)""(121)256(122)33:6Lii=ii)$M BEH)4iQ`,;Luuu080!14:"DISK ERROR=";(222)K::14:14:"PRESS ";::"RETURN";:fIN$:(IN$)1339090AA$:D$"CLOSE":9000PòsZÆN$(36):X136:N$(X)(X)::M$(0)N$(10)N$(10)N$(23)N$(1)N$(1)"*SOURCE DRIVE00":M$(1)N$(12)N$(10)N$(28)N$(1791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96:787,SL%:788,DR%:789,ST%:800,PL%16:{pz39000Xb790:216,0::D$:G$::12::(222)0(222)15Ė10:"ERROR=";(222);" AT LINE ";(218)(219)256:39"RETURN";::" ";IN$:23010.Y790:38000:Z790:38000::10:10:G$"INSERT ";::"PROGRAM-#2";::" DISKETTE":12:12:"IN SLOT ";SL%;" DRIVE 1":14:12:"AND PRESS RETURN ";(ZIN$:(IN$)13230802ZAA$::20000:23000]u]790,104:CTRL-X>";::UCU2:(SP$,40):3:(SP$,40):3:SC$;"...":IYUY23048YD$"VERIFY VISIFILE.9,D1,S"PL%:23030YD$"LOCK VISIFILE.9":38000::8:10)"PLACE WRITE PROTECT TAB":10:10)"ON DISKETTE IN DRIVE 1":12:12:"AND PRESS ";::TION";(SP$,10):2::(SP$,40):3:(SP$,40)::4:(SP$,40)::6:13:"VISIFILE 1.00":2:"C 1981 CREATIVE COMPUTER APPLICATIONS":R R20:1:(SP$,39):23:1:(SP$,39):24:1:(SP$,39);:23:2::"ACCEPT";:11:"CANCEL":1:"";:10:"<<(F(:20000:22000kP(12:6:"COPY ANOTHER DISKETTE? (Y/N) ";:IN$:AA$:IN$"N"IN$"Y"10320qd((20:1::G$;"UNABLE TO WRITE"::10320:2007(20:1::G$;"UNABLE TO READ"::10320:2007 N*N1::(SP$,10);"DISKETTE DUPLICA(SP$,39):10040j'C$"Y"C$"N"ĺG$;:20::"INITIALIZE DISKETTE - 'YES' OR 'NO'"::X11500::20:1:(SP$,39):10040k':t':20000:12:4:G$;"INSERT DISKETTES AND PRESS ";::"RETURN";::"";'IN$:(IN$)13ĺG$:10130':20000:$'Z$(DR%)"1""NO ":21000:/ .'CP%0:MR%6W 8'MC%0:MR%:MC%2MC%6ĺG$;:10040i G'MC%1310040z L'MC%249000V'SD((Z$,1)):DD((Z$,2,1)):C$(Z$,3,1):SD1SDDR%DD1DDDR%ĺG$;:20::"DISK DRIVE NUMBER INVALID"::X11500::20:1:"LOADING MAIN MENU":22000:PN%31:MR%36:RT%09060B Z#MR%39 d#:10:10:G$"INSERT ";::"PROGRAM-#1";::" DISKETTE":12:12:"IN SLOT ";PL%;" DRIVE 1":14:12:"AND PRESS RETURN "; n#IN$:(IN$)139070 x#AA$:9010 ' ':20000: 10420P SSDSSDDDĢ20:1:"INSERT DESTINATION DISK, HIT ANY KEY";:A$:A$; SC$"WRITING":22000:18:1:710:(713)21020 10410  SC$"COPY COMPLETED":22000:10300 24000: IN$"Y"740 (# -#24000:6 2#:20000:SC$$"INITIALIZING":22000::D$;"INITX,S";DS;",D";DD;",V0"> m 704:717,DS16:718,SS16:719,DD:720,SDs  SSDSSDDDĢ20:1:"INSERT SOURCE DISK, HIT ANY KEY ";:A$:A$; SC$"READING":22000:18:1:707:(713)11040 (713)2P$SP$:SSSL%:SDDR%:DD1:DSSL%:970,0:6 10000:C 23000:g %D$"BLOAD VISIFILE.9,D1,S"PL%: '704:715,(110)1:716,(112)1:DR%2İ10100 C$"Y"1000 SSDSSDDDĢ20:1:G$;"INSERT DESTINATION DISK, HIT ANY KEY";:A$:A$;8 SC ** V I S I F I L E . 8 **MR%0:VT%0:HT%0:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":PG%1:AL%0:PN%0:RT%0:D$(4):AA$(1):G$(7):M$(3):::38000) 63999:50000:PL%(800)16:SL%(787):DR%(788):ST%(789):SP$" ":SP$S     ------------*": o'::34,6:-:"DO YOU WISH TO CONTINUE? ";Z$:(Z$,1)"N"Ĺ34,0::\ (222)6(222)11(222)13Ĭbo'::"*--------------------------------------*";:"*";40);"*";:"* V - I - S - I - F - I - X *";:"*";40);"*";:"*-------------------------- THE WRITE PROTECT TAB.":5100X(222)6Z$"THAT PROGRAM IS NOT ON THE DISK.":5100(222)11Z$PN$" IS NOT A VALID PROGRAM NAME.":5100(222)13Z$PN$" IS NOT AN APPLESOFT PROGRAM.":5100Z$"DISK ERROR = "((222))"."8:Z$:(A$)13ı(A$)821006(Z$)0ĺ"";:2020O(Z$)1Z$"":2070d Z$(Z$,(Z$)1)~(8);" ";(8);:20204(A$)27İ30009(A$)32ĺ"";:2020>Z$Z$A$:A$;:(Z$)2552020R  (222)4Z$"PLEASE REMOVEAFIX A WRITE PROTECT TAB.";Q$:"NEW"p"POKE 34,0":"DELETE VISIFIX.REPAIR":D$"CLOSE VISIFIX.REPAIR":D$"EXEC VISIFIX.REPAIR":(Z$)0ıX1(Z$):Y((Z$,X,1)):CVCV(XY)CV10000CVCV10000:1040X:Z$"" A$:"INIT ";PN$;",D2":"LOCK ";PN$}SN1NS:Z$(SN):SN:"UNLOCK ";PN$;",D1":"DELETE ";PN$:"SAVE ";PN$:"LOCK ";PN$:"HOME"$*"PRINT ";Q$;"THE PROGRAM MAINTENANCE IS DONE.";Q$:"PRINT ";Q$;"YOU MAY NOW REMOVE THE PROGRAM DISK";Q$:"PRINT ";Q$;"AND RE- INTERRUPT.":5603D$;"VERIFY ";PN$;",D1":600B05000:540LX620qbD$;"DELETE VISIFIX.REPAIR":650l(222)6650v5000:6006707005000:D$"OPEN VISIFIX.REPAIR":D$"WRITE VISIFIX.REPAIR":"LOAD ";PN$:BD$"Y"ĺ THE VISIFIX"J "REPORT AND INSERT THE DISK INTO DRIVE 1.":BD$"N"450 ::"ALSO, MOUNT A SCRATCH DISK ON DRIVE 2":"FOR SAVING THE ORIGINAL PROGRAM.": : "READY? ";Z$:(Z$,1)"Y"460:"PROGRAM MAINTENANCE IN PROGRESS.":"DO NOTT, CONTACT PERSONAL":"SOFTWARE.":::1000  :"THANK YOU. YOU HAVE ENTERED THE FIX":"CORRECTLY. THE FIX WILL NOW BE APPLIED":"TO YOUR SYSTEM."::"PLEASE REMOVE THE WRITE PROTECT TAB":"FROM THE VISIFILE PROGRAM DISK":"SPECIFIED IN ITEM (B) OF`饠 LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<` L< 01ERR%0:MSG%0:15700:19100:ERR%03800>26900:D|D$:DR%1MG$"INSERT DATA DISK IN DRIVE 1":33000A0Z%:GT%NR%(IN%)X%1:Z$(A)"":D$;"CLOSE ";X$:5500D$;"READ ";X$;",R";GT%:Z$(A):GT%GT%1:A|D$:4D33000D 31708N D$"CLOSE "Y$:D$"DELETE "Y$:3175Ab 790Sg 38000:29105i 5600:X%03500sH 2900y 28400:OO%1İ18600D$"CLOSE":34000:ANP%0İ31500:F(IN$)24ĺD$"CLOSE "FL$(1):D$"DELETE "FL$(1)29105$,40(P$)))P$:LT%1LF$"Y"ĺ(10)5 P$"":;( X 4400:X%0:LT%1İ26300sT 5000:(KB)1273200 IN$((KB)128):KS,0:AA$! (IN$)193500& (IN$)1291000 (IN$)243200: DR%1MG$"INSERT OUTPUT DISK IN DRIVE 1":X049:X1YX:M$(X)M1$(X1):M$(X)""17952X8> 23:1:(SP$,39):24:MZ%(1)1:(SP$,39);:23:MZ%(1)2::"ACCEPT";:MZ%(1)11:"CANCEL":MZ%(1)1:"";:HZ%(1)10:"";::82004 9LT%1(P$)40P$P$(SP";::v::" VISIFILE - VERSION 1.0 ";:(SP$,40):2:15:"PLEASE WAIT"::21((SC$)2):SC$::|::(SP$,MX%(0)):2:(SP$,MX%(0))::1:TI$"VISIFILE - "TI$::(MX%(0)(TI$))21MX%(1):TI$:1MX%(1):FL$::+0JMP$:1390<^ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1Fh1390r|ME%(1)ME%(1)1:ME%(1)0ME%(1)ME%(0)|139023:1:868:24:1:868:23:3::"MOVE";:19:"JUMP";:33:"SELECT":24::"";:14:"";:32:"81660(M$)13ĺMP$;:C(M$)42ĭ(M$)65(M$)901460R"ME%ME%(1)~,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)16ME%(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$158)* MC%(ME%(1)1,2)1MP$MV$(ME%(1)1)d MC%(ME%(1)1,0):MH%::MP$;::MC%(ME%(1)1,0):MH%j u 38000 X9%(16384):X9%1271462 16368,0:M$(X9%128):(M$)8(M$)21(M$)32ĖMH%:MP$; (M$)21(M$)321630(M$)/*"ćMM$:1350 <MX( FME%(1)ME%(3). Z4 [N \ML$MS$:MM$MS$1379c ]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%(1)1,1):MC%(ME%(1)1,2)0MP$MF$(ME%(1)1"/*"MP$MV$(MZ%):MZ%MZ%1:1140: `MF$(MP%)"/*":1200h tMC%(MX,0):MC%(MX,1):MP$;:MP%MP%1:MXn t  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)"MX%(0)40:MX%(1)0:MV%0MX%(0)80:MX%(1)20| 38000:SC$"READING FILES":1700:19500:NR%(1),RL%(1),D$(1),D%(1):29000 . 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%) ":SP$SP$SP$:SP$SP$SP$:SP$SP$(SP$,127):PD$"PROGRAM-#1":DD$"DATA":MF$(20),MV$(59),PP%(29),PO%(59):MC%(59,2):ME%(6):MD%(2,2),MF%(2):P%(29,6). MX%(1):V%(14):FL$(3):I$(24,1),N$(24,1),NM%(24,1),S%(24,1),L%(24,1),CO%(24),N%(1):Z1$(4):64TMR%0:VT%1:HT%1:MC%0:ME%0:MS%0:Z$"":MV%0:MD$"":MW%1:AL%0:PN%0:RT%0Zz** V I S I F I L E . 17 ** M$(50):63999:MV%0:50000:PL%(800)16:SL%(787):DR%(788):AA$(1):D$(4):G$(7) xSP$" ! ! ! ! !!!!!!!!!                V# :14:10:"PLEASE BOOT FROM"O12:10::"VISIFILE PROGRAM DISK #1":U !ONFIGURATION":DK$P1$:RW$"C":S%PL%:D%1:40000:DS%15400BSC$"LOADING CONFIGURATION FUNCTION":DK$P1$:X$"0":3200020:5446,D$"READ "F$:Z$:38000:D$"CLOSE "F$:5450F790:38000:5030J(TPR%((Z$,4,1)):LF$(Z$)10:"";:::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$"CLE 1.00":2:"C 1981 CREATIVE COMPUTER APPLICATIONS":FT%01850dE1$""Ģ22::G$;E1$:E1$"":jp 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%(11:TI$"VISIFILE - "TI$::(MX%(0)(TI$))21MX%(1):TI$:1MX%(1):FL$:IX$""Ė25:2:"INDEX=";IX$o:uX8%0ė1::(SP$,40)::2:(SP$,40):3:(SP$,40)::4:(SP$,40):4:F1$;:IX$""Ė25:"INDEX=";:IX$@:6:13:"VISIFI%(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:g::(SP$,MX%(0)):2:(SP$,MX%(0)):ME%(1)ME%(1)10,XME%(1)0ME%(1)ME%(0)6Y1390IZMS$"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)MEME%ME%(1)7,ME%(1)ME%(1)1:ME%(1)ME%(0)ME%(1)1L6ME%(1)ME%1462z;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%(0)(1)1)))$:MC%(ME%(1)1,0):MH%EX9%(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 "2c d)iME%(1)ME%(0)ME%(1)1wnMC%(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$:137X0: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 ME%(25),MV$(59),PP%(29),PO%(59):MC%(59,2):< G%(3),G$(2):J ME%(7):k MD%(2,2),MF%(2):P%(29,6):y 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 .K 8MZ%0:MD%0:MP%0:M 949X,13$ :IX$""Ĺ950,13* 0 ,B 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):MF$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)):230P>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%1 12 (970)13(971)13İ300 <PL%(800)16:SL%(787):DR%(788):A$(1):D$("" " " " " """""""""