Re: Problems unpacking BINSCII.EXE

[dalloff@freenet.columbus.oh.us (Dave Althoff)]

Robin Prest (rprest@cln.etc.bc.ca) wrote:

: 	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

There is a candidate for trouble!  Edit that line to read...

  5GETA$:?CHR$(4)"CREATE BINSCII,TSYS":TEXT:HOME:?I,T

I think ProDOS solves the classic DOS 3.3 bug with using a DOS command
after a GET, but if the above patch doesn't work, try this...

  5GETA$:?:?CHR$(4)"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

Good luck!

--Dave Althoff, Jr.
--
    /-\        _      _|\
   /XXX\      /X\    /X| \           XX
  /XXXXX\    /XXX\  /XXXX <##> X    XXXXX_ (hard hat area...       )
_/XXXXXXX\__/XXXXX\/XXXXXXXX=oXXX  XXXXXXX (.sig under construction)