labeldata.bas

由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.

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