10 ! Program av Magnus <8042> 1991
20 ! Programet simmuler TV flimret(myrenaskrig) p} en ABC806
30 INTEGER : NO EXTEND 
40 ; CHR$(12) : FGCTL BLK+WHT+RED+GRN
50 FOR A=0 TO 3
60   FGPICTURE A,A,4 : FGPOINT 0,0,0 : FGFILL 511,239
70   FOR Y=0 TO 239
80     FOR X=0 TO 511
90       F=INT(RND*4)
100       FGPOINT X,Y,F
110   NEXT X : NEXT Y 
120 NEXT A 
130 FOR F=1 TO 3
140   FOR B=0 TO 3
150     FGPICTURE B,B,4
160     IF F=1 THEN FGCTL BLK+WHT+BLK+BLK
170     IF F=2 THEN FGCTL BLK+BLK+WHT+BLK
180     IF F=3 THEN FGCTL BLK+BLK+BLK+WHT
190 NEXT B : NEXT F 
200 GOTO 130