' 現時点 ' 0=省略された引数 ' 1=nan ' 2,3,4=順に整数型、実数型、文字列 DEF TYPEOF(V) IF "A"==V && "B"==V THEN VAR BX,BY,CX,CY BGOFS 0 OUT BX,BY BGOFS 0,1,2 BGOFS 0,V,V BGOFS 0 OUT CX,CY BGOFS 0,BX,BY IF BX!=BY THEN 'null RETURN 0 ENDIF ELSE 'string RETURN 4 ENDIF IF X!=X THEN RETURN 1 IF X*0-&H80000000<0 THEN RETURN 2 RETURN 3 END