1 FOR Z = 0 TO 7: J = 2^Z: GOSUB 15: NEXT
2 DATA 19,20,21,39,40,41,79,80,81,240,250,254,255
3 FOR Z = 1 TO 13: READ J: GOSUB 15: NEXT
4 END
15 FILENAME$ = "filew"+HEX$(J)
20 OPEN "O",#1,FILENAME$
25 WIDTH #1, J
30 FOR I = 1 TO 255:PRINT #1,I;:NEXT
40 FOR I = 1 TO 255:PRINT #1,STRING$(I,"0");:NEXT
50 CLOSE #1
60 RETURN

