1: CLS 2: COLOR 15, 1 3: n1 = 40: n2 = 2 4: msg$ = "Create a compressed RAMDrive VIA DOUBLE SPACE" 5: LOCATE 1, 1: PRINT STRING$(80, 32); : LOCATE 1, n1 - INT(LEN(msg$) / n2): PRINT msg$ 6: IF CHR$(SCREEN(1, n1 - INT(LEN(msg$) / n2))) = LEFT$(msg$, 1) THEN ELSE LOCATE 2, n1 - INT(LEN(msg$) / n2): PRINT msg$ 7: COLOR 7, 0 8: INPUT "RAMDrive letter"; rmd$ 9: IF rmd$ = "" THEN END 10: rmd$ = UCASE$(LEFT$(LTRIM$(RTRIM$(rmd$)), 1)) 11: INPUT "New Drive letter"; nwd$ 12: IF nwd$ = "" THEN END 13: nwd$ = UCASE$(LEFT$(LTRIM$(RTRIM$(nwd$)), 1)) 14: INPUT "Hard Disk"; hrd$ 15: IF hrd$ = "" THEN END 16: hrd$ = UCASE$(LEFT$(LTRIM$(RTRIM$(hrd$)), 1)) 17: Cmd1$ = "DBLSPACE /COMPRESS " + rmd$ + ": /RESERVED=.13" 18: Cmd2$ = "ATTRIB -H -R -S -A " + rmd$ + ":\DBLSPACE.*" 19: Cmd3$ = "COPY " + rmd$ + ":\DBLSPACE.* " + hrd$ + ":\COMPRESS.*" 20: PRINT 21: PRINT Cmd1$ 22: PRINT Cmd2$ 23: PRINT Cmd3$ 24: |