home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / window / miscutil / enved2 / $enved.bas next >
Encoding:
BASIC Source File  |  1987-07-16  |  668 b   |  21 lines
  1. 10 F$="\$ENVED.DAT": REM Must agree with .DAT file name in ENVED.BAT
  2. 20 B$="\$ENVED$.BAT": REM Must agree with .BAT file name in ENVED.BAT
  3. 30 OPEN "I",1,F$
  4. 40 OPEN "O",2,B$
  5. 50 I=0
  6. 60 I=I+1: X$=ENVIRON$(I): IF X$="" THEN GOTO 140
  7. 70 IF LEFT$(X$,7)="PROMPT=" THEN PRINT# 2, "PROMPT": GOTO 60
  8. 80 IF LEFT$(X$,5)="PATH=" THEN GOTO 60
  9. 90 IF LEFT$(X$,8)="COMSPEC=" THEN GOTO 60
  10. 100 J=2
  11. 110 IF MID$(X$,J,1) <> "=" THEN J=J+1: GOTO 110
  12. 120 PRINT#2, "SET "+LEFT$(X$,J)
  13. 130 GOTO 60
  14. 140 INPUT#1, X$
  15. 150 IF LEFT$(X$,5)<>"PATH=" AND LEFT$(X$,7)<>"PROMPT=" THEN PRINT#2, "SET ";
  16. 160 PRINT#2, X$
  17. 170 IF NOT EOF(1) THEN GOTO 140
  18. 180 CLOSE 1
  19. 190 CLOSE 2
  20. 200 SYSTEM
  21.