General Information
Author: Carsten Strotmann
Language: ACTION!
Compiler/Interpreter: ACTION!
Published: 28.03.90
;******************************** ;** ** ;** Phoenix SoftCrew ACTION! ** ;** Programme und Tips f. 8Bit ** ;** ** ;** Carsten Strotmann ** ;** ** ;******************************** ; Programname:Font Lader ; done by:Carsten Strotmann ; Filename:FONT.ACT ; first Version:28.03.90 ; last chnage:28.03.90 ; Font Handling ; needs IO.ACT ; PROC Font_Load (BYTE ARRAY file,BYTE page) Close (1) Open (1,file,4) Bget (1,page*$100,$400) Close (1) RETURN PROC Font (BYTE page) BYTE chbas=$2F4 chbas=page RETURN PROC Old_Font () Font ($E0) RETURN BYTE FUNC Set_Ramtop (BYTE page) BYTE ramtop=$6A,crmode=$57 ramtop==-page Graphics (crmode) RETURN (ramtop)