1 'SCRDMP.NEC - by Gary Weber 19-Nov-92
2 'Performs screen dump to Epson and
3 'compatible printers.
4 '
5 'After SCRDMP.CO is created, run it
6 'from the main menu to install it in
7 'memory.
8 'GRPH-ESC at any time will dump your
9 'screen to your printer.
10 'GRPH-BS will unload SCRDMP from
11 'memory.
12 'Will coexist wonderfully with
13 'LINE.NEC and CHR100.NEC
14 '
15 DATA21,A6,EE,22,D0,F9,21,96,EF,CD,62,14,C9,F5,3A,55,FE,FE,41,CA,C1,EE,FE,40,C2,80,EF,3A,57,FE,E6,04,FE,04,CA,CE,EE,C3,80,EF,21,DB,7F,22,D0,F9,3E,07,E7,E7
16 DATAC3,80,EF,3E,07,E7,3E,1B,CD,92,6D,3E,41,CD,92,6D,3E,08,CD,92,6D,CD,78,42,2A,E5,F3,22,94,EF,0E,00,16,00,7A,FE,02,CA,66,EF,3E,1B,CD,92,6D,3E,4B,CD,92,6D
17 DATA3E,E0,CD,92,6D,3E,01,CD,92,6D,06,00,60,69,24,2C,CD,B5,42,21,B1,FE,7D,FE,B7,CA,51,EF,C5,46,7A,FE,00,CA,34,EF,78,C1,E6,F0,37,3F,0F,37,3F,0F,37,3F,0F,37
18 DATA3F,0F,C3,38,EF,78,C1,E6,0F,E5,21,84,EF,B7,CA,45,EF,23,3D,C3,3C,EF,7E,CD,92,6D,CD,92,6D,E1,23,C3,13,EF,04,78,FE,28,C2,09,EF,3E,0D,CD,92,6D,3E,0A,CD,92
19 DATA6D,14,C3,ED,EE,0C,79,FE,08,C2,EB,EE,3E,1B,CD,92,6D,3E,32,CD,92,6D,2A,94,EF,22,E5,F3,CD,7D,42,F1,3E,00,C9,00,C0,30,F0,0C,CC,3C,FC,03,C3,33,F3,0F,CF,3F
20 DATAFF,00,00,53,43,52,44,4D,50,20,31,2E,30,20,62,79,20,47,61,72,79,20,57,65,62,65,72,0D,0A,0A,49,6E,73,74,61,6C,6C,65,64,20,61,6E,64,20,72,75,6E,6E,69,6E
21 DATA67,2E,2E,2E,0D,0A,00
22 PRINT"Creating SCRDMP.CO, please wait..."
23 CLEAR 256,61081!
24 FOR X=61081! TO 61387!
25 READH$:GOSUB29:CK=CK+H:POKEX,H:NEXTX
26 IFCK<>37322!THENPRINT"BAD CHECKSUM!  There is a data error.":BEEP:BEEP:PRINT"-aborting-":END
27 PRINT"DONE!"
28 BSAVE"SCRDMP",61081!,307,61081!:STOP
29 H=0:H1$=LEFT$(H$,1):GOSUB 31 
30 H=H*16:H1$=RIGHT$(H$,1)
31 H1=ASC(H1$):H=H+H1+32*(H1>95)+7*(H1>63)-48:RETURN
32 END