1 REM Ins{nd av Hans Holmberg <2838>    1987-05-02 01.25.51 (DUMP)
10 REM **
20 REM ** Dumpa h|guppl|sningsgrafiken p} Epson-printer med rastergrafik.
30 REM ** Passar b}de ABC800 och ABC806 (endast 4-f{rgersmode!)
40 REM **
50 REM ** (C) 1987-02-16 Hans Holmberg /Mummel
60 REM ** Senast rev: 1987-05-02
70 REM **
80 INTEGER : NO EXTEND 
90 DIM C(7)
100 X0=240 : Y0=240 ! Max x-led respektive y-led
110 REM *** L{s rasterdata
120 FOR I=0 TO 3
130   READ C(I),C(I+4)
140 NEXT I 
150 REM *** \ppna printerfilen
160 OPEN 'PR:VSA70C72.5' AS FILE 1
170 REM *** S{tt linefeed till 8 pixelrader
180 ; #1 CHR$(27,65,8)
190 REM *** Scanna och dumpa Hi-Res sk{rmen
200 FOR Y=Y0-4 TO 0 STEP -4
210   ; #1;CHR$(27,75,Y0*2,SWAP%(Y0*2));
220   FOR X=0 TO X0-1
230     C0=0 : C1=0
240     FOR Y1=3 TO 0 STEP -1
250       C=FGPOINT(X,Y+Y1) : C0=C0*4+C(C) : C1=C1*4+C(C+4)
260     NEXT Y1 
270     ; #1 CHR$(C0,C1);
280   NEXT X 
290   ; #1
300 NEXT Y 
310 REM *** ]terst{ll printern i till defaultl{ge.
320 ; #1 CHR$(27,65,12)
330 REM *** Slut...
340 CLOSE 
350 END 
360 REM *** Rasterdata
370 DATA 0,0,1,0,2,1,3,3