10 REM **********************
   20 REM Screen Dump to Printer
   30 REM     By John Hewes
   40 REM **********************
   50 REM NC200 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=120 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