Sinclair QL User Manual

Using Multiple Fies
36
proc doorder
rem *****order new stock *****
inquire
use "ord"
seLect sto.stockno$=ord.stockno$
print
print "fast or cheap (f/c)";
;f Lower(getkeyO)=/lf
Jl
fast
eLse : cheap
endi f
Let ycode$=scode$
reset
use II
SUp
ll
Locate comp$
doform
print
print
IIExpected delivery ;s lI;del;" daysll
cLear
endproc
The procedure cheap finds the supplier with the lowest price, and fast works in the same
way
to find the supplier with the shortest delivery time.
proc cheap
rem ***** f; nd cheapest *****
USe "
or
dl!
Let
pri=pr;ce
Let comp$=code$
Let deL=deLivery
aLL
;f price<pr;
let pr;=price
let comp$=code$
let del=deLivery
endif
endaLL
endproc
proc fast
rem ***** fastest de Livery *****
use "
or
d
ll
let deL=deLivery
Let comp$=code$
Let pri==price
aLL
if delivery<deL
Let del=delivery
Let comp$=code$
Let pri=pr;ce
end;f
endaLl
endproc
The procedure doform produces the actual order form. You should modify it to your
own requirements.
We shall use a simple version which shows the order details on the
screen.
proc doform
. rem ***** produce order form *****
c Ls
print
print
sup.coname$
print sup.street$
print sup.county$
print sup. post codeS
print
print
"PLease suppLy "; sto.buyqty;
12/84
c
•
•

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)