10 REM Ins{nd av Hans Liljedahl <3152>
20 REM 1986-01-08
30 REM 
40 REM RXPLOT {r avsett f|r ABC80 med
50 REM EPSON RX printer.
60 REM 
70 REM Programmet l{ser in en grafikfil
80 REM gjord av GRAFEDIT och skriver ut
90 REM den i mini-format (ca 25*33 mm)
100 REM 
110 DIM A(64),B(64)
120 FOR I=1 TO 64
130 READ A(I),B(I)
140 NEXT I
150 ; "FILE NAME "; : INPUT F$
160 OPEN "PR:" ASFILE 1
170 ; #1,CHR$(27);"A";CHR$(3);
180 OPEN F$ ASFILE 2
190 ONERRORGOTO 280
200 INPUTLINE #2,S$ : S$=MID$(S$,2,39)
210 ; #1,CHR$(27);"K";CHR$(78);CHR$(0);
220 FOR I=1 TO 39
230 X=ASC(MID$(S$,I,1))-31
240 IF X>32 X=X-32
250 ; #1,CHR$(A(X),B(X));
260 NEXT I
270 ; #1 : GOTO 190
280 ; #1,CHR$(27);"@";
290 CLOSE 1 : CLOSE 2 : END 
300 DATA 0,0,128,0,0,128,128,128
310 DATA 64,0,192,0,64,128,192,128
320 DATA 0,64,128,64,0,192,128,192
330 DATA 64,64,192,64,64,192,192,192
340 DATA 32,0,160,0,32,128,160,128
350 DATA 96,0,224,0,96,128,224,128
360 DATA 32,64,160,64,32,192,160,192
370 DATA 96,64,224,64,96,192,224,192
380 DATA 0,32,128,32,0,160,128,160
390 DATA 64,32,192,32,64,160,192,160
400 DATA 0,96,128,96,0,224,128,224
410 DATA 64,96,192,96,64,224,192,224
420 DATA 32,32,160,32,32,160,160,160
430 DATA 96,32,224,32,96,160,224,160
440 DATA 32,96,160,96,32,224,160,224
450 DATA 96,96,224,96,96,224,224,224