' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] u1!u!uq1!u! 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӖu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( B Ԡ@跻~!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 / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`# d...   z# u`Ԡ΍Ǎԍ΍ӍȍȠȠōŠčH MEMORY LEFT FOR"::"ANALYSIS AND OPERATIONS.":A4c:13)"PRINTOUT (Y/N>";:A$::A$"Y"5{:A1:B$;"PR#1":7";::" PROGRAM IS EASY TO USE"::"AND FULLY SELF PROMPTING. THE CAPACITY"::"OF THE MACHINE FOR ANY DATABASE DEPENDS"::"ON THE SIZE AND NUMBER OF FIELDS. IN AN"5:"EXAMPLE LIKE ";::"ADDRESS BOOK";::" THE CAPACITY"::"WOULD BE OVER 400 WITLOY THE COMPUTER. DATABASE DESIGN IS"::"STRICTLY BRAINWORK. DESIGN THE FIELDS"::"CAREFULLY AND BE SURE THE NAMES ARE OF"::"THE SAME LENGTH FOR AN EVEN APPEARANCE.":"THIS CAN BE ACCOMPLISHED WITH PERIODS.":255:2::" THE ";::"NEW SYSTEMFEW ENTRIES AS AN EXERCISE.":2:125::11)"START A NEW SYSTEM"::"AFTER YOU HAVE BECOME FAMILIAR WITH THE"::"POTENTIALS OF THIS SYSTEM YOU WILL WANT"::"TO PRODUCE YOUR OWN DATABASES. THE MOST":"IMPORTANT PART OF THIS ACTIVITY DOESN'T"::"EMP:" AT THE MAIN MENU WE MAY ELECT TO PRINT"::"THE DATA FILES. THIS ROUTINE WILL PER-"::"MIT YOU TO MAKE A HARD COPY BACKUP OF"::"ANY DATA FILE OR OF ANY PORTION OF IT."::"YOU MAY WISH TO LOAD ";::"ADDRESS BOOK";::" AND":"PRINT A 255::"NOTE: THERE ARE NO COMMAS IN THE OUTPUT":"AND THERE SHOULD BE NO COMMAS IN NUMBER":"INPUTS.":6::"YOU WILL NOW BE ASKED IF YOU WISH TO DO"::"ANOTHER. ";::"N";::" WILL GIVE THE OPPORTUNITY"::"TO RETURN TO THE MAIN MENU.":2ND POPU-":"LATION IS NUMERIC SO WE TOUCH ";::"1";::".":2::" NOW THERE ARE FOUR ALTERNATIVES:"::"GREATER THAN, LESS THAN, EQUAL TO OR A"::"SUM OF THE FIELDS. LET US TOUCH ";::"4";::" TO"::"FIND THE POPULATION OF THE U.S.A.":6:z#???     ҠҠ͠ŠӠӠˠ ԠϠΠՠӠ Š Ơ  S A IIE, IIC OR II+ WITH A"_ :4)"LANGUAGE CARD IN SLOT #0? (Y/N>";:A$:A$"Y"A$"N"5{ :A$"Y"ĺB$;"BRUN DM" B$;"RUN MENU" B$;"RUN IN"FB$(4):::8);::">>THE DATABASE MANAGER<<":::8)"(C) 1985 BY ADRIAN VANCE"::11)"ISBN 0-918547-12-1":B$;"BLOAD MR":34,4:1013,76:1014,0:1015,3:10)"INSTRUCTIONS? (Y/N>";:A$::A$"Y"A$"N"2A$"Y"8 :8:4)"IS THI E.":2::14)"DATA ANALYZER":125 :"YOU ARE NOW ASKED WHICH FIELD YOU WOULD"::"WISH TO EXAMINE. LET US ENTER ";::"2";::" FOR AN"::"EXAMINATION OF POPULATION.":::"YOU ARE THEN ASKED IF YOU ARE ANALYZING"::"A STRING OR NUMERIC VARIABLE ADATA":::"AGAIN ENTERING ";::"THE STATES";::" TO LOAD THIS"":"DATABASE. ":6:::"NOTE: IT MAY SEEM TROUBLESOME TO RELOAD":"THE DATABASE FOR EVERY ROUTINE, BUT IN":"NORMAL OPERATION WE ONLY USE ONE SYSTEM":"AT EACH SESSION WITH A DATABAS"TO PICK ANOTHER FIELD.":2:255::"YOU MAY PICK ANOTHER FIELD TO SEARCH IN"B:"ANY OF FIVE WAYS OR RETURN TO THE MAIN"::"MENU BY ENTERING ";::"E";::". AT THE ";::"MAIN MENU":::"LET US TOUCH ";::"4";::" TO ";::"ANALYZE RECORDS/ TOUCHING ";::"Y";::" WILL BRING ";::"ANOTHER?":::"AS THERE IS ONLY ONE STATE WITH SUCH A"N:"NAME IN THE DATABASE. TOUCHING ";::"Y";::" WILL"::"TAKE YOU BACK TO THE STRING INPUTTING"::"SCREEN. HERE YOU MAY RETURN TO THE MENU"::SEARCH FIELD.":2::"YOU WILL NOW BE GIVEN FIVE ALTERNATIVES"::"FOR THE SEARCH. A NAME IS A ";::"STRING";::", SO"d:"TOUCH ";::"4";::" AND YOU WILL SEE THE ENTRY DIS-"::"PLAYED. IF YOU WISH TO PRINT THIS DATA"::"TOUCH ";::"P";::".Y";::"ES IF YOU WISH TO"::"SAVE ANY CHANGES. ON RETURNING TO THE"::"MAIN MENU, TOUCH ";::"3";::" TO SEARCH AND SORT"y:"THE RECORDS. NOW TYPE INPUT ";::"THE STATES":::"AND SEARCH FOR YOUR STATE BY ENTERING ";::"1":::"FOR THE ERS TO":"GIVE AN EVEN APPEARANCE ON THE SCREEN.":2:125::" YOU CAN LEAVE THE EDITING PROGRAM ANY"::"TIME BY TOUCHING ";::"Q";::". YOU WILL THEN BE":"ASKED IF YOU WANT TO ";::"SAVE THE DATA";::" NOW"::"IN MEMORY. ANSWER ";::"ALTERNATIVE, BUT ";::"ENTRY #";::". HOWEVER,"::"YOU MAY PREFER TO ENTER YOUR OWN DATA"::"AND YOU CAN DO THIS BY EDITING THE EN-"::"TRIES IN THIS DATABASE.":6:" NOTE THE FIELD NAMES IN THIS DATABASE:":"EACH FIELD NAME HAS SEVEN CHARACTE USER.":2::"TO GET STARTED RUN ";::"ADD TO/EDIT A SYSTEM":::"AND LOAD ";::"ADDRESS BOOK";::". TOUCH ";::"E";::" FOR THE"::"EDITING ALTERNATIVE, THEN YOU CAN STEP":"THROUGH THE ENTRIES BY TOUCHING ";::"N";::" AT"::"EACH "DIP SWITCHES";::" IN ORDER TO"::"HAVE SPACES BETWEEN THE PAGES. IT WILL"::"PRINT 40 COLUMNS WIDE IN ORDER THAT YOU"::"MAY USE THE PRINTOUT AS A WORKSHEET. WE"::"BELIEVE THAT FULLY FUNCTIONAL DOCUMEN-" :"TATION SHOULD BE ANNOTATED BY TH:"CHANGED ANY TIME WITH THE EDITING PRO-"::"PROGRAM ON THE DISK.":2:255::" THIS DOCUMENTATION WILL PRINT ON ANY"::"PRINTER WITH THE CARD IN SLOT #1. YOU"::"MAY WANT TO SET THE ";::"BOUNDRY SKIP";::" FEA-" :"TURE ON THE ";::A FOUNDATION FOR YOUR OWN SYSTEM WHILE" ::"THE STATES";::" GIVES AN EXAMPLE OF A RATHER"::"WELL DEVELOPED DATABASE CONTAINING 900"::"PIECES OF INFORMATION ABOUT THE STATES"::"IN THE UNION."::" ANY OF THE DATA OR FIELD NAMES CAN BE" S"::"OF A WORD OR NUMBER IN ANY FIELD. THIS"::"SYSTEM OPERATES IN R.A.M. FOR SPEED AND"( :"CONVENIENCE WITH STORAGE ON THE DISK.":2:125::" ON THIS DISK YOU WILL FIND TWO EXAMPLE"::"DATABASES: ";::"ADDRESS BOOK";::" IS MEANT TO BE"::"F UP TO 18 FIELDS WITH UP TO"::"40 SPACES PER FIELD, ONE LINE. YOU MAY"::"SEARCH ANY OF THE FIELDS FOR WORDS OR"\ :"NUMBERS, IN TERMS OF: EQUAL TO, GREATER"::"THAN OR LESS THAN, SUM ALL NUMBERS IN A"::"FIELD OR COUNT THE NUMBER OF OCCURANCE|B$(4):34,0:7AıRT75,25:T115,25::15)"(TOUCH KEY>";:A$::aB$;"PR#0"uB$;"RUN HELLO"B13000::T115,25:T75,25:w :12);::">>DATA MANAGER<<"::34,1::" THIS SYSTEM WILL ALLOW YOU TO SET UP"::"DATABASES O          B$;"RUN RF" B$;"RUN DA"- B$;"RUN PR" :6)"INSTALL NEXT DISK TO BE RUN"::6)"AND TOUCH ANY KEY>";:A$::B$;"PR#6""3) SEARCH/SORT RECORDS"::8)"(4) ANALYZE RECORDS/DATA"::8)"(5) PRINTING DATA FILES"::8)"(6) EXIT THIS SYTEM" :10)"< TOUCH KEY OF CHOICE)":19:8:">";:A$::3:A(A$):A1A62 A8,9,10,11,12,13 B$;"RUN NS" B$;"RUN DE"  B$(4)]::8);::"*>> DATABASE MANAGER <<*"::34,4:1013,76:1014,0:1015,3:5tT115,20:T70,20:T95,20:T70,20:t :8)"(C) 1985 BY ADRIAN VANCE"::6:4::8)"(1) START A NEW SYSTEM"::8)"(2) ADD TO/EDIT A SYSTEM"::8)"(  E CORRECT NAME?"::"=> ";E$(F%)::"AND, THE CORRECT NUMBER OF SPACES?"::"=> ";C%(F%):E1A%:G%G%C%(E):E:D%G%:16"" WHICH";:H%:24:"CORRECTION=>";:F$(A,H%)::B1A%:2B:B;".";E$(B);".";F$(A,B):B:27.KEY TO RETURN TO THE MAIN MENU =>";:A$::B$;"RUN MENU" 4::"SORRY WE CANNOT USE MORE THAN 18 FIELDS"::"IN THIS SYSTEM. RECONSIDER THE PLAN FOR"::"THIS SYSTEM. TOUCH KEY TO CONTINUE=>";:A$:1y!:"WHICH ONE? => ";F%::E$(F%)::"WHAT IS TH":G11500:34,0:AA1::12:11::"NOW SAVING TO DISK"::::B$;"OPEN ";C$:B$;"WRITE ";C$:C$:A%:E1A%:E$(E):E:E1A%:C%(E):E:B%:A:C1A:D1A%:F$(C,D):D:C:B$;"CLOSE ";C$:3:12:"THE DATA HAVE BEEN RECORDED. TOUCH ANY"8:":B1A%:3B:G(E$(B))4B;".";E$(B);" ":3B:G:I1C%(B):(95);:I:3B:G1:F$(A,B):F$(A,B)""24F$(A,B)"@"30B23:"CHANGES? (Y/N)";:A$:4:A$"Y"A$"N"27A$"Y"ī34 34,0:A:"OUT OF MEMORYE FIELDS:"::"NUMBER NAME SPACES"::E1A%:G4:E9G3q H(E$(E)):G);E;" - ";E$(E);:21);C%(E):E :"ANY CORRECTIONS? (Y/N>";:A$::A$"Y"A$"N"21 A$"Y"33A1E%::"ENTRY #";::A;::18:"'@'IN #1 TO TERMINATE":34,2"YOUR PLAN CALLS FOR USING ";B%D%;" BYTES."::"THE MEMORY NOW HAS ";F;" BYTES SO THERE"::"IS A DEFICIENCY. REDESIGN YOUR DATABASE"::"FOR A SMALLER MEMORY. TOUCH KEY TO RE-"::"TURN TO THE STARTING POINT. (KEY=>";:A$:3:1? 34,0::"HERE ARE TH%C%(E):E::15);::"ONE MOMENT"::3:F(0):F015E F65536FQ E%FD%` E%B%ī18 :"YOUR PLAN CALLS FOR USING ";B%D%;" BYTES."::"THE MEMORY NOW HAS ";F;" BYTES SO THERE"::"IS A SURPLUS. TOUCH KEY TO CONTINUE=>";:A$:4:19 : 12:5)"HOW MANY DATA FIELDS? =>";:A%:A%09B A%18ī32 :5)"HOW MANY ENTRIES WILL":5)"THERE BE IN THE SYSTEM? =>";:B%:E$(A%),C%(A%),F$(B%1,A%)::E1A% :"FIELD ";E;" =>";:E$(E):E$(E)""127 :"SPACES PER = ";C%(E):D%D WHAT IS THE NAME OF"::"THE NEW SYSTEM? =>";C$:3:B$;"VERIFY ";C$::"THERE IS A DATABASE ON THE DISK WITH" :"THIS NAME. PREPARING THIS DATABASE WILL"::"DESTROY IT. IF YOU WISH TO DO THAT"::"TYPE/INPUT ";::"YES";::"=>";:D$:D$"YES"13 5 :34,0:B$(4):77T115,20:T70,20:MT95,20:T70,20:](222)69:"ERROR #";(222);" HAS OCCURRED. RE-BOOT DISK.":n :15);::"NEW SYSTEM"::34,2::"THIS ROUTINE DEFINES AND ACCEPTS INPUTS"::"FOR A NEW DATABASE.     ";:K::"CORRECTION =>";F$(D%,K):34,0:G1:a3AA1:CD%A:D1A%:F$(C,D)F$(C1,D):D:C:AELL AS IN THE R.A.M. TO"::"FUNCTION PROPERLY. PLEASE INPUT THE NEW"::"LIMIT. WE WILL RECORD IT AND RETURN TO"::"THE MAIN MENU FOR A RE-START."::18)"=>";:C%:401:"WHICH ONE? =>";:J:"INPUT NEW NAME =>";:E$(J):EE1::8-2" WHICH #? =>*A$"P"ī7+G146d,:"SAVE THE DATA NOW IN MEMORY? (Y/N>";:A$::A$"Y"A$"N"3020t-A$"Y"ī39.:B$;"RUN MENU":/34,0::B$;"CATALOG"::;:"NAME?=>";C$:0:"THE PRESENT ENTRY LIMIT MUST BE CHANGED"::"ON THE DISK AS WE "D$:D$:A%:E1A%:E$(E):E:E1A%:B%(E):E:C%:A:C1A:D1A%:F$(C,D):D:C:B$;"CLOSE ";D$:2):"THE DATA HAVE BEEN RECORDED. TOUCH ";::"M":::"FOR ";::"MAIN MENU";::" OR ";::"P";::" FOR THE PROGRAM. ";:A$:A$"M"A$"P"41):(95);:I:2B:H1:F$(A,B):F$(A,B)""32I!F$(A,B)"@"AA1:39S"B:2#:"CORRECTIONS? (Y/N)";:A$:A$"Y"A$"N"35$A$"Y"İ50%G1ī19&30'34,0::12:11::"NOW SAVING TO DISK"::::G1i(B$;"OPEN ";D$:B$;"WRIT19 34,0:K :C%;" ENTRY LIMIT. OK? (Y/N)";:A$:A$"Y"A$"N"28[ A$"N"ī48t AA1:D%A:AC%ī39 :"ENTRY #";::A;::20:"'@'IN #1 TERMINATES":2:B1A%:2B:H(E$(B))4. B;".";E$(B);" ":2B:H:I1B%(B;::18::"Q";::" TO QUIT":G0::34,2:D%A17^ E1A%:E;".";E$(E);"."F$(D%,E):E:2 :"CHANGES? (Y/N) DELETE (D>";:A$:A$"Y"A$"N"A$"Q"A$"D"21 A$"Y"İ50 A$"D"İ51 A$"Q"Ĺ34,0:8 G1ī19 D%D%1:34,0:44D :"CHANGE ANY FIELD NAMES? (Y/N>";:A$::A$"Y"A$"N"13S A$"Y"49 :8:10)"SHALL WE BEGIN WITH":10)"ENTRY #1? (Y/N> ";:A$:A$"Y"A$"N"15 A$"Y"18 ::10)"INPUT NUMBER>";:D%:19 D%1:3 :"ENTRY #";::D%;"CLOSE ";C$ 34,0_ 2::A;" RECORDS IN R.A.M., THE FIELDS ARE:"::E1A%:F2:E9F1y F);E;" - ";E$(E):E ::"E";::"DIT, ";::"A";::"DD, ";::"Q";::"UIT? (E,A,Q=>";:A$:A$"E"A$"A"A$"Q"10 A$"A"ī27 A$"Q"īABELED ";::"T";::".":2Q 13:3)"INPUT FILE NAME>";:C$:C$"CATALOG"İ47^ C$""4 B$;"VERIFY ";C$:B$;"OPEN ";C$:B$;"READ ";C$:D$:A%:E$(A%),B%(A%):E1A%:E$(E):E:E1A%:B%(E):E:C%:A:F$(C%,A%):C1A:D1A%:F$(C,D):D:C:B$b 34,0::B$(4):3 :12);::"ADD TO/EDIT DATA"::34,2::" PLEASE TYPE/INPUT THE FILE NAME TO BE"::"INSTALLED. USE ";::"CATALOG";::" TO SEE A LIST-"::"ING OF THE FILES ON THE DISK. NOTE THAT"::"ALL LOADABLE DATA FILES ARE L     (B);" - ";F$(F,B):BT4:"NEXT? (Y/N) PRINT (P>";:A$:A$"Y"A$"N"A$"P"52d5A$"N"ī14r6A$"Y"ı71:(9);"80N":"ENTRY #";F:B1A%:E$(B);" - ";F$(F,B):B:0:8K(G$(B))J:G$(B)(G$(B),K):43P649v0:"THE FILE NAME INPUT IS NOT ON THE DISK."::"RE-INPUT OR USE ";::"CATALOG";::". TOUCH KEY>";:A$::11:"ERROR #";(222);" HAS OCCURRED. RE-BOOT DISK.":24:34,0::B$;"CATALOG"::;:"NAME?=>";C$:3:"ENTRY #";F:B1A%:E$))(G$(I))ī408'K$G$(I):G$(I)G$(ID):G$(ID)K$:IC(F:37s)B1C%:J1(G$(B)):(G$(B),J,1)"@"ī56z*J+B:10:B1C%:G$(B);",";:,::"ANOTHER? (Y/N)";:A$:A$"Y"A$"N"44-A$"Y"ī9.:B$;"RUN MENU"/(222)4:35$3::"WE ARE NOW SORTING IN ASCENDING ORDER."::"SOON WE WILL PRINT A LIST OF ENTRY NUM-"::"BERS IN THIS ORDER.":12:15);::"NOW SORTING"::B1A:G$(B)F$(B,D%)"@"(B):B:DA:DD1%D(D2):D1ī41&F1AD:IF1D:(G$(ID(F,D%)):HGİ51F:14:15);::"FIND A STRING"::3::15:"INPUT STRING"::13);:"=>";J$:F1A:J$F$(F,D%)İ51F:3 :13)"ANOTHER? (Y/N>";:A$:A$"Y"A$"N"32!A$"Y"30"14#:"INPUT ENTRY NUMBER => ";:F:51:=>";I$:F1A:I$F$(F,D%)İ51( F:4Y :"ANOTHER? (Y/N)";:A$:A$"Y"A$"N"23i A$"Y"ī21q 14 22:(6):"FOR (";E%;") INPUT N =>";:G:F1A:H(F$(F,D%)):HGİ51 F:1422:(6):"FOR (";E%;") INPUT N =>";:G:F1A:H(F$(6) RETURN TO MENU"K :14)"YOUR CHOICE =>";:A$:E%(A$):E%6E%016d E%18,26,28,30,36,9 :"YOU HAVE SELECTED ";::E$(D%): :"SHALL WE LOCATE BY ENTRY NUMBER? (Y/N)";:A$:A$"Y"A$"N"19 A$"Y"ī35 :"INPUT DESCRIPTOR 0)"WOULD YOU CARE TO:"::10)"(1) FIND ONE RECORD?"::10)"(2) FIND ALL RECORDS":14)"GREATER THAN (N)?"::10)"(3) FIND ALL RECORDS":14)"LESS THAN (N)?" :10)"(4) FIND ALL RECORDS":14)"INCLUDING A ($)?"::10)"(5) SORT THE RECORDS"::10)"E ";C$:4P :A;" RECORDS IN RAM, THE FIELDS INCLUDE:"::B1A%:E2:B9E1j E);B;" - ";E$(B):B ::"E";::" FOR EXIT OR SEARCH IN FIELD #";:H$:H$"E"ī46 D%(H$):D%A%11 34,0:3 :"YOU HAVE SELECTED ";::E$(D%):::1LES ON THE DISK."D 10:"INPUT FILE NAME>";:C$:C$"CATALOG"İ50Q C$""6 B$;"VERIFY ";C$:B$;"OPEN ";C$:B$;"READ ";C$:D$:A%:E$(A%),B%(A%):B1A%:E$(B):B:B1A%:B%(B):B:C%:A:F$(C%,A%),G$(C%):C1A:D1A%:F$(C,D):D:C:B$;"CLOS 47!:B$(4):34,0:58T115,20:T70,20:NT95,20:T70,20: :10);::"RECORD FINDER/SORTER"::34,2:3::"PLEASE TYPE/INPUT THE NAME OF THE FILE"::"YOU WISH TO EXAMINE. USE ";::"CATALOG";::" TO SEE"::"A LISTING OF THE FI     ",":(H$(B))36BB1%)C%C%1:H18)C%C%1:A%4::"THE FILE NAME INPUT IS NOT ON THE DISK."::"RE-INPUT NAME OR ";::"CATALOG";::". TOUCH KEY>";:A$::1&:"ERROR #";(222);" HAS OCCURRED. RE-BOOT DISK.":'4:34,0::B$;"CATALOG"::;:"NAME?=>";C$:(H$(B)H$(B)(E):H$(B)H$(B)E1B:H$(E)::EA"ANOTHER? (Y/N)";:A$:A$"Y"A$"N"29QA$"Y"ī32Y33| E1B:H$(E)"":E:B1:C%0:9!:"SHALL WE RETURN TO THE MAIN MENU? (Y/N)";:A$:A$"Y"A$"N"33"A$"N"1#4::B$;"RUN MENU"$(222)638t(F$(E,E%)):GHİ40 E:28\ E1A:H(F$(E,E%)):IIH:E:16::"TOTAL = ";I:I0:29 4:"INPUT STRING =>";:G$:E1A:G$F$(E,E%)İ40 E:28:C%;" ENTRIES ARE IN THE CLASS DEFINED.":3::"THE SET INCLUDES THE FOLLOWING ENTRIES:"::SUM":15)"OF ALL RECORDED?"M :"CHOICE? => ";:A$:F%(A$):F%1F%416n 14:12:F%;" ";:F%4ī25 "INPUT N =>";:G:4:F%19,21,23,25 E1A:H(F$(E,E%)):GHİ40 E:28 E1A:H(F$(E,E%)):GHİ40 E:28 E1A:H2) ANALYZE A STRING VARIABLE":12:7:"<= INPUT CHOICE"` 12:6:A$:3:F%(A$):F%4F%013n F%15,26 :"SHALL WE TABULATE ALL ENTRIES:"::11)"(1) GREATER THAN N?"::11)"(2) EQUAL TO N?"::11)"(3) LESS THAN N?"::11)"(4) OR, FIND THE RECORDS IN R.A.M. THE FIELDS ARE:"::E1A%:F2:E9F1T F)E;" - ";E$(E):E :"WHICH WOULD YOU CARE TO EXAMINE? ";E%:E%A%117 4::"YOU HAVE SELECTED ";::E$(E%):::"WOULD YOU CARE TO:"::5)"(1) ANALYZE A NUMERIC VARIABLE"::5)"( ON THE DISK."7 10:12):"=>";C$:C$"CATALOG"İ39D C$""6 B$;"VERIFY ";C$:B$;"OPEN ";C$:B$;"READ ";C$:D$:A%:E$(A%),B%(A%):E1A%:E$(E):E:E1A%:B%(E):E:D%:A:F$(D%,A%):C1A:D1A%:F$(C,D):D:C:B$;"CLOSE ";C$:3; :A;"& 36%:B1:B$(4):34,0:5<T115,20:T70,20:RT95,20:T70,20: :14);::"DATA ANALYZER"::34,2:3::"PLEASE TYPE/INPUT THE NAME OF THE FILE"::"YOU WISH TO EXAMINE. USE ";::"CATALOG";::" TO SEE"::"A LISTING OF THE FILES     ,E INPUT IS NOT ON THE DISK."::"RE-INPUT OR USE ";::"CATALOG";::". TOUCH KEY>";:A$::1 :"ERROR #";(222);" HAS OCCURRED. RE-BOOT DISK.": 4::B$;"CATALOG"::;:"NAME?=>";C$: :"NEXT? (Y/N)";:A$:A$"Y"A$"N"23A$"N"ī12ERATION IF SPACING IS TO"::"APPEAR BETWEEN PAGES. TOUCH KEY>";:A$:1:(9);"80N":E1A:"ENTRY #";E:D1A%:F$(E,D):D::E:0 :"ANOTHER? (Y/N>";:A$::A$"Y"A$"N"16 A$"Y"1 B$;"RUN MENU": (222)621] :"THE FILE NAMACH WITH AND @ TO END."::"INPUT # =>";:H$(B)J H$(B)"@"14X BB1:11 1:(9);"80N":E1B1:"ENTRY #";H$(E):F(H$(E)):A1A%:E$(A);" - ";F$(F,A):A::E:0:16 :"PLEASE SET UP THE PRINTER TO PERFORM A"::"BOUNDRY SKIP OP$;"CLOSE ";C$:4 :A;" RECORDS IN R.A.M. DO YOU WISH TO:"::10)"(1) PRINT SOME RECORDS"::10)"(2) PRINT ALL RECORDS"::12)"< INPUT CHOICE)":9:10:">";:A$:C(A$):C1C29 C2158 :"WHICH RECORDS DO YOU WISH TO PRINT?"::"INPUT E THE FILES ON THE DISK."K 10:"INPUT FILE NAME>";:C$:C$"CATALOG"İ22X C$""6 B$;"VERIFY ";C$:B$;"OPEN ";C$:B$;"READ ";C$:D$:A%:E$(A%),B%(A%):E1A%:E$(E):E:E1A%:B%(E):E:C%:A:F$(C%,A%),G$(C%):C1A:D1A%:F$(C,D):D:C:B 19%:B$(4):34,0:B1:5<T115,20:T70,20:ST115,20:T70,20: :9);::"RECORD PRINTING PROGRAM"::34,2:3::"PLEASE TYPE/INPUT THE NAME OF THE FILE"::"YOU WISH TO PRINT. USE ";::"CATALOG";::" TO SEE"::"A LISTING OF     BT H ,L h0`lpx|~𷄝]V߼ȿBhzBB5zaM|wQTWZ\^`cegkޔ6G݀ $-H^ݭ_%H\ݭ]HZݭ[H`ݭa rsLNHhL{ K @ jLrs`au`hhHHL9DLQL#VXZdfLf Lf Lf Lf e fL䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f QLB'Byyyy-Bz9BEBWBWBWBfBlBrBxBBhBBBBBBimBXmB z5hDLw@@DiLj@AC@B@BCAC KB C@ CAB"@lL@ʽBi@ȽBi}@ΩL6 ݍ̹A_COkhC濹տ AuA LBՠPADL Lf @1ɝ @ `ƠĠΠō#C@CCA @i@@AAACCi$΢D@DA@ /k@ɝe*ɷ@MIiՐɵA@餐;-7iϑ@ȩ53@ʭXCWC _C@Ƚ`C @i@@8/e@@eAA    ύ΍ˍȠȠנٍנύנҴנōɍ΍ɍōčӍٍӍɍύӍɍύԍōӍŠӍŮήōЮٮ޲ͮŮҮäŠؤӯͮƮԯͮҮͮäЮ̠Ю̮ҮҠĮήůͮ     CARDS"' `" FINANCIAL WORKSHEET"L j" PERSONAL WORD PROCESSOR"t t" WALL STREET/MISSION ESCAPE"z ~   " PRESS ANY KEY TO CONTINUE"; A$ ::110 'LO" A$"2"ī1000' A$"3"ī9999/ :5 ; A f " LOOK FOR THESE OTHER FINE" " MAIN STREET PROGRAMS" $ . 3 8" FROGGER/AQUATRON" B" MATHALETICS I" L" KNOW-IT-ALL" V" CASINO " ! ' - V " 1) RUN THE DATABASE MANAGER"\ " 2) SEE OTHER MAIN STREET SOFTWARE" " 3) QUIT" " PRESS THE KEY OF YOUR CHOICE "; A$ A$"1"ĺA$:D$;"RUN HEL 0dD$(4)(iD$;"PR#0"::Yn:" "s" "x" MAIN STREET PUBLISHING, INC. "" " "  ӠӍҍӍҮ٠ӍΠԮōҍĠȍ΍ōčŠ΍Π̮ōčΠōЮϮؠԠԮōōӠϠˍӠĮōˍծӮԠōӠŮōԠōԠӍԠԮōӠˍŮԮĮٮŮЮ̮ϮӮŠԍΠԮōōŠԍΠԮōōРō