From 658ebb352800e07005a3a77e4a939fadf1535e7d Mon Sep 17 00:00:00 2001
From: "Mikael O. Bonnier" <mobluse@users.noreply.github.com>
Date: Thu, 13 Jan 2022 20:00:51 +0100
Subject: [PATCH] Added "01", ",1", and ".1" as alternatives to "-1"

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

diff --git a/samples/sample.aritm.txt b/samples/sample.aritm.txt
index df8e764..6881df4 100644
--- a/samples/sample.aritm.txt
+++ b/samples/sample.aritm.txt
@@ -1,4 +1,4 @@
-1000 REM ARITM V0.3.3 FOR APPLESOFT BASIC IN JAVASCRIPT IS FOSS.
+1000 REM ARITM V0.3.4 FOR APPLESOFT BASIC IN JAVASCRIPT IS FOSS.
 1020 REM (C) 1992-2021 BY MIKAEL O. BONNIER, LUND, SWEDEN.
 1030 REM E-MAIL: <MIKAEL.BONNIER@GMAIL.COM>.
 1040 REM ABSOLUTELY NO WARRANTY.
@@ -113,7 +113,7 @@
 1970 PRINT MID$(STR$(J),1);
 1980 PRINT " = ";:INPUT "";A$:A=VAL(A$)
 1985 PRINT
-1990 IF -1=A OR ".1"=A$ GOTO 1120:REM C
+1990 IF -1=A OR ".1"=A$ OR ",1"=A$ OR "01"=A$ GOTO 1120:REM C
 2000 IF 1=C OR 2=C THEN LET R=I+J:GOTO 2040:REM ENDIF
 2010 IF 3=C OR 4=C THEN LET R=I-J:GOTO 2040:REM ENDIF
 2020 IF 5=C THEN LET R=I*J:GOTO 2040:REM ENDIF
@@ -202,7 +202,7 @@
 2790 PRINT "TOGGLE ITEM 1-6, OR CHOOSE 0 OR -1: ";:INPUT "";A$:A=VAL(A$)
 2800 IF -1>A OR 6<A OR 0=A AND 0=N GOTO 2780:REM INPUT
 2810 IF 0=A GOTO 1180:REM S
-2820 IF -1=A OR ".1"=A$ GOTO 1120:REM C
+2820 IF -1=A OR ".1"=A$ OR ",1"=A$ OR "01"=A$ GOTO 1120:REM C
 2830 GOSUB 3350:REM POW10
 2840 X=M:Y=R:GOSUB 1114:REM IDIV
 2842 X=DIV:Y=10:GOSUB 1113:REM MOD