10000 'DUMPIT.100 Bill Templeton 10010 'CLUB 100 Library - 510/939-1246 BBS 10020 'BASIC screen dump routine for Epson (9-pin) compatible printers. 10030 'Just merge this routine with your favorite BASIC program, display a 10040 'screen and call this routine with GOSUB 10000 10050 LPRINTCHR$(27);"A";CHR$(7):DEFINTZ:DIMZA$(15):FORZA=0TO15:READZB:ZA$(ZA)=STRING$(2,CHR$(ZB)):NEXT 10060 ZA=CSRLIN:PRINTCHR$(27)"P";:FORZB=0TO7:ZE=-832:FORZC=0TO39:PRINT@ZC+ZB*40,;:FORZD=-20 TO-15:POKEZE,PEEK(ZD):ZE=ZE+1:NEXT:NEXT:FORZC=0TO1:LPRINTCHR$(27)+"K"+CHR$(224)+CHR$(1); 'Aspect ratio: "K" to "L" or "z" 10070 FORZD=-832TO-593:IFZCTHENLPRINTZA$(PEEK(ZD)\16);ELSELPRINTZA$(PEEK(ZD)MOD16); 10080 NEXT:LPRINT:NEXT:NEXT:PRINT@ZA,CHR$(27)"Q";:BEEP:BEEP:PRINT@280,"":RETURN 10090 DATA255,63,207,15,243,51,195,3,252,60,204,12,240,48,192,0