L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ŠͩŠΩŠίͩōӍҠӠҠӍҠ٠ԠՠōҠίōΠ٠ŠĠ̠ͬҠҍӠĠӠҠҠӍ ԍҨөōҍӍȬӬӬάîԠŠԠƠՠȠϠԮӠŠĠҠƠΠҠŠԍ ͍ԍōٍӍƠΠƠōӠĠӍΠĠԠƠՠȠϠԬԠӠРϠծ̬جԬî ٠ԍǠӬ͠Ĭî͍̠ҍŠč΍ӍҠ͠ΠŠŮǮŠɫҩƭٍҠΠ٠ԠՠȮŠԠĠԠ̠נǠ٠ŠƠՠȬҮŠŠ͠Ӡ  ō΍ӍٍōЍ؍ԠŠԠƠՠȠϠԠ٠ԬԠҠՠŮά٬îԠӬЮϮجҠҮΠŠՠŠ٠̠Š٠ȠϠԠҠŠ ͠îōϠӍĠŮҍ΍ȬÍӠȍҠӠӍĠōٍ΍؍ōٍӍٍōРōӬʍʮ®ӍȬîŠԮōčȬƍˠǮȍȠĠٍԠĠŮ΍ȍάˍˮî΍͠ԮȍÍŬ׍  INTER FOR 80":"COLUMN OUTPUT MIGHT INVOLVE SENDING":"CHR$(9)'80N' TO YOUR PRINTER. TO DO"&"SO, THE ASCII CHARACTER NUMBERS WOULD":"BE 9, 56, 48, AND 78.":100004023:"PRESS ANY KEY TO CONTINUE: ";:M$:::MCHARACTER AT A TIME BY":"ASCII CODE NUMBER) THAT YOU WISH TO":"SEND TO YOUR PRINTER EACH TIME IT IS":"ACTIVATED. NOTE THAT MANY COMBINATIONS"\"OF PRINTER AND INTERFACE WILL REQUIRE":"NO SUCH STRING. A COMMON STRING,":"HOWEVER, TO SET UP YOUR PR NO.":"INTO WHICH YOUR PRINTER INTERFACE CARD":"IS CONNECTED. (ENTER A '1' HERE IF":"YOU HAVE AN APPLE IIC, OR THE":"APPROPRIATE SLOT OTHERWISE. USUALLY" "IT WILL BE SLOT #1."1000:"THE SECOND PARAMETER IS A STRING (TO BE":"SPECIFIED ONE TERS CONSIST":"OF THREE PARTS. THE LAST IS THE":"SILENTYPE SLOT. YOU CAN GENERALLY":"IGNORE IT - IT IS INCLUDED ONLY FOR":"COMPATIBILITY WITH OTHER OMNIWARE" "PROGRAMS, SUCH AS OMNITREND":"AND OMNIGRAPH.":"THE FIRST PARAMETER IS THE SLOT:M$"S"40! (4)"DELETEPR"s DD0:(4)"OPENPR,D1":(4)"WRITEPR":PR:N:I1N:C(I)::ST:(4)"CLOSEPR"{ 40 I1(PS$):((PS$,I,1))33Ğ:((PS$,I,1));: ((PS$,I,1))32ĺ(PS$,I,1); : :"THE OMNIFILE PRINTER PARAME:PS$"":K1E d:"CHARACTER NO. "K":";:" ";C(K):C(K)0NK1:120d nPS$PS$(C(K)):KK1:100 x(PS$)0PS$(0):N1 :"SILENTYPE SLOT # (0-7): ";ST:ST0ST7130 :"ENTER 'S' TO SAVE NEW PARAMETERS":"ANY OTHER KEY TO RECHECK ";:M$::M$"C"M$"H"Ĺ34,0:(4)"RUNMENU"6 KM$"H"500l PDD1::"PRINTER SLOT # (0-7): ";PR:PR0PR780 Z:"PRINTER ACTIVATION STRING: "::"YOU MAY INPUT UP TO 100 CHARACTERS":"INPUT ASCII CHARACTER NUMBERS":" INPUT '0' AS NUMBER TO END STRING"NTYPE SLOT #"ST: <DD0ĺ"ENTER 'S' TO SAVE PARAMETERS":"ENTER 'H' FOR HELP":"ANY OTHER KEY TO CONTINUE ";:M$:M$:M$"S"160 AM$"H"500& F"ENTER 'C' TO CHANGE PARAMETERS":"ENTER 'H' FOR HELP":"ANY OTHER KEY TO RETURN TO MAIN MENU ";:M$:  C(100)L:2::" *** PRINTER CONFIGURATION PROGRAM ***":::34,3PS$"":(4)"OPENPR":(4)"READPR":PR:N:I1N:C:PS$PS$(C)::ST:(4)"CLOSEPR"(::"PRINTER SLOT #"PR::"PRINTER ACTIVATION STRING ":(PS$)0İ180: 2:"SILE         [ { R祸X֍Y֥Z .բ l ֐) :ȩXY֭Z`ZL ES IN ANY MODULE. NEVER":"CHANGE ANYTHING IN LINES 0-140, NEVER":"MAKE ANY MODULE LONGER THAN THE 'BASE'":"MODULE, AND NEVER LET THE END OF THE":"PROGRAM (SEE IT BY TYPING"2."'?PEEK(176)*256+PEEK(175)') GO"2."ABOVE 14299.":93:9050TYT GENER A SIMILAR":"MODULE CALLED 'REPGEN', AND THE REST":"OF THE PROGRAM IS IN A MODULE CALLED":"'FILER'. YOU ARE NOW IN A"1."MODULE CALLED 'HELP'. USE THE ABOVE":"'GOTO132' PROCEDURE WITH THE NAME":"OF THE MODULE YOU ARE CHANGING"2."TO SAVE CHANGTHE MAIN MENU. TO CHANGE":"ANYTHING IN THIS PART OF THE PROGRAM":"MAKE THE CHANGE, SAVE OMNIFILE, THEN":"TYPE 'GOTO132'. YOU WILL SEE A '?'.":"NEXT TYPE 'BASE' AND THE BASE MODULE"0."WILL BE SAVED IN BINARY FORM.":93T1."THE REPORT GENERATOR ISONLY WAY" /+"TO CHANGE A DISK FILE IS TO RESAVE":"IT..":93:9050/.:"OMNIFILE IS TOO LARGE TO FIT IN THE":"COMPUTER AT ONCE, SO IT IS BROKEN INTO":"SEVERAL MODULES. THE BASE MODULE":"INCLUDES THE INPUT MENU AND THE FIRST 5"0."OPTIONS FROM ONS IS SIMPLY":"TO EXPERIMENT AND TRY THEM ALL ...".*93:.*:"YOU MAY EXIT THE PROGRAM AT ANY TIME":"USING THIS OPTION. YOU WILL FIRST BE":"REMINDED TO SAVE YOUR FILE, HOWEVER,":"SINCE ALL DATA MANIPULATIONS ARE":"PERFORMED IN RAM ONLY. THE "DEVIATION, AND MINIMUM AND MAXIMUM":"VALUES OF ANY FIELD ...":93:9050-)::"REPORT OPTIONS: ":::"1 - TABULATE DATA":"2 - MAILING LABELS":"3 - SORT DATA":"4 - EXIT".*::"THE BEST COURSE TO FOLLOW IN LEARNING":"THE REPORT GENERATION OPTI AND MAY":"LATER BE 'UNSORTED' OR RESTORED TO ITS",)"INITIAL ORDER AS LAST READ FROM DISK.":"NOTE THAT A FILE SAVED TO DISK AFTER":"SORTING WILL BE SAVED IN SORTED ORDER.":93%-):"YOU MAY ALSO CALCULATE":"STATISTICS SUCH AS THE MEAN, STANDARD":CAN ALSO SEARCH YOUR FILE AND":"PRINT ONLY SUBSETS MEETING SPECIFIED":"SEARCH CRITERIA ...",):"OR YOU MAY WISH TO PRINT A SORTED FILE.":"YOUR FILE MAY BE ORDERED ACCORDING TO":"THE CONTENTS OF ANY FIELD IN EITHER":"ALPHABETIC OR NUMERIC SEQUENCE VARIETY OF REPORT":"PARAMETERS, SUCH AS COLUMN WIDTH,":"NUMERIC FORMATS OF NUMBERS, COLUMN":"HEADINGS, AND SO ON. FOR NUMERIC"*)"FIELDS, YOU MAY CALCULATE THE MEAN AND":"TOTAL VALUE FOR ALL NUMBERS IN A GIVEN":"TABLE COLUMN ...":939+):"YOU "ANALYSIS AND REPORTING CAPABILITIES.":"FOR EXAMPLE, YOU CAN PRINT MAILING":"LABELS, OR CUSTOM DATA TABLES ..."))"REPORTING OPTIONS ARE GIVEN IN THE":"FOLLOWING MENU ...":93:10750^*)"IF YOU CHOOSE TO PRINT A TABULAR REPORT":"YOU CAN SPECIFY A)93:9050()34,0:::"REPORTING AND ANALYSIS OPTIONS: ":::"1 - DESCRIPTIVE STATISTICS":"2 - SAMPLE CORRELATION COEFFICIENT":"3 - WRITE REPORT":"4 - SEARCH DATA FILE"()"5 - RETURN TO MAIN MENU"M))::"OMNIFILE ALSO INCLUDES BUILT-IN DATA":E USUAL SEARCH CRITERIA) AND":"MERGING A NEW FILE FROM DISK ONTO THE":"END OF YOUR CURRENT FILE ...":93p')"THERE IS ALSO A RECORD COUNT OPTION"')"THAT COUNTS THE RECORDS MEETING A":"SEARCH CRITERION, BUT PERFORMS NO":"FUNCTIONS ON THEM ..."'CORDS":"8 - RETURN TO MAIN MENU"&)::"YOU MAY MODIFY THE STRUCTURE OF YOUR":"FILE AT ANY TIME USING THESE OPTIONS .":"OPTIONS INCLUDE MODIFICATION OF YOUR":"EXISTING FIELD LIST AS WELL AS SAVING"E')"SUBSETS OF YOUR CURRENT FILE (BASED":"ON THIN IT. SEE INSTRUCTIONS FOR":"PROGRAM MODIFICATIONS FOR DETAILS.":93:9050%)::"FILE MANAGEMENT OPTIONS:":::"1 - ADD FIELD":"2 - DELETE FIELD":"3 - RENAME FIELD":"4 - SEE FIELD LIST":"5 - SAVE SUBSET"%)"6 - MERGE NEW FILE":"7 - COUNT REE IS ALSO A 'USER DEFINED' OPTION"$)"THAT ALLOWS YOU TO AGAIN ACCESS YOUR":"MOST RECENTLY KEYED IN CODE. NOTE THAT":"KEYED IN CODE WILL BE LOST ONCE YOU":"LEAVE THE TRANSFORMATION MODULE UNLESS":"YOU SAVE THAT MODULE TO DISK WITH THE"(%)"OPTION D SELECT-"4#)"IVELY ON DATA SUBSETS SPECIFIED BY THE":"USUAL SEARCH CRITERIA ...":93#)"IF YOU CHOOSE TO DEFINE YOUR OWN":"TRANSFORMATION, YOU MAY KEY IN THE":"BASIC CODE DIRECTLY WHILE THE PROGRAM":"IS RUNNING USING THE 'KEY IN' OPTION.":"THERCLUDING":"THE ABILITY TO DEFINE YOUR OWN":"TRANSFORMATIONS ..."")"TRANSFORMATIONS MAY BE PERFORMED ON THE":"CONTENTS OF ANY FIELD (OR IN SOME":"CASES MORE THAN ONE FIELD), WITH THE":"RESULTS BEING STORED IN ANY FIELD.":"OPERATIONS MAY BE PERFORMER PERFORM"!)"ANY OTHER NORMAL DOS 3.3 OPERATIONS"g!)"SEE THE APPLE DOS MANUAL FOR MORE":"DETAILS ABOUT COMMAND SYNTAX ...":93:9050"):"TO AID IN DATA MANIPULATION, YOU":"MAY PERFORM A VARIETY OF MATHEMATICAL":"MANIPULATIONS ON YOUR DATA, INDOS COMMANDS DIRECTLY":"FROM OMNIFILE USING THIS OPTION ..." )"SIMPLY TYPE IN ANY COMMAND USING THE":"USUAL DOS SYNTAX. FOR EXAMPLE, TYPE":"'CATALOG, D2' TO SEE A CATALOG OF THE":"DISKETTE IN DRIVE 2. YOU MAY ALSO":"DELETE FILES, RENAME FILES, OA FILE UNTIL THE FILE IS SAVED TO DISK."::"YOU MAY ALSO SIMPLY PASS OVER A":"DISPLAYED RECORD AND DO NOTHING ...":93:9050)"MINIMUM RECORD NUMBER: ";MN:"MAXIMUM RECORD NUMBER: ";MX ):"TO FACILITATE DISK FILE HANDLING, YOU":"MAY ENTER APPLE SCREEN"6h)"THE RECORDS MEETING YOUR SPECIFICATIONS":"ONE-BY-ONE, YOU MAY DO SO ...":93r)"ONCE A RECORD IS FOUND AND DISPLAYED":"YOU MAY EDIT IT, PRINT IT OUT":"OR MARK IT FOR DELETION. NOTE THAT":"RECORDS ARE NOT ACTUALLY DELETED FROM":Yw)" USED TO":"LOCATE DATA TO BE SENT TO YOUR PRINTER":"FOR HARD COPY OUTPUT ...":93:9050=T)IV1^):"IF YOU CHOOSE A GLOBAL OPTION, THE":"FILE WILL AUTOMATICALLY BE CHANGED":"ACCORDING TO YOUR SPECIFICATIONS. OR,":"IF YOU PREFER TO REVIEW ON THE 9:J" - "S$(J)::6)::"SEVERAL TYPES OF SEARCH CRITERIA MAY":"BE SPECIFIED TO LOCATE RECORDS":"ACCORDING TO THE CONTENTS OF ANY FIELD":"IN THE FILE ...":93@)105804J):"THE SAME SEARCH METHODS USED TO LOCATE":"DATA FOR EDITING CAN ALSO BEDS OR ACCESS EXISTING":"RECORDS FOR DELETION OR MODIFICATION.":"THIS FEATURE INCLUDES A GLOBAL EDIT OR":"DELETE OPERATION FOR MASS CHANGES TO A"")"DATA FILE IN A SINGLE OPERATION ...":93,)I40:I31::2::"AVAILABLE SEARCH CRITERIA: ":::J1EPT WITH":"'.OLD' ADDED TO THE NAME.":93:9050(MPNP`)216,0:::"EDIT MENU: ":::"1 - ADD RECORDS":"2 - REVIEW RECORDS")"3 - GLOBAL CHANGE":"4 - GLOBAL DELETE":"5 - INSERT RECORDS":"6 - RETURN TO MAIN MENU"n)::"YOU MAY ADD RECORMAY MAINTAIN"("SEVERAL ALTERNATIVE VERSIONS OF THE":"SAME DATA SET IF REQUIRED. THE FILE":"SAVE PROCEDURE INCLUDES AUTOMATIC FILE":"BACKUP FEATURES. IF YOU STORE A FILE ON":"A DISK CONTAINING A FILE OF THAT NAME" ("THE ORIGINAL FILE WILL BE KD FROM YOUR OWN BASIC":"PROGRAMS AS WELL AS BY OTHER OMNIWARE"("PROGRAMS. YOU MAY STORE THEM ON ANY":"DOS 3.3 FORMATTED DISKETTE - NO SPECIAL":"DATA DISKETTES ARE REQUIRED. YOU MAY":"SAVE YOUR DATA SET AT ANY TIME DURING":"THE PROGRAM, AND YOU YOU CAN":"ADD MORE IN LATER SESSIONS OF COURSE."(93:9050v2(:::"AS YOU REVIEW RECORDS, YOU MAY PERFORM":"VARIOUS OPERATIONS ON THEM ...":93:(:"OMNIFILE DATA FILES ARE STANDARD":"APPLE DOS 3.3 TEXT FILES. THEY CAN":"EASILY BE ACCESSE OMNIFILE USES NORMAL"F ("DOS 3.3 DATA DISKS AND THAT YOU MAY":"SWITCH DATA DISKS ANY TIME YOU WANT..." (:"IF YOU READ A FILE FROM DISK, YOU":"WILL BE ASKED IF YOU WISH TO ADD":"RECORDS OR FIELDS TO THE FILE THIS":"SESSION, AND IF SO HOW MANY. ELP":"GIVE A FEEL FOR THE SORT OF FIELDS THAT":"MIGHT BE USED."(93:"IF YOU CHOOSE TO READ AN EXISTING FILE":"FROM DISK, YOU WILL BE ASKED TO GIVE":"ITS NAME. IF YOU DON'T KNOW THE NAME,":"YOU CAN ASK FOR A CATALOG OF YOUR DATA":"DISK. NOTE THATUPPLY A LIST OF":"'FIELDS,' OR ITEMS OF INFORMATION, TO":"STORE IN THE FILE. E.G. IN A MAILING"'"LIST, FIELDS MIGHT BE NAME, COMPANY,":"ADDRESS, CITY, STATE, AND ZIP CODE.":"NOTE THAT SEVERAL SAMPLE FILES ARE":"INCLUDED ON THE OMNIFILE DISK TO H10640,10210,10660,10650,10690,11000':"GO TO THE NEW FILE MENU WHEN YOU WANT":"TO BEGIN WORK ON A DIFFERENT FILE,":"EITHER BY READING IT FROM DISK OR":"CREATING A NEW FILE..."='93::"IF YOU CHOOSE TO CREATE A NEW FILE":"YOU WILL BE ASKED TO SAGEMENT":"7 - TRANSFORM DATA":"8 - GENERATE REPORT":"9 - END":"M - PROGRAM MODIFICATIONS":"Q - RETURN TO PROGRAM"x#::"CHOOSE OPTION: ";::M$:M$:M$"Q"M5:ED50,110}#M$"M"12000#M(M$):M1M9ĺ(7):9050V'M10450,10490,10570,1 HENDRIX DRIVE":"OAK RIDGE, TN 37830":938Z#104:TY2:34,0::::NP;" RECORDS IN FILE"d#4:"HELP MENU: ":::"1 - SAVE FILE TO DISK":"2 - REVIEW/ADD RECORDS":"3 - PRINT RECORDS":"4 - ENTER DOS COMMANDS":"5 - GET NEW FILE"Qn#"6 - FILE MANU APPEARS, SIMPLY CHOOSE":"AN OPTION TO SEE AN EXPLANATION"52#"OF THAT OPTION ...":93<#"NOTE THAT YOU CAN RECEIVE A DETAILED":"PRINTED USER MANUAL IF YOU REGISTER":"YOUR PROGRAM BY SENDING A CONTRIBUTION":"OF $25 TO:"F#:"M. K. BOOKER":"15#I(121)256(122):z(#:"THE VARIOUS OPERATIONS DONE BY OMNIFILE":"ARE ACCESSED FROM A MAIN CENTRAL MENU":"FOR EASY CONTROL OF PROGRAM FLOW.":-#"FOR EASE OF USE, THE FOLLOWING HELP":"MENU IS SIMILAR TO THE MAIN MENU."::"WHEN THE MEN                  P(I1)NFI1I11:.723(I17):36,I1540(I17)::P(I1);::::PFI1:6519:S7:11:14::"** WORKING **"::7:"HARDCOPY OUTPUT? (Y/N) ";:P$:P$:P$"Y"P$"N"710077WI35:LP6:FF5:QL1:AQL1:AIVNF(NF13)(NF13):216,0::35,20:RO2İ5340"6RO2İ5330:IV3634,NF6(RO2):21::"PRINT FIELDS:":::I10IV1:"FIELD NO. TO PRINT (1-"NF")":"ENTER '0' WHEN FINISHED ";P(I1):P(0)0RO2I11:6P(I1)0PFI1:6519:6P(I1)0XX$(I)(IL$,I1)5NW(I)I1I21:6185:G5&6180:TWWI1ė:(7)"TABLE TOO WIDE FOR DEVICE"::93:6800Q506730_5:I11:I21{5DI2I21:I2(XX$(I))ı5N(XX$(I),I2,1)"."I1I21:5X69805bI2(XX$(I))I11:I1(XX$(I))I205l 6v:NW(I)M9:6185::69504J9:PW(I)11JPW(I)2M4"INTEGER PLACES: (1-"J")";:" ";I1:I11I1Jĺ(7):6850f4I3JI11:I30I304"DECIMAL PLACES: (0-"I3")";:" ";I2:I20I2I3ĺ(7):68504I20XX$(I)(IL$,I1)"."(FL$,I2)4I20ĺ"ENTER 'C' TO CHANGE, ANY":"OTHER KEY TO KEEP ";:M$:M$:M$"C"XX$(I)"S"6870@3M$"C"69403:"NUMERIC OR STRING? (N/S) ";:XX$(I):XX$(I):XX$(I)"N"XX$(I)"S"68503"COLUMN WIDTH: ";PW(I):PW(I)1PW(I)4068603XX$(I)"S"İ5530:6550[2I1PF:35,22::23:37:TW::LB$(P(I1)):::"CURRENT FORMAT VALUES:"::"FORMAT TYPE - ";:XX$(I)"S"ĺXX$(I)q2XX$(I)"S"ĺ"N"2"COLUMN WIDTH - "PW(I):XX$(I)"S"İ6970:7010:"INTEGER PLACES - "I1:"DECIMAL PLACES - "I2.3:NT COLUMN HEADINGS:"::I414:I4" "CH$(I,I4):::3:J1PW(I)2:(95);:::s1h"HEADING NO. TO CHANGE":"ENTER '0' FOR NONE: ";I4:I40I4467601rI4067901|:"NEW COLUMN HEADING LINE "I4::J1PW(I)2:(95);::1:881:CH$(I,I4):67401670/"65500,"NEW VALUE: ";TI$:TI$(TI$,TW):6550_06:"PRINT COLUMN STATISTICS? (Y/N) ";:ST$:ST$:ST$"Y"ST$"N"6710i0@6550w0J:I1PF0T::LB$(P(I1)):::I414:(CH$(I,I4))PW(I)2CH$(I,I4)(CH$(I,I4),PW(I)2)+1^:"CURREUE: ";LP:LP10ĺ"ILLEGAL":6600/6550:/"NEW VALUE: ";TF:TF0TFLP8ĺ"ILLEGAL":6630D/6550|/"NEW VALUE: ";FF:FF0FFLP7TFĺ"ILLEGAL":6650/6550/"NEW VALUE: ";WI:WI20WI132ĺ"ILLEGAL":6670/P$"N"WI80ĺ"ILLEGAL":6- DEVICE WIDTH "WIY."5 - TABLE TITLE "TI$:"6 - COLUMN FORMATS/HEADINGS":"7 - PRINT COLUMN STATISTICS - "ST$:"8 - EXIT".:"CHOOSE AN OPTION: ";:M$:M$:I4(M$):I41I486570.I46600,6630,6650,6670,6700,6800,6710.104:."NEW VAL:PW(I)((WI1)PF):5530:NW(I)M9:XX$(I)"S":J14:CH$(I,J)(LB$(P(I1)),1(J1)(PW(I)2),PW(I)2):::6180:-216,0:::"CURRENT PARAMETER VALUES:":::"1 - LINES PER PAGE "LP:"2 - TOP MARGIN (LINES) "TF:"3 - BOTTOM MARGIN (LINES) "FF:"4 E: ";:881:QQ$:(4)"OPEN"QQ$",D"DI$:(4)"WRITE"QQ$:PF:I1PF:P(I1):T(I):"X"XX$(I):PW(I):NW(I),nJ14:CH$(I,J):::TI$:P$:LP:TF:FF:WI:TW:(4)"CLOSE":,w104,xRO2ı,ST$"N":LP66:TF5:FF5:WI80:P$"Y"WI40M-I1PFOG ";:QQ$:QQ$"CAT"ĺ(4)"CATALOG ,D"DI$:93:6480+Z(4)"OPEN"QQ$",D"DI$:(4)"READ"QQ$:PF:I1PF:P(I1):T(I):XX$(I):XX$(I)(XX$(I),(XX$(I))1):PW(I):NW(I):J14:CH$(I,J):::TI$:P$:LP:TF:FF:WI:TW:(4)"CLOSE":D,d92::"FILE NAMZ$(1),WIFF1);:ARRAYZZ$:JJ1:JQLJ0::KK1:KPFK1:I11LPPF:::63908*6410A*I30Z*(II1:INPQLI3:*2IH(IP(I))1HIHI1:L(I3)IP(I):I3I31:I3QL6440*<IH(IP(I))06440*F+P92::"REPORT FILE:":"'CAT' FOR CATAL46320(WI5WIQL806300)6210)NLNP:NPQLNLQL$)6380.)NLNP\)HI0:104:(4)"PR#"PR:PS$;:J0:I1:K1r)INPHINL6210)6430:I306390.* 36,JWIFF:ZZ$(1):IV0NL(K)1:ZZ$(1)ZZ$(1)X$(L(J),PP(IV,K)1)" "::(ZF05800'7120::6210?("VERTICAL SIZE (LINES) ("LP"):";:" ";LP:LPPF1ĺ"TOO SMALL":6290e("WIDTH (CHARS) ("WI"):";:" ";WI("LEFT MARGIN (CHARS) ("FF"):";:" ";FF:FF1FFWI6310("NO. LABELS ACROSS PAGE ("QL"):";:" ";QL:QL1QLϺ"3 - CHECK LABEL ALIGNMENT":"4 - PRINT LABELS":"5 - EXIT"V'L::"CHOOSE AN OPTION: ";:M$::M$:M(M$):M1M56220s'VM16290,6350,6370,5620{'`K1'j7030::PF0PFK1:6270'tNL(K)PF:I10PF1:PP(I1,K)P(I1)::K8KK1:6250'~P):%)TW0:K1PF:TWTWPW(K)::-&.(X$(IP(I1),P(I1)1))I4(PW(I)2)I31p&836,T(I):(X$(IP(I1),P(I1)1),1(I41)(PW(I)2),PW(I)2);:'B(4)"PR#0":::"MAILING LABEL MENU:":::"1 - SPECIFY PRINT FIELDS":"2 - MODIFY LABEL PARAMETERS":$(I)"S"Ĺ36,T(I):USNGXX$(I);SU(I)RF;%::RRRR3'%P$"Y"İ6160?%:(4)"PR#0":93:S%JRRLPFF::%::((TW((PN))2)2):"-"PN"-":PNPN1:I41FF:::%$K1PF:T(K)PW(K1)NW(K1)((PW(K)NW(K))2):NW(K)PW(K1)NW(K1"Y"RRLPFF11İ6160$P$"N"RR11Ĺ34,23:93:34,XR:RR0$:36,(TW6)2:"TOTALS":36,(TW6)2:"------":I1PF:XX$(I)"S"Ĺ36,T(I):USNGXX$(I);SU(I);$::RRRR4:RF16140%:36,(TW5)2:"MEANS":36,(TW5)2:"-----":I1PF:XXX$(IP(I1),P(I1)1)):SUM(I)SUM(I)X:36,T(I):USNGXX$(I);X;::[#zRRRR1:RR22XRP$"Y"I1NP1Ĺ34,23:93:34,XR:RR0r#P$"Y"I315980#P$"Y"5960#I315980#RRLPFF3P$"Y"İ6170:5920#5960#ST$"Y"6150#P$)((PW(I)(CH$(I,J)))2):CH$(I,J);:I31"4:I31RRRR1:U">:I1Q:"-";:::RRRR2:XRRR:34,XR:P$"Y"RR0r"HI40:I1I11:I1NP6070"RIH(IP(I1))05960"\I30:I4I41:I1PF:XX$(I)"S"İ6190:::6010"fI41Ă::6010#pX( SPECIFIED!":93:5840! P$"Y"ĺ(4)"PR#"PR:PS$1!I11:PN1:I1PF:SUM(I)0:f! QNW(PF)PW(PF)::RR0:I1TF:P$"Y"ĺ:RRRR1!%:(TI$)0Ĺ36,((TW(TI$))2):TI$::RR2RR"*I1Q:"-";:::J14:I30:I1PF:(CH$(I,J))0Ĺ36,NW(I "4 - PRINT TABLE":"5 - RECALCULATE DEFAULT PARAMETERS":"6 - SAVE PARAMETERS TO DISK":"7 - EXIT" ::"CHOOSE AN OPTION: ";:M$::M$:M(M$):M1M75850 M75800 M6480,7030,6550,5880,6520,6500:5840 PF0ĺ(7):"NO PRINT FIELDS::"CHOOSE AN OPTION: ";:M$::M$:RO(M$):RO1RO45810,RO3İ4900KRO16210,5800,5630:7100:::"DATA TABULATION OPTIONS:":::"1 - READ REPORT PARAMETERS FROM DISK":"2 - SPECIFY PRINT FIELDS":"3 - CHANGE REPORT PARAMETERS"A((X$(IP(I),VX1))XU)d:C(1)C(1)(SX.5UX.5):::"SAMPLE CORRELATION COEFFICIENT BETWEEN":LB$(V1)" AND "LB$(VY):::" = "C(1)r93:5630::"REPORT OPTIONS: ":::"1 - TABULATE DATA":"2 - MAILING LABELS":"3 - SORT DATA":"4 - EXIT":"STANDARD DEVIATION = ";UX::"MINIMUM VALUE = ";MN::"MAXIMUM VALUE = ";M9::"SUM OF DATA = ";XT::"NUMBER OF DATA = ";RF:SO0:5790vvVXVY5770XXXU:SXUX:V1VX:VXVY:5710C(1)0:I0NP1:IH(IP(I))1C(1)C(1)((X$(IP(I),V11))XX)H35800:H1SO1D5490:7090:H1İ5580FNXU0:I0NP1:IH(IP(I))1XUXU(X$(IP(I),VX1))X:XTXU:XUXURF:UX0:I0NP1:IH(IP(I))1UXUX((X$(IP(I),VX1))XU)2b:SO05750flUX(UX(RF1)):::LB$(VX):::"MEAN = ";XU:IONS: ":::"1 - DESCRIPTIVE STATISTICS":"2 - SAMPLE CORRELATION COEFFICIENT":"3 - WRITE REPORT"u"4 - SEARCH DATA FILE":"5 - RETURN TO MAIN MENU"::"CHOOSE AN OPTION: ";:M$::M$:H(M$):H1H55650H550&H4İ5280::56300I3))1(X$(IP(I3),VX1))MNMN(X$(IP(I3),VX1))::OIH(IP(I3))1(X$(IP(I3),VX1))M9M9(X$(IP(I3),VX1))W:TY3:IL$" ":FL$"000000000000000":I0NP1:IH(IP(I))1::OL1:RFNP>:104:::"REPORTING AND ANALYSIS OPT1:5540*M9((X$(IP(M),P(I1)1),PW(I)2)):I3M1NP1:IH(IP(I3))0Ă:y((X$(IP(I3),P(I1)1),PW(I)2))M9M9((X$(IP(I3),P(I1)1),PW(I)2)):I30NP1:IH(IP(I3))1MN(X$(IP(I3),VX1)):M9MN:I3NP1:I31NP1:IH(IP(z #X˱   Ǡ Ӡ ̠ԮŠ ŠٮŠ ŠӮŠ ٮŠ ǠӮŠ ȠҠŠ+Ҡ+" Π*Р% Ҡ ϴˠǴˠŴˠ1ՠ ƠҠҠ̠Ϡ ̠Ϯà!ϠҠ ӠҠǠŠ1@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys"$'6.'*** WRITTEN BYN8'*** LYNELL JACKSONhB'*** JANUARY 14, 1987nL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>LST MONDAY-SATURDAY." #""@#"TECHNICAL SUPPORT HOURS ARE"q#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." y#""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." '"/ Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."R d#"511-104 ENCINITAS BOULEVARD"m n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM P" l24:7110 vGO$: & = TB%(21(PR$)2)L TB%:PR$;R X (#u +#<*** DATA LOCATION ***>{ /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY+ 16297,1:16300,1:16301,1:16304,15 7010; C :P I1ND%b PR$:I:7110i Is 7010y  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE > GF%11110 :H PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"V 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"HELLO":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp /<Ï<:A(*A44*A~($G+( ~/_~(=G+~(6+<=(+~>.66?*AO DE͖4?C@Ƚ?C @i@@8/e@@Ah@CACL     IF YOU HAVE":"48K, YOU CAN UTILIZE IT BY PRESSING" 2"THE 'K' KEY NOW TO RECONFIGURE THE DISK.":"PRESS ANY OTHER KEY TO RUN THE 64K":"VERSION OF OMNIFILE." <M$::M$"K"M$"k"ĺ(4)"RUNCONFIG" P(4)"RUNMENU" (4)"BRUNDOS MOVER"R(4)"RENAMEHELLO,BOOTER":(4)"RENAMEFINDER,HELLO":1:"*** OMNIFILE FILE MANAGER VER. 3.0 ***":5:"COPYRIGHT 1983 BY M. K. BOOKER":::4 ((7)"NOTE: THIS DISK IS CONFIGURED FOR A":"MACHINE WITH 64K MEMORY.(F9)LB$(I2):91 3250::TY1:LA$(16),XX$(15),LB$(17),P(15),CH$(15,4),PW(15),NW(15),T(15):(4)"VERIFYPR,D1":(4)"OPENPR":(4)"READPR"!PR:N:I1N:C:PS$PS$(C)::(4)"CLOSE %PP(2,8),SU(15),L2$(15):42:104*34,0:4EF0N$"":660[::(LB$(EF),20);::(LB$(EF),1)"#"Č881:X$(IP(I1),EF1):660f2690"";X:X$(IP(I1),EF1)(X)216,0:660N9NP:I10NP1:(X$(IP(I1),0),3)(26)"**"N9N91  :F90:I21NF:LB$(I2)(26)F9F91:LA$"P"N$(1)700*I39999N$(1)700FN$(1)İ104:I1NP1:YN$"N"İ104:N$"D"X$(IP(I1),0)(26)"**"X$(IP(I1),0):104:N$"P"İ1550::660:"EDIT WHICH FIELD? (1-";NF;") ":"(ENTER '0' FOR NONE) ";:EF:EF0EFNF740 NO. ";::I11:::I0NF1::I1" - "(LB$(I1),20);" ";::" ";X$(IP(I1),I)c(37)20İ93iyN$"E"740:"EDIT/DELETE/PRINT/NEXT (E/D/P/N): ";:I39999ĺ:"ENTER 'CTRL-A' TO ABORT SEARCH ";:N$:N$:N$"E"N$"D"N$"N"N$NP1:I11MNI11MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148WlI3I31::148vI10NP1:I11MNI11MXX$(IP(I1),IV1)NU$:I3I31::650:650:"GLOBAL EDIT COMPLETED":I31;" RECORDS MODIFIED":93::Q216,0:::"RECORD1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148L0I3I31::148:I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),J1)NU$:I3I31::650D:650NI10NP1:I11MNI11MXI4I41:OP1550,660X:DbI10I31::148iI10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),J1)NU$:I3I31::650t:650I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXI4I41:OP1550,660:9&I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I,IV1))MXX$(IP(I1),J1)NU$:I3I31::6507:650I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXI4I41:OP1550,660:I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148 I3P(I1),IV1))MNX$(IP(I1),J1)NU$:I3I31::650<:650wI10NP1:(X$(IP(I1),IV1))MXI4I41:OP1550,660:I10NP1:(X$(IP(I1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148,I10NP1:(X$(IP(I1)1),IV1),B$:(26)0X$(IP(I1),J1)NU$:I3I31::650AT:650|^I10NP1:(X$(IP(I1),IV1))MNI4I41:OP1550,660h:rI10NP1:(X$(IP(I1),IV1))MNX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148|I3I31::1481I10NP1:(X$(I$(IP(I1),J1)NU$:I3I31::650+:650o"I10NP1:768X$(IP(I1),IV1),B$:(26)0I4I41:OP1550,660w,:6I10NP1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148@I3I31::1486JI10NP1:768X$(IP(I31::650:650YI10NP1:768X$(IP(I1),IV1),B$:(26)0I4I41:OP1550,660a:I10NP1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148 I10NP1:768X$(IP(I1),IV1),B$:(26)0X1)NU$:I3I31::650 :650YI10NP1:X$(IP(I1),IV1)B$I4I41:OP1550,660a:I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148 I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),J1)NU$:I3I10NP1:X$(IP(I1),IV1)B$I4I41:OP1550,6609:I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31:::NP(I31);" RECORDS MARKED FOR DELETION":93::I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),JOL2İ91:A$"HELP":130:OL2'~9000140:(4)"BLOAD"A$",A"I",D1":L(21920)256(21919)I1:175,L(L256)256:176,(L256):A$140:J(175)256(176)I1:(4)"BSAVE"A$",A"I",L"J",D1":J" BYTES":I(121)256(122):1ITHER KEY TO RETURN TO MAIN MENU":M$:M$(24)508 kC l1135I ml nOL0İ91:A$"BASE":130:OL0 pM1120,1310,1570,2040,1630 qM8 rOL3İ91:A$"FILER":130:OL3 tM52995,2900,3170 xOL1İ91:A$"REPGEN":130 z5620|V0IVNF1820 , IV0ė:1312,!OP3ĺ:"FIELD NO. TO MODIFY: (1-";NF;")":"ENTER '0' TO ABORT CHANGE";:" ";J:J0JNF1825,#OP3J0ė:1312,$OP3ĺ:"NEW VALUE:";:881:NU$:,0SO11860,1870,1880,1890,1910,1930,19607-:"SEARCH STRINUR FILES!":"CURRENT FILE WILL BE ERASED FROM RAM":"PRESS 'CTRL-X' TO CONTINUE":"ANY OTHER KEY TO RETURN TO MAIN MENU":M$::M$(24)50+h799,2800:::S$(SO)::"WHICH FIELD TO SEARCH? (1-";NF;") ":"ENTER '0' TO RETURN TO EDIT MENU ";:IV:I8:SO0SO91390 *xSO91990;*SO0MN1:MXNP:2020E*1820*104:(4)"PR#"PR:PS$::"RECORD NO. ";I11::I20NF1:(LB$(I21),40);" - ";X$(IP(I1),I2):::(4)"PR#0":216,0:*"OP1:1360*^ED2ī810+`:(7)"BE SURE YOU SAVED YOMARKED FOR DELETION":"ENTER 'CTRL-A' TO ABORT":"ANY OTHER KEY TO CONTINUE ";:A$::A$(1)1312)PI40:I31::2::"AVAILABLE SEARCH CRITERIA: ":::J19:J" - "S$(J)::*n:"CHOOSE OPTION: ":"ENTER '0' FOR ALL RECORDS ";:M$::M$:SO(M$)4AL CHANGE":"4 - GLOBAL DELETE":"5 - INSERT RECORDS":"6 - RETURN TO MAIN MENU"($::"CHOOSE OPTION: ";:M$::M$:OP(M$):OP1OP61316(%OP11280(&OP6Ĺ34,0::104:50((OP5İ2100:1280b)<OP4ė:"WARNING: RECORDS FOUND WILL BE":"MORE RECORDS MAY BE ADDED NOW"::::"TO ADD MORE, SAVE FILE":"AND READ BACK IN FROM DISK":'MPMPNP:ADADNP:NPMP:IN0İ2104'93:50'MPNP' 216,0:::"EDIT MENU: ":::"1 - ADD RECORDS":"2 - REVIEW RECORDS ON SCREEN"P(""3 - GLOB1NF:881:LB$(I1):,&NFAF15AF15NF]&X$(NPAD1,NFAF1),IP(NPAD1),IH(NPAD1)&I10NPAD1:IP(I1)I1::I10NP1:I0NF1:881:X$(I1,I):::(4)"CLOSE"QT$:50&:"YOU MAY ADD UP TO ";::AD;::" RECORDS"::990^' ::"NO :(4)"WRITE"QT$:N9:F9:I1F9:LA$(I)::I10NP1:(X$(IP(I1),0),1)(26)āI0NF1:LB$(I1)(26)ĺX$(IP(I1),I)::1170%LB$(I1)(26)Ă%:(4)"CLOSE"QT$:50&92:(4)"VERIFY"QT$",D"DI$:(4)"OPEN"QT$:(4)"READ"QT$:NP:NF:I1a$h(4)"OPEN"QT$".OLD,D"DI$:(4)"CLOSE"QT$".OLD":(4)"UNLOCK"QT$".OLD":(4)"DELETE"QT$".OLD"$j(4)"OPEN"QT$:(4)"CLOSE"QT$:(4)"UNLOCK"QT$:(4)"RENAME"QT$","QT$".OLD":"DISK FILE ";QT$;" RENAMED ";QT$".OLD"$o104$t770%~(4)"OPEN"QT$ #B1010+#LADADNP:MP0MPMPNP:NPMP;#QIN0İ2104C#V50#`"FILE IS CURRENTLY NAMED: ";QT$::"PRESS 'R' TO RENAME":"ANY OTHER KEY TO SAVE UNDER THIS NAME":M$:M$:M$"R"ĺ:"NEW FILE NAME: ";:881:QT$#f108:92:(4)"VERIFY"QT$",D"DI$PMP1,I1):X$(NPMP,I1):1050*"10505"2700R""";X:X$(NPMP,I1)(X)["104c":"$"ENTER 'E' TO EDIT":"ANY OTHER KEY TO KEEP AS IS ";:M$:M$:M$"E"I1NPMP:I39999:660:I30".:NPNP1:IIII1:MP0NPAD1290"8NPAD1100CREMENT NO.":::34,6F!::"RECORD NO. ";NP1:::IP(NPMP)NPMPR!I1NF!:(LB$(I),20);::(LB$(I),1)"#"1045!881:X$(NPMP,I1):J1(X$(NPMP,I1)):(J510)51100!(J510)1NPMP0II1: "(J510)1X$(NPMP,I1)X$(NI):3 AF0:104:X$(AD1,NF1),IH(AD1),IP(AD1)o :"YOU MAY ENTER UP TO ";::AD;::" RECORDS"::34,3 MPNP:NP0:AD0MP01290!::"ENTER 'CTRL-E RETURN' TO TERMINATE":"'CTRL-A RETURN' FOR SAME AS LAST RECORD":"'CTRL-Q RETURN' TO INO. OF RECORDS: ";ADy:"HOW MANY FIELDS IN FILE? (ENTER '0' TO":"READ FILE STRUCTURE FROM DISK)";:" ";NF:NF02190NF1NF15920 ::"ENTER FIELD NAMES":"END WITH '#' FOR NUMERIC VALUES ONLY":::I1NF:"FIELD NO. ";I;" : ";:881:LB$(D2:124YR:"WHICH DRIVE CONTAINS DATA DISK? (1/2)";:DI$:DI$:(DI$)1(DI$)2850\M3ĺ(4)"CATALOG,D"DI$:93:820f:"ENTER FILE NAME: ";:881:QT$pM1900z2220:NA0:1200::QT$;::" BEING CREATED":216,0::"MAX NED1::2:"OMNIFILE FILE MANAGER VER 3.0":4:"COPYRIGHT 1983 BY M. K. BOOKER":6:"NEW FILE MENU: ":::"1 - CREATE NEW FILE":"2 - READ DISK FILE">"3 - CATALOG DISK":"4 - HELP":H:"CHOOSE OPTION: ";:M$::M$:M(M$):M1M4840MM4E! (4)"RENAMEHELLO,HELLO48K"A(4)"RENAMEHELLO64K,HELLO"g(4)"RENAMEOMNIFILE,OMNIFILE48K"((4)"RENAMEOMNIFILE64K,OMNIFILE",(4)"RENAMECONFIG,CONFIG48K"0(4)"RENAMECONFIG64K,CONFIG"2(4)"PR#6" ONFIGURE THE DISK.":"PRESS ANY OTHER KEY TO RUN THE 48K":"VERSION OF OMNIFILE."{ 2M$::M$"K"M$"k"ĺ(4)"RUNCONFIG" <(4)"RUNMENU"M4 :1:"*** OMNIFILE FILE MANAGER VER. 3.0 ***"e:5:"COPYRIGHT 1983 BY M. K. BOOKER":::(7)"NOTE: THIS DISK IS CONFIGURED FOR A":"MACHINE WITH 48K MEMORY. IF YOU HAVE":"64K, YOU CAN UTILIZE IT BY PRESSING"Q ("THE 'K' KEY NOW TO RECUCH CONTRIBUTIONS WILL BE REGISTERED":"AND WILL RECEIVE ONE FREE UPDATE":"PLUS A FULL USER MANUAL."7 "CONTRIBUTIONS SHOULD BE SENT TO:"::"M. K. BOOKER":"151 HENDRIX DRIVE":"OAK RIDGE, TN 37830":93:7X, BUT USERS ARE":"PERMITTED TO MAKE COPIES FOR OTHERS.":"A CONTRIBUTION OF $25 TO THE AUTHOR":"($20 ADDITIONAL FOR THOSE":"WHO ORDER DIRECT) WOULD BE APPRECIATED"6 "FROM THOSE WHO FEEL THE PROGRAM IS"e7 "WORTH THIS AMOUNT. USERS SUBMITTING":"S):1048 5 (512)5İ104:110095 (7)"REENTER":10465 :2:"DATA FILE: ";::QT$:::"FIELDS IN FILE:"::I11NF:I1;" "LB$(I1):::5 :"OMNIFILE IS DISTRIBUTED INFORMALLY":"BY THE USERS. IT MAY BE ORDERED FOR A"6 "HANDLING FEE OF $107)"REENTER":765:4 980:(512)0X$(NPMP,I1)"":1048\4 (512)1NPMP0II1:10484 (512)1X$(NPMP,I1)X$(NPMP1,I1):X$(NPMP,I1):10484 (512)17NP0II1:10485 (512)17X$(NPMP,I1)(1(X$(NPMP1,I1))):X$(NPMP,I1;AD:AD0ĺ(7):2240k3216,0::"ADD NEW FIELDS":"THIS SESSION? (Y/N) ";:M$:M$:M$"Y"M$"N"22503M$"N"AF0:104:3:"MAX NO. OF FIELDS TO ADD: ";AF:AF0AF14ĺ(7):22603104:3 980:(512)0X$(IP(I1),EF1)"":7684 ((4)"VERIFY"SF$",D"DI$:(4)"OPEN"SF$:(4)"READ"SF$:NF:NF:I11NF:881:LB$(I1)::(4)"CLOSE"SF$:9782216,0::"ADD NEW RECORDS":"THIS SESSION? (Y/N) ";:M$:M$:M$"Y"M$"N"22202M$"N"AD0:22503:"MAX NO. OF RECORDS TO ADD: "OP2ı*1 ::I4" RECORDS FOUND"::93:a14"INSERT AFTER WHICH RECORD? ";IX:IX0IXNP2100q16II0:IN1:18IN0:II0āI1NPIIIX:IP(NPI)IP(NPIII)::I0II1:IP(IXI)NPIII:1:1:104:"STRUCTURE FILE NAME: ";:881:SF$m292:H0OP3İ2800:"FIELD NO. TO MODIFY: (1-";NF;")";:IV:IV1IVNF2020s0OP590,590,630,610:2070:OP50:13120:2::"ENTER 'END' AS COMMAND TO RETURN TO MENU":34,40::"ENTER DOS COMMAND: ";::881:A$:A$"END"500 (4)A$:205019300/OP470,470,510,490::2070:OP50:1312j/"MIN VALUE IN RANGE: ";MN:"MAX VALUE IN RANGE: ";MXz/MXMN1960/OP530,530,570,550::2070:OP50:1312/"MIN RECORD NO.: ";MN:"MAX RECORD NO.: ";MX/MN1MXMN1990/MXNPMXNP90,330,310::2070:OP50:1312?.b"MAX VALUE (X): ";MN:I31l.lOP350,350,390,370::2070:OP50:1312.v"MIN VALUE (X): ";MX:I31.OP410,410,450,430::2070:OP50:1312."MIN VALUE IN RANGE: ";MN:"MAX VALUE IN RANGE: ";MX/MXMN1G: ";:881:B$:OP141,141,150,144::2070:OP50:1312-D"EXCLUDED STRING: ";:881:B$:OP154,154,210,158::2070:OP50:1312-N"SEARCH SUBSTRING: ";:881:B$:OP230,230,270,250::2070:OP50:1312.X"EXCLUDED SUBSTRING: ";:881:B$:OP290,2I31::148iI10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),J1)NU$:I3I31::650t:650I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXI4I41:OP1550,660:9&I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I,IV1))MXX$(IP(I1),J1)NU$:I3I31::6507:650I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXI4I41:OP1550,660:I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148 I3P(I1),IV1))MNX$(IP(I1),J1)NU$:I3I31::650<:650wI10NP1:(X$(IP(I1),IV1))MXI4I41:OP1550,660:I10NP1:(X$(IP(I1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148,I10NP1:(X$(IP(I1)1),IV1),B$:(26)0X$(IP(I1),J1)NU$:I3I31::650AT:650|^I10NP1:(X$(IP(I1),IV1))MNI4I41:OP1550,660h:rI10NP1:(X$(IP(I1),IV1))MNX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148|I3I31::1481I10NP1:(X$(I$(IP(I1),J1)NU$:I3I31::650+:650o"I10NP1:768X$(IP(I1),IV1),B$:(26)0I4I41:OP1550,660w,:6I10NP1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148@I3I31::1486JI10NP1:768X$(IP(I31::650:650YI10NP1:768X$(IP(I1),IV1),B$:(26)0I4I41:OP1550,660a:I10NP1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148 I10NP1:768X$(IP(I1),IV1),B$:(26)0X1)NU$:I3I31::650 :650YI10NP1:X$(IP(I1),IV1)B$I4I41:OP1550,660a:I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148 I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),J1)NU$:I3I10NP1:X$(IP(I1),IV1)B$I4I41:OP1550,6609:I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31:::NP(I31);" RECORDS MARKED FOR DELETION":93::I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),JOL2İ91:A$"HELP":130:OL2'~9000140:(4)"BLOAD"A$",A"I",D1":L(21920)256(21919)I1:175,L(L256)256:176,(L256):A$140:J(175)256(176)I1:(4)"BSAVE"A$",A"I",L"J",D1":J" BYTES":I(121)256(122):1ITHER KEY TO RETURN TO MAIN MENU":M$:M$(24)508 kC l1135I ml nOL0İ91:A$"BASE":130:OL0 pM1120,1310,1570,2040,1630 qM8 rOL3İ91:A$"FILER":130:OL3 tM52995,2900,3170 xOL1İ91:A$"REPGEN":130 z5620|(7)"ERR: ";:I0I15J53856I(I255)1:98F `J43377(43583I)i bK(J):(K);:K192JJ1:98 f" AT LINE ";(218)256(219):93:TY799,50,5630,2950 h94 i2 j:(7)"BE SURE YOU SAVED YOUR FILES!":"PRESS 'CTRL-X' TO END":"ANY O9800 ZM110,110,110,110,110,114,114,120,124i [:(7)"BE SURE PROGRAM DISKETTE IS IN DRIVE 1!":93 \:(7)"BE SURE DATA DISKETTE IS IN DRIVE "DI$ ]24:"PRESS ANY KEY TO CONTINUE ";:M$:::/ ^980:::(4)"CLOSE":(4)"PR#0":I(222)::"2 - REVIEW/ADD RECORDS":"3 - PRINT RECORDS":"4 - ENTER DOS COMMANDS":"5 - GET NEW FILE" F"6 - FILE MANAGEMENT":"7 - TRANSFORM DATA":"8 - GENERATE REPORT":"9 - HELP":"Q - END" P::"CHOOSE OPTION: ";::M$:M$:M$"Q"106 UM(M$):M1MED SUBSTRING VALUE":S$(5)"NO. LESS THAN X":S$(6)"NO. GREATER THAN X":S$(7)"NO. OUT OF A RANGE" ,S$(8)"NO. IN A RANGE":S$(9)"RECORD NO. RANGE" . 2104:TY2:34,0::::NP;" RECORDS IN FILE"\ <4:"MAIN MENU: ":::"1 - SAVE FILE TO DISK":/(4)"BRUNPUF,D1"0(4)"BLOADERR,A980"B38400:14780K 94k(4)"BLOAD GETTER,A881,D1"(4)"BLOAD STRSEARCH"(800a *S$(1)"ALLOWABLE STRING VALUE":S$(2)"EXCLUDED STRING VALUE":S$(3)"ALLOWABLE SUBSTRING VALUE":S$(4)"EXCLUD               1NF:881:LB$(I1):,&NFAF15AF15NF]&X$(NPAD1,NFAF1),IP(NPAD1),IH(NPAD1)&I10NPAD1:IP(I1)I1::I10NP1:I0NF1:881:X$(I1,I):::(4)"CLOSE"QT$:50&:"YOU MAY ADD UP TO ";::AD;::" RECORDS"::990^' ::"NO :(4)"WRITE"QT$:N9:F9:I1F9:LA$(I)::I10NP1:(X$(IP(I1),0),1)(26)āI0NF1:LB$(I1)(26)ĺX$(IP(I1),I)::1170%LB$(I1)(26)Ă%:(4)"CLOSE"QT$:50&92:(4)"VERIFY"QT$",D"DI$:(4)"OPEN"QT$:(4)"READ"QT$:NP:NF:I1a$h(4)"OPEN"QT$".OLD,D"DI$:(4)"CLOSE"QT$".OLD":(4)"UNLOCK"QT$".OLD":(4)"DELETE"QT$".OLD"$j(4)"OPEN"QT$:(4)"CLOSE"QT$:(4)"UNLOCK"QT$:(4)"RENAME"QT$","QT$".OLD":"DISK FILE ";QT$;" RENAMED ";QT$".OLD"$o104$t770%~(4)"OPEN"QT$ #B1010+#LADADNP:MP0MPMPNP:NPMP;#QIN0İ2104C#V50#`"FILE IS CURRENTLY NAMED: ";QT$::"PRESS 'R' TO RENAME":"ANY OTHER KEY TO SAVE UNDER THIS NAME":M$:M$:M$"R"ĺ:"NEW FILE NAME: ";:881:QT$#f108:92:(4)"VERIFY"QT$",D"DI$PMP1,I1):X$(NPMP,I1):1050*"10505"2700R""";X:X$(NPMP,I1)(X)["104c":"$"ENTER 'E' TO EDIT":"ANY OTHER KEY TO KEEP AS IS ";:M$:M$:M$"E"I1NPMP:I39999:660:I30".:NPNP1:IIII1:MP0NPAD1290"8NPAD1100CREMENT NO.":::34,6F!::"RECORD NO. ";NP1:::IP(NPMP)NPMPR!I1NF!:(LB$(I),20);::(LB$(I),1)"#"1045!881:X$(NPMP,I1):J1(X$(NPMP,I1)):(J510)51100!(J510)1NPMP0II1: "(J510)1X$(NPMP,I1)X$(NI):3 AF0:104:X$(AD1,NF1),IH(AD1),IP(AD1)o :"YOU MAY ENTER UP TO ";::AD;::" RECORDS"::34,3 MPNP:NP0:AD0MP01290!::"ENTER 'CTRL-E RETURN' TO TERMINATE":"'CTRL-A RETURN' FOR SAME AS LAST RECORD":"'CTRL-Q RETURN' TO INO. OF RECORDS: ";ADy:"HOW MANY FIELDS IN FILE? (ENTER '0' TO":"READ FILE STRUCTURE FROM DISK)";:" ";NF:NF02190NF1NF15920 ::"ENTER FIELD NAMES":"END WITH '#' FOR NUMERIC VALUES ONLY":::I1NF:"FIELD NO. ";I;" : ";:881:LB$(D2:124YR:"WHICH DRIVE CONTAINS DATA DISK? (1/2)";:DI$:DI$:(DI$)1(DI$)2850\M3ĺ(4)"CATALOG,D"DI$:93:820f:"ENTER FILE NAME: ";:881:QT$pM1900z2220:NA0:1200::QT$;::" BEING CREATED":216,0::"MAX NED1::2:"OMNIFILE FILE MANAGER VER 3.0":4:"COPYRIGHT 1983 BY M. K. BOOKER":6:"NEW FILE MENU: ":::"1 - CREATE NEW FILE":"2 - READ DISK FILE">"3 - CATALOG DISK":"4 - HELP":H:"CHOOSE OPTION: ";:M$::M$:M(M$):M1M4840MM4E(F9)LB$(I2):91 3250::TY1:LA$(16),XX$(15),LB$(17),P(15),CH$(15,4),PW(15),NW(15),T(15):(4)"VERIFYPR,D1":(4)"OPENPR":(4)"READPR"!PR:N:I1N:C:PS$PS$(C)::(4)"CLOSE %PP(2,8),SU(15),L2$(15):42:104*34,0:4EF0N$"":660[::(LB$(EF),20);::(LB$(EF),1)"#"Č881:X$(IP(I1),EF1):660f2690"";X:X$(IP(I1),EF1)(X)216,0:660N9NP:I10NP1:(X$(IP(I1),0),3)(26)"**"N9N91  :F90:I21NF:LB$(I2)(26)F9F91:LA$"P"N$(1)700*I39999N$(1)700FN$(1)İ104:I1NP1:YN$"N"İ104:N$"D"X$(IP(I1),0)(26)"**"X$(IP(I1),0):104:N$"P"İ1550::660:"EDIT WHICH FIELD? (1-";NF;") ":"(ENTER '0' FOR NONE) ";:EF:EF0EFNF740 NO. ";::I11:::I0NF1::I1" - "(LB$(I1),20);" ";::" ";X$(IP(I1),I)c(37)20İ93iyN$"E"740:"EDIT/DELETE/PRINT/NEXT (E/D/P/N): ";:I39999ĺ:"ENTER 'CTRL-A' TO ABORT SEARCH ";:N$:N$:N$"E"N$"D"N$"N"N$NP1:I11MNI11MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148WlI3I31::148vI10NP1:I11MNI11MXX$(IP(I1),IV1)NU$:I3I31::650:650:"GLOBAL EDIT COMPLETED":I31;" RECORDS MODIFIED":93::Q216,0:::"RECORD1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148L0I3I31::148:I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),J1)NU$:I3I31::650D:650NI10NP1:I11MNI11MXI4I41:OP1550,660X:DbI10, BUT USERS ARE":"PERMITTED TO MAKE COPIES FOR OTHERS.":"A CONTRIBUTION OF $25 TO THE AUTHOR":"($20 ADDITIONAL FOR THOSE":"WHO ORDER DIRECT) WOULD BE APPRECIATED"6 "FROM THOSE WHO FEEL THE PROGRAM IS"e7 "WORTH THIS AMOUNT. USERS SUBMITTING":"S):1048 5 (512)5İ104:110095 (7)"REENTER":10465 :2:"DATA FILE: ";::QT$:::"FIELDS IN FILE:"::I11NF:I1;" "LB$(I1):::5 :"OMNIFILE IS DISTRIBUTED INFORMALLY":"BY THE USERS. IT MAY BE ORDERED FOR A"6 "HANDLING FEE OF $107)"REENTER":765:4 980:(512)0X$(NPMP,I1)"":1048\4 (512)1NPMP0II1:10484 (512)1X$(NPMP,I1)X$(NPMP1,I1):X$(NPMP,I1):10484 (512)17NP0II1:10485 (512)17X$(NPMP,I1)(1(X$(NPMP1,I1))):X$(NPMP,I1;AD:AD0ĺ(7):2240k3216,0::"ADD NEW FIELDS":"THIS SESSION? (Y/N) ";:M$:M$:M$"Y"M$"N"22503M$"N"AF0:104:3:"MAX NO. OF FIELDS TO ADD: ";AF:AF0AF14ĺ(7):22603104:3 980:(512)0X$(IP(I1),EF1)"":7684 ((4)"VERIFY"SF$",D"DI$:(4)"OPEN"SF$:(4)"READ"SF$:NF:NF:I11NF:881:LB$(I1)::(4)"CLOSE"SF$:9782216,0::"ADD NEW RECORDS":"THIS SESSION? (Y/N) ";:M$:M$:M$"Y"M$"N"22202M$"N"AD0:22503:"MAX NO. OF RECORDS TO ADD: "OP2ı*1 ::I4" RECORDS FOUND"::93:a14"INSERT AFTER WHICH RECORD? ";IX:IX0IXNP2100q16II0:IN1:18IN0:II0āI1NPIIIX:IP(NPI)IP(NPIII)::I0II1:IP(IXI)NPIII:1:1:104:"STRUCTURE FILE NAME: ";:881:SF$m292:H0OP3İ2800:"FIELD NO. TO MODIFY: (1-";NF;")";:IV:IV1IVNF2020s0OP590,590,630,610:2070:OP50:13120:2::"ENTER 'END' AS COMMAND TO RETURN TO MENU":34,40::"ENTER DOS COMMAND: ";::881:A$:A$"END"500 (4)A$:205019300/OP470,470,510,490::2070:OP50:1312j/"MIN VALUE IN RANGE: ";MN:"MAX VALUE IN RANGE: ";MXz/MXMN1960/OP530,530,570,550::2070:OP50:1312/"MIN RECORD NO.: ";MN:"MAX RECORD NO.: ";MX/MN1MXMN1990/MXNPMXNP90,330,310::2070:OP50:1312?.b"MAX VALUE (X): ";MN:I31l.lOP350,350,390,370::2070:OP50:1312.v"MIN VALUE (X): ";MX:I31.OP410,410,450,430::2070:OP50:1312."MIN VALUE IN RANGE: ";MN:"MAX VALUE IN RANGE: ";MX/MXMN1G: ";:881:B$:OP141,141,150,144::2070:OP50:1312-D"EXCLUDED STRING: ";:881:B$:OP154,154,210,158::2070:OP50:1312-N"SEARCH SUBSTRING: ";:881:B$:OP230,230,270,250::2070:OP50:1312.X"EXCLUDED SUBSTRING: ";:881:B$:OP290,2V0IVNF1820 , IV0ė:1312,!OP3ĺ:"FIELD NO. TO MODIFY: (1-";NF;")":"ENTER '0' TO ABORT CHANGE";:" ";J:J0JNF1825,#OP3J0ė:1312,$OP3ĺ:"NEW VALUE:";:881:NU$:,0SO11860,1870,1880,1890,1910,1930,19607-:"SEARCH STRINUR FILES!":"CURRENT FILE WILL BE ERASED FROM RAM":"PRESS 'CTRL-X' TO CONTINUE":"ANY OTHER KEY TO RETURN TO MAIN MENU":M$::M$(24)50+h799,2800:::S$(SO)::"WHICH FIELD TO SEARCH? (1-";NF;") ":"ENTER '0' TO RETURN TO EDIT MENU ";:IV:I8:SO0SO91390 *xSO91990;*SO0MN1:MXNP:2020E*1820*104:(4)"PR#"PR:PS$::"RECORD NO. ";I11::I20NF1:(LB$(I21),40);" - ";X$(IP(I1),I2):::(4)"PR#0":216,0:*"OP1:1360*^ED2ī810+`:(7)"BE SURE YOU SAVED YOMARKED FOR DELETION":"ENTER 'CTRL-A' TO ABORT":"ANY OTHER KEY TO CONTINUE ";:A$::A$(1)1312)PI40:I31::2::"AVAILABLE SEARCH CRITERIA: ":::J19:J" - "S$(J)::*n:"CHOOSE OPTION: ":"ENTER '0' FOR ALL RECORDS ";:M$::M$:SO(M$)4AL CHANGE":"4 - GLOBAL DELETE":"5 - INSERT RECORDS":"6 - RETURN TO MAIN MENU"($::"CHOOSE OPTION: ";:M$::M$:OP(M$):OP1OP61316(%OP11280(&OP6Ĺ34,0::104:50((OP5İ2100:1280b)<OP4ė:"WARNING: RECORDS FOUND WILL BE":"MORE RECORDS MAY BE ADDED NOW"::::"TO ADD MORE, SAVE FILE":"AND READ BACK IN FROM DISK":'MPMPNP:ADADNP:NPMP:IN0İ2104'93:50'MPNP' 216,0:::"EDIT MENU: ":::"1 - ADD RECORDS":"2 - REVIEW RECORDS ON SCREEN"P(""3 - GLOB               p ߅ȱHȱh ߅ ȱHȱ h8`4: ީ ߢ u 9ե R ȥoȥp`h hhߚHH`EF- ,00 *$,XǘP$,ȱ8# =ۥ % ,Lj8;LL ߅HH hE0hE0$0$0Hh`Lv Bqmn?nL,L,77OLL7$8ѸL$8 L8HK8H`USNGBELLEOLEOPSWAPARRAYV8AR99 { lݩ ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 4ZN  40 -M3Ā, 2:M2ĺ(4)"RUNPRINTPROG"C <(4)"RUNOMNIFILE"ME` :4::2:"** OMNIFILE FILE MANAGEMENT PROGRAM **"::6:"COPYRIGHT 1983 BY M. K. BOOKER"v::"OPTIONS:"::"1 - RUN OMNIFILE":"2 - RUN PRINTER CONFIGURATION PROGRAM":"3 - QUIT" (::"CHOOSE AN OPTION: ";:M$::M$:M(M$):M1M3  UCH CONTRIBUTIONS WILL BE REGISTERED":"AND WILL RECEIVE ONE FREE UPDATE":"PLUS A FULL USER MANUAL."7 "CONTRIBUTIONS SHOULD BE SENT TO:"::"M. K. BOOKER":"151 HENDRIX DRIVE":"OAK RIDGE, TN 37830":93:7XA1;" "LB$(I1)::::M$:M(M$):M1M4840MM4ED2:124YR:"WHICH DRIVE CONTAINS DATA DISK? (1/2)";:DI$:DI$:(DI$)1(DI$)2850\M3ĺ(4)"CATALOG,D"DI$:93:820f:"ENTER FILE NAME: ";:881:QT$pM1900z2220:NA0:1200::QT$;::" 15),L2$(15):42:104*34,0:4ED1::2:"OMNIFILE FILE MANAGER VER 3.0":4:"COPYRIGHT 1983 BY M. K. BOOKER":6:"NEW FILE MENU: ":::"1 - CREATE NEW FILE":"2 - READ DISK FILE">"3 - CATALOG DISK":"4 - HELP":H:"CHOOSE OPTION: ";:M$::I21NF:LB$(I2)(26)F9F91:LA$(F9)LB$(I2):91 3250::TY1:LA$(16),XX$(15),LB$(17),P(15),CH$(15,4),PW(15),NW(15),T(15):(4)"VERIFYPR,D1":(4)"OPENPR":(4)"READPR"!PR:N:I1N:C:PS$PS$(C)::(4)"CLOSE %PP(2,8),SU(0' FOR NONE) ";:EF:EF0EFNF740EF0N$"":660[::(LB$(EF),20);::(LB$(EF),1)"#"Č881:X$(IP(I1),EF1):660f2690"";X:X$(IP(I1),EF1)(X)216,0:660N9NP:I10NP1:(X$(IP(I1),0),3)(26)"**"N9N91  :F90N$:N$:N$"E"N$"D"N$"N"N$"P"N$(1)700*I39999N$(1)700FN$(1)İ104:I1NP1:YN$"N"İ104:N$"D"X$(IP(I1),0)(26)"**"X$(IP(I1),0):104:N$"P"İ1550::660:"EDIT WHICH FIELD? (1-";NF;") ":"(ENTER 'FIED":93::Q216,0:::"RECORD NO. ";::I11:::I0NF1::I1" - "(LB$(I1),20);" ";::" ";X$(IP(I1),I)c(37)20İ93iyN$"E"740:"EDIT/DELETE/PRINT/NEXT (E/D/P/N): ";:I39999ĺ:"ENTER 'CTRL-A' TO ABORT SEARCH ";:4I41:OP1550,660X:DbI10NP1:I11MNI11MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148WlI3I31::148vI10NP1:I11MNI11MXX$(IP(I1),IV1)NU$:I3I31::650:650:"GLOBAL EDIT COMPLETED":I31;" RECORDS MODIP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148L0I3I31::148:I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),J1)NU$:I3I31::650D:650NI10NP1:I11MNI11MXI(26)"**"X$(IP(I1),0)::148 I3I31::148iI10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),J1)NU$:I3I31::650t:650I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXI4I41:OP1550,660:9&I10N1::148,I10NP1:(X$(IP(I1),IV1))MXX$(IP(I1),J1)NU$:I3I31::6507:650I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXI4I41:OP1550,660:I10NP1:(X$(IP(I1),IV1))MN(X$(IP(I1),IV1))MXX$(IP(I1),0)I3I31::1481I10NP1:(X$(IP(I1),IV1))MNX$(IP(I1),J1)NU$:I3I31::650<:650wI10NP1:(X$(IP(I1),IV1))MXI4I41:OP1550,660:I10NP1:(X$(IP(I1),IV1))MXX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I331::1486JI10NP1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),J1)NU$:I3I31::650AT:650|^I10NP1:(X$(IP(I1),IV1))MNI4I41:OP1550,660h:rI10NP1:(X$(IP(I1),IV1))MNX$(IP(I1),0)(26)"**"X$(IP(I1),0)::148|P1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),J1)NU$:I3I31::650+:650o"I10NP1:768X$(IP(I1),IV1),B$:(26)0I4I41:OP1550,660w,:6I10NP1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148@I3II1),IV1)B$X$(IP(I1),J1)NU$:I3I31::650:650YI10NP1:768X$(IP(I1),IV1),B$:(26)0I4I41:OP1550,660a:I10NP1:768X$(IP(I1),IV1),B$:(26)0X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148 I10NNP1:X$(IP(I1),IV1)B$X$(IP(I1),J1)NU$:I3I31::650 :650YI10NP1:X$(IP(I1),IV1)B$I4I41:OP1550,660a:I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31::148 I10NP1:X$(IP((I(121)256(122):1I10NP1:X$(IP(I1),IV1)B$I4I41:OP1550,6609:I10NP1:X$(IP(I1),IV1)B$X$(IP(I1),0)(26)"**"X$(IP(I1),0)::148I3I31:::NP(I31);" RECORDS MARKED FOR DELETION":93::I10UDED SUBSTRING: ";:881:B$:OP290,290,330,310::2070:OP50:1312?.b"MAX VALUE (X): ";MN:I31l.lOP350,350,390,370::2070:OP50:1312.v"MIN VALUE (X): ";MX:I31.OP410,410,450,430::2070:OP50:1312."MIN VALUE IN RANGE: ";MN:"890,1910,1930,19607-:"SEARCH STRING: ";:881:B$:OP141,141,150,144::2070:OP50:1312-D"EXCLUDED STRING: ";:881:B$:OP154,154,210,158::2070:OP50:1312-N"SEARCH SUBSTRING: ";:881:B$:OP230,230,270,250::2070:OP50:1312.X"EXCL '0' TO RETURN TO EDIT MENU ";:IV:IV0IVNF1820 , IV0ė:1312,!OP3ĺ:"FIELD NO. TO MODIFY: (1-";NF;")":"ENTER '0' TO ABORT CHANGE";:" ";J:J0JNF1825,#OP3J0ė:1312,$OP3ĺ:"NEW VALUE:";:881:NU$:,0SO11860,1870,1880,1810+`:(7)"BE SURE YOU SAVED YOUR FILES!":"CURRENT FILE WILL BE ERASED FROM RAM":"PRESS 'CTRL-X' TO CONTINUE":"ANY OTHER KEY TO RETURN TO MAIN MENU":M$::M$(24)50+h799,2800:::S$(SO)::"WHICH FIELD TO SEARCH? (1-";NF;") ":"ENTERR ALL RECORDS ";:M$::M$:SO(M$)48:SO0SO91390 *xSO91990;*SO0MN1:MXNP:2020E*1820*104:(4)"PR#"PR:PS$::"RECORD NO. ";I11::I20NF1:(LB$(I21),40);" - ";X$(IP(I1),I2):::(4)"PR#0":216,0:*"OP1:1360*^ED2:"WARNING: RECORDS FOUND WILL BE":"MARKED FOR DELETION":"ENTER 'CTRL-A' TO ABORT":"ANY OTHER KEY TO CONTINUE ";:A$::A$(1)1312)PI40:I31::2::"AVAILABLE SEARCH CRITERIA: ":::J19:J" - "S$(J)::*n:"CHOOSE OPTION: ":"ENTER '0' FOIEW RECORDS ON SCREEN"P(""3 - GLOBAL CHANGE":"4 - GLOBAL DELETE":"5 - INSERT RECORDS":"6 - RETURN TO MAIN MENU"($::"CHOOSE OPTION: ";:M$::M$:OP(M$):OP1OP61316(%OP11280(&OP6Ĺ34,0::104:50((OP5İ2100:1280b)<OP4ėD;::" RECORDS"::990^' ::"NO MORE RECORDS MAY BE ADDED NOW"::::"TO ADD MORE, SAVE FILE":"AND READ BACK IN FROM DISK":'MPMPNP:ADADNP:NPMP:IN0İ2104'93:50'MPNP' 216,0:::"EDIT MENU: ":::"1 - ADD RECORDS":"2 - REVOPEN"QT$:(4)"READ"QT$:NP:NF:I11NF:881:LB$(I1):,&NFAF15AF15NF]&X$(NPAD1,NFAF1),IP(NPAD1),IH(NPAD1)&I10NPAD1:IP(I1)I1::I10NP1:I0NF1:881:X$(I1,I):::(4)"CLOSE"QT$:50&:"YOU MAY ADD UP TO ";::A$o104$t770%~(4)"OPEN"QT$:(4)"WRITE"QT$:N9:F9:I1F9:LA$(I)::I10NP1:(X$(IP(I1),0),1)(26)āI0NF1:LB$(I1)(26)ĺX$(IP(I1),I)::1170%LB$(I1)(26)Ă%:(4)"CLOSE"QT$:50&92:(4)"VERIFY"QT$",D"DI$:(4)"#f108:92:(4)"VERIFY"QT$",D"DI$a$h(4)"OPEN"QT$".OLD,D"DI$:(4)"CLOSE"QT$".OLD":(4)"UNLOCK"QT$".OLD":(4)"DELETE"QT$".OLD"$j(4)"OPEN"QT$:(4)"CLOSE"QT$:(4)"UNLOCK"QT$:(4)"RENAME"QT$","QT$".OLD":"DISK FILE ";QT$;" RENAMED ";QT$".OLD"I1:MP0NPAD1290"8NPAD1100 #B1010+#LADADNP:MP0MPMPNP:NPMP;#QIN0İ2104C#V50#`"FILE IS CURRENTLY NAMED: ";QT$::"PRESS 'R' TO RENAME":"ANY OTHER KEY TO SAVE UNDER THIS NAME":M$:M$:M$"R"ĺ:"NEW FILE NAME: ";:881:QT$: "(J510)1X$(NPMP,I1)X$(NPMP1,I1):X$(NPMP,I1):1050*"10505"2700R""";X:X$(NPMP,I1)(X)["104c":"$"ENTER 'E' TO EDIT":"ANY OTHER KEY TO KEEP AS IS ";:M$:M$:M$"E"I1NPMP:I39999:660:I30".:NPNP1:III LAST RECORD":"'CTRL-Q RETURN' TO INCREMENT NO.":::34,6F!::"RECORD NO. ";NP1:::IP(NPMP)NPMPR!I1NF!:(LB$(I),20);::(LB$(I),1)"#"1045!881:X$(NPMP,I1):J1(X$(NPMP,I1)):(J510)51100!(J510)1NPMP0II1NF:"FIELD NO. ";I;" : ";:881:LB$(I):3 AF0:104:X$(AD1,NF1),IH(AD1),IP(AD1)o :"YOU MAY ENTER UP TO ";::AD;::" RECORDS"::34,3 MPNP:NP0:AD0MP01290!::"ENTER 'CTRL-E RETURN' TO TERMINATE":"'CTRL-A RETURN' FOR SAME ASBEING CREATED":216,0::"MAX NO. OF RECORDS: ";ADy:"HOW MANY FIELDS IN FILE? (ENTER '0' TO":"READ FILE STRUCTURE FROM DISK)";:" ";NF:NF02190NF1NF15920 ::"ENTER FIELD NAMES":"END WITH '#' FOR NUMERIC VALUES ONLY":::I1X$(IP(I1),JF1)::SWAPLB$(I),LB$(JF):a 34,0::2:"DATA FILE: ";::QT$:::"FIELDS IN FILE:"::I11NF:I1;" "LB$(I1):::T LO(10):91:(4)"BLOADPARSER,A768,D1"U I10NP1:IH(IP(I1))1:V 2950*X ::"DATA TRANSFORMATION OPTION1)(((X$(IP(I1),I1)))K):RI10NP1:IH(IP(I1))1X$(IP(I1),L1)((X$(IP(I1),I1))(X$(IP(I1),JF1)))Z :lI10NP1:IH(IP(I1))1X$(IP(I1),L1)((X$(IP(I1),I1))(X$(IP(I1),JF1)))n:I10NP1:SWAPX$(IP(I1),I1),(IP(I1))1X$(IP(I1),L1)(1(K(X$(IP(I1),I1)))):\@I10NP1:IH(IP(I1))1X$(IP(I1),L1)(((X$(IP(I1),I1)))K)dB:I10NP1:IH(IP(I1))1X$(IP(I1),L1)(((X$(IP(I1),I1)))K):I10NP1:IH(IP(I1))1X$(IP(I1),LIH(IP(I1))1X$(IP(I1),L1)((K(X$(IP(I1),I1)))):^I10NP1:IH(IP(I1))1X$(IP(I1),L1)((K(X$(IP(I1),I1))))f:xI10NP1:IH(IP(I1))1X$(IP(I1),L1)((K(X$(IP(I1),I1))))z:I10NP1:(X$(IP(I1),I1))0IH(I(121)256(122):VI10NP1:(X$(IP(I1),I1))0IH(IP(I1))1X$(IP(I1),L1)((K(X$(IP(I1),I1)))LO)^:LI10NP1:(X$(IP(I1),I1))0IH(IP(I1))1X$(IP(I1),L1)((K(X$(IP(I1),I1))))N:o3540I10NP1:           !!! ! ! ! ! !!!!!!!!!""" " " A::AH THIS AMOUNT. USERS SUBMITTING":"SUCH CONTRIBUTIONS WILL BE REGISTERED":"AND WILL RECEIVE ONE FREE UPDATE":"PLUS A FULL USER MANUAL."7 "CONTRIBUTIONS SHOULD BE SENT TO:"::"M. K. BOOKER":"151 HENDRIX DRIVE":"OAK RIDGE, TN 37830":93:7XERED FOR A"6 "HANDLING FEE OF $10, BUT USERS ARE":"PERMITTED TO MAKE COPIES FOR OTHERS.":"A CONTRIBUTION OF $25 TO THE AUTHOR":"($20 ADDITIONAL FOR THOSE":"WHO ORDER DIRECT) WOULD BE APPRECIATED"6 "FROM THOSE WHO FEEL THE PROGRAM IS"e7 "WORT(1(X$(NPMP1,I1))):X$(NPMP,I1):1048 5 (512)5İ104:110095 (7)"REENTER":10465 :2:"DATA FILE: ";::QT$:::"FIELDS IN FILE:"::I11NF:I1;" "LB$(I1):::5 :"OMNIFILE IS DISTRIBUTED INFORMALLY":"BY THE USERS. IT MAY BE ORD12)0X$(IP(I1),EF1)"":7684 (7)"REENTER":765:4 980:(512)0X$(NPMP,I1)"":1048\4 (512)1NPMP0II1:10484 (512)1X$(NPMP,I1)X$(NPMP1,I1):X$(NPMP,I1):10484 (512)17NP0II1:10485 (512)17X$(NPMP,I1)3:"MAX NO. OF RECORDS TO ADD: ";AD:AD0ĺ(7):2240k3216,0::"ADD NEW FIELDS":"THIS SESSION? (Y/N) ";:M$:M$:M$"Y"M$"N"22503M$"N"AF0:104:3:"MAX NO. OF FIELDS TO ADD: ";AF:AF0AF14ĺ(7):22603104:3 980:(5TURE FILE NAME: ";:881:SF$m292:(4)"VERIFY"SF$",D"DI$:(4)"OPEN"SF$:(4)"READ"SF$:NF:NF:I11NF:881:LB$(I1)::(4)"CLOSE"SF$:9782216,0::"ADD NEW RECORDS":"THIS SESSION? (Y/N) ";:M$:M$:M$"Y"M$"N"22202M$"N"AD0:2250:A$"END"500 (4)A$:20501OP2ı*1 ::I4" RECORDS FOUND"::93:a14"INSERT AFTER WHICH RECORD? ";IX:IX0IXNP2100q16II0:IN1:18IN0:II0āI1NPIIIX:IP(NPI)IP(NPIII)::I0II1:IP(IXI)NPIII:1:1:104:"STRUC/MN1MXMN1990/MXNPMXNPH0OP3İ2800:"FIELD NO. TO MODIFY: (1-";NF;")";:IV:IV1IVNF2020s0OP590,590,630,610:2070:OP50:13120:2::"ENTER 'END' AS COMMAND TO RETURN TO MENU":34,40::"ENTE