otyaSMILEBASIC/SMILEBASIC/TEST.txt

'COMMENT'
ASSERT__ 1, "TRUE"
A$="A"
ASSERT__ A$=="A", "A$==A"
A$=A$+"B"
ASSERT__ A$=="AB", "A$==AA"
A=0
INC A
ASSERT__ A==1, "A==1"
INC A, 3
ASSERT__ A==4, "A==4"
DEC A, 3
ASSERT__ A==1, "A==1"
DEC A
ASSERT__ A==0, "A==0"
INCTEST 10
DEF INCTEST A
 INC A
 ASSERT__ A==11, "A==11"
 INC A, 3
 ASSERT__ A==14, "A==14"
 DEC A, 3
 ASSERT__ A==11, "A==11"
 DEC A
 ASSERT__ A==10, "A==10"
END
GOTOTEST
GOTO@SKIP
@LOCAL
ASSERT__ 0, "LOCAL LABEL"
@SKIP
DEF GOTOTEST
 GOTO @LOCAL
 ASSERT__ 0, "LOCAL LABEL"
 @LOCAL
END
@DATA_1
DATA "A",1,2,3,4
LOCATE 10,
COLOR 1,15
PRINT "テスト正常終了"