MkFont

    REM > MkFont
    :
    READln%,fn$,ld$,ex$,len$,at$:len%=EVAL("&"+len$)
    IFHIMEM-TOP-2500<len%:PRINT"Not enough memory":END
    DIMmem%len%:ptr%=mem%:REPEAT
      READ A$,B$:sum%=0:ln%=ln%+10
      REPEAT?ptr%=EVAL("&"+LEFT$(A$,2)):sum%=sum%+?ptr%
      ptr%=ptr%+1:A$=MID$(A$,3):UNTILLENA$<2
      IFsum%<>EVAL("&"+B$):PRINT"Checksum error in DATA line ";ln%:END
   UNTILptr%-mem%>=len%
   OSCLI"SAVE "+fn$+" "+STR$~mem%+" "+STR$~ptr%+" "+ex$+" "+ld$
   END
   :
   DATA 140
   DATA ThinSet,FFFFFD44,99F19AE0,380,C50E93
   DATA 0404040404000400A0A4AE04040E0400,224
   DATA 406A824424C84A0042A244C0B0A05000,62E
   DATA 244242424242240000A444EE44A40000,450
   DATA 0000000E002020400002020404084800,EA
   DATA 64ACA4A4A4A4CE0044AA2244428AE400,772
   DATA 2E6868ACE22A24004EA282C4A4A84800,6A4
   DATA 44AAAA46A2AA44000000420000024204,3F8
   DATA 00204E80402E0000048A422444800400,318
   DATA 44AAAAEAEE8A6A00C4AAA8C8A8AAC400,958
   DATA CEA8A8ACA8A8CE00E48A88C88A8A8600,940
   DATA AEA4A4E4A4A4AE00EA4A4A4C4A4A8A00,7B8
   DATA 8A8E8E8A8A8AEA00C4AAAAAAAAAAA400,8E8
   DATA C4AAAACA8E8C8600C4AAA8C4A2AAA400,94C
   DATA EA4A4A4A4A4A4400AAAAAAAAAE4E4A00,68E
   DATA AAAA4A4A44A4A400EE2828484888EE00,6B8
   DATA 0E82824242222E0040A000000000000F,2D5
   DATA 20404CE2464AE6008080C6A8A8A8C600,788
   DATA 202064AAAEA86600204046EA4A46420C,578
   DATA 8084C0A4A4A4A4000828082A2C2AAA40,5F6
   DATA 40404A4E4E4A2A000000C4AAAAAAA400,540
   DATA 0000C6AAAAC683820000A6C884828C00,6E5
   DATA 0040EA4A4A4A26000000AAAAAE4E4A00,4C8
   DATA 0000AAAA4AA6A20C0204E4284484E200,5AE
   DATA 48444402444448005FAF0F0F0F0F0F0F,30A
   DATA A40A44AAEEAAAA0054AAA8B8EAA4B408,886
   DATA 2A44EA8ACA8AE400A609ABADABA94600,7BB
   DATA 000042FF4200000040444E4444E44404,409
   DATA 4422C42A6EA86600A40A44AAEE886600,648
   DATA A40ACC2266AA66000000F65878A67408,5FA
   DATA 2A4044AAEA8A6400A804A0A4A4A46400,6CC
   DATA 44A2044A4A4A440044A240AAAAAA4600,576
   DATA 4AA00AAAAAA6620C0698669A9C629C00,694
   DATA 60906006060606060000007706060606,1FD
   DATA 000000EE06060606000000FF06060606,21D
   DATA 66666666060606066666667706060606,371
   DATA 666666EE06060606666666FF06060606,481
   DATA 000000183C66666666663C1800000000,2A6
   DATA 004400444484A44455AA00C4AAAAAA00,5F9
   DATA 66FF6666666F66006464620000000000,496
   DATA 70D0D0D6565070001A152AA54A450A05,598
   DATA C4AAAAAAAEAA6A00CEA8A8C8A8A8C800,982
   DATA 4E4848ACA8A8EE00EA2A2A4E4A8AEA00,712
   DATA 4EA4A4E4A4A44E00A4A4A4CAAAAAAA00,8C4
   DATA ACEAEAAAAAAAAA00E40A0A4A0A0AE400,762
   DATA FCAAAAACA8A8A800EE8444244484E400,87A
   DATA AEA4AEAA4E444E00AEA4444A4EA4AE00,70A
   DATA 4EAAAAAAA444A400004EE0440EE40000,63C
   DATA 6A6A6A6A6A6A6A000000A4AAAAAA4A00,5D2
   DATA 2040A0A5AA4A85000000CAAAE4A4C888,76A
   DATA 00608648AEA8460000E02C4A8A8A6A22,5C0
   DATA 000040A4E4A44400000808A4C4AAAA00,57C
   DATA 0000AAAAA6A6C2800000648AEA8A6420,6C8
   DATA 000004FAAAACA80800007EA4A4A44200,5B0
   DATA 0004AAAAA4A464000004A4AA4EA4A400,5EC
   DATA 000CA2A4EAEAA400000E50AE00FE0000,5D4
   DATA 20428E44240EE8008F4F2F4F8F0FEF0F,546

Download MkFont

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.