' *** FX80_DMP.LST *** 2nd GFA-Manual, page 10-3 > PROCEDURE screendump_epsonfx80 ' ' *** Screendump from logical screen to Epson FX-80 ' *** Should work on any Epson-compatible 9-needle printer ' *** Works in High resolution only ' ' *** Standard: high.res! logbase% ' LOCAL m$,k,col,b%,x,stop!,c$ IF high.res! m$="Screendump will last |several minutes, |abort dump with " ALERT 1,m$,1," OK | Stop ",k IF k=1 REPEAT ! printer ready? EXIT IF GEMDOS(&H11) SOUND 1,10,12,4,25 SOUND 1,10,6,4,25 SOUND 1,10,12,4,50 SOUND 1,0 ALERT 3," Printer| | not ready !!",1," OK | Stop ",k IF k=2 LET stop!=TRUE ENDIF UNTIL stop! ' IF NOT stop! HIDEM LPRINT CHR$(27)+"@"; ! initialize printer LPRINT CHR$(10);CHR$(10) ! linefeed twice ' *** left margin of 12 spaces; 8 pixels/line ' *** 8-bit image mode: 72 pixels/inch (plotter); 400 pixels/line c$=SPACE$(12)+CHR$(27)+"3"+CHR$(24)+CHR$(27)+"*"+CHR$(5)+CHR$(144)+CHR$(1) FOR col=0 TO 79 b%=ADD(logbase%,col) LPRINT c$; FOR x=399 DOWNTO 0 OUT 0,BYTE{ADD(b%,MUL(x,80))} NEXT x LPRINT EXIT IF INKEY$=CHR$(27) ! abort after NEXT col LPRINT CHR$(12); ! formfeed LPRINT CHR$(27)+"@"; ! initialize printer ENDIF ENDIF ELSE m$="Sorry, screendump |only possible in |High resolution" ALERT 3,m$,1," OK ",k ENDIF RETURN ' ********* '