10 ! FREKFILE.BAC
20 ! Program av Magnus <8042> 1992"
30 ! Vissar ett frekvens disagram p} en fil, visuelt
40 ! p} en ABC806.
50 ! 
60 ! "GRED" f|r att det ska fungera med monokrom sk{rm,
70 ! Sk{rmrensning innan start   <7759>
80 ! 
90 INTEGER : NO EXTEND 
100 ; CHR$(12)
110 ; "Program f|r att visa ett frekvens diagram p} en fil."
120 ; "Av Magnus Nilsson <8042> 1992"
130 INPUT "File name: ";G$
140 DIM V(255) : B.=0.
150 FOR Q=0 TO 255 : V(Q)=0 : NEXT Q 
160 ; "R{knar bytes."
170 OPEN G$ AS FILE 1
180 ON ERROR GOTO 220
190 GET #1,A$ : V=ASCII(A$) : B.=B.+1. : ; CUR(0,70);B.
200 V(V)=V(V)+1
210 GOTO 190
220 CLOSE 1 : I.=B. : RESUME 230
230 FOR A=0 TO 255
240   IF V(A)>239 THEN 270
250 NEXT A 
260 GOTO 290
270 FOR A=0 TO 255 : V(A)=INT(V(A)/2) : NEXT A 
280 GOTO 230
290 FGCTL BLK+GRED : FGPOINT 0,0,0 : FGFILL 511,239
300 FOR X=0 TO 255
310 FGPOINT X*2,0,1 : FGLINE X*2,V(X) : NEXT X 
320 ; CUR(5,0);
330 END