REM ? PUTSYS.MCB - Restore important System Key Table values saved by GETSYS.MCB
REM ?
REM ? Name:    PUTSYS.MCB
REM ?
REM ? Purpose: Restore important System Key Table values saved in the ASCII 
REM ?          text file SYSVAL.LST
REM ?
REM ? Invocation:
REM ?          RUN FILE=PUTSYS.MCB
REM ?
REM ? Comment: PUTSYS.MCB is designed to restore values saved from SYSKEY.TAB 
REM ?          by GETSYS.MCB
REM ?
REM   History: 92???? - Created for Unidata McIDAS-OS2 Version 5.60
REM            940715 - Updated comments for online documentation
REM            940808 - Parse input line correctly for two fields
REM ? ----------

REM Open file with values to restore
10 OPEN "SYSVAL.LST",1

REM Read in values and restore to SYSKEY.TAB until EOF
20 INPUT @1,A$
30 IF A$=EOF$ GOTO 999
40 S = INDEX(A$," ")
50 B$=MID$(A$,1,S-1)
60 C$=MID$(A$,S+1,LEN(A$)-S)
70 KEYIN "SYSVAL CHANGE ";B$;" ";C$
80 GOTO 20

REM Done!
998 PRINT "Done updating SYSKEY values from SYSVAL.LST"
999 STOP