MACRO ZOUT2
ZOUT;2
ENDM

MACRO ZIN2
ZIN;2
ENDM

MACRO SF9
IFDEF vernumbj repeated
GN vernumbj 0
GN vernumbj ^DEnter Version Number: (0)
GL filenamej sas
GL filenamej ^DEnter Filename: (sas)
:repeated
GL filename $
APND filename filenamej
IFP vernumbj-10000 saving
IFP vernumbj-1000 four
IFP vernumbj-100 three
IFP vernumbj-10 two
APND filename 0000
GO saving
:two
APND filename 000
GO saving
:three
APND filename 00
GO saving
:four
APND filename 0
:saving
APND filename vernumbj
APND filename .fcw
saveasm filename
GN vernumbj vernumbj+1
ENDM



MACRO SF8
GN vernumbj 0
GN vernumbj ^DEnter Version Number: (0)
GL filenamej sas
GL filenamej ^DEnter Filename: (sas)
SF9
ENDM