10 REM ************************* 20 REM NC Screen Capture utility 30 REM ************************* 40 REM NC200 Version 1 : 4/98 50 REM Downloaded from Tim's NC Users' Site 60 REM http://www.ncus.org.uk 70 ONERRORCLOSE#0:END 80 K=OPENOUT("NCSCREEN") 90 FOR Y=127 TO 0 STEP -1 100 X=0 110 FOR B=0 TO 59 120 BYTE=0 130 FOR M=7 TO 0 STEP -1 140 BYTE=BYTE+POINT(X,Y)*(2^M) 150 X=X+1 160 NEXT 170 BPUT#K,BYTE 180 NEXT 190 FORI=1 TO4:BPUT#K,0:NEXT 200 NEXT 210 CLOSE#0