10 REM Convert Font File From AMX 20 REM ART/BeebFont to AMX PageMaker 30 REM By: Gary Davies 40 REM On: 24/08/91 50 60 DIM store% 31 70 80 INPUT'" Enter AMX ART/BeebFont Fil ename :"'" "source$ 90 INPUT'" Enter PageMaker Filename : "'" "object$ 100 source%=OPENIN(source$) 110 IF source%=0 PRINT'" BeebFont/Art file not found!"':END 120 object%=OPENOUT(object$) 130 PROCtransfer`font(source%,object%) 140 CLOSE#object% 150 CLOSE#source% 160 PRINT'" Done!"' 170 END 180 190 DEF PROCtransfer`font(source%,obje ct%) 200 LOCAL char% 210 PROCwrite`header(object%) 220 PTR#source%=32 230 FOR char%=33 TO 123 240 PROCload`font(source%) 250 PROCsave`font(object%) 260 NEXT 270 ENDPROC 280 290 DEF PROCwrite`header(file%) 300 LOCAL loop%,byte% 310 RESTORE 360 320 FOR loop%=0 TO &25 330 READ byte% 340 BPUT#file%,byte% 350 NEXT 360 DATA &46,&4F,&4E,&54,&10,&20,&20,& 20,&20,&20,&20,&20,&20,&20,&20,&20,&20,& 20,&20,&20,&20,&10,&20,&20,&20,&20,&20,& 20,&20,&20,&20,&20,&20,&20,&20,&20,&20,& 20 370 ENDPROC 380 390 DEF PROCload`font(file%) 400 LOCAL loop% 410 FOR loop%=0 TO 31 420 store%?loop%=BGET#file% 430 NEXT 440 ENDPROC 450 460 DEF PROCsave`font(file%) 470 LOCAL loop% 480 FOR loop%=0 TO 7 490 BPUT#file%,store%?loop% 500 BPUT#file%,?(store%+16+loop%) 510 NEXT 520 FOR loop%=0 TO 7 530 BPUT#file%,?(store%+8+loop%) 540 BPUT#file%,?(store%+24+loop%) 550 NEXT 560 ENDPROC