BCX Console Demonstration Program s80.bas

 GLOBAL h AS QWERTY
 
 h.a = 3
 
 PRINT h.a
 
 TestSub()
 
 SUB TestSub()
 
   TYPE Zzz
     DIM x
     DIM y
     DIM z
     DIM p AS RECT
   END TYPE
 
   LOCAL cb AS Zzz
 
   ? "----"
   cb.x = 1 : ? cb.x
   cb.y = 2 : ? cb.y
   cb.z = 3 : ? cb.z
   ? "----"
 
 END SUB
 
 TYPE QWERTY
   DIM a
   DIM b
   DIM c$
   DIM q AS RECT
 END TYPE