Initialze text mode & fix possible roundoff error

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