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‚Filename :"'"‡"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%,object%) 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