TOP
BYTE A1
BYTE B2
BYTE C3
BYTE D4
BYTE E5
INT IAX
INT IAY
INT IAZ
BEGINMAIN(AC,IAV)
	MS 'BEGIN T06'
A1='0'
A1++
A1++
A1++
B2='3'
C3=A1!=B2
IF C3
	MS 'CHARCONS.'
ENDIF
MS '111111111'
D4=+001
GOSUB 01
MS '222222222'
IF D4
	MS 'GLOBALVAR'
ENDIF
MS '333333333'
GOSUB 02
MS '444444444'
A1=+001
B2=+002
C3=+003
D4=+001
CHOOSE ON D4
CASE A1
CASE B2
	MS '1!=2.....'
CASE C3
	MS '1!=3.....'
DEFAULT
	MS 'DEFAULT..'
ENDCHOOSE
MS '555555555'
D4=+004
CHOOSE ON D4
CASE A1
	MS '4!=1.....'
CASE B2
	MS '4!=2.....'
CASE C3
	MS '4!=3.....'
DEFAULT
ENDCHOOSE
MS '666666666'
D4=+003
CHOOSE ON D4
CASE A1
	MS '3!=1.....'
CASE B2
	MS '3!=2.....'
CASE C3
DEFAULT
	MS 'DEFAULT..'
ENDCHOOSE
MS '777777777'
GOTO 01
LOC 01
GOTO 02
LOC 02
MS '888888888'
A1=+000
B2=+005
PACK(IAX,A1,B2)
IAZ=+00005
C3=IAX!=IAZ
IF C3
	MS 'PACKFAILS'
ENDIF
MS '999999999'
A1=+100
PACK(IAX,A1,B2)
UNPACK(IAX,C3,D4)
E5=A1!=C3
C3=B2!=D4
E5=E5?C3
IF E5
	MS 'UNPACK...'
ENDIF
	MS 'ENDOF T06'
STOP 1
ENDMAIN
SUB 02
MS 'S2S2S2S2S'
A1=+001
IF A1
	RETURN
ENDIF
MS 'RETURN...'
ENDSUB
SUB 01
MS 'S1S1S1S1S'
D4=+000
ENDSUB
BOTTOM