diff --git a/samples/sample.aritm.txt b/samples/sample.aritm.txt index a84866f..189e263 100644 --- a/samples/sample.aritm.txt +++ b/samples/sample.aritm.txt @@ -13,7 +13,7 @@ 1113 MD=INT((X/Y-INT(X/Y))*Y+.5):RETURN 1114 DIV=INT(X/Y+.5):RETURN 1115 LET R=RND(-1) -1116 PR#3:PRINT CHR$(17);CHR$(12); +1116 TEXT:PR#3:PRINT CHR$(17);CHR$(12); 1117 DIM A(590) 1120 REM LBL C 1130 GOSUB 3410:REM CLS @@ -119,7 +119,7 @@ 2020 IF 5=C THEN LET R=I*J:GOTO 2040:REM ENDIF 2030 IF 6=C THEN LET R=INT(I/J):REM ENDIF 2040 REM LBL ENDIF -2050 IF R<>A GOTO 2140:REM WRONG +2050 IF ABS(R-A)>1E-6 GOTO 2140:REM WRONG 2060 PRINT "RIGHT! "; 2070 X=TF:Y=100:GOSUB 1113 2075 IF 0>=MD GOTO 2100:REM ENDIF