
To the Editor of TrsLink #31

   In TrsLink #26 MCTRUG sent an arc file containing GRAFDISK/DCT.  This file will not work using LSDOS 6.3.1.  SYSTEM command in Sys8 now loads higher in memory and is written over by GRAFDISK.  This program will load GRAFDISK/DCT at X'3000' and prevent it from clobbering Sys8.  If you have GRAFDISK/DCT or ever get it, please run this program.  Its will abort without doing anything unless it is needed.  The new GRAFDISK/DCT will work with both 6.3.0 and 6.3.1.  These mini docs are within the program.

*=*
10 REM GDMOVE/BAS - L. E. Evans - MCTRUG
20 CLS:PRINT"In TrsLink #26 MCTRUG had an arc file containing GRAFDISK/DCT.":PRINT"This file will not work using LSDos 6.3.1.":PRINT"SYSTEM command in Sys8 now loads higher in memory & is written over by GRAFDISK."
30 PRINT"GDMOVE will relocate GRAFDISK to load at X'3000' and not trash Sys8.":PRINT"If you have GRAFDISK/DCT or ever get it, please run this program.":PRINT"Its will abort without doing anything unless it is needed."
40 PRINT"The new GRAFDISK/DCT will work with both 6.3.0 and 6.3.1.":PRINT:PRINT"Just in case I'm wrong, make a backup before using.":PRINT:PRINT"Put GRAFDISK/DCT on line and press <ENTER>. ";
50 A$=INKEY$:IF A$=""THEN 50
60 PRINT:PRINT:PRINT"Working ....... *";CHR$(24);:DEFINT A-Z:DIM A(156),B(156),C(156):FOR I=1 TO 156:READ A(I),B(I),C(I):NEXT:OPEN"R",1,"GRAFDISK/DCT",1:FIELD 1,1 AS A$:FOR I=1 TO 156:GET 1,A(I):A=ASC(A$)
70 IF A<>B(I)THEN PRINT:PRINT"Mismatch found at byte"A(I)"aborting.":CLOSE:F=1:END
80 IF F=1 THEN NEW
90 NEXT:FOR I=1 TO 156:GET 1,A(I):LSET A$=CHR$(C(I)):PUT 1,A(I):NEXT:CLOSE
100 CLS:PRINT"All done":PRINT:PRINT"The 6.3.0 patch to change Memdisk to Grfdisk in the Device table was":PRINT:PRINT"PATCH SYS6/SYS.LSIDOS:2 (D21,28=47 72 66:F21,28=4D 65 6D)"
110 PRINT:PRINT"For 6.3.1. use":PRINT:PRINT"PATCH SYS6/SYS.SYSTEM6:2 (D22,E4=47 72 66:F22,E4=4D 65 6D)":PRINT:PRINT:END
120 DATA 12,44,48,25,44,48,28,44,48,31,48,52,34,46,50,42,45,49,63,44,48,83,44,48,89,44,48,92,44,48,96,44,48,100,44,48,111,44,48,125,44,48,133,44,48,156,52,56,162,46,50,166,44,48,172,49,53,178,44,48,183,49,53,202,49,53,205,54,58,211,44,48
130 DATA 218,49,53,221,44,48,226,49,53,241,49,53,252,47,51,259,44,48,262,55,59,272,45,49,276,49,53,279,55,59,297,46,50,304,45,49,313,45,49,342,45,49,344,45,49,346,45,49,348,46,50,350,46,50,352,46,50,354,46,50,356,46,50,358,46,50,360,46,50
140 DATA 376,49,53,452,45,49,456,45,49,487,46,50,532,46,50,552,46,50,559,46,50,567,46,50,576,46,50,586,46,50,592,46,50,638,46,50,654,50,54,662,46,50,666,52,56,674,45,49,679,45,49,683,46,50,693,45,49,704,49,53,707,46,50,718,45,49,723,45,49
150 DATA 726,49,53,739,52,56,748,49,53,757,44,48,763,50,54,770,49,53,773,48,52,776,47,51,779,47,51,782,47,51,785,47,51,788,44,48,792,47,51,799,51,55,807,53,57,818,47,51,831,47,51,835,47,51,844,47,51,848,53,57,880,50,54,894,53,57,921,53,57
160 DATA 924,47,51,932,49,53,951,53,57,960,53,57,963,47,51,984,47,51,996,47,51,1003,47,51,1052,48,52,1081,49,53,1094,49,53,1097,49,53,1105,44,48,1122,48,52,1131,49,53,1141,47,51,1147,44,48,1151,44,48,1154,44,48,1158,50,54,1170,49,53,1173
170 DATA 49,53,1188,48,52,1198,50,54,1205,49,53,1219,44,48,1223,44,48,1227,52,56,1230,45,49,1284,44,48,1287,52,56,1296,44,48,1301,49,53,1306,49,53,1312,49,53,1320,52,56,1327,53,57,1337,47,51,1340,47,51,1345,44,48,1363,47,51,1368,50,54,1381
180 DATA 50,54,1386,46,50,1391,50,54,1400,44,48,1426,50,54,1430,50,54,1434,52,56,1438,51,55,1442,51,55,1446,51,55,1450,51,55,1454,51,55,1458,51,55,1464,44,48,1480,48,49,1572,50,54,1832,51,55,2092,52,56,2285,51,55,2291,50,54,2296,44,48
