Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
8
Task/Undefined-values/BBC-BASIC/undefined-values-1.basic
Normal file
8
Task/Undefined-values/BBC-BASIC/undefined-values-1.basic
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
ok% = TRUE
|
||||
ON ERROR LOCAL IF ERR<>26 REPORT : END ELSE ok% = FALSE
|
||||
IF ok% THEN
|
||||
PRINT variable$
|
||||
ELSE
|
||||
PRINT "Not defined"
|
||||
ENDIF
|
||||
RESTORE ERROR
|
||||
11
Task/Undefined-values/BBC-BASIC/undefined-values-2.basic
Normal file
11
Task/Undefined-values/BBC-BASIC/undefined-values-2.basic
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
PROCtest
|
||||
END
|
||||
|
||||
DEF PROCtest
|
||||
LOCAL array()
|
||||
IF !^array() < 2 PRINT "Array is undefined"
|
||||
DIM array(1,2)
|
||||
IF !^array() > 1 PRINT "Array is defined"
|
||||
|
||||
!^array() = 0 : REM Set array to undefined state
|
||||
ENDPROC
|
||||
Loading…
Add table
Add a link
Reference in a new issue