Sinclair QL User Manual

•
•
•
Some Techniques
410 LET camp = sort<dartl
420 LET sort (0) = camp
430 REPeat campa re
440 IF camp >= sort<dart-1l : EXIT compare
450 LET sort(dart) = sort(dart-1)
460 LET dart = dart -1
470 END REPeat compare
480 LET sort(dart) = camp
490 END FOR; tem
500 END DEFine
510 DEFine PROCedure layout
520 PAPER #6,4 : CLS #6
530 BORDER #6,10,0
540 BLOCK #6,100,60,150,60,2,4
550 END DEFine
560 DEFine PROCedure printem
570 LET inc = 12 : INK #6,7
580 LET p = 0
590 FOR seat = 1 TO 4
600 READ ac, dn
610 FOR row = 1 TO 4
620 getLine
630 CURSOR #6,ac,dn
640 PRINT #6,lin$
650 LET dn = dn + inc
660 END FOR row
670 END FOR seat
680 END DEFine
690 DEFine PROCedure getLine
700 IF row MOD 2 = 0 THEN STRIP #6,0
710 IF row MOD 2 = 1 THEN STRIP #6,2
720 LET lin$ = tok$(row)
730 LET max = row*13
740 REPeat one suit
750 LET p = p+ 1
760 LET n = card (p)
770 IF n >max THEN p = p-1 EXIT one suit
780 LET n = n MOD 13
790 IFn=OTHENn=13
800 IF n = 1 : LET ch$ = "A"
810 IF n >= 2 AND n <= 9 : LET ch$ = n
820 IF n = 10 LET ch$ = "T"
830 IF n = 11 LET ch$ = "J"
840 IF n = 12 LET ch$ = "Q"
850 IF n = 13 LET ch$ = "K"
860 LETLin$=Lin$&""&ch$
870 IF P = 52 : EXIT one=suit
880 IF card(p»card(p+ll EXIT one suit
890 END REPeat one sui t
900 END DEFine -
910 DATA "H:
II
,"C:","D:","S:"
920 DATA 150,10,260,60,150,130,30,60
The program works in the 256 mode But the various lines of card symbols may overlap COMMENT
the ',able" or overflow at the edge of the window. A simple change in procedure getline
from:
860 LET lin$ = Lin$ &"" & ch$
to:
860 LET Lin$ = Lin$ & ch$
will correct this, The spaces between characters disappear but the larger sized characters
enable the rO'NS to be easily readable. The program thus works well in either graphics
mode.

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)