> -----Original Message-----
> There's also an error in the initialization
> which may be specific to M100 BASIC - if you die and answer AYE to play
> again, you get a DD error in line 330 - I guess other versions of BASIC
> [...]
> Another thing I noticed but didn't change yet was that you noted one
> should CLEAR 1000 before running this - line 260 says REM CLEAR 600
Okay, so DUH on me for not trying this, but it only struck me just now that
this was the obvious solution - removing the REM from line 260 not only
eliminates the need to clear variable space before running, it also resolves
the double DIM error on replay. (Still not sure if 600 bytes is enough space
or if it really needs 1000, I haven't thoroughly play-tested it yet. Although
I suppose I could enumerate all the variables in use and add them up...)
New diff:
$ diff TREK.DO TREK\ -\ fixed.DO
31c31
< 260 REM CLEAR 600
---
> 260 CLEAR 600
126c126
< 2590 FOR I=1 T OK3:IFK(I,3)=0THEN2700
---
> 2590 FOR I=1 TO K3:IFK(I,3)=0THEN2700
270c270
< 6060 GOSUB1000:H=INT((K(I,3)/QQ)*(2+RND(1))):S=S-H:K(I,3)=K(I,3)/(3+RND(0))
---
> 6060 GOSUB10000:H=INT((K(I,3)/QQ)*(2+RND(1))):S=S-H:K(I,3)=K(I,3)/(3+RND(0))
jim
