10 ! 24 n}lar DPL24I
20 ! Program av Magnus <8042> 1991
30 ! Det h{r programet skriver ut en bild
40 ! P} en 24 n}lars skrivare
50 INTEGER : NO EXTEND 
60 FGCTL BLK+RED+WHT+GRN
70 OPEN "pr:" AS FILE 1
80 PUT #1,CHR$(13)
90 PUT #1,CHR$(27)+CHR$(36)+CHR$(0)+CHR$(0)
100 PUT #1,CHR$(27)+CHR$(42)+CHR$(39)+CHR$(0)+CHR$(2)
110 FOR Y=239 TO 0 STEP -24
120   FOR X=0 TO 511
130     RESTORE 270 : V=0 : FOR P=0 TO 7
140       READ Q : IF FGPOINT(X,Y-P)<>0 THEN V=V+Q
150     NEXT P : PUT #1,CHR$(V)
160     RESTORE 270 : V=0 : FOR P=0 TO 7
170       READ Q : IF FGPOINT(X,Y-P-8)<>0 THEN V=V+Q
180     NEXT P : PUT #1,CHR$(V)
190     RESTORE 270 : V=0 : FOR P=0 TO 7
200       READ Q : IF FGPOINT(X,Y-P-16)<>0 THEN V=V+Q
210     NEXT P : PUT #1,CHR$(V)
220     ; CUR(0,70);"x ";X
230   NEXT X : PUT #1,CHR$(13)+CHR$(27)+CHR$(74)+CHR$(24)+CHR$(27)+CHR$(36)+CHR$(0)+CHR$(0)
240   PUT #1,CHR$(27)+CHR$(42)+CHR$(39)+CHR$(0)+CHR$(2)
250 NEXT Y 
260 CLOSE 1
270 DATA 128,64,32,16,8,4,2,1