DIM screeninit~(PROC)[0]
DIM bname~(FUNC$ %)[0]
PROC drawscreen
IF INT(screeninit)<>0 THEN
CALL screeninit
ENDIF
TEXTBOX CALL$(bname RND(2)),10,30,149,40,0
ENDP
FUNC name$ n
RETURN "Nr. "+STRING(n)
PROC init
CLS 2
BOX 0,0,159,159
ENDP
screeninit=PROC(init)
bname=FUNC(name$)
drawscreen |