100 ! PROGRAM F\R ATT TESTA UT\KADE F[RGKOMBINATIONER I 256 * 240 GRAFIKMODE
105 INTEGER : EXTEND
110 FGCTL BLK+RED+GRN+YEL+BLU+MAG+CYA+WHT+BLK+RED+GRN+YEL+BLU+MAG+CYA+WHT
120 ! 
130 ; CHR$(12)
140 ; FNHrerase$(255,239,0)
150 ! 
160 Inraen$=FNRekt$(0,119,241,239,14)
170 F{rgbalk$=FNBalk$
180 ; FNText$;
190 ! 
200 ! 
210 ; CUR(22,0);
220 INPUT F{rg1$,F{rg2$,F{rgnr
230 ; FNFgctl$(F{rg1$,F{rg2$,F{rgnr);
240 GOTO 210
250 END 
1180 ! 
1190 ! 
1200 DEF FNText$
1210   ; CUR(19,0) "Ange f{rgkombination och f{rgnummer enligt F{rg1,F{rg2,f{rgnummer"
1220   ; CUR(20,0) "  (F{rg=BLU,RED,GRN,WHT,BLK,YEL,CYA,MAG F{rgnummer 0-15)"
1240   RETURN ' '
1250 FNEND 
1260 ! 
1270 ! 
1280 DEF FNBalk$
1290   Ant=0
1300   WHILE Ant<16
1310     ; FNFrakt$(Ant*15+1,120,Ant*15+15,238,Ant)
1320     ; CUR(13,5*Ant-2) Ant
1330   Ant=Ant+1 : WEND 
1340   RETURN ' '
1350 FNEND 
1360 ! 
1370 ! 
1380 DEF FNHrerase$(X,Y,Xy)
1390   FGPOINT Xy,Xy,0
1400   FGFILL X,Y
1410   RETURN ' '
1420 FNEND 
1430 ! 
1440 ! 
1450 DEF FNFrakt$(Xu,Yu,X|,Y|,F)
1460   FGPOINT Xu,Yu,F
1470   FGFILL X|,Y|
1480   RETURN ' '
1490 FNEND 
1500 ! 
1510 DEF FNRekt$(Xu,Yu,X|,Y|,F{rg)
1520   FGPOINT Xu,Yu,F{rg
1530   FGLINE X|,Yu
1540   FGLINE X|,Y|
1550   FGLINE Xu,Y|
1560   FGLINE Xu,Yu
1570   RETURN ' '
1580 FNEND 
7000 ! 
7010 ! 
7020 DEF FNFgctl$(F{rg1$,F{rg2$,F{rgnr) LOCAL F{rger$=56,Out7$=6,Dot1,Dot2,Hrc
7030   ! LB B,D
7040   ! LD C,7
7050   ! OUT (C),E
7060   ! RET
7070   Out7$=CHR$(66,14,7,237,89,201)
7080   F{rger$="BLKREDGRNYELBLUMAGCYAWHTGBLKGREDGGRNGYELGBLUGMAGGCYAGWHT"
7090   Dot1=INT(INSTR(1,F{rger$,F{rg1$)/3)*16
7100   Dot2=INT(INSTR(1,F{rger$,F{rg2$)/3)
7110   Hrc=CALL(VARPTR(Out7$),256*F{rgnr+(Dot1+Dot2))
7120   RETURN ' '
7130 FNEND