1: CLS 2: DIM roy AS STRING * 3 3: DIM Om AS STRING * 3 4: DIM eX AS STRING * 3 5: DIM At AS STRING * 3 6: DIM two AS STRING * 2 7: DIM three AS STRING * 3 8: DIM four AS STRING * 4 9: DIM five AS STRING * 5 10: DIM six AS STRING * 6 11: DIM twelve AS STRING * 12 12: OPEN "\COMMAND.COM" FOR BINARY AS #1 13: GET #1, 49775, roy 14: IF LOF(1) = 54619 THEN ELSE PRINT "MS-Dos 6.2 Command.Com only!": END 15: INPUT "Extension to replace com files"; Om 16: Om = Om + " " 17: PRINT "All Files with the extention "; roy; " are No longer usable as com files" 18: PRINT "All Files with the extention "; Om; " are Now usable as com files" 19: PUT #1, 49775, Om 20: INPUT "Extension to replace exe files"; eX 21: eX = eX + " " 22: GET #1, 49779, roy 23: PRINT "All Files with the extention "; roy; " are No longer usable as exe files" 24: PRINT "All Files with the extention "; eX; " are Now usable as exe files" 25: PUT #1, 49779, eX 26: GET #1, 49783, roy 27: INPUT "Extension to replace bat files"; At 28: At = At + " " 29: PRINT "All Files with the extention "; roy; " are No longer usable as bat files" 30: PRINT "All Files with the extention "; At; " are Now usable as bat files" 31: PUT #1, 49783, At 32: INPUT "Start up file"; twelve 33: IF LEN(twelve) = 12 THEN PUT #1, ((105 - 1) * 79) + 9, twelve ELSE PRINT "Must be 12 charactars long" 34: CLOSE #1 35: |