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