Added "01", ",1", and ".1" as alternatives to "-1"
This commit is contained in:
parent
be59e60782
commit
658ebb3528
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue