[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.