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`180: 23! D$;"BRUN MENU"' > CENTER STRING A$^ B(20((A$)2)):B0B1k B:A$: from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":z#?1,<:;X°      Ҡ"ĠҠ®àRΠ Ӡ "Ҡՠ ղճ  մ յ նX°]"Ϡ" Ԡ" Ϡ""ص"ΠĮŠԠӧ̠٠Šέħ٠ŠǠн۲ݺƠؠРΠؠк۳ݽغνΫ͠ӠӠ؍۱ݽ۲ݪ۳ݩ۱ݽ۲ݫ۱ݍ۳ݽ۲ݫ۱ݭΨ۴ݩ۱ݽ۲ݫ۳ݍĤӥɩϥĤӥɩϥĤӥɩϥͽ˽ͭͽ̨ͫĤӥɩϥ˩Ժݽ͍ؽ͠ӠŠӠŠԠΠĠƠŠӠĠӠԠΠĠƠŠԠ   膢 ȱ " <67 L  8ij v vo>VAL([2])THEN MAX=VAL([2])"," 2. [1]=MAX",,"THIS '3-LINES' ROUTINE FINDS THE","MAXIMUM VALUE IN FIELD 2 OF THE"P RECORDS AND PUTS IT IN FIELD 3 OF,THE LAST RECORD OF THE+ SUM + VAL([K])"," :NEXT "," :[M] = STR$ (SUM)",,"MULTIPLE STATEMENTS ARE PERMITTED", ,"ADDS UP THE QUANTITIES IN THE FIRST"'O"M-1 FIELDS PUTTING THE RESUTLT","IN THE M'TH FIELD OF EACH RECORD.",,"NOTE:THE ABOVE WILL NOT WORK IF","THE VERYD COPIED INTO FIELD 3."Mw,"EX3: D$(S%(I),O%(0)) ="," D$(S%(I),O%(1))+D$(S%(I),O%(2))",,THIS IS EQUIVALENT TO EX2. IN FACT,IT IS WHAT EX2 IS TRANSLATED TO,BY DB CALC BEFORE D)O IS ACTIVATED.N|,,,,"EX4: SUM=0:FOR K= 0 TO M-1"," :SUM =SUM RD,IN THE SUBRANGE SPECIFIED.Lh,,,,"EX2: $[1]=[2]+[3]",,"HERE THE '$' ON THE FAR LEFT TELLS","DB CALC THAT WHAT FOLLOWS IS A","STRING EXPRESSION AND IS NOT TO BE","EVALUATED NUMERICALLY. THE STRINGS","IN FIELD 2 AND FIELD 3 ARE TO BE"Mr"JOINED ANPROGRAM PLUS.","ELEMENTARY PRE-PROGRAMMED FUNCTIONS","HAVE BEEN INCLUDED. SOME OF THESE"Lc"ARE SHOWN BELOW.",,"EX1: [3]=([2]+[1]-SIN([4]))/2",,"[3] STANDS FOR FIELD 3. THE EXPRES-","SION ON THE RIGHT IS EVALUATED AND",ASSIGNED TO FIELD 3 IN EACH RECOY,"MJY"THE SAME FUNCTION COULD BE DONE BY",DB CALC BUT LESS CONVENIENTLY.,J\,,,"[5] FID.",," THIS IS APPLE'S FILE",UTILITIES PROGRAM.,,YK^, "[1] DB CALC.",," DB CALC PROMOTES DB TO A POWERFUL","ELECTRONIC SPREADSHEET AND RELATIONAL","DATABASE IGURE DRIVES"," [7] EXIT TO BOOT MENU",JT ,[2] SUM FIELDS (COLUMNS).,," THIS ROUTINE SUMS A SPECIFIED RANGE",OF RECORDS IN ANY FIELD AND PUTS THE,SUM IN THE CORREPONDING FIELD OF THE,NEXT AVAILABLE RECORD OR THE RECORD,"SPECIFIED BY THE USER. ACTUALLOGRAM REPLACES DB,SENIOR IN MEMORY BUT PRESERVES DB'S,CURRENT DATABASE. ITS MENU LOOKS ,"LIKE THIS:",,," U T I L I T I E S" (IO," [1] DB CALC"," [2] SUM FIELDS (COLUMNS)"," [3] RETURN TO DB"," [4] COMMAND FILE GENERATOR"," [5] FID"," [6] CONFD!'"G0,,,,,,,G@,,,,,," -------------------------"," ! !"," ! UTILITIES !"," ! !"," ! !"," -------------------------",,,,,,,HJ,THE UTILITIES PRAME AS ONE ON DISK. IF A FILE TO","BE ADDED OR MERGED INTO MEMORY","FROM DISK DOESN'T EXIST, DB WILL","LET YOU KNOW."G.,"SOME OF DB'S MESSAGES ARE:",," 'CONFIGURATION VIOLATION!'"," 'DISK FULL!'"," 'FILE EXISTS! REPLACE IT? (Y/N)"," 'FILE NOT FOUNADDING OR MERGING FILES CONFLICTS","WITH DB'S CURRENT CONFIGURATION,","THEN A WARNING IS ISSUED AND THE","ATTEMPT IS ABORTED. NO PHANTOM","FILES ONE SECTOR LONG WILL RESUTLT."uF-"WARNINGS ARE GIVEN IF THE NAME OF A","FILE TO BE SAVED BEARS THE SAME","N, THEN THE","NUMBER OF FIELDS RESULTING WILL BE "D("THAT OF THE FILE CONTAINING THE MOST","FIELDS. ON THE OTHER HAND, IF A FILE","IS MERGED, THEN THE FILE LENGTH OF","THE RESULTING FILE WILL BE THAT OF ","THE FILE HAVING THE LONGEST LENGTH."E,"IF MANY SAFETY MEASURES HAVE BEEN","BUILT INTO DB. IT IS NOT POSSIBLE FOR","A DATA FILE TO BE LOST IN MEMORY."1D&"IF A FILE ON DISK IS ADDED TO A FILE","IN MEMORY, AND THIS FILE CONTAINS","FEWER FIELDS THAN THE FILE IN MEMORY","OR IT CONTAINS MORE FIELDS"PUT IN, AND MUCH MORE.",,,,,,, ," -------------------------"," ! !"," ! SPECIAL !"," ! FEATURES !"," ! !" ," -------------------------"B# ,,,,mC$,,,," EFINED FORMAT."A ,FORMAT NUMBERS,," THIS OPTION CAUSES A POWERFUL",'PRINT USING' FORMATTING PROGRAM TO,BE SWAPPED INTO MEMORY. DECIMALS,"CAN BE ALIGNED,PRINT-SPACE FOR THE","NUMBERS GIVEN,AUTOMATIC ROUNDING","PROVIDED,COMMAS AND DOLLAR SIGNS" B"TSELF OF THE USER-","DEFINED FORMAT IF THE 'M)'KEY IS NOT","TOGGLED IN THE RIGHT POSITION. THIS","IS EASILY VERIFIED IN 'DISPLAY'."A,,,"REGULAR FORMAT",," THIS WILL GET EVERYTHING BACK IN","SHAPE. THE ESC KEY WILL DO THIS TOO","WITHOUT LOSING THE DTA IS ENTERED. THE AUTHOR"?"AND HENRY HOES FIND THIS ESTHETICALLY","SATISFYING."," FORMATTING IS SAVED ALONG WITH THE","FILE. NOTE AGAIN,M)OD TOGGLES","BETWEEN THE USER-DEFINED AND THE DE-","FAULT FORMAT MODES. THE PRINTER"@"WILL NOT AVAIL IAY MODES.","THE M)OD TOGGLE IS VERY IMPORTANT.","DON'T FORGET! AN ATTRACTIVE BOILER","PLATE OR TEMPLATE CAN BE PRODUCED"?"FOR USE IN THE 'UPDATE','DISPLAY',OR","'ADD RECORDS' MODES. THE CURSOR CAN","BE MADE TO JUMP FROM ONE FIELD TO THE","NEXT AS DAINITION. THE FORMATTING IS FOR"="THE SCREEN AND THE PRINTER. NOTE THAT","IF TABBING WITH THE PRINTER IN MIND","GOES BEYOND 40 COLUMNS, DISTORTIONS","WILL BE PRODUCED ON THE SCREEN. "y>"M)OD TOGGLES BETWEEN THE DEFAULT & ","THE USER-DEFINED DISPLPARATOR IS ':'.","IT CAN BE CHANGED. FOR EXAMPLE, HENRY","HOES PREFERS, '->'." =,"FORMAT FIELDS",," A TAB VALUE MUST BE ENTERED. THE","NEXT ENTRY IS THE STRING TO FOLLOW","THE FIELD DATA. RETURN CHARACTERS","PRODUCE BLANK LINES. '.' ENDS THE","DEFD HEADER)",," THE DEFAULT HEADER IS 'RECORD'.","HOWEVER, 'STUDENT' OR 'PLAYER' MAY BE","SUBSTITUTED. THE USER CAN REDEFINE","THE RECORD NAME TO SUIT HIS TASTES.";"THE DEFINITION IS SAVED WITH THE","FILE."O<"RECORD SEPARATOR",," THE DEFAULT SE,A LINE","OF SLASHES OR OTHER SYMBOLS TO BE","ENTERED BEFORE EACH RECORD. A SLASH":",'.', TERMINATES THE PRINTER CODE","STRING DEFINITION. THIS STRING IS NOT","SAVED WITH THE FILE. IT MUST BE RE-","DEFINED IN EACH SESSION.";,"RECORD NAME (RECOR--------------"," ! !"," ! FORMAT MENU !"," ! !"," -------------------------"9,,,,,,,,,S:"PRINTER CODE (STRING)",," THIS OPTION ALLOWS CARRIAGE","RETURNS,PRINTER CONTROL CODESRKED","RECORDS' INFORMATION IS RETAINED IN"8P"AN INDEX ARRAY AND CONSEQUENTLY THE","RECORDS OF THE MERGED FILE WHICH COR-","RESPONDS TO THESE MARKED RECORDS, ARE","THE ONES SELECTED BY THE OPTIONS OF","'SEARCH'."9,,, ,,,,,,,,,,,,," -----------ELETE THE ORIGINAL FILE WITHOUT","INCURRING THE BASIC PROGRAMMER'S","DREADED 'OOGLEY BOOGLEY', GARBAGE"+8M"COLLECTION OF DISCARDED STRINGS.","THE STRING SPACE IS INSTANTLY CLEARED","OUT BY DB BASIC RESETTING THE STRING","ARRAY POINTERS. HOWEVER, THE MALE IN MEMORY, MERGED WHEN, AND THIS","IS IMPORTANT,THE SEARCH SUBMENU","RE-PRESENTS ITSELF AND E)RASE IS SEL-","ECTED. A FAILURE TO SELECT E)RASE"g7J"OR C)HANGE IS EQUIVALENT TO A NORMAL","MAIN MENU MERGE."," AN 'INDEX' MERGE AFTER A SEARCH,","WILL DAVED ON DISK."5D," M)ERGE WAS DISCUSSED IN THE MAIN","MENU DOCUMENTATION. IT WORKS THE SAME","WAY IN 'SEARCH', EXCEPT THAT THE","MERGED FILE WILL HAVE ITS RECORDS","WHICH CORRESPOND IN POSITION WITH THE"6G"FOUND (OR NOT FOUND) RECORDS OF THE","FI ONLY A FEW WERE,"FOUND,THEN THEIR DISPLAY WILL BE"4;"RATHER SLOW FOR SOME RECORDS. SO BE","PATIENT! THE COMPILED DB VERSIONS DO","NOT SUFFER MUCH FROM THIS PROBLEM."5>,," FOUND RECORDS MAY BE S)AVED ON","DISK OR THE RECORDS NOT FOUND MAY BE","S) IT IS","THE SAME ROUTINE WITH SOME PARAMETERS","CHANGED. ALL OF DB'S ROUTINES HAVE ","BEEN GENERALIZED TO ACCOMMODATE ALL"348"PROGRAM CALLS OF A SIMILAR NATURE;","THIS IS WHY DB IS REMARKABLY COMPACT.","BE FOREWARNED THAT IF MANY RECORDS",EXIST AND IFATES WITHIN THE RECORD RANGE","PREVIOUSLY SPECIFIED WHEN 'SEARCH'","WAS FIRST ACTIVATED.",," EITHER THE FOUND RECORDS OR THE"22"NOT FOUND RECORDS MAY BE E)RASED","FROM MEMORY."|35" D)ISPLAY OPERATES IN THE REGULAR","'MAIN MENU' FASHION. IN FACT,Y 239 CHARACTERS). IF1,"FIELD DATA EXCEEDS THIS STRING INPUT","LIMIT, IT IS TRUNCATED. FIELD","DATA MAY ALSO BE BLANKED OUT BY","ITS REPLACEMENT WITH NULL STRINGS."2/"THE NULL STRING IS,OF COURSE, ENTERED","BY JUST PRESSING RETURN. CHANGE","OPER",," [4] SAVE",," [5] MERGE",,"NOTE: UPDATE IS ACCESSED VIA DISPLAY"1),,,," CHANGE ALLOWS THE REPLACEMENT OF","FOUND FIELD DATA WITH ANY STRING",HAVING FEWER THAN 256 CHARACTERS ,( THIS IS TRUE FOR THE BASIC,VERSIONS. THE COMPILED VERSIONS,ADMIT ONLH HAS,BEEN ADDED - THE COMPLEX SEARCH.,IT MUST BE SEEN TO BE BELIEVED!,TRY IT OUT./#,(SEE NEXT PAGE FOR THE SEARCH SUB-,MENU),D0&," SEARCH SUBMENU"," ===============",," [1] CHANGE 'SEARCH STRING'",," [2] ERASE",," [3] DISPLAY/EDITA',"x."ON A PARTICULAR FIELD WILL EXTRACT","ALL THE RECORDS HAVING 'BA' AS THE",BEGINNING DATA OF THAT FIELD. FOUND R/ RECORDS WILL HAVE THEIR NUMBERS,"PARADED ON THE SCREEN. NEXT, A",SUBMENU OF POST-SEARCH OPTIONS WILL,APPEAR. A NEW POWERFUL SEARC ! !" ," -------------------------"o-,,,,,,,," DB'S BUILT-IN LINEAR AND BINARY"."SEARCHES MAY SEARCH GLOBALLY ON ALL","FIELDS OR LOCALLY ON SINGLE FIELDS.","SEARCH IS A 'FRONT END' SEARCH.","FOR EXAMPLE, A SEARCH FOR 'BNT, IT CAN JUST BE"," SAVED ON DISK WITH THE 'SAVE"," FILE' OPTION OF THE MAIN MENU.",,,,,,m,,,,,>-,,,,," -------------------------"," ! !"," ! SEARCH !"," ! OPTION !"," LY AS"," AN EXCHANGE MEDIUM."+"QUIT:THIS OPTION DOESN'T REALLY QUIT"," ,IT EXITS TO THE 'BOOT' MENU."," ALL DATA IS LOST BUT ONLY AFTER"," A FORCED 'QUIT' CONFIRMATION."c," OF COURSE, IF THE CURRENT FILE "," IS IMPORTAYSTEM DISK IS WHAT CEMENTS"," TOGETHER DB AND UTIL. ANY"," NUMBER OF PROGRAMS CAN BE"&+" INTERFACED IN THIS WAY "," VIA A COMMON RESIDENT POOL"," OF DATA OBVIATING THE NEED"," TO USE THE DISK DIRECT" IS EXITED. THIS IS A VERY"," POWERFUL FEATURE. ROUTINES"," WRITTEN IN THE POPULAR AND"," EASY 'QUERY LANGUAGE',BASIC,")" MAY BE PUT IN 'UTIL'. THE"g*" CHAIN PROGRAM ON APPLE'S"," S IN 'DISPLAY' AND 'UPDATE'"," ARE AVAILABLE."(,,,"UTILITIES:THIS OPTION,FOUND ONLY IN"," DB SENIOR,RUNS THE 'U4'"," PROGRAM. U4 REPLACES DB"," IN MEMORY BUT NOT ITS DATA."," DB IS RESTORED WHEN 'U4'") PUT IN WITH SORT."a',"UPDATE: DB SENIOR HAS THIS OPTION"," LOCATED IN 'DISPLAY'.",'" PRESSING THE 'RETURN' KEY"," KEEPS THE FIELD DATA THAT"," THE CURSOR IS RESTING ON. "8( " THE COMMANDS DOCUMENTED"," RETURN."&"FLIP FILE: FILE ORDER IS REVERSED. A"," FILE IN INCREASING ORDER"," MAY BE 'FLIPPED' AND CON-"," VERTED TO A SORTED FILE"," IN DECREASING ORDER. DB"," SENIOR'S FLIP HAS BEEN"'N " STRING"," ARRAY SPACE INSTANTLY.", &~"CHANGE FIELDS:FIELDS MAY BE DELETED,"," ADDED, OR THEIR NAMES"," REDEFINED. TO RETAIN"," THE NAME OF THE FIELD"," THE CURSOR IS ON, PRESS"," HE TWO FILES. THE 'INDEX'"," MERGE OPTION ALLOWS A FILE"," TO BE MERGED ON THE FORMER"," FILE'S INDEX ARRAY. THE",%| " FORMER FILE'S DATA IS DE-"," LETED. THE BASIC VERSIONS"," CLEARS OUT THE OOGLEY, D1,WILL MAKE"," DRIVE ONE THE DEFAULT"," DRIVE."#x,"MERGE FILE:FILES MAY BE JOINED ON"," THEIR FIELDS. THE ENSUING"," FILE INHERITS ITS LENGTH"," FROM THAT OF THE LONGER OF"$z" TE DEFAULT DRIVE"," BY LOADING A BOGUS FILE", " WITH 'ADD FILE'. FOR""o" EXAMPLE, IN RESPONSE TO"," THE PROMPT, FILE->,TYPE,""t" OOGLEY, D2 . "," QUOTES ARE NOT NEEDED."N#v" H THEIR FIELD"," DEFINITIONS. A WARNING"," MESSAGE IS GIVEN IF A"," NAME IS USED OF A FILE"," WHICH EXISTS ON DISK."Y"j" IF ONE WISHES TO USE TWO"," DRIVES, ONE MUST FIRST"," RESET TH'/',IN RESPONSE TO,'FILE->'"," ,CATALOGS THE DISK. IF A"," NONEXISTENT FILE IS RE-" b" QUESTED, AN APPROPRIATE"," MESSAGE IS GENERATED." e " " f"SAVE FILE: FORMATTED FILES CAN BE "!h" SAVED WITRE"," OF THE FILE ADDED, WHERE"," FIELDS OVERLAP,PREVAILS."_" THIS ALLOWS QUICK CHANGES"," TO THE FIELD STRUCTURE BY"," ADDING THE FIELD STRUCTURE"," OF A PREFORMATTED FILE."`f a" E: A FILE MAY BE LOADED INTO"," DB AT THE START OF THE"," SESSION,OR IF A FILE IS"," ALREADY IN MEMORY, ANOTHER"," FILE FROM THE DISK MAY BE"M]" TAGGED ON TO THE FILE IN"," MEMORY. THE FIELD STRUCTULY. TWO-"," FIELD SORTS MAY BE DONE. MUL-"," TIPLE FIELD SORTS ON MORE"V" THAN TWO FIELDS ARE DONE BY"," PERFORMING A SEQUENCE OF TWO-"," FIELD SORTS STARTING WITH THE"," LEAST IMPORTANT FIELD."["ADD FIL ADDED FOR DOING AN ASSORTMENT"," OF MULTIPLE TYPE SEARCHES."R" A SUCESSFUL SEARCH ACTIVATES"," A FOLLOW-UP MENU."VT"SORT: SUBSETS OF RECORDS MAY BE"," SORTED ON ANY FIELD ALPHABET-"," ICALLY OR NUMERICAL OPTION."N"SEARCH: ALL RECORDS OR SUBSETS OF"," RECORDS ON ONE OR ALL FIELDS"," MAY BE FRONT-END SEARCHED."JP" A BINARY SEARCH MAY BE SEL-"," ECTED FOR SORTED FIELD DATA."," 'COMPLEX' SEARCH HAS NOW BEEN"," , /8"ERASE: RECORDS MAY BE DELETED SINGLY"ZB" OR IN BLOCKS BY REFERENCE TO"L" THEIR CURRENT FILE POSITIONS."M," NOTE: A COMPLETE ERASURE IS"," DONE MOST QUICKLY BY STARTING"," ANEW WITH THE 'CREATE FILE'"," TORING THE SCROLLING"9" TO ITS INITIAL STATE."X"I - INSERTS RECORDS.""M - SWITCHES ON, WITH A BELL" " CONFIRMATION, FILE'S FORMAT.""CTRL-S ARRESTS THE SCREEN DISPLAY"$" UNTIL A KEY IS STRUCK.".INVOKES 'UPDATE' AT THE CUR-"D" RENTLY DISPLAYED RECORD."j"A - INVOKES 'ADD RECORDS' .""E - ERASES RECORDS ON THE SPOT.""/ - RETARDS THE SCROLLING SPEED."" THREE SLASHES COMPLETES THE"" CYCLE RES"z" KEY IS PRESSED."B"O - REORDERS THE FIELDS."l"S - SELECTS OR DESELECTS FIELDS"" FOR DISPLAY.""P - TOGGLES THE PRINTER ON/OFF.""H - TOGGLES THE HIDE FIELD NAMES"" ON/OFF.""U - ROTECTED FROM":4" SCREEN SCROLLING. ITS MENU"X>" OPTIONS ARE:"R"-> - SCROLL FORWARD ONE RECORD."\"<- - SCROLL BACKWARD ONE RECORD."f"R - AUTOMATIC SCROLLING THROUGH"p" THE REMAINING RECORDS UNTIL A OF"." FIELD DATA CAUSES THE CURSOR"W" TO SKIP TO THE NEXT RECORD.""^E - CONTROL-E RETURN OR JUST ESC""ESC EXITS THE 'ADD RECORDS' MODE." "" "DISPLAY: DISPLAY ACTIVATES A 2-LINE"*" COMMAND MENU PING"," FIELDS IS SUPPRESSED."K"/-N - MAKES A MAXIMUM OF N FIELDS"x" VISIBLE AT A TIME. THIS FEATURE"" IS ESSENTIAL IN 'UPDATE' WHEN"" RECORDS EXCEED THE SCREEN SIZE."J0"/ - A SLASH PLACED AT THE 'END'G FIELD DATA OF"2X" THE PREVIOUS RECORD."^b"/N - COPIES THE CORRESPONDING FIELD"l" DATA OF RECORD NUMBER N."v"/0 - REPOSITIONS THE CURSOR AT THE"" START OF THE CURRENT RECORD -"""^ - THE DISPLAY OF THE REMAINONTROLS ARE"6" AVAILABLE FOR EASE OF "a" DATA ENTRY. THESE ARE " &" AVAILABLE IN BOTH 'ADD"0" RECORDS' AND 'UPDATE'.":""D"/ - IN AN EMPTY FIELD,COPIES THE"N" CORRESPONDINISK."0" TYPING '/' IN RESPONSE "[" TO THE PROMPT,'FILE->',"" CATALOGS THE DISK." " ""ADD RECORDS:RECORDS TYPED ARE ADDED"" TO THE CURRENT FILE IN" " MEMORY. '/' C+" FOR STARTING A NEW FILE"X" & QUICK REINITIALIZATION."" FIELDS MAY BE NAMED DIR-"" ECTLY OR FIELDS MAY HAVE"" THEIR NAMES DEFINED BY"" A FILE ALREADY ON D,,,,,,,," -------------------------"," ! !"," ! MAIN MENU !"," ! OPTIONS !"," ! !"," -------------------------",,,,,,,,,"CREATE FILE:THIS OPTION IS INVOKED" A LOT OF DUPLICATION,WORK DEFINING FORMATS. IT IS RECOMMENDED THAT A HIGH SPEED,DOS BE USED WHICH LOADS ITSELF INTO,THE 16K RAMCARD. THIS WILL RELEASE, 10 1/2 K OR MORE OF RAM MEMORY,FOR DATA. DIVERSIDOS OR DAVID DOS,ARE GOOD CHOICES.,,,,,,,,DB SENIOR MAY BE COPIED BY ANYONE.",THE OTHER VERSIONS ARE NOT PUBLIC,"DOMAIN PROGRAMS. SCHOOL BOARDS MAY",PURCHASE THESE FOR A SMALL FEE.,,"THE USER IS ADVISED TO HAVE AVAIL-",ABLE ON HIS DATA DISK RECORD PRE-,EMPTED 'FORMAT' FILES. THIS,SHOULD SAVE,ALTHOUGH ORIGINALLY INTENDED","FOR SCHOOL CHILDREN,IS A POWERFUL",DATABASE. IT COMES IN SEVERAL,FLAVOURS. ALL FLAVOURS PRODUCE,"COMPATIBLE FILES,THAT IS,IF THEIR",CONFIGURATIONS ARE NOT VIOLATED. ~,"THIS VERSION (DB SENIOR) IS THE","MOST POWERFUL.",,"M1T-1L2"," CANADA",,,, u,,,,,," -------------------------"," ! !"," ! INTRODUCTION !"," ! !"," ! !"," -------------------------",,,,,,, }" DB42A1 @: TK119' ^K3:1< hK$((A1)19K);B rK s240 t,,," DB",," A DATABASE MANAGEMENT SYSTEM",,," BY",," TOM HELLSTEN"," 60 SHREWSBURY SQUARE"," SCARBOROUGH"," ONTARIO, 33,37:32,2:35,22 2000% 2 A1:320r :1:1:"->NEXT <-PREV ESC=EXIT P)RINT PG "A;" ";:24:38 A$:(A$)8AA1:300 (A$)21AA1:300 (A$)27A$""ė::(4)"RUNHELLO" A$"P"ī7000 "250 ,A0A42 6ATNdK$(850)n::34,3"x(239)>J124R" ";:40:" ";Xe2039,32y38);" ";:288:18:" DB ":11::2:" A FILE MANAGEMENT PROGRAM"15:12:"BY TOM HELLSTEN":22:12::"READING THE TEXT":                          ƠנԤӾΠԠԢԺźӭϵϠ˥ӥϥԥĤƤ ϳϴ̴΍ŰՠŰŠĠԠԠՠ ȠԠҠ̠ƠŠҠϠՠŠx` X L !   - `" X    i( ! o , и` X$i( " X , +RRĠՇؠƠԠՠNàҠƠҠԠՠΠzӠŠՠ͠ȠŠŠƠ͠ƠԠDzՠŠŠՠԠҠǠҠ ԠՠӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҬƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ%;HSd+2EOTkxŠԿſΠԿſſԠ˨өӠþϠ΍ϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LŠ àՠźҠӻ՗ࠠԠҠոƠƠՠӠe h RRRRR=JWdv&dsK/М LHHH@!>?ABI JL>L?Mhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  STRzmWWX` `EF^_ 0^/_ F̞`EF `HHH0/0+>1jj/9hhh`( 12 1㎓0%` f`ST`LȱM`LȭM`EFST ` ` I,`EF^ȹ^Ȍ  F`,0 0S/TEF$-0 ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭS T   ` /H h/ ` % fɽR ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̆ $U+  # o? : L  hh` %)`ʽR08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈR`  UɽR 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` SSTT`S T8`STEF  `iiiRLk SLk H m hLk T%SRsU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم38x` X L !   - `" X    i( ! o , и` X$i( " X ,      "4":"0ONERRGOTO455":"DEL475,510":"RUN":D$"CLOSE"U(23:34,23::D$"EXECSNR":](:l(MS0:NL: BY TOM HELLSTEN 475 L  6 AʈLG g !A)BC g ESNR":D$"OPENSNR":D$"WRITESNR"'"8NF = "MM":W = "RR:"1T$ ="(34)(34)": IFS> 3 THEN PRINT "(34)"BRUNINPUT"(34)":TEXT:HOME:ONS-3GOTO59:GOTO 325"5("9DIMK%("MM1"),S%("RR1"),O%("MM1"),T%("MM1"),D$("RR","MM"),F$("MM"):GOSUB 126:GOTO325":"2":RESS RETURN FOR THE OLD RECORD/FIELD CONFIGURATION.":::14:"MAXIMUM NUMBER OF FIELDS? ->":12:"MAXIMUM NUMBER OF RECORDS? ->";RR$:14:30&RR(RR$):RR0510&"";MM$:MM(MM$):MM0510&MMRR10000475 'MMMM1:D$"OPENSNR":D$"DELET125:"SAVESENIOR,D1":"BLOADCHAIN,A520":<%440:520"U3M%440:520"U4%925::1002:"CLOSE":32,0:K(222):K9ĺ"DISK FULL":122%K6Č54915:62:325%(218)99100%"FILE MISSING":122::325&16368,0:::6:D$(4):"PK)U$RI1:395$LI1:395'$LIU$13:II1:IU(D$(S%(I),K),1,J)U$415]$IL$II1:IV(D$(S%(I),K),1,J)U$İ13:425$VI:UIA1:$C0(D$(0,0))(131)256(132)9:110,C256:109,C256(110):C(0):D$(W,NF):M1:+%(D$(0,R)):J1K:(D$(0,R),J,1)C$D$(0,R)(D$(0,R),1,J1)A$(D$(0,R),J1)X#w::#|"CLOSE"::"FILE WON'T FIT":122::MO:MS0:ZZ0:NNL#325#LV:RU:J(U$):KO%(K)#LRı$I((LR)2):(D$(S%(I),K),1,J)U$410:D$(S%(I),:I33,31,83,50,55,81,95,77,34,45,450,53:3259"TN320S"Y131:812S%(V)S%(U):e"^440:520"U2""cIW515:S90:812S%(I)S%(N1):NN1:Z85:T0M:D$(S%(I),O%(T))""::812S%(I1)S%(N):"hC$J$:A$"":370"mC$"":A$J$N#rI0M:RO%(I):K="NF1:7:"[1] CREATE FILE [2] ADD"R$:" [3] DISPLAY/EDIT [4] ERASE":" [5] SEARCH"21)"[6] ADD FILE!J" [7] SAVE FILE"21)"[8] MERGE FILE":" [9] CHANGE FIELDS [10] SORT/FLIP":" [11] UTILITIES [12] QUIT":23:"CHOOSE ->";I-"O:ĺF$(R)Q$;% D$((S%(I)),R);:Dĺ6 "DĺD$(0,R);I '::Pĺ"PR#0O ,i 1:"THERE ARE "N;R$: 6"'CREATE FILE'":122 ;N""R$" IN MEMORY WOULD BE LOST":S50:122 @"NO"R$" ARE IN MEMORY":122p!E::"DB SENIOR"15)R$"="W30)"FIELDS6]305:" LOW RECORD ->";::V(T$):V1515:"HIGH RECORD->";::U(T$):V1VUUN131c|Pĺ"PR#1":" 80N"; P$;:Z$"N"Ğ:B$I:J0M:RO%(J):K%(R)295:D$((S%(I)),R)"^"300:D280:PĺT%(R)):28036,T%(R)1 HNF:O%(I)I:K%(I)1:T%(I)1::E998:X16368:YX16:M1:Z$"Y":G$"----------":B$"RECORD ":R$" RECORDS":Q$":":K0W:S%(K)K:::325"EMPTY MEMORY ? Y/N ";::T$"Y"Ĭ" S)INGLE A)LL FIELDS ? ->";T$:T$"A"K0:GM:43:A$"":4BT:II1:118#y"CATALOG"::Gz23::"PRESS RETURN ";::::u{"LIST RECORD NAME? Y/N ";Z$:Z$""Z$"Y|K0M:"LIST "F$(O%(K))"? Y/N ";::K%(O%(K))T$"N"::14}MS0520:::12:15::"WORKING":::~125:J$(13):BNF1:I0""ıHq(T$,1)"/"T((T$,2)):T1120:D$(S,R)D$((S%(T)),R):115r(T$)D$(S,R)(T$,1):(T$,1)"/"115:D$(S,R)(T$,(T$)1):KM:JKB:118sC1:F1:D$(S,R);:Dĺ:117tD$(0,R);uJMJKBv:w:xJNF:KNF:B(T)mK0MB:::B$I::JKKB1:RO%(J):K%(R)(DS5)ĺ(T%(R)1)(D1)1)F$(R)Q$D$(S,R);:(13(D0));:DĺD$(0,R);nJMJKBo:4:JKKB1:RO%(J):K%(R)117:D104:F$(R)Q$;:F(37):C(36)::T$"/"D$(S,R)D$((S%(I1)),R):115pT$AS%(I)0S%(I)(S%(I)):J0M:D$(S%(I),O%(J)):bg:"CLOSE":A0:365::T;R$" WRITTEN":122hT%(R):33,40:T%(O%(J1))T%(R)D$(0,R)""Ĺ33,T%(O%(J1))ijN320k131:A0lIVU(S90):S91:30:34,2:SS%(I):(A)ĴS0119:SSw$"":F$""76:F$"/"İ121:98zc"READ"F$:"CLOSE"::F$" EXISTS":"REPLACE IT? Y/N ";::T$"Y"76::"DELETE"F$d125::360:"OPEN"F$:"WRITE"F$:M::B$:Q$:J0M:F$(O%(J)):D$(0,O%(J)):T%(O%(J))::A0TN:102eTA2fT:I1N:V1:86XII1:IUIU:86GYAS%(I)087:260:(Y)12786:87ZZII1:IUIVl[AS%(I)090y\260:86]II1:IVIU^AS%(I)093:92_M1310`F$""98a"WRITE TO "F$" ? Y/N ";::T$"Y"99b" FILE ->";::F$T"":T%(O%(J))::365:QQ79:ZZ0:WR:E:958::WR;R$" ON DISK ":NWRWİ380RIN1WRN:JMSMSM::D$((S%(I)),O%(J))T$""::E:I;R$" IN MEMORY"::NWRN:"CLOSE":365:75:122SN320T131U14:IV1V20:Z893,90WIUIOSE":MO:V$"I"435:MSM1:LN:N0:ZZ1:81:NN(LN)L(LN):MMO1:MS0:365WNOZZ0ĺ"FILE ->";::F$T$"":F$""515:F$"/"İ121:79P"READ"F$:OM:M:MSMNF380:P$::B$T$""::Q$T$"":JMSMSM::F$(O%(J))T$""::D$(0,O%(J))T$S%(IA)THII1:69I43J"SWAP WHICH? ->";::I(T$)::I1IM114:(37):23:"->";::K(T$):K1KM114:TO%(I1):O%(I1)O%(K1):O%(K1)T::43:74KOMMSMOLQM"R)EGULAR I)NDEX MERGE ->";V$:V$"I"V$"R"78:79:"CLKG:(D$(R,O%(F)),1,T)U$D$(R,O%(F))V$/@7A:BS1:"ERASE F)OUND N)OT FOUND RECORDS ->";T$:T$"F"68:T$"N"ıCSSDIV:A0:125:QNE(S%(IA))SIAUAA1:69FIANNI1:A0:305:122 G(A)TS%(I):S%(I)S%(IA):E '"U$"'":" [2] ERASE":" [3] DISPLAY/EDIT":" [4] SAVE":" [5] MERGE"::23:"CHOOSE ->";T${=::(T$)63,66,85,98,54>868S%(1)S%(N):A0:S4325:)?"CHANGE: "U$:" TO: ";::T$""76:V$T$"":125:T(U$):IVU:S%(I)065:R(S%(I)):F`8131:V$"B"129:V$"B"130:" LOOK FOR ->";::U$T$"":"FOUND IN";:A0:V$"B"İ390:599IVU:FKG:(D$(S%(I),O%(F)),1,(U$))U$İ13:FG:::FF1;:A;R$" FOUND":122:A515]<:10):32,10::"SEARCH OPTIONS"::6:"[1] CHANG20:131(3"ERASE? Y/N ";::T$"Y"ık4QN:812S%(V)S%(N):NNUV1:812S%(V)S%(N):Z6976:305:1225315:"ARE YOU SURE? Y/N ";::T$"Y"78:"RUNMENU,D1677:607N320:"L)INEAR B)INARY C)OMPLEX SEARCH ->";:V$:V$J$76:V$"C"350:S9T:47:LFL:A$"MAJOR":48c.A$;:" FIELD # ->";T$:T(T$):T1TM1515:KT1:TO%(K):GK:/"A)LPHA OR N)UMERIC DATA? ->";::FLT$"N":T$""515:043:46:471131:125:2151,105FL141FL:2110D$(0,T)S%(U)S%(V):S9010:2N3958:365*::m+:::17:"FIELDS:"::I0M:J13(I3(I3))1:J)"["I1"]"(F$(O%(I)),9);:J20ĺ,::G$G$G$G$:-N320:FL0:S91:A$"":L0:" O)NE T)WO FIELD SORT OR F)LIP ->";T$:T$"F"340:T$"O"48:T$"T"42:A$"MINOR":43:4636#79:"CLOSE":41&$T$""ır%M1:"^E OR ESC=QUIT FIELDS="NF130)"RETURN=KEEP":"FIELD NAME":G$&IO%(M1):1(M8))M2")"5);:T(36):F$(I);:T1::T$""39:T$""42:F$(I)(T$,1):40'E:T1:F$(I)(MM1:MNF38)ɖ1:1:868:"MEM->"((112)(110))256(111)(109)12)R$"->"WN27)"^E OR ESC=QUIT":j S51:M0310 WN315:NN1:VN:UN:108:T$""32:NN1:S50: !Nİ315:127""DO YOU WISH THE RECORD SETUP OF A FILE ON DISK? Y/N ";:::T$"Y":14= Z7973:Z83123:Z70445:Z7228:Z80PP:29\ Z13515:Z73ANW355 Z65AZ85VII:UN:::Z85108:Z6531:V1:14 Z77DD:Dĺ" Z47SP(SP40)(SP90):255SP 20 HH L(37)1:15:L:X  O)RD S)LECT M)ODP)RINT A)DD E)RA I)NS U)PD F)ORMAT H)IDEM 2:Pğ:"P";:Y Pĺ"Pq 2:36:Hğ:"H";: Hĺ"H"; :G$G$G$G$:X,0: Z(Y)128:Z020 X,0:Z82Z21Z876:Z69(A)OV:VI:TU:UI:RI1:51:VO:IR:UT1:Z21  g` ߦHHLAe R0:IVU1:D$(S%(I),T)D$(S%(I1),T)RR1: RĹ2151,105L141L:2110D$(0,S9)S%(I)S%(IR):R0 : AA1:" "I;:S%(I)(S%(I)):(13(0)37);:9 ::34,3:"R)EST <->SCROLL RET )0 AB઱E0 + 8LS + LA + HHHH8 hLHhh`1 i`**HuhuHehe`Ș ʈ-+ȝm (::2:1::868:(4)"BRUNINPUT"02 DB A DATABASE BY TOM HELLSTEN 475 L  6 AʈLG g !A)BC g            ҍլı ҍ ҍԠշIJԠշԠĢƤԠŢŠԠƤӮԠŠԿٯΠΠԤ٢ϠԠŢƤԠǬIJΠ     ҍ ҍԠĢƤԠŢŠԠƤӮԠŠԿٯΠΠԤ٢ϠԠŢƤԠǢΠ ҍ ҍլı  ";FO0:C0(FO$(0))(131)256(132)7:110,C256:109,C256(110)M"?3C֥ 9 l ֐) :ȩ֭`ZL:305T$"":D$(4)D$"BLOADX5":798:255273:261 ::::::::::::::::::::::::::::::::::02:54915::(4)"CLOSE" DRIVE SYSTEM? ";:T$:8 !T$(13)ġ:Q #T$"1"T$"2"287a %T$"2"297x '(4)"EXECU5,D1": )(4)"NOMONCIO" +(4)"OPENU7,D2":"WRITEU7,D2":"TOM HELLSTEN":"CLOSEU7,D2" - /(4)"EXECU6,D1": 1:::10!21067:A$"N"ġ 261:_:"THERE ARE ";N;" RECORDS"::"LOW RECORD ->";T$:T$""269V(T$):V1VN273:"HIGH RECORD->";T$:U(T$):UVUN273267:267:"RUNMENU"267:"BRUNFID"267& ::10:9:"<1> DRIV::7:8:"PLEASE WAIT - RETURNING TO DB":261:C0(FO$(0))(131)256(132)7:110,C256:109,C256(110) S9:D$"BLOAD CHAIN,A520":520"SENIOR"  ::10:"ARE YOU SURE ? YOUR CURRENT DATA";:" WILL BE LOST (Y/N) ";:A$:A$;:A$"Y"A$"N"2"[2] SUM FIELDS (COLS) ":"[3] FID"20)"[4] RETURN TO DB ":"[5] FILE CABINET"20)"[6] CONFIGURE DRIVES" [7] EXIT TO BASIC"23:"CHOICE ->";:T$:T$;:32,0:T(T$):T107,187,283,263,281,285,279:255:17:15::"WORKING":::m:FO0:FORMULAS":251K:"FILE ->";T$:T$""245:T$"/"ĺD$"CATALOG":T$:249D$"OPEN"T$:D$"DELETE"T$::D$"OPEN"T$::D$"WRITE"T$:FL:J1FL:FO$(J)::D$"CLOSE"T$FO1:g:::" D B U T I L I T I E S "::8:"[1] DB CALC"20)684:S988117:S965183:FL0Ģ15:958;J(FL)J0TFL0223:JJ1:243dJ1JFL1sJ1JJ1|223:"SAVE CURRENT FORMULAS? Y/N ->";T$:T$"Y"247:T$"N"253:223:"SAVE AS FORMULAS (DEFAULT)? Y/N ->";T$:T$"N"T$"21:35,21:JFL:FL1J11:16::"FORMULA":O16:1:958:J") "FO$(J)]16368,0S9(16384)128:S90227:16368,0S921235:S98239:S981245:S969FL0FO$(J)FO$(FL):FLFL1:FLJJJ1:223S970İ261:113:117+S934,15:1::"FIELDS:"::J0NF:K13(J3(J3))1:K)"["J1"]"(F$(O%(J)),9);:K20ĺ_1:15:"---------------------------------------":23:"---------------------------------------":24:1:"A)DD D)O E)RASE F)IX Q)UIT SCROLL=<->";:EFAULT FORMULA FILE ? Y/N ";T$:T$"N"T$"FORMULAS":211:"FILE ->";T$:T$""207:T$"/"ĺD$"CATALOG":T$:209FO1213:261:798::D$"OPEN"T$:D$"READ"T$:FL:FO2:J1FL::FO$(J)T$""::D$"CLOSE":T$FO$(J):271:213:219Y::F$(O%(T))"->";:JVU:G(D$(S%(J),O%(T))):SSG:10:" ("J") SUM="S;:958:22::D$(S%(L),O%(T))(S):10:" ("L") SUM ="S;24:1:"CONTINUE ? Y/N ->";:T$:T$:T$"Y"ı187FO1213:261:798B:5:"DO YOU WISH THE STANDARD DT:"THERE ARE ";N;" RECORDS IN THE FILE.":"LOW RECORD ->";V$:V(V$):V1VNı"HIGH RECORD ->";U$:U(U$):UNUVı"PUT SUM WHERE? ->";N1;:18:"";L$:L(L$):(L1L$"")LWı(37):L0LN1:NL:18:LLNNLS0:22:((T$,T11))1)"))"(T$,T21):15572054,T$,R10NLJJ1:113:117i:S93:JJ1:113:229FLFL1:16:958:FL") ";:798::T$""FLFL1:223FO$(FL)T$"":JFL:225213::"CHOOSE SUMMATION FIELD ->";T$:T(T$)1:TMT0ıI%1:T$,V$,I%:T2I%:I%I%1:T$(T$,T11)"VAL(D$(S%(I),O%("(((T$,T11))1)")))"(T$,T21):149T$"D$(S%(I),O%("(((T$,T11))1)"))="(T$,T21)T$,U$,I%:I%0ı%T1I%:I%I%1:T$,V$,I%:T2I%:I%I%1:T$(T$,T11)"D$(S%(I),O%("(.I%1:T$(TT$,J1):141:T$TX$A$T$:159DT$,U$,I%:I%0ıT1I%:I%I%1:T$,C$,I%:T2I%:I%I%1:(T$,1)"$"153T12I%1:149T$"D$(S%(I),O%("(((T$,T11))1)"))=STR$("(T$,T21):T$T$")"T$,U$,I%:I%0ıfT1I%:I%1):L1#y(T$,2,1)"."R3:127/{R(T$)>}T$(T$,3)]TT$T$:T$,U$,I%:I%0159J%1:I%1:T$,A$,J%:J%0İ141:159I010:I%1:T$(TT$,J1,J%J1):141:J11TX$T$J11TX$TX$A$T$J%J%1:J1J%:TT$,A$,J%:J%0139::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::^ijkFO111|mFO$(50):FO1o798:205q1014,54:1015,3:uI%1:U$"[":V$"]":C$"=":T$FO$(J):A$":":TX$"":J11:L0w(T$,1)":"T$(T$,(T$)::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::XZ:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::yKhP::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::sF::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: (::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: IVU ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::N ߠ=<>We>>Pe=?CPB , { R祸֍P֥ 9 l ֐) :ȩ֭`ZL:305T$"":D$(4)D$"BLOADX5":798:255273:261 ::::::::::::::::::::::::::::::::::      9((4)"BRUNINPUT"::1002:925:189@85:182:J1100:F :O :5::"WORKING":::V::7:8::"PLEASE WAIT - RETURNING TO DB"::WS9:"BLOAD CHAIN,A520":520"SENIOR"X"BLOAD A6000":1013,76:1014,176:1015,2:95# Y:7)"[2] RECORD NAME"::7)"[3] FIELD SEPARATOR"::7)"[4] FORMAT FIELDS:7)"[5] FORMAT NUMBERS"::7)"[6] STANDARD DISPLAY"::7)"[7] QUIT":22:7)"CHOOSE ->";T$:T$(13)193:T(T$):T1T7193:T174,176,177,178,3,250,8618179:T%(O%(J))T:T)F$(O%(J))Q$;GT$:T$"."181:C$C$T$:T$;:180^D$(0,O%(J))C$::B$"RECORD ":Q$":":K0NF:D$(0,K)"":T%(K)1::P$"":******* MENU *******::12::"FORMAT OPTIONS"::5I7)"[1] PRINTER CODE STRING"::"::b::1::"FIELD SEPARATOR"::7:"FIELD SEPARATOR ? ('RET'=QUIT)"::"->";::Q$T$""::::"FORMAT FIELDS";::" '.'=NEXT FIELD"::34,2:J0M:C$" Q(37):F(36):F$(O%(J))Q$;:"TAB ->";T$:T(T$):Q1:F1:868:T1T255V1VUUN102 jx ::1::"PRINTER CODE STRING"::7:"ENTER THE STRING BELOW ('.'=QUIT) :"::":";(8);:P$" T$:T$;:T$"."190:P$P$T$:175::1::"RECORD NAME"::11:"ENTER THE RECORD NAME BELOW ('RET'=QUIT)"::"->";::B$T$"0"S$:25::S$"****$1,234.57"S$::25:S$"000000"S$:25::S$"001235"S$::25:S$" , "S$ c25::S$" 1,235"S$::33,23::222,0:: f:90 h:"THERE ARE ";N;" RECORDS"::"LOW RECORD ->";T$:T$""102 iV(T$):"HIGH RECORD->";T$:U(T$):S ,'"S$"',":25:"ARE NECESSARY!"::25:S$" .0000"S$:25::S$" 1234.5670"S$::25:S$"$0000.00"S$ a25::S$"$1234.57"S$::25:S$" , $.00"S$:25::S$" $1,234.57"S$::25:S$"TOTAL= "S$:25::S$"TOTAL=1235"S$:\ b25:S$"**,***,**$.0,O%(K1))):FM$;G:C20001999T1:T2(C)128:T20T248h ^D$D$(T2):::D$(S%(J),O%(K1))D$::89 _:S$(34)::25:"'A' HAS VALUE 1234.567 AND":25:"CAN BE ";::"FORMATTED";::25:"IN MANY WAYS...":g `25:"QUOTEJ0M:(J9)1)J1") "F$(O%(J)):k Z:"FIELD TO BE FORMATTED (0='QUIT') ";:L(37):"->";C$:C$"0"ı [(C$)1(C$)M1ĢL1:958:90 \104:K(C$)::"ENTER FORMAT CODE ":"->";FM$:T1(FM$):T10N0ī2049 ]JVU:24:D$"":G(D$(S%(J)G 204T$"","BRUNINPUT":189885:88@86FLgU:15:15::"WORKING":::V::7:8::"PLEASE WAIT - RETURNING TO DB"::WS9:"BLOAD CHAIN,A520":520"SENIOR"X"BLOAD A6000":1013,76:1014,176:1015,2:95# Y:    CFe161:FF1:FUD$((S%(F)),S)SR$(I,0)(ST$(I,0)"F"(D$((S%(F)),S),1,L)SR$(I,0))157mFCFF1:FVD$((S%(F)),S)SR$(I,0)((D$((S%(F)),S),1,L)SR$(I,0))İ161:15943S%(F)(S%(F)):JF:31:T132)9:110,T256:109,T256(110):"BLOADCHAIN,A520":520"SENIOR"TCV:KR:RU`CR43F((CR)2):(ST$(I,0)"E"D$((S%(F)),S)SR$(I,0))(ST$(I,0)"F"(D$((S%(F)),S),1,L)SR$(I,0))156:D$((S%(F)),S)SR$(I,0)RF1:152CF1:152SR$(N%(2),1)(SR$(50,0),220T),(J1)101,11);7:::10::1002:"AN ERROR HAS OCCURRED. CHECK YOUR SEARCH DATA";:" PLEASE."::"PRESS A KEY TO CONTINUE. ";:T$:"BRUNINPUT":925:56DU$"":S4:UN:V1:T0(SR$(0,0))(131)256()10)Ė1:(SR$(N%(2),0)(SR$(50,0),220L),(J1)102,10);J1ĺ11)"!"ST$(N%(2),0)"!"R%(N%(2),0)17)":"R%(N%(2),1)21)"!"F%(N%(2),0)24)":"F%(N%(2),1)27)"!"ST$(N%(2),1)29)"!";J1ĺ30)(SR$(N%(2),1)(SR$(50,0),220T),1,11);/J1ĺ30)()I:T01:SR$(L,T)SR$(L1,T):R%(L,T)R%(L,T):F%(L,T)F%(L1,T):ST$(L,T)ST$(L1,T)::f136:112L(SR$(N%(2),0)):N%(3)L:T(SR$(N%(2),1)):LTN%(3)T:N%(2)1")";:4)(SR$(N%(2),0)" ",1,7);:J11(3N%(3))10;J1(L7N%(3wN%(2)N%(2)1 x136:1121zN%(2)I125M{N%(2)N%(2)1:136:112c}I0N%(2)0:136l~112I0SR$(0,1)"":SR$(0,0)"":R%(0,0)0:R%(0,1)0:F%(0,0)0:F%(0,1)0:ST$(0,0)" ":ST$(0,1)" ":134II1:N%(2)IN%(2)I:134XLN%(2Qm32,0:33,40:1:N%(1):"<- BACK -> FORWARD 'E'=ERASE '.'=EXIT":I0II1doN%(2)I1:123rp16368,0qZ(16384)128:Z0113:16368,0:Z46ĴSR$(0,0)SR$(0,1)56:II1:56sZ69İ54:127tZ21122:Z8112:N%(2)1N%(2)I:120(SR$(I,1))11):::32,0:33,40:SR$(I,1)U$:II1:998::(37)20āJ14:::(37)3:105ei65j32,0:33,40::"HAVE YOU FINISHED DEFINING YOUR SEARCH CRITERIA AND ARE YOU READY TO EXECUTE THE SEARCHES ? (Y/N) ->";T$:T$"Y"ī56k51:10 STRING,'RET'=NIL":34,(37)FaR:30:32,29:33,11::R:U$"":T$""bU$U$T$:T$;:T$:T$""106:T$""109:T$(13)100:T$(8)T$(21)98:T$(8)(T$)1U$(U$,1,(U$)1):T$"":98cT$(21)T$"":98d]eJ0((SR$(I,0))10:1:N%(1):"'L' = LINEAR SEARCH, 'B' = BINARY SEARCH"{ZR:28:T$:T$""106:T$""109:T$"L"T$"B"T$(13)90[T$(13)T$"L"\T$"B"(F%(I,0)F%(I,1))90]T$;:ST$(I,1)T$:JRV:J:29:"!"::1:N%(1):"RPL STRING,[FIELD#]=RPLbTR:22:"1 "(8)(8);:"";T$:T$""106:T$""109:T(T$):T0TM184:T0T1:R:22:T}UF%(I,0)T:R:24:":";VR:25:T;:25::T$""106:T$""109:J(T$):(J(T)J0)JM186:J0JT:R:25:J6WF%(I,1)J:JRV:J:27:"!";:T$""106:T$""109:T0T1:15:R:T;EPR:17:":";R%(I,0)TQR:18:N;:18::T$""106:T$""109:U(T$):(U0U(T))UNU081:U0UNR18:R:U:JRV:J:21:"!";::R%(I,1)U:1:N%(1):"'LO' = LOW FIELD,'HI' = HIGH FIELD RANGE"":R:12NIT$:T$""106:T$""109:T$"E"T$"F"T$"I"T$(13)73cJT$(13)T$"F"KT$:ST$(I,0)T$:R:JRV:J:13:"!"::1:N%(1):"'LO'= LOW RECORD,'HI'= HIGH RECORD RANGE"+NR:15:"1 "(8)(8)(8);:"";T$:T(T$):TNT078:34,(37)AR(37)1:I1")";:33,40:N%(1):1:"RECORDS->"N15)"'^V'=VIEW/EDIT '^E'=QUIT":33,10:R:3(I8)::T$""T$""106:T$""109FSR$(I,0)T$"":33,40:V(37):JRV:J:11:"!";::1:N%(1):"'E'=EXACT, 'F'=FRONT,'I'=INSTRING MATCH=============================";:" SEARCH ";:"!";:"S";:"!";:" RECORD";:"!";:"FIELD";:"!";:"S";:"!";:"REPLACEMENT";=" STRING ";:"!";:"T";:"!";:" LO";:":";:"HI ";:"!";:"LO";:":";:"HI";:"!";:"M";:"!";:" STRING":G$G$G$G$; @ ",(J9)9);:(0)35ĺ3 /:(0)4ĺ~ 0"========================================";::"STATEMENT 96":A$: 354:"BLOADSTRINGIN":1013,76:1014,0:1015,3: 6:15:15::"WORKING"::: 7~846:N%(1)(37)1::"===========%(J)0G042: &KRS:L(D$((S%(J)),O%(K)))KS:41r (SR$(I,0)D$((S%(J)),O%(K))S%(J)(S%(J)):Gİ31x )~ * +:J0N:AA(S%(J)0)::FU:GF:148# .::1::" FIELDS ";::J0NF:"["J1"]"(F$(J)"K)))SR$(I,0)(D$((S%(J)),O%(K)),L)34I S%(J)(S%(J)):GKS:34U 31:34 (SR$(I,1),1)"["D$((S%(J)),O%(K))SR$(I,1): T$"]":I%1:SR$(I,1),T$,I%:D$((S%(J)),O%(((SR$(I,1),2))1))(SR$(I,1),I%2): " #:43 %JVU:S((S%(J)),O%(K)),SR$(I,0),I%:I%024:GS%(J)(S%(J)):KS:24 D$((S%(J)),O%(K))(D$((S%(J)),O%(K)),1,I%1)SR$(I,1)(D$((S%(J)),O%(K)),I%L):I%I%G:S%(J)(S%(J)):22  :43 JVU:S%(J)0G035) KRS:L(D$((S%(J)),O%(PUT":A0:I0:55+ N%(5)I1:N%(5)0148 I0N%(5):"PROCESSING "SR$(I,0):L(SR$(I,0)):G(SR$(I,1)):VR%(I,0):UR%(I,1):RF%(I,0)1:SF%(I,1)1:ST$(I,1)"B"151:ST$(I,0)"E"37:ST$(I,0)"F"27 JVU:S%(J)0G025 KRS:I%1A D$T$"":V$"":146SR$(50,1),ST$(49,1),R%(49,1),F%(49,1),N%(10):SR$(50,0)" ":: "BRUNIN       md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg