Problems unpacking BINSCII.EXE

[rprest@cln.etc.bc.ca (Robin Prest)]

	I'm having problems with Binscii.exe.  I edited out all of the 
extra text and replaced the highlighted J's with returns, but when I ran 
the EXEC command in basic, it didn't work the way it's supposed to.  The 
thermometer ran okay, but the screen never switched to text mode and gave 
me two identical numbers, nor did it save a new file named Binscii.
	I think it skipped out the instruction lines 5 and 6, because it 
gave me two Syntax Error messages and didn't follow those instructions.
	I included the Basic program in the file to make sure its not the 
problem.  Thanks.
REM DELETE EVERYTHING ABOVE THIS LINE AND EXEC FROM 
BASIC.SYSTEM
NEW
0GR:COLOR=10:HLIN0,39AT9:HLIN0,39AT21:VLIN10,20AT39:LOMEM:11834
1DIMC%(79):HOME:?"CREATING BINSCII,TSYS,A8192,L3633":FORI=1TO64
2GOSUB9:C%(C)=I:NEXT:T=0:P=256:L=P*P*P:FORX=8192TO11825STEP3
3GOSUB7:T=T+I:T=T-L*(T>=L):A=INT(I/P/P):POKEX,A:I=I-A*P*P:A=INT(I/P)
4POKEX+1,A:I=I-A*P:POKEX+2,I:VLIN10,20AT39*(X-8192)/3633:NEXT:GOSUB7
5GETA$:?CHR$()"CREATE BINSCII,TSYS":TEXT:HOME:?I,T
6?CHR$(4)"BSAVEBINSCII,TSYS,A8192,L3633":END
7I=0:FORJ=1TO4:GOSUB8:I=I*64+C%(C)-1:NEXT:RETURN
8GOSUB9:ONC%(C)<1GOTO8:RETURN
9GETA$:C=ASC(A$)-48:ONC<0GOTO9:RETURN
RUN