537B ...[??? CREATEB SECT FILE FGN 6 DOC
 53M2    #MAC  CREATEB   
 53WS ...[     THIS MACRO SETS UP A GENERAL PURPOSE FILE/CREATE BLOCK
 546L          SETNCORE CREALEN,1,FILE,CREATE
 54L=    #MOD  %A
 555W    #SKI
 55KG    (   
 5656    #STR  %A,1  
 56JQ          LDX   %A 1
 574B    )   
 57J2          ADN   1  A1   
 583L          STOZ     0(1) 
 58H=          LDX   0  1
 592W          ADN   1  1
 59GG          MOVE  0  CREALEN-1
 5=26    #STR  1,%A  
 5=FQ    #SKI
 5=^B          SBN   1  A1+1 
 5?F2    #STR  1,%A  
 5?YL          LDX   1  FX1  
 5#D=    #NOR