Windowing Routines#

General Information

Author: Carsten Strotmann
Language: ACTION!
Compiler/Interpreter: ACTION!

;******************************
;**								  **
;** PHOENIX SOFTCREW			**
;** STANDARTROUTINEN			**
;** WINDOWS "WINDOW.INC"	  **
;******************************


PROC W_Init=$9800()

;-------------------------------------

PROC W_Load ()

Close (6)
Open (6,"D:WINDOW.OBJ",4,0)

Bget (6,$9800,$3F9)

Close (6)

W_Init ()

Open (6,"W:",12,0)

RETURN

;------------------------------------

PROC W_Open (BYTE xp,yp,xl,yl)


XIO (6,0,52,xp,yp,"W:")

XIO (6,0,50,xl,yl,"W:")

RETURN

;------------------------------------

PROC W_Close ()

XIO (6,0,51,0,0,"W:")

RETURN

;-----------------------------------
PROC W_Pos (BYTE x,y)

XIO (6,0,53,x,y,"W:")

RETURN

;-----------------------------------
PROC WMem (BYTE posh,posl,lenh,lenl)

XIO (6,0,54,posh,posh,"W:")

XIO (6,0,55,lenh,lenl,"W:")

RETURN
;-----------------------------------

PROC W_Print (BYTE x,y,BYTE ARRAY text)

 W_Pos (x,y)
 PrintD (6,text)

RETURN

;-----------------------------------

PROC W_InputS (BYTE x,y,BYTE ARRAY out,text)

 W_Print (x,y,out)
 InputSD (6,text)

RETURN
;-----------------------------------

PROC W_Cls ()

 PutD (6,$7D)

RETURN
;-----------------------------------
PROC W_PrintB (BYTE x,y,val)

 W_Pos (x,y)
 PrintBD (6,val)

RETURN
;-----------------------------------
PROC W_PrintC (BYTE x,y,CARD val)

 W_Pos (x,y)
 PrintCD (6,val)

RETURN
;-----------------------------------