612d3972dc
Closes the last unimplemented extended statement tokens. ENVIRON uses putenv/getenv for real environment variable access. DATE$/TIME$ assignment is accepted but silently ignored (no system clock modification). ERDEV/ERDEV$/IOCTL$/PEN return stub values (no real device hardware). CALL/CALLS raise Illegal function call. COM event trapping silently accepted.
38 lines
1.1 KiB
QBasic
38 lines
1.1 KiB
QBasic
10 REM Test miscellaneous statements and functions
|
|
20 REM --- RESET closes all files (no error if none open)
|
|
30 RESET
|
|
40 PRINT "RESET OK"
|
|
50 REM --- ENVIRON sets a variable
|
|
60 ENVIRON "GWTEST=hello123"
|
|
70 PRINT "ENVIRON$="; ENVIRON$("GWTEST")
|
|
80 REM --- ENVIRON$ of unset var returns ""
|
|
90 PRINT "EMPTY="; ENVIRON$("XYZZY_NONEXIST"); "."
|
|
100 REM --- ERDEV returns 0
|
|
110 PRINT "ERDEV="; ERDEV
|
|
120 REM --- ERDEV$ returns ""
|
|
130 PRINT "ERDEV$="; ERDEV$; "."
|
|
140 REM --- IOCTL$ returns ""
|
|
150 OPEN "R", #1, "tests/programs/misc_stmts.bas"
|
|
160 PRINT "IOCTL$="; IOCTL$(#1); "."
|
|
170 CLOSE #1
|
|
180 REM --- LCOPY silently accepted
|
|
190 LCOPY
|
|
200 LCOPY 1
|
|
210 PRINT "LCOPY OK"
|
|
220 REM --- DATE$ assignment accepted
|
|
230 DATE$ = "01-01-2000"
|
|
240 PRINT "DATE$ SET OK"
|
|
250 REM --- TIME$ assignment accepted
|
|
260 TIME$ = "12:00:00"
|
|
270 PRINT "TIME$ SET OK"
|
|
280 REM --- FRE returns a positive number
|
|
290 IF FRE(0) > 0 THEN PRINT "FRE OK" ELSE PRINT "FRE FAIL"
|
|
300 REM --- COM accepted silently
|
|
310 COM ON
|
|
320 PRINT "COM OK"
|
|
330 REM --- MOTOR accepted silently
|
|
340 MOTOR
|
|
350 PRINT "MOTOR OK"
|
|
360 PRINT "ALL DONE"
|
|
370 SYSTEM
|