CDQbasicsrc.zip

CD patching for 1.4 and 1.5 Microsoft QBasic or QuickBasic OPEN DUKE3D.EXE FOR BINARY AS 1 DIM Byte AS STRING 1 GET 1 556948 Byte IF Byte CHR 132 THEN Byte CHR 42 PUT 1 556948 Byte PRINT Success ELSE PRINT Error Not
CD patching for 1.4? and 1.5

Microsoft QBasic or QuickBasic

OPEN "DUKE3D.EXE" FOR BINARY AS 1
DIM Byte AS STRING * 1
GET #1, 556948, Byte
IF Byte = CHR$(132) THEN
Byte = CHR$(42)
PUT #1, 556948, Byte
PRINT "Success!"