Code: Select all
Structure xx
a.i
b.i
EndStructure
;
Procedure.xx pfew()
Protected q.xx
q\a = 1
q\b = 2
ProcedureReturn q
EndProcedure
Global z.xx
z = pfew()
Debug z\a
Debug z\b
Code: Select all
Structure xx
a.i
b.i
EndStructure
;
Procedure.xx pfew()
Protected q.xx
q\a = 1
q\b = 2
ProcedureReturn q
EndProcedure
Global z.xx
z = pfew()
Debug z\a
Debug z\b
Basic in the 70's doesn't support pointers. Pointer comes later in modern Basic'sblueznl wrote:Using pointers is soooooo 1970's...