From 92080780bbe35e9854f6316ce31cd1d57efee00e Mon Sep 17 00:00:00 2001
From: "Mikael O. Bonnier" <mobluse@users.noreply.github.com>
Date: Sat, 15 Jan 2022 15:53:56 +0100
Subject: [PATCH] Initialze text mode & fix possible roundoff error

---
 samples/sample.aritm.txt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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