100 REMark - This patch fixes the bug in
105 REMark - C68 programs which prevents
110 REMark - execution on SMSQ, SMSQE or
115 REMark - non 68000/68008 systems in
117 REMark - which the "PROCESSOR"  FN
118 REMark - ( or  PEEK(SYSBASE+161) )
120 REMark - returns the value $40.
130 :
140 REPeat loop
150   INPUT 'Filename> ';fnm$
160   IF fnm$='': STOP
170   fch = 4: OPEN#4;fnm$
190   fl = FLEN (#fch): IF fl > 4000: fl = 4000
200   patch = 0
210 :
220   FOR fp = 8 TO fl-8 STEP 2
230     GET #fch\(fp), ck1%,ck2%,ck3%
240     IF ck1% = HEX("0C28") AND ck2% = HEX("0030") AND ck3% = HEX("00A1")
250       BGET #fch,ck%
260       IF ck% = HEX("60"): PRINT 'File already patched': patch = fp
270       IF ck% <> HEX("63"): EXIT fp
280       BPUT #fch\(fp+6),HEX("60"): patch = fp: PRINT fp
290     END IF 
300   END FOR fp
305   CLOSE #fch
310   IF patch: INPUT 'DONE, FERTIG, FINI';a$: STOP
320   INPUT 'C68 Start-up code not recognised'; a$
330 END REPeat loop
