1: PROC test:
 2:   init:
 3:   PRINT "Hello World!"
 4:   house:
 5:   colwind:
 6: ENDP
 7: 
 8: PROC init:
 9:   PRINT "Init"
10: ENDP
11:
12: PROC house:
13:   gAT 100,60
14:   gBOX 200,80
15:   gAT 100,60
16:   gLINEBY 50,-40
17:   gLINEBY 100,0
18:   gLINEBY 50,40
19: ENDP
20:
21: PROC colwind:
22:   GLOBAL cw%
23:   cw% = gCREATE( 0, 0, 82, 24, 1, 1 )
24:   REM gBORDER 2
25:   gAT 4,4
26:   gBOX 25,15
27:   gGREY 1
28:   gAT 29,5
29:   gFILL 23,13,0
30:   gGREY 0
31:   gAT 52,4
32:   gFILL 25,15,0
33:   gTMODE 2
34:   gAT 25*2+11,17
35:   gPRINT "2"
36:   PRINT "Window 2"
37:   gTMODE 0
38: ENDP