Apple-2-SW
/
jsbasic
mirror of https://github.com/inexorabletash/jsbasic.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Added "01", ",1", and ".1" as alternatives to "-1"

This commit is contained in:
Mikael O. Bonnier 2022-01-13 20:00:51 +01:00 committed by GitHub
parent be59e60782
commit 658ebb3528
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
samples/sample.aritm.txt
View File

@ -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