10	 ! INTERNAL.BAS
	 ! TO GIVE BACK VALUES OF INTERNAL BASIC INTERPRETER VALUES
100 DIM L$[20]V
120 INPUT LINE "OCTAL ADDRESS OF PARLST IN IMPUR",L$
130 GOSUB 1000
140 B=L+1
200 INPUT LINE "OCTAL ADDRESS OF PARAM IN IMPUR",L$
210 GOSUB 1000
220 A=L
230 PRINT OCT$(ERR(A-B))
240 GOTO 200
1000 L=OCT(L$)/2
1010 RETURN