Load Font Files in ACTION!#

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)