10 ! F[RDEMO.BAC
20 ! 
30 ! F{rgdem3.bac
40 ! Ett f{rg demo f|r ABC806 av Magnus <8042>
50 ! Programet andv{nder en palett p} 4096 f{rger!
60 EXTEND : INTEGER : Add=64512
70 ATTRIBUTE 1
80 FGCTL BLK+RED+GRN+BLU+YEL : FGPOINT 0,0,0 : FGFILL 255,239
90 FGPICTURE 1,1,2 : FGPOINT 0,0,0 : FGFILL 255,239 : FGPICTURE 2,2,3
100 ; CHR$(12);CUR(10,20) RED DBLE "V{nta"
110 POKE Add,122,67,14,7,237,121,201
120 R=0
130 READ F : IF F=-1 THEN 160
140 Z=CALL(Add,R+(F*256)) : R=R+1 : GOTO 130
150 DATA 0,4,68,69,85,81,17,19,51,55,119,-1
160 Y=239
170 READ F : IF F=-1 THEN 300
180 FGPICTURE 0,2,3 : FGPOINT 0,Y,F : FGLINE 255,Y
190 READ F1 : FGPICTURE 1,2,3 : FGPOINT 0,Y,F1 : FGLINE 255,Y : Y=Y-1 : GOTO 170
200 DATA 0,1,1,1,0,1,1,1,1,2,0,1,1,1,1,2,2,2,0,1,1,1,1,2,2,2,2,3,0,1,1,1,1,2,2,2,2,3,3,3,0,1,1,1,1,2,2,2,2,3,3,3,3,4
210 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5
220 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7
230 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7,8
240 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8
250 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9
260 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,9,9
270 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,9,9,9,10
280 DATA 0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,9,9,9,10,10,10
290 DATA -1,-1
300 ; CHR$(12) : ; CUR(25,0);RED EL "F{rg demo av Magnus 1992 med 121 f{rger!"
310 FGPICTURE 0,0,2 : FGPICTURE 1,1,2 : GOTO 310