5 ONERROR IF ERR=254 GOTO20 ELSE:REPORT:PRINTERL:END 10 *RAMOFF 20 REM 3Dprint by L Knight May 1994 30 MODE7 40 PRINTTAB(14)CHR$141;"MODE4PR" 50 PRINTTAB(14)CHR$141;"MODE4PR" 60 PRINT''"‚Prints out a MODE-4 screen dump on an"'"‚Epson 9-wire dot matrix printer"'"‚or equivalent." 70 PRINT''" Make sure printer is switched on" 80 PRINT''"‚File to be printed:"' 90 PRINTTAB(18)"‚Drive (0-3)?";:INPUT"‡"D%:REM REM THIS LINE OUT FOR ADFS (CJR) 100 PRINTTAB(18)"‚File name?";:INPUT"‡"file$ 110 F$=":"+STR$(D%)+"."+file$:REM REM THIS LINE OUT FOR ADFS (CJR) 120 MODE4 130 OSCLI"LOAD"+F$ 140 VDU2,1,27,1,65,1,8 150 FORY%=252TO0 STEP-4 160 VDU1,27,1,76,1,192,1,3 170 FORX%=0TO319 180 P%=POINT(4*X%,4*Y%+12):Q%=POINT(4*X%,4*Y%+8) 190 R%=POINT(4*X%,4*Y%+4):S%=POINT(4*X%,4*Y%) 200 A%=P%*192+Q%*48+R%*12+S%*3 210 VDU1,A%,1,A%,1,A% 220 NEXT:NEXT 230 VDU1,27,1,69:PRINT''file$:VDU3 240 MODE7:PRINTTAB(4,10)"‚Another printout (Y/N)?";:INPUT"‡"A$ 250 IFA$="Y"ORA$="y" GOTO80 260 END