10 REM BACTERION! XL PATCH PROGRAM›20 REM BY ERIC PETRICH›30 REM ›40 REM PATCHES BACTERION! EXECUTABLE›50 REM SO IT WILL RUN CORRECTLY ON›60 REM XL/XE MACHINES WITH >16K RAM.›70 REM ›80 DIM FN$(15),YN$(5)›100 ? "FILE TO PATCH";:INPUT FN$›110 ? "PASS 1: VERIFYING...":PASS=1›120 TRAP 270›130 OPEN #1,12,0,FN$›140 RESTORE 1000›150 OFFSET=0›160 TRAP 280›170 READ TARG,SB,DB:IF TARG=-1 THEN 230›180 IF OFFSET<>TARG THEN GET #1,D:OFFSET=OFFSET+1:GOTO 180›190 IF PASS=2 THEN PUT #1,DB:GOTO 220›200 GET #1,D:IF D<>SB THEN 280›210 ? "OFFSET ";OFFSET;" = ";D›220 OFFSET=OFFSET+1:GOTO 170›230 CLOSE #1›240 IF PASS=2 THEN ? "PATCH COMPLETE":END ›250 ? "VERIFIED. PRESS RETURN TO PATCH";:INPUT YN$›260 ? "PASS 2: PATCHING...":PASS=2:GOTO 130›270 ? "UNABLE TO OPEN ";FN$:END ›280 ? "OFFSET ";OFFSET;" = ";D;", SHOULD BE ";SB›290 ? "VERIFY FAILED. NO PATCH.":CLOSE #1:END ›1000 DATA 145,0,64›1010 DATA 164,4,68›1020 DATA 167,5,69›1030 DATA 467,3,67›1040 DATA 470,6,70›1050 DATA 473,7,71›1060 DATA 3189,4,68›1070 DATA 3191,5,69›1080 DATA 3193,6,70›1090 DATA 3195,7,71›1100 DATA 3197,3,67›1110 DATA -1,0,0›