10	DIM M%(30)
20	R$="S1401" : N$="[0,1]S1401.FRC" : L%=32%
21!NOTES:
	R$	THIS IS YOUR RUN-TIME SYSTEM'S NAME
	N$	THIS IS THE NAME AND ACCOUNT OF A DUMMY (0 LENGTH)
		FILE SO YOUR RUN-TIME SYSTEM IS ENTERED AT "P.RUN"
	L%	THIS IS WHERE TO LOAD YOUR RUN-TIME SYSTEM
30	CHANGE SYS(CHR$(6%)+CHR$(-10%)+R$) TO M%
40	M%(0%)=30% : M%(1%)=6% : M%(2%)=-18% : M%(3%)=2%
50	M%(14%)=0% : M%(13%)=0% : M%(11%)=L% : M%(12%)=0%
55!	M%(14%)=128%
!	ADDING THIS LINE MAKES YOUR RUN-TIME SYSTEM READ/WRITE
60	CHANGE M% TO S$ : S$=SYS(S$)
70	CHAIN N$
80	STOP
30000	GOTO 10
			!CCL ENTRANCE IS LIKE ANY OTHER
32767	END