aritm-zx81sp.bas

10 REM ARITM V0.3.4 FOR ZX81 BASIC IS FOSS.
20 REM (C) 1992-2022 BY MIKAEL O. BONNIER, LUND, SWEDEN.
30 REM E-MAIL: <MIKAEL.BONNIER(A)GMAIL.COM>.
40 REM ABSOLUTELY NO WARRANTY.
50 REM LICENSE GPLV3+, SEE
60 REM <HTTP://WWW.GNU.ORG/LICENSES/GPL.HTML>.
70 REM MORE PROGRAMS AT
80 REM <HTTP://WWW.DF.LTH.SE.ORBIN.SE/*MIKAELB/BASIC/>. * IS TILDE.
90 REM DOCUMENTATION:
100 REM 76543210, 7:TYPE, 6-4:OP1, 3-2:OP2, 1-0:/TODO.
110 REM PROGRAM:
112 LET X=0
115 LET Y=1
120 GO TO 200
130 REM SUB MOD
140 LET MD=X-INT(X/Y)*Y
150 RETURN
160 REM SUB DIV
170 LET DV=INT(X/Y)
180 RETURN
200 RANDOMIZE
210 LET R=RND
220 LET L=0
230 LET M=0
240 CLS
250 DIM A(590)
270 REM LBL C
280 GO SUB 4440
290 REM CLS
300 LET A=0
310 IF (L>0)*M THEN GO TO 3770
320 REM CONTMENU
330 IF 0=M THEN LET M=10
340 GO TO 3820
350 REM MENU
370 REM LBL S
380 GO SUB 4440
390 REM CLS
400 PRINT "GENERATING"
405 POKE 23692,255
410 PRINT "PROBLEMS..."
415 POKE 23692,255
420 LET U=1
430 REM DIM A(N)
440 REM LBL ADD1
450 LET X=M
460 LET Y=10
470 GO SUB 160
475 REM DIV
480 LET X=DV
490 GO SUB 130
495 REM MOD
500 IF 0=MD THEN GO TO 590
510 REM ADD2
520 FOR I=0 TO 9
530 FOR J=0 TO 9
540 LET A(U)=10000000+I*10000+J*100+1
550 LET U=U+1
560 NEXT J
570 NEXT I
590 REM LBL ADD2
600 LET X=M
610 LET Y=100
620 GO SUB 160
625 REM DIV
630 LET X=DV
640 LET Y=10
650 GO SUB 130
655 REM MOD
660 IF 0=MD THEN GO TO 750
670 REM SUB1
680 FOR I=0 TO 9
690 FOR J=0 TO 9
700 LET T=10*(INT(8*RND)+1)
710 LET A(U)=20000000+(T+I)*10000+J*100+1
720 LET U=U+1
730 NEXT J
740 NEXT I
750 REM LBL SUB1
770 LET X=M
780 LET Y=1000
790 GO SUB 160
795 REM DIV
800 LET X=DV
810 LET Y=10
820 GO SUB 130
825 REM MOD
830 IF 0=MD THEN GO TO 910
840 REM SUB2
850 FOR I=0 TO 9
860 FOR J=I TO 9+I
870 LET A(U)=30000000+J*10000+I*100+1
880 LET U=U+1
890 NEXT J
900 NEXT I
910 REM LBL SUB2
930 LET X=M
940 LET Y=10000
950 GO SUB 160
955 REM DIV
960 LET X=DV
970 LET Y=10
980 GO SUB 130
985 REM MOD
990 IF 0=MD THEN GO TO 1080
1000 REM MUL
1010 FOR I=0 TO 9
1020 FOR J=I TO 9+I
1030 LET T=10*(INT(9*RND)+1)
1040 LET A(U)=40000000+(T+J)*10000+I*100+1
1050 LET U=U+1
1060 NEXT J
1070 NEXT I
1080 REM LBL MUL
1100 LET X=M
1110 LET Y=100000
1120 GO SUB 160
1125 REM DIV
1130 LET X=DV
1140 LET Y=10
1150 GO SUB 130
1155 REM MOD
1160 IF 0=MD THEN GO TO 1240
1170 REM DIV
1180 FOR I=0 TO 9
1190 FOR J=0 TO 9
1200 LET A(U)=50000000+I*10000+J*100+1
1210 LET U=U+1
1220 NEXT J
1230 NEXT I
1240 REM LBL DIV
1260 LET X=M
1270 LET Y=1000000
1280 GO SUB 160
1285 REM DIV
1290 LET X=DV
1300 LET Y=10
1310 GO SUB 130
1315 REM MOD
1320 IF 0=MD THEN GO TO 1410
1330 REM ENDIF
1340 FOR I=0 TO 9
1350 FOR J=1 TO 9
1360 LET T=I*J+INT(J*RND)
1370 LET A(U)=60000000+T*10000+J*100+1
1380 LET U=U+1
1390 NEXT J
1400 NEXT I
1410 REM LBL ENDIF
1430 LET U=U-1
1440 LET L=U
1450 REM LBL U
1470 PRINT "SHUFFLING..."
1475 POKE 23692,255
1480 FOR I=U TO 2 STEP -1
1490 LET J=INT(I*RND)+1
1500 LET T=A(I)
1510 LET A(I)=A(J)
1520 LET A(J)=T
1530 NEXT I
1540 LET K=1
1550 REM LBL K
1570 GO SUB 4440
1580 REM CLS
1590 PRINT L;
1600 PRINT " PROBLEMS LEFT. -1 ESC"
1605 POKE 23692,255
1610 LET T=A(K)
1620 LET X=T
1630 LET Y=10000000
1640 GO SUB 160
1645 REM DIV
1650 LET C=DV
1660 IF 6=C THEN PRINT "INTEGER PART OF ";
1670 LET X=T
1680 LET Y=10000
1690 GO SUB 160
1695 REM DIV
1700 LET X=DV
1710 LET Y=1000
1720 GO SUB 130
1725 REM MOD
1730 LET I=MD
1740 PRINT I;
1750 GO SUB 4160
1760 REM SIGN
1770 LET X=T
1780 LET Y=100
1790 GO SUB 160
1795 REM DIV
1800 LET X=DV
1810 LET Y=100
1820 GO SUB 130
1825 REM MOD
1830 LET J=MD
1840 PRINT J;
1850 PRINT " = "
1860 INPUT A$
1870 LET A=VAL A$
1875 POKE 23692,255
1880 PRINT A$
1885 POKE 23692,255
1890 IF -1=A OR ".1"=A$ OR ",1"=A$ OR "01"=A$ THEN GO TO 270
1900 REM C
1910 IF (1=C)+(2=C) THEN LET R=I+J
1940 IF (3=C)+(4=C) THEN LET R=I-J
1970 IF 5=C THEN LET R=I*J
2000 IF 6=C THEN LET R=INT(I/J)
2010 REM LBL ENDIF
2030 IF R<>A THEN GO TO 2210
2040 REM WRONG
2050 PRINT "RIGHT. "
2055 POKE 23692,255
2060 LET X=T
2070 LET Y=100
2080 GO SUB 130
2085 REM MOD
2090 IF 0>=MD THEN GO TO 2130
2100 REM ENDIF
2110 LET L=L-1
2120 LET A(K)=T-1
2130 REM LBL ENDIF
2150 LET K=K+1
2160 IF NOT 0<L THEN GO TO 2185
2162 REM ENDIF
2165 LET D=500
2170 GO SUB 4380
2180 REM DELAY
2185 REM LBL ENDIF
2190 GO TO 2460
2200 REM ENDIF 2
2210 REM LBL WRONG
2230 PRINT "WRONG. ";
2240 PRINT I;
2250 GO SUB 4160
2260 REM SIGN
2270 PRINT J;
2280 PRINT " IS ";
2290 PRINT R;
2300 PRINT "."
2305 POKE 23692,255
2310 LET X=T
2320 LET Y=100
2330 GO SUB 130
2335 REM MOD
2340 IF 99<=MD THEN GO TO 2380
2350 REM ENDIF
2360 LET L=L+1
2370 LET A(K)=T+1
2380 REM LBL ENDIF
2400 LET K=K+1
2410 GO SUB 4770
2420 REM SOUND
2430 LET D=1000
2440 GO SUB 4380
2450 REM DELAY
2460 REM LBL ENDIF 2
2480 IF K<=U THEN GO TO 1550
2490 REM K
2500 IF 0>=L THEN GO TO 2690
2510 REM W
2520 PRINT "CHECKING..."
2525 POKE 23692,255
2530 LET N=1
2540 FOR K=1 TO U
2550 LET T=A(K)
2560 LET X=T
2570 LET Y=100
2580 GO SUB 130
2585 REM MOD
2590 IF 0=MD THEN GO TO 2630
2600 REM ENDIF
2610 LET A(N)=T
2620 LET N=N+1
2630 REM LBL ENDIF
2650 NEXT K
2660 LET U=N-1
2670 GO TO 1450
2680 REM U
2690 REM LBL W
2710 PRINT "GOOD.   WELL DONE."
2715 POKE 23692,255
2720 LET D=5000
2730 GO SUB 4380
2740 REM DELAY
2750 GO TO 270
2760 REM C
2770 REM LBL E
2790 GO SUB 4440
2800 REM CLS
2810 LET A=0
2820 LET N=0
2830 LET T=M
2840 GO SUB 3060
2850 REM SUB
2860 PRINT "ADDITION 1"
2870 GO SUB 3060
2880 REM SUB
2890 PRINT "ADDITION 2"
2900 GO SUB 3060
2910 REM SUB
2920 PRINT "SUBTRACTION 1"
2930 GO SUB 3060
2940 REM SUB
2950 PRINT "SUBTRACTION 2"
2960 GO SUB 3060
2970 REM SUB
2980 PRINT "MULTIPLICATION"
2990 GO SUB 3060
3000 REM SUB
3010 PRINT "DIVISION ";CHR$(133);" -1 ESC"
3015 POKE 23692,255
3020 PRINT "0 OK AND GO ";
3030 GO TO 3290
3040 REM AFTER SUB
3060 REM SUB
3065 POKE 23692,255
3070 LET A=A+1
3080 LET X=T
3090 LET Y=10
3100 GO SUB 160
3105 REM DIV
3110 LET T=DV
3120 PRINT A;
3130 LET X=T
3140 LET Y=10
3150 GO SUB 130
3155 REM MOD
3160 IF 0=MD THEN GO TO 3220
3170 REM ELSE
3180 PRINT "*";
3190 LET N=N+100-10*(6=A)
3200 GO TO 3250
3210 REM ENDIF
3220 REM LBL ELSE
3240 PRINT " ";
3250 REM LBL ENDIF
3270 RETURN
3280 REM LBL AFTER SUB
3300 PRINT N
3305 POKE 23692,255
3310 REM LBL INPUT
3330 PRINT "TOGGLE ITEM 1-6, OR CHOOSE 0"
3332 POKE 23692,255
3334 PRINT "OR -1: "
3340 INPUT A$
3350 LET A=VAL A$
3355 POKE 23692,255
3360 PRINT A$
3365 POKE 23692,255
3370 IF (-1>A)+(6<A)+(0=A)*(0=N) THEN GO TO 3310
3380 REM INPUT
3390 IF 0=A THEN GO TO 370
3400 REM S
3410 IF -1=A OR ".1"=A$ OR ",1"=A$ OR "01"=A$ THEN GO TO 270
3420 REM C
3430 GO SUB 4310
3440 REM 10**A
3450 LET X=M
3460 LET Y=R
3470 GO SUB 160
3475 REM DIV
3480 LET X=DV
3490 LET Y=10
3500 GO SUB 130
3505 REM MOD
3510 IF 0=MD THEN GO TO 3560
3520 REM ELSE
3530 LET M=M-R
3540 GO TO 3590
3550 REM ENDIF
3560 REM LBL ELSE
3580 LET M=M+R
3590 REM LBL ENDIF
3610 GO TO 2770
3620 REM E
3630 REM LBL H
3640 GO SUB 4520
3650 REM HELP
3660 GO TO 270
3670 REM C
3680 REM LBL A
3690 GO SUB 4630
3700 REM ABOUT
3710 GO TO 270
3720 REM C
3730 REM LBL Q
3740 GO SUB 4440
3750 REM CLS
3760 STOP
3770 REM LBL CONTMENU
3790 GO SUB 4110
3800 REM MENUITEM
3810 PRINT "CONTINUE"
3820 REM LBL MENU
3840 GO SUB 4110
3850 REM MENUITEM
3860 PRINT "SETUP AND GO"
3870 GO SUB 4110
3880 REM MENUITEM
3890 PRINT "HELP"
3900 GO SUB 4110
3910 REM MENUITEM
3920 PRINT "ABOUT"
3930 GO SUB 4110
3940 REM MENUITEM
3950 PRINT "EXIT"
3955 POKE 23692,255
3960 REM LBL INPUT
3980 PRINT "CHOOSE 1-";
3990 PRINT 4+(L>0);
4000 PRINT ": "
4010 INPUT A$
4020 LET S=VAL A$
4025 POKE 23692,255
4030 PRINT A$
4035 POKE 23692,255
4040 IF (1>S)+(4+(L>0)<S) THEN GO TO 3960
4050 REM INPUT
4060 LET S=S+(L<=0)
4070 REM ON S GO TO K,E,H,A,Q
4080 GO TO (S=1)*1560+(S=2)*2780+(S=3)*3630+(S=4)*3680+(S=5)*3730
4090 STOP
4110 REM SUB MENUITEM
4115 POKE 23692,255
4120 LET A=A+1
4130 PRINT A;
4140 PRINT " ";
4150 RETURN
4160 REM SUB SIGN
4180 IF (1=C)+(2=C) THEN PRINT "+";
4210 IF (3=C)+(4=C) THEN PRINT "-";
4240 IF 5=C THEN PRINT "*";
4270 IF 6=C THEN PRINT "/";
4280 REM LBL ENDIF
4300 RETURN
4310 REM SUB 10**A, A>0
4330 LET R=1
4340 FOR I=1 TO A
4350 LET R=R*10
4360 NEXT I
4370 RETURN
4380 REM SUB DELAY
4400 REM LET T1=TIME
4410 LET D=50*D/1000
4420 PAUSE D
4430 RETURN
4440 REM SUB CLS
4460 FOR T=1 TO 20
4470 PRINT
4480 POKE 23692,255
4490 NEXT T
4500 PRINT "ARITM"
4505 POKE 23692,255
4510 RETURN
4520 REM SUB HELP
4540 GO SUB 4440
4550 REM CLS
4560 PRINT "HELP"
4565 POKE 23692,255
4570 PRINT "YOU CAN MIX PROBLEMS ANYWAY YOU"
4572 POKE 23692,255
4574 PRINT "LIKE."
4576 POKE 23692,255
4580 PRINT "MORE HELP ON"
4582 POKE 23692,255
4584 PRINT "<HTTP://ARITM.ORBIN.SE/>."
4586 POKE 23692,255
4590 LET D=5000
4600 GO SUB 4380
4610 REM DELAY
4620 RETURN
4630 REM SUB ABOUT
4650 GO SUB 4440
4660 REM CLS
4670 PRINT "ABOUT"
4675 POKE 23692,255
4680 PRINT "ARITM 0.3 (C) 1992-2022 BY"
4685 POKE 23692,255
4690 PRINT "MIKAEL O. BONNIER, LUND, SWEDEN."
4695 POKE 23692,255
4700 PRINT "ABSOLUTELY NO WARRANTY."
4705 POKE 23692,255
4710 PRINT "FOSS, SEE LICENSE GPLV3+."
4715 POKE 23692,255
4720 LET D=5000
4730 GO SUB 4380
4740 REM DELAY
4750 RETURN
4770 REM SUB SOUND
4780 PAUSE 5
4790 RETURN
4800 SAVE "ARITM-ZX81"
4810 RUN