[Coco] Trouble with check

[Michael C. Robinson]

On Sun, 2008-10-05 at 23:35 -0400, Robert Gault wrote:

> Michael C. Robinson wrote:

> > On Wed, 2008-10-01 at 13:14 -0400, Robert Gault wrote:

> >> Michael C. Robinson wrote:

> >> FC error in line100

> >>> December 1989 page 47.  The program quits on line 100.  It could be a

> >>> typo, but check doesn't work with drivewire.  It did work with my disk

> >>> system way back.

> >>>

> > When I change line 100 to be 1 to 12 instead of 0 to 12, the program

> > works.  Check works from tape just fine, but it doesn't work from

> > drivewire.  It is a royal pain to transfer everything onto tape, surely

> > there is a better solution.

> > 

> 

> I think I may have a version which will work with drivewire. I can't 

> test it not having the software, but it does now work with RGBDOS.

> 

> Mike, would you test it and let the list know the results?

> 

> 10 REM CHECKPLUS

> 20 LI=80

> 30 FOR M=&H7FB2 TO &H7FF9 STEP10:SUM=0

> 40 FOR I=0TO9:READA$:VA=VAL("&H"+A$):SUM=SUM+VA:POKE M+I,VA:NEXT:READ 

> CHK:IFSUM<>CHK THEN PRINT"ERROR IN LINE"LI:END

> 50 LI=LI+10:NEXT

> 52 EXEC&H7FB2:END:' ALTERNATIVE FOR LINE60

> 60 'SAVEM "CHKPLUS",&H7FB2,&H7FF9,&H7FB2:' ALTERNATIVE FOR LINE52

> 70 END

> 80 DATA B6, 1 , 6A, 86, 7E, B7, 1 , 6A, BE, 1 , 1030

> 90 DATA 6B, 30, 8C, 4 , BF, 1 , 6B, 39, 81, A , 794

> 100 DATA 26, 26, 34, 16, 4F, 9E, 19, E6, 81, 27, 810

> 110 DATA C , AB, 80, AB, 80, E6, 84, 26, FA, 30, 1308

> 120 DATA 1 , 20, F0, B7, 2 , DE, 30, 8C, E , 9F, 1041

> 130 DATA A6, A6, 84, 1C, FE, BD, AD, C6, 35, 16, 1381

> 140 DATA 7E, C5, BC, 87, FF, 86, 28, 37, 33, 34, 1233

> 150 DATA 29, 0 , 00, 00, 00, 00, 00, 00, 00, 00, 41


Definitely need to use line 60 instead of 52.  Everytime
I load or save via drivewire, the program gets wiped out
or messed up somehow.  I can load the assembly language
file and exec it no problem.  Thank you for posting this.