1: DIM Cdd AS STRING * 2 2: DIM Chd AS STRING * 5 3: PRINT "WARNING! This will install or deinstall PASDIR!" 4: INPUT "Do you wish to continue?", Cont$ 5: IF UCASE$(Cont$) <> "Y" THEN PRINT "PASDIR Status not modified": END 6: mm$ = ".." 7: mn$ = "....." 8: Cd1$ = "CD" 9: Cd2$ = "CHDIR" 10: Cmsp$ = ENVIRON$("COMSPEC") 11: OPEN Cmsp$ FOR BINARY AS #1 12: IF LOF(1) = 92870 THEN DosVer$ = "7.00": Acc1 = 68383: Acc2 = 68386 13: IF LOF(1) = 54619 THEN DosVer$ = "6.20": Acc1 = 49550: Acc2 = 49558 14: IF LOF(1) = 5949 THEN DosVer$ = "1.10": PRINT "Dos Version 1.10. NO CD or CHDIR Command." 15: IF POS(0) > 1 THEN PRINT 16: PRINT "Dos Version: "; DosVer$ 17: GET #1, Acc1, Cdd 18: GET #1, Acc2, Chd 19: IF Cdd = "CD" THEN PUT #1, Acc1, mm$ 20: IF Chd = "CHDIR" THEN PUT #1, Acc2, mn$: GOTO 10 21: IF Cdd = mm$ AND Chd = mn$ THEN PRINT "PASDIR Already intalled. Uninstalling.": PUT #1, Acc1, Cd1$: PUT #1, Acc2, Cd2$: GOTO 20 ELSE PRINT "Bad or missing command interpreter": GOTO 20 22: 10 PRINT "PASDIR is now installed" 23: 20 END 24: |