31000 REM EPSON MX-80 GR.8 SCREEN DUMP›31001 REM BY William Frank›31002 REM 5310 JACKWOOD   HOUSTON, TX  77096›31003 REM Houston Atari Computer Enthusiasts›31004 REM COMPLETE DUMP TAKES ABOUT 18 MINUTES›31010 LPRINT CHR$(7):PRINT CHR$(253):REM BELL AND BUZZ WARNING TO SCREEN DUMP›31015 POKE 53279,0›31020 FOR I=1 TO 500›31030 IF PEEK(53279)=6 THEN 31060:REM Push Start Button for DUMP›31040 NEXT I›31050 RETURN ›31060 REM SCREEN DUMP ROUTINE STARTS HERE›31065 DIM DP$(1)›31070 XSTART=0:XEND=319:YSTART=0:YEND=159:REM GR.8›31075 OPEN #1,8,0,"P:"›31090 PRINT #1;CHR$(27);"A";CHR$(8)›31095 REM SET LINE SPACING TO 8 DOTS›31110 FOR Y=YSTART TO YEND STEP 8›31115 PRINT #1;CHR$(27);"K";CHR$(144);CHR$(1);›31116 REM TURN ON BIT GRAPHICS›31120 DP$=CHR$(0)›31125 FOR JJ=1 TO 80:PRINT #1;DP$;:NEXT JJ:REM CENTERS PICTURE›31150 FOR X=XSTART TO XEND STEP 1›31230 LOCATE X,Y,PIX1›31240 LOCATE X,Y+1,PIX2›31250 LOCATE X,Y+2,PIX3›31260 LOCATE X,Y+3,PIX4›31270 LOCATE X,Y+4,PIX5›31275 LOCATE X,Y+5,PIX6›31280 LOCATE X,Y+6,PIX7›31285 LOCATE X,Y+7,PIX8›31290 IF PIX1<>0 THEN PIX1=128›31300 IF PIX2<>0 THEN PIX2=64›31310 IF PIX3<>0 THEN PIX3=32›31320 IF PIX4<>0 THEN PIX4=16›31330 IF PIX5<>0 THEN PIX5=8›31335 IF PIX6<>0 THEN PIX6=4›31340 IF PIX7<>0 THEN PIX7=2›31345 IF PIX8<>0 THEN PIX8=1›31350 PIXEL=PIX1+PIX2+PIX3+PIX4+PIX5+PIX6+PIX7+PIX8›31360 DP$=CHR$(PIXEL)›31400 PRINT #1;DP$;›31410 NEXT X›31450 PRINT #1;CHR$(0):REM LINE FEED›31500 POKE 77,0›31600 NEXT Y›31650 PRINT #1;CHR$(27);"A";CHR$(12)›31675 REM RESTORE LINE SPACING›31700 CLOSE #1›31775 LPRINT CHR$(7):PRINT CHR$(253):REM BELL AND BUZZ WARNING -- SCREEN DUMP IS OVER›31800 RETURN ›