10
20 :
30 PROCdump(32)
40 END
50 :
60 DEFPROCdump(Lines%):num%=640:VDU2
70 VDU1,27,1,65,1,8
80 FOR y%=1023 TO 1024-32*Lines% STEP -32
90 VDU 1,27,1,76,1,num%,1,num%DIV256
100 FOR x%=0 TO 1279 STEP 2:byte%=0
110 FOR pixel%=0 TO 7
120 byte%=byte%*2+POINT(x%,y%-pixel%*4)
130 NEXT:VDU 1,byte%:NEXT
140 VDU 1,10,1,13:NEXT:VDU3
150 ENDPROC