10 CK=0
20 READ A:IF A=256 THEN 40
30 CK=CK+A:GOTO 20
40 IF CK<>18681 THEN PRINT"ERROR IN DATA":END
50 OPEN 2,8,2,"0:128-64.BIN,P,W"
60 PRINT#2,CHR$(0);CHR$(128);
70 RESTORE
80 READ A:IF A=256 THEN CLOSE2:GOTO100
90 PRINT#2,CHR$(A);:GOTO80
100 PRINT"[147]":PRINT"FILES CREATED ON DISK...":END
32768 DATA 16,128,16,128,195,194,205,56
32776 DATA 48,0,0,0,0,0,162,5
32784 DATA 162,5,142,4,128,142,5,128
32792 DATA 142,6,128,142,22,208,32,163
32800 DATA 253,32,80,253,32,21,253,32
32808 DATA 91,255,88,32,83,228,32,191
32816 DATA 227,169,0,141,32,208,141,33
32824 DATA 208,169,147,32,210,255,169,11
32832 DATA 141,137,2,76,80,128,85,48
32840 DATA 62,77,48,0,48,58,42,0
32848 DATA 169,15,162,8,160,15,32,186
32856 DATA 255,160,0,185,70,128,240,7
32864 DATA 153,0,128,200,76,91,128,169
32872 DATA 5,162,0,160,128,32,189,255
32880 DATA 32,192,255,169,15,32,195,255
32888 DATA 169,2,162,8,160,1,32,186
32896 DATA 255,160,0,185,76,128,240,7
32904 DATA 153,0,128,200,76,131,128,169
32912 DATA 3,162,0,160,128,32,189,255
32920 DATA 169,0,32,213,255,169,2,32
32928 DATA 195,255,162,251,154,76,139,227,0,256