1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
10 REM PC-BASIC test
20 REM ENVIRON and ENVIRON$ syntax
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 A$ = ENVIRON $
60 A$ = ENVIRON$
70 A$ = ENVIRON $ (1)
75 A$ = ENVIRON$ (1)
80 A$ = ENVIRON $ (0)
90 A$ = ENVIRON $ (-1)
100 A$ = ENVIRON $ (256)
110 A$ = ENVIRON $ (32768)
115 A$ = ENVIRON $ ("")
120 ENVIRON
130 ENVIRON 0
140 ENVIRON ""
150 ENVIRON "PATH"
160 ENVIRON "PATH=test"
170 PRINT#1, ENVIRON$("PATH")
180 ENVIRON "PATH="
190 PRINT#1, ENVIRON$("PATH")
200 PRINT#1, ENVIRON$("path")
260 ENVIRON "PATH=TEST"
270 PRINT#1, ENVIRON$("PATH")
280 PRINT#1, ENVIRON$("path")
999 END
1000 PRINT#1, "Error:", ERR, ERL
1010 RESUME NEXT
|
