100 REMark PIOT Alain - N� 87105
110 REMark Logitheque QLCF.
115 REMark Translated 16.04.90 by Phil Barker
120 REMark -----------------------------
130 REMark PROGRAMME GENERATEUR DE MIRES
140 REMark -----------------------------
150 MODE 8
160 OPEN #10,scr_120x50a196x103
170 PAPER #10,7 : INK #10,0
180 OPEN #11,scr_512x256a0x0
190 PAPER #11,0 : INK #11,7 : CLS #11
200 affich
210 REPeat saisie
220 cle=KEYROW(0)
230 SELect ON cle
240 =2 : BEEP 500,20 : CLS #11 : mire_bar : affich
250 =8 : BEEP 500,20 : CLS #11 : mire_bar : mire_cer : affich
260 =16 : BEEP 500,20 : CLS #11 : mire_cou : affich
270 =1 : BEEP 500,20 : CLS #11 : mire_bar : mire_cer : mire_cmp : affich
280 =32 : BEEP 500,20 : retour
290 END SELect
300 END REPeat saisie
310 REMark **** AFFICHAGE DES OPTIONS ****
320 DEFine PROCedure affich
330 CLS #10
340 PRINT #10,"F1: CARD 1"
350 PRINT #10,"F2: CARD 2"
360 PRINT #10,"F3: CARD 3"
370 PRINT #10,"F4: CARD 4"
380 PRINT #10,"F5: RETURN"
390 END DEFine
400 REMark **** MIRE DE BARRES (No 1) ****
410 DEFine PROCedure mire_bar
420 FOR hori=0 TO 100 STEP 10 : LINE #11,0,hori TO 148,hori
430 FOR vert=0 TO 148 STEP 10.55 : LINE #11,vert,0 TO vert,100
440 END DEFine
450 REMark *** MIRE DE CERCLES (No 2) ****
460 DEFine PROCedure mire_cer
470 INK #11,0 : FILL #11,1 : CIRCLE #11,10.55,10,10 : FILL #11,0 : INK #11,7 : CIRCLE #11,10.55,10,10
480 FILL #11,1 : CIRCLE #11,10.55,10,5 : FILL #11,0
490 INK #11,0 : FILL #11,1 : CIRCLE #11,137.15,10,10 : FILL #11,0 : INK #11,7 : CIRCLE #11,137.15,10,10
500 FILL #11,1 : CIRCLE #11,137.15,10,5 : FILL #11,0
510 INK #11,0 : FILL #11,1 : CIRCLE #11,10.55,90,10 : FILL #11,0 : INK #11,7 : CIRCLE #11,10.55,90,10
520 FILL #11,1 : CIRCLE #11,10.55,90,5 : FILL #11,0
530 INK #11,0 : FILL #11,1 : CIRCLE #11,137.15,90,10 : FILL #11,0 : INK #11,7 : CIRCLE #11,137.15,90,10
540 FILL #11,1 : CIRCLE #11,137.15,90,5 : FILL #11,0
550 INK #11,0 : FILL #11,1 : CIRCLE #11,73.85,50,47.5 : FILL #11,0 : INK #11,7 : CIRCLE #11,73.85,50,47.5
560 END DEFine
570 REMark * MIRE COULEUR he oui! (No 3) *
580 DEFine PROCedure mire_cou
590 coul=7 : RESTORE
600 FOR vert=0 TO 500 STEP 64
610 BLOCK #11,64,256,vert,0,coul
620 READ centr : CURSOR #11,vert+centr,10 : READ nom$ : PRINT #11,nom$
630 coul=coul-1
640 END FOR vert
650 END DEFine
660 DATA 2,"white",2,"yellow",8,"cyan",8,"green",2,"magen",2,"red",8,"blue",8,"black"
670 REMark **** MIRE COMPOSITE (No 4) ****
680 DEFine PROCedure mire_cmp
690 BLOCK #11,174,26,168,25,7
700 CSIZE #11,3,1 : CURSOR #11,216,28 : PRINT #11," Q L "
710 BLOCK #11,182,26,164,204,7
720 CURSOR #11,192,207 : PRINT #11,"SINCLAIR"
730 CSIZE #11,2,0 : coul=6
740 FOR vert=107 TO 400 STEP 49.6
750 BLOCK #11,50,38,vert,76,coul
760 coul=coul-1
770 END FOR vert
780 FOR vert=110 TO 168 STEP 12 : BLOCK #11,6,38,vert,141,7
790 FOR vert=170 TO 226 STEP 8 : BLOCK #11,4,38,vert,141,7
800 FOR vert=228 TO 284 STEP 4 : BLOCK #11,2,38,vert,141,7
810 FOR vert=286 TO 342 STEP 8 : BLOCK #11,4,38,vert,141,7
820 FOR vert=344 TO 400 STEP 12 : BLOCK #11,6,38,vert,141,7
830 LINE #11,26,50 TO 121,50
840 FOR vert=31.65 TO 116.05 STEP 10.55 : LINE #11,vert,45 TO vert,55.5
850 FOR vert=128 TO 380 STEP 34 : BLOCK #11,16,25,vert,51,7
860 BLOCK #11,50,25,156,179,0,7,0
870 BLOCK #11,50,25,206,179,0,7,3
880 BLOCK #11,50,25,256,179,7,0,3
890 BLOCK #11,50,25,304,179,7,0,0
900 BLOCK #11,28,25,354,179,7
910 END DEFine
920 REMark ******* RETOUR AU BASIC *******
930 DEFine PROCedure retour
940 CLOSE #10 : CLOSE #11
950 MODE 4
960 BORDER 1,7,0 : CLS
970 BORDER #2,1,7,0 : CLS #2
980 AT #0,0,12 : PRINT #0,"You can restart the program with RUN, otherwise type NEW."
990 STOP
1000 END DEFine
