8-Bit Software Online Conversion

BF_AMX converter - Listing

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