Sinclair QL User Manual

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

Sinclair QL Specifications

General

Processor	Motorola 68008
Clock Speed	7.5 MHz
RAM	128 KB (expandable to 640 KB)
ROM	48 KB
Operating System	Sinclair QDOS
Release Year	1984
Storage	Microdrive tape loop
Graphics	256x256 pixels, 8 colors
Ports	RS-232, ROM cartridge
Sound	Beeper (internal speaker)