10 REM Convert BeebFont to AMX ART
20 REM Icon File.
30 REM By: Gary Davies
40 REM On: 25/08/91
50
60 DIM store% 31
70
80 INPUT'" Enter BeebFont Filename :
"source$
90 source%=OPENIN(source$)
100 IF source%=0 PRINT'" Source file n
ot found!...":END
110 INPUT'" Enter AMX Art Filename :
"object$
120 FOR file%=1 TO 3
130 object%=OPENOUT(object$+STR$(fil
e%))
140 FOR loop%=1 TO 32
150 PROCload`char(source%)
160 PROCsave`char(object%)
170 NEXT
180 CLOSE#object%
190 NEXT
200 CLOSE#source%
210 PRINT'" Done!"'
220 END
230
240 DEF PROCload`char(file%)
250 LOCAL loop%
260 FOR loop%=0 TO 31
270 store%?loop%=BGET#file%
280 NEXT
290 ENDPROC
300
310 DEF PROCsave`char(file%)
320 LOCAL loop%
330 FOR loop%=0 TO 31
340 BPUT#file%,store%?loop%
350 NEXT
360 ENDPROC