GBOXを実装,GCLSを実装,システム変数DATE$TIME$を実装,そのほか関数を実装,TRUE/FALSEを追加,小数点リテラルを実装.
This commit is contained in:
@@ -1,3 +1,15 @@
|
||||
GOSUB@A
|
||||
GOTO@B
|
||||
'A=SIN(B)
|
||||
'?Y2,SIN(DAY * 2 * 3.141 / BDAY),LINEH,LINEC
|
||||
@A
|
||||
Y2 = LINEC - SIN(DAY * 2 * 3 / BDAY) * LINEH
|
||||
RETURN
|
||||
@B
|
||||
?DATE$, TIME$
|
||||
DTREAD "2014/10/12" OUT Y,M,D
|
||||
?Y,M,D
|
||||
?SIN(1)
|
||||
'COMMENT'
|
||||
ASSERT__ 1, "TRUE"
|
||||
A$="A"
|
||||
@@ -80,14 +92,18 @@ DEF ONGOSUBTEST
|
||||
@4
|
||||
END
|
||||
@DATA_1
|
||||
DATA "A",1,2,3,4
|
||||
DIM ARY[2]
|
||||
DATA "A",1,2,3,4,5
|
||||
READ DATA$,_1,_2
|
||||
READ _3,_4
|
||||
READ ARY[_1]
|
||||
ASSERT__ DATA$=="A", "DATA"
|
||||
ASSERT__ _1==1, "DATA"
|
||||
ASSERT__ _2==2, "DATA"
|
||||
ASSERT__ _3==3, "DATA"
|
||||
ASSERT__ _4==4, "DATA"
|
||||
ASSERT__ ARY[1]==5, "DATA"
|
||||
?ARY[_1]
|
||||
INPUT$="HELLO"
|
||||
INPUT INPUT$,IN
|
||||
?INPUT$,IN
|
||||
|
||||
Reference in New Issue
Block a user