home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / dumpit.ba < prev    next >
Text File  |  2006-10-19  |  851b  |  11 lines
  1. 10000 'DUMPIT.100  Bill Templeton
  2. 10010 'CLUB 100 Library - 510/939-1246 BBS
  3. 10020 'BASIC screen dump routine for Epson     (9-pin) compatible printers.
  4. 10030 'Just merge this routine with your       favorite BASIC program, display a 
  5. 10040 'screen and call this routine with       GOSUB 10000 
  6. 10050 LPRINTCHR$(27);"A";CHR$(7):DEFINTZ:DIMZA$(15):FORZA=0TO15:READZB:ZA$(ZA)=STRING$(2,CHR$(ZB)):NEXT
  7. 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"
  8. 10070 FORZD=-832TO-593:IFZCTHENLPRINTZA$(PEEK(ZD)\16);ELSELPRINTZA$(PEEK(ZD)MOD16);
  9. 10080 NEXT:LPRINT:NEXT:NEXT:PRINT@ZA,CHR$(27)"Q";:BEEP:BEEP:PRINT@280,"":RETURN
  10. 10090 DATA255,63,207,15,243,51,195,3,252,60,204,12,240,48,192,0
  11.