[Coco] Trouble with check

[Robert Gault]

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