analog/utilities/prodos/iiplus.bas

7 lines
169 B
QBasic

10 HOME
20 POKE - 16206,0
30 POKE - 16207,0
40 PRINT CHR$ (4);"BLOAD IIPLUS.FONT"
50 PRINT CHR$ (4);"BRUN UPLOADFONT"
60 PRINT CHR$ (4);"-QUIT.SYSTEM"