perm filename AID.ALP[AID,HE] blob sn#381304 filedate 1978-09-14 generic text, type T, neo UTF8
		;Start of program
	XPROG
	7
		;BLOCK
	XMVAR
		;Scalars
	1
	1
		;Vectors
	2
	1
		;Transes
	3
	1
		;Arrays
		;$B1.T
	1003
	1
	100100
	100001
		;$B1.V
	1002
	1
	100100
	100001
		;$B1.S
	1001
	1
	100100
	100001
		;Events
	4
	1
	0
		;Assignment
	XPUSH
	L1
		;Array reference
	XPUSH
	L2
	XCHNGE
		;$B1.S
	405
		;Print
		;Array reference
	XPUSH
	L2
	XGTVAL
		;$B1.S
	405
	XVALPRN
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L4:	XCOPY
	2
	XCHNGE
		;$B1.I
	400
	XFORCHK
	L5
		;Assignment
	XPUSH
	L6
		;Array reference
	XGTVAL
		;$B1.I
	400
	XCHNGE
		;$B1.S
	405
	XCOPY
	0
	XCOPY
	3
	XSADD
	XREPLACE
	3
	XJUMP
	L4
L5:	XPOP
	XPOP
	XPOP
		;END FOR
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L7:	XCOPY
	2
	XCHNGE
		;$B1.I
	400
	XFORCHK
	L10
		;Assignment
	XPUSH
	L11
		;Array reference
	XGTVAL
		;$B1.I
	400
	XCHNGE
		;$B1.V
	404
	XCOPY
	0
	XCOPY
	3
	XSADD
	XREPLACE
	3
	XJUMP
	L7
L10:	XPOP
	XPOP
	XPOP
		;END FOR
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L12:	XCOPY
	2
	XCHNGE
		;$B1.I
	400
	XFORCHK
	L13
		;Assignment
	XPUSH
	L14
		;Array reference
	XGTVAL
		;$B1.I
	400
	XCHNGE
		;$B1.T
	403
	XCOPY
	0
	XCOPY
	3
	XSADD
	XREPLACE
	3
	XJUMP
	L12
L13:	XPOP
	XPOP
	XPOP
		;END FOR
		;Assignment
	XPUSH
	L6
	XCHNGE
		;$B1.I
	400
		;Assignment
	XPUSH
	L11
	XCHNGE
		;$B1.J
	401
		;Assignment
	XPUSH
	L14
	XCHNGE
		;$B1.K
	402
		;Event operation
	XWAITE
		;$B1.E
	406
		;Block end cleanup
	XKVAR
	7
		;End of BLOCK
	XENDP
		;End of program