FILES  /ŗ "FILES" (1:1:7:56999  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# xbA$="COMPUTER":L=7:C=3:9180#:A$="STUDIES":L=10 :C=4:9180# 0:1 140 &N=5700057023:Z:N,Z:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 621,0;" " 57000 :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #("DOUBLE HEIGHT" #2&N=5705057129):z:N,z:N #<237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #F229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #P209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201 #"DOUBLE WIDTH" #&N=57150>57241:z:N,z:N #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201 # #23729\,L:n=1̱a$ #23728\,c # l,c;a$(n) #57150> #357050:23728\,c+1:57050 #c=c+2:n $ (bGIZ PzASTUDIESpfiles 78 798!1:57012:80P "Files" D 1984 MERCURIAN PULP  PRODUCTS/CONTRACT BOOKS (AA$=" FILES ":23729\,13 :C=4:7:1 -1N=1̱A$:23728\,C:13 ,C;A$(N) 2357150>:57050:23728\,C+1 757050:C=C+2:N 1,1;"F$(R,C,S)" 6;2,10 ;" COLUMNS ";5;4,3;"";5,3;" ";6,3;"R";7,3;"O";8,3;"W";9 ,3;"S";10 ,3;" ";11 ,3;"" .4;8,12 ;1;"SPACES" "f13 ,2;"Files handled by this program";14,2;"must take the shape F$(R,C,S)." ,l15,2;"ROWS COLUMNS & SPACES can be";16,2;"set to your requirements." 6e17,2;"Numbers can be handled but be";18,2;"sure you allow enough spaces." @c19,2;"Keep COLUMNS*SPACES under 30";20,2;"for better displays." J{.5,0:0,0;" NUmber of SPACES per item - set possible maximum ";a$:5000:f330J T%s=a$:8,19;4;s ^f.5,0:0,0;" Number of COLUMNS ? (MAX.6) ";a$:5000:f350^ h%c=a$:2,22;6;c rb.5,0:0,0;" Number of ROWS in file? ";a$:5000:f370r |$r=a$:6,5;5;r s*c*r>20000 Nx=((20000 N-s*r*c)*100d/(s*c*r)):21,2;" TOO BIG!! REDUCE BY ";x;"% ":350^  f$(r,c,s) #1;0,0;" Are you LOADing DATA from tape? Press  Y  or  N  ":.5,10 -23658j\,8:a$=:a$=""415 a$="N"460 a$"Y"410 w#1;0,0;" Find DATA tape, rewind to start of file and press any key  ":1,0 0:""f$()  500 dN=1C:.5,10 :0,0;(" Heading for column ";n;" ");f$(1,N) n x#1;0,0;" Create your file using Update routine. Press any key to go on.":.5,0 0:2000 1:1:7: ;2;z$;z$;z$;1,9 ;" FILE OPTIONS " k5,3;" 1  SEARCH A FILE ";8,3;" 2  UPDATE A FILE " 11 ,3;" 3  RE-ORDER A FILE ";14,3;" 4  SAVE DATA ON TAPE ";17,3;" 5  END OF PROGRAM " R21,0;"  PRESS A  NUMBER  TO SELECT ":.5,7 &A$=:A$=""550& 0A$<"1"A$>"5"540 :A$="5"600X D(1000*A$(1)) N 500 XE1:57012:21,8;" END OF PROGRAM ": 7:7:0: h0,9 ;" SEARCH A FILE "''" To do this you have to specify"'" FIELDS (column headings)." ;'" The demonstration DATA is from"'" a stamp collection." >" Select the FIELD ""PLACE"" and"'" specify ""UK""." ?'" The program will search for any"'" stamps from the UK" 9'" You can specify 2 or 3 FIELDS "'" at the same time." $@" Select the FIELD ""DATE"" and specify ""1972""." .a'" The program will now search for"'" those stamps from the UK with"'" a DATE of 1972." B`#1;1,0;" Press  any key  to search ":1,0:0 L :"  FIELD SPECIFICATION " V=T(3):P$(3,S):TEMPORARY STORES FOR SEARCH DATA ` k=1 j/N=1C:'3;N;" ";F$(1,N):N t_.5,0:0,0;" ENTER FIELD NUMBER: ";A$:5000:F1140t ~5000 checks numbers A$>C1140t  T(k)=A$ $'" FIELD ";F$(1,T(k));"" N.5,5:0,0;"PLEASE TELL ME WHAT TO LOOK FOR:";P$(k) 4;P$(k) k>21250 g23658j\,8:.5,10 :0,0;" ANOTHER FIELD ? ENTER (Y/N)";a$ !a$="Y"k=k+1:1140t a$"N"1210  end of field routine b#1;0,0;" FIELDS SET - ANY KEY TO SEARCH ":.5,10 :0 X:" SEARCHING FOR..."'':N=1K:4;F$(1,T(N));5;P$(N);:N '' :CS=(32 /C)-1: Column Spacing for display  CS>SCS=S  ;n=1C:7-N;9 ;f$(1,N,CS);" "; N:'' search routine  Q=0 n=1R:every row (2m=1k: how many fields set 2f$(n,t(m))p$(m)1390n <0m:Q=Q+1: number of lines displayed F.print files where Field specifications match P5o=1C:7-o;9 ;f$(n,o,cs);" "; Zo:'' d/q>85300:holds screen when full nn xQ1450 " There's nothing matches." '" Are you specifying your fields properly? Return and select the Update option. This will allow you to look closely at the files." |'" Field specifications must be spelt the same way,and in the same typeFACE as the entries you are searching for." t#1;0,0;"  WHAT NOW? ANOTHER SEARCH OR   A NEW OPTION ? PRESS S OR O " 1,0 .23658j\,8:A$=:A$=""1470 A$="S"1100L A$"O"1460  7:7:0: /0,5;" CREATE/UPDATE A FILE " @''" This shows you the file as it"'" is stands at the moment." ?" You can use it to remind "'" yourself what is in the file." ;" It's main use is for keeping"'" your files up to date." b" You can..."'"  ADD  a new entry"'"  DELETE  an old entry"'"  CHANGE  an entry."  g'" Only very small files will fit"'" on one screen. Others must be "'" displayed a little at a time." 6" I can start the display at any"'" row you choose."  u0,0;" ENTER number to start from - 1 to go from beginning ";a$:5000:f2080  *%sn=a$:sn=0sn>r2080  4<:23692\,R+22:Y=1:2900T :Y=0 CSN=1SN=2 H3N=SNR:4;N;:T=1C:F$(N,T);:T:'' R23658j\,8:25 \E=0:="H"2200 f$N/8=(N/8)2900T kE pN z 2200  #1;0,0;" ADD  A  DELETE  B  CHANGE  C  DISPLAY MORE  D  END UPDATE  E  ":.5,6 A$=:A$=""2210 A$<"A"A$>"E"2200 A$="A"2300 A$="B"2400` A$="C"2500 A$="D"" ";: A$="E"E=1:  2200 d.5,2:0,0;" ROW NUMBER OF NEW ENTRY ?";A$:5000:F2300 %NE=A$:NE<1NE>R2300 A$="1"#1;0,0;" ROW 1 CARRIES COLUMN HEADINGS. START FROM 2.[ANY KEY] TO GO ON":1,-5:0:2300 '5;NE;:Q=1C C0,0;(" ENTRY FOR ";F$(1,Q);"? ");F$(NE,Q) $F$(NE,Q);:Q .: `a.5,2:0,0;" ROW NUMBER TO DELETE ?";A$:5000:F2400` j%NE=A$:NE<1NE>R2400` t Q=1C:F$(NE,Q)=" ":Q: a.5,5:0,0;" ROW NUMBER TO CHANGE ?";A$:5000:F2500 %NE=A$:NE<1NE>R2500 X=1C #1;0,0;" FIELD ";F$(1,X);" ENTRY ";F$(NE,X);1,0;" PRESS C TO CHANGE  L  TO LEAVE" .5,0 A$=:A$=""2540 A$="L"2570 A$"C"2535 X.5,5:0,0;(" NEW ENTRY FOR ";F$(1,X);": ");F$(NE,X) X: T7R>8" PRESS  H  TO HOLD DISPLAY " YY$=" ":YY$="1" ^*'Y$;:X=1c:f$(1,X);:X:'' h 6:6:0: $7;"RE-ORDER A FILE" s''" This routine lets you re-order your file in an alphabetical or numerical order based on any of the columns." ֘'" For example,a stamp collection can be arranged alphabetically by PLACE,in DATE order,in order of FACE value,of COST price, or of re-sale VALUE." '" If you want to keep your file ordered in a particular way, then simply add new entries to the end of the file, and use this to sort them into order." @'" PRESS  ANY KEY  TO START ":.5,5 A$=:A$=""3060 ":" In order of which COLUMN ?" /N=1C:'3;N;" ";F$(1,N):N f.5,0:0,0;"  ENTER  column number: ";a$:5000:f3090 %cn=a$:cn>ccn<13090 &'''"  THIS MAY TAKE A MOMENT "'' 0find end of file :n=r1-1 D t=1c N"f$(n,t)z$(s)LN=n:3170b Xt:n b-bubble sorting routine used on file ln=2LN-1 vt=2LN-1 'f$(t,cn)f$(t+1,cn)3240 q=1c:b$=f$(t,q) f$(t,q)=f$(t+1,q) f$(t+1,q)=b$:q t:n C23692\,R+22:'"  Press  H  to hold display " #n=1LN+1:t=1c f$(n,t);:t:'' ="h"Ŧ="H"3260 n ""3270 A''" Press  ENTER  to go on ":.5,10 a$=:a$=""3280 A$13 3280  7:7:0:  7;" SAVING A FILE " :'" Find and insert a tape on"'" which to save the file." C" Note the tape counter number"'" and connect the MIC. lead." 60,0;" Filename for this DATA ?";w$  w$>10 w$=w$(10 ) c'" Note the following:"''"  FILENAME  ";W$''" ROWS ";R;" COLUMNS ";C;" SPACES ";S B'" FILENAME and TAPE COUNTER are"'" for your reference." I'" The rest you will have to tell me next time you use this file." Y#1;1,0;" Press  ENTER  when ready ":.5,10 a$=:a$=""4100 a$13 4090  w$f$() "h#1;0,0;" Do you want to VERIFY that it has been saved? Press  Y  or  N " ,.5,0 6.23658j\,8:a$=:a$=""41506 @a$="N"4250 Ja$"Y"4140, TM'" If VERIFY fails,you can restartthe SAVE routine by  GOTO 4000 " ^f#1;0,0;" Rewind to start of file, check EAR lead and press  ENTER  " h.5,10 ra$=:a$=""4210r |a$13 4200h " "  w$f$() V#1;0,0;"  E  to end  O  another option " .5,3 .23658j\,8:a$=:a$=""4270 a$="E"600X a$"O"4250   a$=""f=1: f=0:q=1̱a$  a$(q)<"0"a$(q)>"9"f=1 q: PH5200P:N=14:G$:R=07:B:G$+R,B:R:N Z"A",8,12 ,254,255,254,12 ,8,0,"B",16,480,127,255,127,480,16,0 d"C",28,28,28,28,127,62>,28,8,"D",8,28,62>,127,28,28,28,28 n X#1;0,0;" Press ENTER when ready for more":.5,0 a$=:a$=""5310 a$13 5300 @:o=1r:7-o;9 ;f$(1,o,rs);" ";:o '':Q=0: p&"PLACE","DATE","FACE","COST","VALUE" z "UK","1972",".01",".50","2.50" &"FRANCE","1920","5.00","1.25","3.00"  "UK","1965",".10",".25","1.25" ""USA","1920",".25","5.50","7.90" &"GERMNY","1978","3.00","1.25","1.35" '"FRANCE","1965","10.00","2.00","1.95" %"TAHITI","1966","1.05",".50","1.00" ""SWITZ","1980",".30",".05",".05" &"FRANCE","1948","5.00","7.50","8.75"  "UK","1972","1.00",".10",".20" # HPfcPPbGDA