32000 REM GRAPHICS 7 SCREEN DUMP 32001 REM DUMPS IN FULL-PAGE FORMAT 32002 REM By Glen G. Hosey 32003 REM ...Tacoma, WA 98433 32006 REM --------------------------- 32007 REM This routine will dump a 32008 REM GRAPHICS 7 screen to printer 32009 REM in 2 minutes 20 seconds. 32010 REM Print size is Width = 6.4" 32011 REM ..............Height=10.0" 32012 REM Printing is done sideways 32013 REM on the paper and will 32014 REM fill a full-size page. 32015 REM This routine will print in 32016 REM three different shades for 32017 REM the three colors in GR. 7 32018 REM COLOR 0 -- blank lines 32019 REM COLOR -- checkerboard 32020 REM ......... pattern 32021 REM COLOR -- vertical lines 32022 REM COLOR -- horizontal lines 32023 REM The rotine requires 3417 32024 REM bytes f memory, including 32025 REM the Mahine Language 32026 REM stringand the two print 32027 REM string (with all the REMs 32028 REM remove). 32029 REM This rutine will work as-is 32030 REM on GEMNI 10X/15X printers. 32031 REM Other rinters may require 32032 REM change to print statements 32033 REM in lins 32120 and 32150. 32034 REM --------------------------- 32035 REM This rutine is relocatable 32036 REM and wil modify itself 32037 REM accordng to the location 32038 REM of thestrings. 32039 REM ---------------------------- 32040 REM Use "GO 32100" to access 32041 REM this rutine. 32042 REM --------------------------- 32100 DIM ML$(42),AA$(384),BB$(384):ZZ=0 32110 RESTORE 32200:FOR XX=1 TO 421:READ YY:ML$(XX)=CHR$(YY):ZZ=ZZ+YY:NEXT XX:SCREEN=PEEK(88)+256*PEEK(89) 32111 IF ZZ<>61689 THEN ? "DATA ERROR":END 32120 SCREEN=SCREEN+40*95:TRAP 32180:CLOSE #5:OPEN #5,8,0,"P:":? #5;CHR$(27);"A";CHR$(8) 32130 FOR XX=SCREEN TO SCREEN+39:AA$=CHR$(0):AA$(384)=CHR$(0):AA$(2)=AA$:BB$=AA$ 32140 YY=USR(ADR(ML$),ADR(ML$(421,421)),ADR(ML$(46,46)),XX,ADR(AA$),ADR(BB$)) 32150 ? #5;CHR$(27);"K";CHR$(128);CHR$(1);AA$:? #5;CHR$(27);"K";CHR$(128);CHR$(1);BB$ 32160 NEXT XX 32170 GOTO 32170 32180 ? "ERROR #";PEEK(195):END 32200 DATA 104,104,133,206,104,133,205,160,0,104,145,205,198,205,165,205,201,255,208,2,198,206,104,145,205 32210 DATA 104,133,204,104,133,203,104,133,206,104,133,205,104,133,208,104,133,207,162,97,202,208,1,96,177 32220 DATA 203,133,209,41,192,208,17,169,0,145,205,200,145,205,200,145,205,200,145,205,160,0,240,65,201 32230 DATA 192,208,21,169,240,145,205,200,200,145,205,169,0,136,145,205,200,200,145,205,160,0,240,40,201 32240 DATA 128,208,17,169,160,145,205,200,145,205,200,145,205,200,145,205,160,0,240,19,169,192,145,205,200 32250 DATA 200,145,205,136,169,48,145,205,200,200,145,205,160,0,165,209,41,48,240,70,201,48,208,14,177 32260 DATA 205,9,15,145,205,200,200,145,205,160,0,240,52,201,32,208,25,177,205,9,10,145,205,200,200 32270 DATA 145,205,136,177,205,9,10,145,205,200,200,145,205,160,0,240,23,177,205,9,12,145,205,200,200 32280 DATA 145,205,136,177,205,9,3,145,205,200,200,145,205,160,0,165,209,41,12,208,17,169,0,145,207 32290 DATA 200,145,207,200,145,207,200,145,207,160,0,240,65,201,12,208,21,169,240,145,207,200,200,145,207 32300 DATA 136,169,0,145,207,200,200,145,207,160,0,240,40,201,8,208,17,169,160,145,207,200,145,207,200 32310 DATA 145,207,200,145,207,160,0,240,19,169,192,145,207,200,200,145,207,136,169,48,145,207,200,200,145 32320 DATA 207,160,0,165,209,41,3,240,70,201,3,208,14,177,207,9,15,145,207,200,200,145,207,160,0 32330 DATA 240,52,201,2,208,25,177,207,9,10,145,207,200,200,145,207,136,177,207,9,10,145,207,200,200 32340 DATA 145,207,160,0,240,23,177,207,9,12,145,207,200,200,145,207,136,177,207,9,3,145,207,200,200 32350 DATA 145,207,160,0,24,165,205,105,4,133,205,165,206,105,0,133,206,24,165,207,105,4,133,207,165 32360 DATA 208,105,0,133,208,56,165,203,233,40,133,203,165,204,233,0,133,204,76,255,255