00 rem a gwbasic program wil not run in qbasic (bload & varptr) 01 
01 rem reads the font file of fischer plotter (bload)
02 rem and saves it to a data text file
03 rem Luberth Dijkman 
04 rem
05 DIM Z%(255,9)
10 BLOAD "ibmchar.chr",VARPTR(Z%(0,0))
20 OPEN "fontdata.txt" FOR OUTPUT AS #1
30 FOR I = 0 TO 254
40    PRINT#1, "DATA";
50	FOR J = 0 TO 9
60		PRINT#1, Z%(I,J);
70              IF J < 9 THEN PRINT#1,",";
80      NEXT J :PRINT#1," "
90 NEXT I  : CLOSE