Sinclair QL

print" * part number ";
print ycode$
print "("; sto.description$; II) ";
print "at E"; pri; " each."
print
print "Total value: £11; sto.buyqty*pri
endproc
The tinal command that we need is one to close all the files when we have finished
using them.
proc bye
conti rm
if yes
cLs
print: print "bye"
cLose "s to"
cLose "sup"
close "ord"
cLs
endif
endproc
We can now write a short procedure to run the application. It must open all three files
with the correct logical tile names, clear the display and show you the additional
commands that you
have. Note that, In normal use, the stock tile is the only one whose
records
will need to be changed. The other two files are opened as read only files. It
also orders the supplier file so that we can locale a company by its reference code.
proc start
cLs
print at 5,5; "STOCK CONTROL DEMONSTRATION"
print
open "stock" logicaL "sto"
look "supplier" logicaL "sup"
look lIorders" LogicaL /lord"
use "sup"
order codeS; a
cLear
endproc
Finally we can write clear, which simply clears the screen and shows a list of the extra
commands available:
proc cLear
rem ***** clear screen and get command *****'
loca L x$
print
print
"Press any key to continue ";
let x$=getkey()
cIs
pri nt
print "Query Report DeLiver:y Doorder Sale Bye": print
print "Type in your choice"
endproc
12/84
USing MlJtIJe Fies
37