Compute! Gazette 1994 March/1994-03b.d64/bufbat.maker

Commodore BASIC | 2022-09-20 | 1KB | 35 lines

10 rem bufbat.maker
20 data 076,112,003,162,000,160,000,032
21 data 073,003,032,073,003,189,094,003
22 data 153,191,192,189,097,003,153,194
23 data 192,189,100,003,153,155,197,232
24 data 200,096,108,002,003,162,012,032
25 data 169,012,032,076,175,003,076,225
26 data 003,076,250,003,032,253,174,032
27 data 158,173,032,155,188,165,101,133
28 data 167,165,100,133,168,162,009,208
29 data 188,166,001,134,171,162,048,120
30 data 134,001,096,166,171,134,001,088
31 data 096,169,000,141,053,199,141,054
32 data 199,133,144,165,167,133,169,165
33 data 168,133,170,096,230,169,208,002
34 data 230,170,096,032,149,003,162,012
35 data 032,198,255,160,000,032,207,255
36 data 032,133,003,145,169,032,143,003
37 data 032,168,003,032,183,255,240,237
38 data 201,064,240,003,076,215,192,032
39 data 204,255,169,012,032,195,255,032
40 data 149,003,108,002,003,032,133,003
41 data 162,000,142,057,199,161,169,032
42 data 143,003,032,168,003,238,053,199
43 data 208,003,238,054,199,096,032,149
44 data 003,076,190,197
100 open15,8,15,"i0":open2,8,2,"0:bufbat.828,p,w":c=0
110 get#15,i$:ifi$<>"0"then200
120 print#2,chr$(60);chr$(3);
130 fori=828to1023:readj:c=c+j:print#2,chr$(j);:next
140 ifc<>22535thenprint"data error"
150 close2:close15:end
200 printi$;:get#15,i$:ifi$<>chr$(13)then200
210 close2:close15:end