1	!	ADD & REMOVE RUN-TIME SYSTEM(S)
100	DIM M%(30) : DIM #1,V%(255)
110	INPUT "NAME OF RUN-TIME SYSTEM";N$ :
	C%=INSTR(1%,N$,"/REMOVE") : IF C% THEN
	N$=LEFT(N$,C%-1%) : C%=4%
120	CHANGE SYS(CHR$(6%)+CHR$(-10%)+N$) TO M% :
	M%(0%)=30% : M%(1%)=6% : M%(2%)=-18% : M%(3%)=C%
130	IF C%=0% THEN OPEN "[0,1]"+N$+".RTS" FOR INPUT AS FILE 1% :
	U%=V%(0%) : M%=V%(1%) : I%=V%(2%) : CLOSE 1%
140	M%(13%)=U% : M%(15%)=M% : M%(17%)=I% :
	M%(T%)=0% FOR T%=14% TO 18% STEP 2%
150	CHANGE M% TO M$ : M$=SYS(M$)
999	END