10 REM ********************** 20 REM Screen Dump to Printer 30 REM By John Hewes 40 REM ********************** 50 REM NC100 Version 2 : 5/95 60 REM Downloaded from Tim's NC Users' Site 70 REM http://www.ncus.org.uk 80 VDU2 90 VDU1,27,1,65,1,8 100 FORY=56 TO 0 STEP -8 110 VDU1,27,1,42,1,4,1,224,1,1 120 FORX=0 TO 479 130 F=1:B=0 140 FORI=0 TO 7 150 B=B+F*POINT(X,Y+I) 160 F=F+F 170 NEXT 180 VDU1,B 190 NEXT 200 VDU1,10 210 NEXT 220 VDU1,27,1,50 230 VDU3