PROC test:
  init:
  PRINT "Hello World!"
  house:
  colwind:
ENDP

PROC init:
  PRINT "Init"
ENDP

PROC house:
  gAT 100,60
  gBOX 200,80
  gAT 100,60
  gLINEBY 50,-40
  gLINEBY 100,0
  gLINEBY 50,40
ENDP

PROC colwind:
  GLOBAL cw%
  cw% = gCREATE( 0, 0, 82, 24, 1, 1 )
  REM gBORDER 2
  gAT 4,4
  gBOX 25,15
  gGREY 1
  gAT 29,5
  gFILL 23,13,0
  gGREY 0
  gAT 52,4
  gFILL 25,15,0
  gTMODE 2
  gAT 25*2+11,17
  gPRINT "2"
  PRINT "Window 2"
  gTMODE 0
ENDP