GWBASIC User's Manual

GW-BASIC User's Guide
40 ENVTBL$ (NPARMS) = ENVIRON$(NPARMS)
50 NPARMS = NPARMS + 1
60 WEND
70 NPARMS = NPARMS-1
72 WHILE LEN(ENVIRON$(1))>0
73 A$=MID$(ENVIRON$(1), 1, INSTR (ENVIRON$(1), "="))
74 ENVIRON A$+";"
75 WEND
90 ENVIRON "MYCHILDPARM1=SORT BY NAME"
100 ENVIRON "MYCHILDPARM2=LIST BY NAME"
.
.
.
1000 SHELL "MYCHILD"'RUNS "MYCHILD.EXE"
1002 WHILE LEN(ENVIRON$(1))>0
1003 A$=MID$(ENVIRON$(1), 1, INSTR(ENVIRON$ (1), "="))
1004 ENVIRON A$+";"
1005 WEND
1010 FOR I=1 TO NPARMS
1020 ENVIRON ENVTBL$(I)
1030 NEXT I
.
.
.
The DIM statement in line 10 assumes no more than 10 parameters will be accessed.
In line 20, the initial number of parameters is established as 1.
In lines 30 through 70, a series of statements are used to adjust and correct the parameter
numbers.
Line 71 deletes the present environment.
Lines 72 through 80 create a new environment. Line 74 deletes the string.
Lines 80 through 100 store the new environment.
Lines 1000 through 1030 repeat the procedure by deleting the present environment and restore
the parameters established in the first part of the program.
file:///C|/Documents%20and%20Settings/Lorenzo/Desktop/GW%20Basic/ENVIRONS.html (2 of 2)28/03/2004 21.29.24