DATABASE FILER v9k% DATABASE RECORD SYSTEM) COPYRIGHT SOLO SOFTWARE 1982  @`:,,`,A$():E$()B$():F$()C$():G$() D$():H$(), " "' " "' " "' " "'" "'" "'" "&:" S O F T W A R E"+""*"DATA-BASE FILING PROGRAMME"*""6" D ?" "K$:K$"N" BK$"Y"   /"INSTRUCTIONS FOR USE OF PROGRAMME",""r" T 1000 ."0" Y - "%" - ."- " I "."" - .".(" Y "-)" . D .".*" T "+," -.".-"PRESS ANY KEY FOR FURTHER DETAILS".K$:K$"" . / $0"OPERATING MENU""1""-2"<1> LOAD DATA "/3"<2> TYPE DATA "05"<3> SEARCH DATA "06"<4> CHANGE DATA "07"<5> SAVE DATA "'8"<6> QUIT "?<[`,]" T "=>[`,]" [*] [CR] "?:+@"PRESS ANY KEY TO RUN PROGRAMME"AK$:K$"" A1B" I NEW FILE " C" [N] ."DD" H ":Tz:EK$:K$"" EFK$"N" H G P1H" T ",I" - "J"F N - NAME""K"F I - TEL. NO.""L" T ";N$>M(N$)@"TOO LONG - MAX 12 CHARACTERS": "N" T I ";C$>O(C$)@"TOO LONG - MAX 12 CHARACTERS": EPCD:RM:" **************************************"/Q" ** **"/R" ** DATABASE FILER MENU **"/S" ** **"/T" **************************************"GU"F M <1> LOAD DATA":" <2> TYPE DATA"JV" <3> SEARCH DATA":" <4> CHANGE DATA"%W" <5> SAVE DATA" X" <6> QUIT"9Y"SELECT < >":, :;" ".ZKK$:KK(KK$):KKLD: ~[KK ~\KKCD: ]KK '^KK@ _KK@"": 0u a Z~LDLD: NE B(x):"IF YOU HAVE EXISTING DATA ON CASSETTE TO"0"WHICH THE NEW DATA HAS TO BE ADDED, THAT"-"CASSETTE DATA SHOULD BE LOADED FIRST."<"DO YOU HAVE DATA TO LOAD FROM CASSETTE?":(x)KK$:KK$"Y" NKK$"N" KK$"*" P "":E H ,4NE:JE:NNN: A X:" ";N$;J:"":"";X1$:X1$"*" P<:" ";C$:"":"";X2$:X2$"*" P# :AMAM: 6RSRS:A$(N)X1$:E$(N)X2$:EJ: 6RMRM:A$(N)X1$:E$(N)X2$:EJ: PH ,4NN:JE:NNN: A X:" ";N$;J:"":"";X1$:X1$"*" P<:" ";C$:"":"";X2$:X2$"*" P# :AMAM: 6RSRS:B$(N)X1$:F$(N)X2$:EJ: 6RMRM:B$(N)X1$:F$(N)X2$:EJ: PH ,4NN:JE:NNN: A X:" ";N$;J:"":"";X1$:X1$"*" P<:" ";C$:"":"";X2$:X2$"*" P# :AMAM: 6RSRS:C$(N)X1$:G$(N)X2$:EJ: 6RMRM:C$(N)X1$:G$(N)X2$:EJ: PH ,4NN:JE:NNN: A X:" ";N$;J:"":"";X1$:X1$"*" P<:" ";C$:"":"";X2$:X2$"*" P# :AMAM: 6RSRS:D$(N)X1$:H$(N)X2$:EJ: 6RMRM:D$(N)X1$:H$(N)X2$:EJ: P9,(x):"YOU HAVE REACHED SYSTEM CAPACITY"-Tz:2." T RUN "./" ."B0[`,]"PLEASE NOTE";:" T "+1" "&2" ."06"DO YOU WISH TO SAVE CURRENT DATA FIRST?"8K$:K$"Y" ';9K$"N""NOW TYPE 'RUN' FOLLOWED BY THE 'CR' KEY"::K$"*" P ; 86"":" ";N$,,;"";X1$:" ";C$,,;"";X2$1""<"IS THIS ENTRY CORRECT":"Y ""N "6CD"* "$K$:K$"Y""":RS: @K$"N""":JE:NN:RS:AM: )(K$"*")(CD)RM:   H ,%"SUGGESTED USES"$""'"TELEPHONE RECORDS"""PRICE LISTS"!"BAD DEBTS"%"ACCOUNT BALANCES"'"ESTIMATING CONSTANTS"$"PLUS MANY MORE"1""*"PRESS ANY KEY TO CONTINUE"K$:K$"" AX[`,]" T SHIFT * [CR] ":Q,:[`,]"T SHIFT & * ":Tz:: F ENE:"": * ,2"": X:" CHOICES OF SEARCH PATTERN"0""1"FAST SEARCH "0"30 ."0""0"FULL SEARCH "0"3 ."" "D[`,]"C ";:" I TED "B[`,]"10 ";:" "A[`,]" ";:" WANTED TEDIOUS ."8[`,]" ONLY!!! ";:" "0""#" <1> F S"$" <2> F S" " < > S"!Q$:SS(Q$):SS SS Q$"*" P  )(x):,:(p)!Tz::(x)5,:" <1> ";N$;" S"5,:" <2> ";C$;" S".,0:" < > S"!Q$:FS(Q$):FS FS Q$"*" P  SS SS SS SS 0N:"": X:FS" ";C$:  " ";N$"";SH$SH$"*" P" SEARCHING": SL(SH$)NN:NE NN: &SP :K$:K$"*" PO(FS)(SH$(A$(N),SP,SL))X1$A$(N):CV$E$(N): :RM PO(FS)(SH$(E$(N),SP,SL))X1$A$(N):CV$E$(N): :RM P-CMCM:A$(N)X1$:E$(N)X2$ SP: NN:NE NN: &SP :K$:K$"*" PO(FS)(SH$(B$(N),SP,SL))X1$B$(N):CV$F$(N): :RM PO(FS)(SH$(F$(N),SP,SL))X1$B$(N):CV$F$(N): :RM P-CMCM:B$(N)X1$:F$(N)X2$ SP: NN:NE NN: &SP :K$:K$"*" PO (FS)(SH$(C$(N),SP,SL))X1$C$(N):CV$G$(N): :RM PO (FS)(SH$(G$(N),SP,SL))X1$C$(N):CV$G$(N): :RM P- CMCM:C$(N)X1$:G$(N)X2$ SP: NN:NE?@ NN: &SP :K$:K$"*" PO(FS)(SH$(D$(N),SP,SL))X1$D$(N):CV$H$(N): :RM PO(FS)(SH$(H$(N),SP,SL))X1$D$(N):CV$H$(N): :RM P-CMCM:D$(N)X1$:H$(N)X2$ SP: @(x):" END OF FILE":(x)Tz:: P0N:"": X:FS" ";C$:  " ";N$"";SH$SH$"*" P" SEARCHING": NN:NE NN: E(FS)(SH$A$(N))X1$A$(N):CV$E$(N): :RM PE(FS)(SH$E$(N))X1$A$(N):CV$E$(N): :RM P-CMCM:A$(N)X1$:E$(N)X2$K$:K$"*" P  NN:NE NN: E(FS)(SH$B$(N))X1$B$(N):CV$F$(N): :RM PE(FS)(SH$F$(N))X1$B$(N):CV$F$(N): :RM P-CMCM:B$(N)X1$:F$(N)X2$K$:K$"*" P  NN:NE NN: E(FS)(SH$C$(N))X1$C$(N):CV$G$(N): :RM PE(FS)(SH$G$(N))X1$C$(N):CV$G$(N): :RM P-CMCM:C$(N)X1$:G$(N)X2$K$:K$"*" P  NN:NE?@ N E(FS)(SH$D$(N))X1$D$(N):CV$H$(N): :RM PE(FS)(SH$H$(N))X1$D$(N):CV$H$(N): :RM P-CMCM:D$(N)X1$:H$(N)X2$K$:K$"*" P   " ";N$;(p);X1$" ";C$;(p);CV$0""CD |+" P [S] "*" [P] "," [*] "Z$:Z$"*"RM:Z$"S" %Z$"P"PN$,X1$:PC$,CV$:   &h,:"SEARCHING": (|" CHANGE OF PROGRAMME DATA"(" INDICATE ACTION REQUIRED"0" C - S"/" C - C"/" R - *"Z$:Z$"*"RM:.Z$"S"h,:"SEARCHING": Z$"C"   " "N$;(p);X1$" ";C$;(p);CV$0""*" DO YOU WISH TO CHANGE THE ";N$;"?"K$:K$"N" K$"Y"   " NEW ";N$"";X1$" NEW ";C$"";X2$ :RS<AM" AMENDING RECORDS AND CONTINUING SEARCH"AM:CM:\@,,`,:"":T :(x):" OPERATOR ERROR":gJ" Y ":T@::RM:,,`,:.TT;::,,`,: P,'"";();"DATA STORAGE FACILITY"''();""2'"****************************************":'(x):" PLEASE INSERT BLANK DATA CASSETTE NOW. "0'"****************************************">'[`,]" T SHIFT * "-'" PRESS [CR] WHEN YOU ARE READY."'K$:K$"*" P'K$(P) ' ' '('" RECORD.PLAY"::" W D"'TE:TN$:TC$'N'TA$(N),E$(N)''E * 'N!'TB$(N),F$(N)"'#'E *$'N%'TC$(N),G$(N)&'''E? *('N)'TD$(N),H$(N)*'* + P, N"";();"DATA LOADING FACILITY"'!N();""2"N"****************************************":#N(x):"PLEASE INSERT CORRECT DATA CASSETTE NOW."0$N"****************************************">%N[`,]" T SHIFT * "Z&N" PRESS [CR WHEN YOU HAVE REWOUND THE":"CASSETTE FULLY AND ARE READY TO LOAD."'NK$:K$"*" P(NK$(P) *N )N 'N!*N" PLAY"::" L D"+NTE:TN$:TC$,NN-NTA$(N):TE$(N).N/NE R0NN1NTB$(N):TF$(N)2N3NE R4NN5NTC$(N):TG$(N)6N7NE? R8NN9NTD$(N):TH$(N):NR R P50uTT :(x):TH::3:u" YOU HAVE PRESSED TO QUIT PROGRAMME">;u[`,]"************************************"=