Sinclair QL Benutzerhandbuch Seite 126

1. Deklarieren Sie die Tabellen, besetzen Sie zeich$ mit READ und setzen Sie 52
Zahlen in die Tabelle karte.
2. Mischen Sie die Karten.
3. Teilen Sie die Karten in vier Blätter und sortieren Sie jedes Blatt.
4. Öffnen Sie das Bildschirmfenster mit OPEN.
5. Legen Sie den Bildschirmhintergrund
6. Drucken Sie die vier Blätter aus.
7. Schließen Sie das Bildschirmfenster mit CLOSE ab.
100 DIM karte(52),
110 FOR k=1
120 FOR k = 1 TO 52 : LET karte(k)
130 mi schen
140 teiLen
150 OPEN #6,
160 hintergrund
170 drucken
180 CLOSE #6
190 DEFine
200 FOR c = 52 TO 3 STEP -1
210 LET zuf = RNO(1 TO c - 1)
(
220 LET moment = karte(c)
230 LET karte(c)
240 LET karte(zuf)
250 END FOR c
260 END DEFi ne
270 DEFine
280 FOR h = 1 TO 4
290 FOR c = 1 TO 13
300
310 END FOR c
320 sortieren
330 FOR c = 1 TO 13
340
350 END FOR c
360 END FOR h
370 END DEFine
380 DEFine
390 FOR posten
400 LET mark = posten
410 LET vergL
420 LET sort
430 REPeat vergLei
440
450
460
470 END REPeat vergLeich
480 LET sort
490 END FOR posten
500 END DEFine
510 DEFine
520 PAPER #6,4
530 BORDER #6,10,10
540 BLOCK #6,100,60,150,60,2,4
550 END DEFi ne
560 DEFine
570 LETinc=12:INK#6,7
580 LET P = 0
590 FOR pos = 1 TO 4
600 READ waag,senk
610 FOR reihe
620
630
640
(
650
660 END FOR reihe
670 END FOR pos
680 END DEFine
3/85
sort(13), zeich$(4,2)
TO 4: READ zeich$(k)
scr _440 x 220a35 x 15
PROCedure mischen
= karte(zuf)
= moment
PROCedure teiLen
LET sort(c) = karte«h-1)*13+c)
LET karte«(h-1)*13+c)
PROCedure sortieren
= 2 TO 13
= sort(mark)
(0) = vergL
ch
IFvergL >=sort(mark-1):
LET sort (mark) = sort
LET mark = mark - 1
(mar-k) = verg L
PROCedure hintergrund
: CLS #6
PROCedure drucken
= 1 TO 4
hoLt __ reihe
CURSOR #6,waag,senk
PRINT #6,Lin$
LET senk = senk + i nc
fest.
= k
= sort(c)
EXITvergL
(mark-1)
VERSCHIEDENE TECHNIKEN
PROGRAMM-
ENTWURF
105