DEFINT A-Z
DIM Fr(22) AS LONG
SCREEN 1
LINE (0, 0)-(18, 18), 3, B, &H5555
CIRCLE (9, 9), 8, 2, , , 1
PAINT (5, 5), 2, 2
CIRCLE (9, 9), 7, 1, , , 1
GET (1, 1)-STEP(16, 16), Fr
PUT (30, 1), Fr
'SYSTEM
SCREEN 0
WIDTH 80
OPEN "Pic.Ql" FOR OUTPUT AS #1
l$ = "DATA "
FOR i = 0 TO 22
   x$ = STR$(Fr(i))
   IF LEN(l$) + LEN(x$) > 75 THEN PRINT #1, LEFT$(l$, LEN(l$) - 1): l$ = "DATA "
   l$ = l$ + x$ + ","
NEXT
PRINT #1, LEFT$(l$, LEN(l$) - 1)
SYSTEM