labeldata.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 15 行

REM Test restore with a label.

DATA 20

LABEL initdata

DATA 10

RESTORE initdata
READ a
IF A <> 10 THEN PRINT "Failed!" : EXIT 1
PRINT "Correct."

END