-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy patharitm-zxsp.bas
298 lines (298 loc) · 7.47 KB
/
aritm-zxsp.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
1000 REM ARITM V0.3.3 FOR ZX SPECTRUM BASIC IS FOSS.
1020 REM (C) 1992-2021 BY MIKAEL O. BONNIER, LUND, SWEDEN.
1030 REM E-MAIL: <[email protected]>.
1040 REM ABSOLUTELY NO WARRANTY.
1050 REM LICENSE GPLV3+, SEE
1060 REM <HTTP://WWW.GNU.ORG/LICENSES/GPL.HTML>.
1070 REM MORE PROGRAMS AT
1080 REM <HTTP://WWW.DF.LTH.SE.ORBIN.SE/~MIKAELB/BASIC/>. ~ IS TILDE.
1090 REM DOCUMENTATION:
1100 REM 876543210, 8:TYPE, 7-5:OP1, 4-3:OP2, 2:RES'D, 1-0:#TODO.
1110 REM PROGRAM:
1112 GO TO 1115
1113 LET MD=INT(0.5+(X/Y-INT(X/Y))*Y):RETURN
1114 LET DV=INT(0.5+X/Y):RETURN
1115 RANDOMIZE:LET R=RND:LET L=0:LET M=0
1116 CLS
1117 DIM A(590)
1120 REM LBL C
1130 GO SUB 3410:REM CLS
1140 LET A=0
1150 IF (L>0)*M THEN GO TO 3000:REM CONTMENU
1160 IF 0=M THEN LET M=10
1170 GO TO 3030:REM MENU
1180 REM LBL S
1190 GO SUB 3410:REM CLS
1200 PRINT "GENERATING"
1210 PRINT "PROBLEMS..."
1220 LET U=1
1230 REM DIM A(N)
1240 REM LBL ADD1
1250 LET X=M:LET Y=10:GO SUB 1114:LET X=DV:GO SUB 1113
1255 IF 0=MD THEN GO TO 1320:REM ADD2
1260 FOR I=0 TO 9
1270 FOR J=0 TO 9
1280 LET A(U)=100000000+I*100000+J*1000+1
1290 LET U=U+1
1300 NEXT J
1310 NEXT I
1320 REM LBL ADD2
1330 LET X=M:LET Y=100:GO SUB 1114:LET X=DV:LET Y=10:GO SUB 1113
1335 IF 0=MD THEN GO TO 1410:REM SUB1
1340 FOR I=0 TO 9
1350 FOR J=0 TO 9
1360 LET T=10*(INT(8*RND)+1)
1370 LET A(U)=200000000+(T+I)*100000+J*1000+1
1380 LET U=U+1
1390 NEXT J
1400 NEXT I
1410 REM LBL SUB1
1420 LET X=M:LET Y=1000:GO SUB 1114:LET X=DV:LET Y=10:GO SUB 1113
1425 IF 0=MD THEN GO TO 1490:REM SUB2
1430 FOR I=0 TO 9
1440 FOR J=I TO 9+I
1450 LET A(U)=300000000+J*100000+I*1000+1
1460 LET U=U+1
1470 NEXT J
1480 NEXT I
1490 REM LBL SUB2
1500 LET X=M:LET Y=10000:GO SUB 1114:LET X=DV:LET Y=10:GO SUB 1113
1505 IF 0=MD THEN GO TO 1580:REM MUL
1510 FOR I=0 TO 9
1520 FOR J=I TO 9+I
1530 LET T=10*(INT(9*RND)+1)
1540 LET A(U)=400000000+(T+J)*100000+I*1000+1
1550 LET U=U+1
1560 NEXT J
1570 NEXT I
1580 REM LBL MUL
1590 LET X=M:LET Y=100000:GO SUB 1114:LET X=DV:LET Y=10:GO SUB 1113
1595 IF 0=MD THEN GO TO 1660:REM DIV
1600 FOR I=0 TO 9
1610 FOR J=0 TO 9
1620 LET A(U)=500000000+I*100000+J*1000+1
1630 LET U=U+1
1640 NEXT J
1650 NEXT I
1660 REM LBL DIV
1670 LET X=M:LET Y=1000000:GO SUB 1114:LET X=DV:LET Y=10:GO SUB 1113
1675 IF 0=MD THEN GO TO 1750:REM ENDIF
1680 FOR I=0 TO 9
1690 FOR J=1 TO 9
1700 LET T=I*J+INT(J*RND)
1710 LET A(U)=600000000+T*100000+J*1000+1
1720 LET U=U+1
1730 NEXT J
1740 NEXT I
1750 REM LBL ENDIF
1760 LET U=U-1
1770 LET L=U
1780 REM LBL U
1790 PRINT "SHUFFLING..."
1800 FOR I=U TO 2 STEP -1
1810 LET J=INT(I*RND)+1
1820 LET T=A(I)
1830 LET A(I)=A(J)
1840 LET A(J)=T
1850 NEXT I
1860 LET K=1
1870 REM LBL K
1880 GO SUB 3410:REM CLS
1890 PRINT L;
1895 PRINT " PROBLEMS LEFT. -1 ESC"
1900 LET T=A(K)
1910 LET X=T:LET Y=100000000:GO SUB 1114
1915 LET C=DV
1920 IF 6=C THEN PRINT "INTEGER PART OF ";
1930 LET X=T:LET Y=100000:GO SUB 1114:LET X=DV:LET Y=1000:GO SUB 1113
1935 LET I=MD
1940 PRINT I;
1950 GO SUB 3280:REM SIGN
1960 LET X=T:LET Y=1000:GO SUB 1114:LET X=DV:LET Y=100:GO SUB 1113
1965 LET J=MD
1970 PRINT J;
1980 PRINT " = ";:INPUT LINE A$:LET A=VAL A$
1985 PRINT A$
1990 IF -1=A OR ".1"=A$ THEN GO TO 1120:REM C
2000 IF (1=C)+(2=C) THEN LET R=I+J:GO TO 2040:REM ENDIF
2010 IF (3=C)+(4=C) THEN LET R=I-J:GO TO 2040:REM ENDIF
2020 IF 5=C THEN LET R=I*J:GO TO 2040:REM ENDIF
2030 IF 6=C THEN LET R=INT(I/J)
2040 REM LBL ENDIF
2050 IF R<>A THEN GO TO 2140:REM WRONG
2060 PRINT "RIGHT! ";
2070 LET X=T:LET Y=100:GO SUB 1113
2075 IF 0>=MD THEN GO TO 2100:REM ENDIF
2080 LET L=L-1
2090 LET A(K)=T-1
2100 REM LBL ENDIF
2110 LET K=K+1
2120 IF 0<L THEN LET D=500:GO SUB 3402:REM DELAY
2130 GO TO 2250:REM ENDIF 2
2140 REM LBL WRONG
2150 PRINT "WRONG. ";
2160 PRINT I;
2170 GO SUB 3280:REM SIGN
2180 PRINT J;
2182 PRINT " IS ";
2184 PRINT R;
2186 PRINT "."
2190 LET X=T:LET Y=100:GO SUB 1113
2195 IF 99<=MD THEN GO TO 2220:REM ENDIF
2200 LET L=L+1
2210 LET A(K)=T+1
2220 REM LBL ENDIF
2230 LET K=K+1
2235 GO SUB 3610:REM SOUND
2240 LET D=1000:GO SUB 3402:REM DELAY
2250 REM LBL ENDIF 2
2260 IF K<=U THEN GO TO 1870:REM K
2270 IF 0>=L THEN GO TO 2390:REM W
2280 PRINT "CHECKING..."
2290 LET N=1
2300 FOR K=1 TO U
2310 LET T=A(K)
2320 LET X=T:LET Y=100:GO SUB 1113
2325 IF 0=MD THEN GO TO 2350:REM ENDIF
2330 LET A(N)=T
2340 LET N=N+1
2350 REM ENDIF
2360 NEXT K
2370 LET U=N-1
2380 GO TO 1780:REM U
2390 REM LBL W
2400 PRINT "GOOD!!! WELL DONE!"
2410 LET D=5000:GO SUB 3402:REM DELAY
2420 GO TO 1120:REM C
2430 REM LBL E
2440 GO SUB 3410:REM CLS
2450 LET A=0
2460 LET N=0
2470 LET T=M
2480 GO SUB 2640:REM SUB
2490 PRINT "ADDITION 1"
2500 GO SUB 2640:REM SUB
2510 PRINT "ADDITION 2"
2520 GO SUB 2640:REM SUB
2530 PRINT "SUBTRACTION 1"
2540 GO SUB 2640:REM SUB
2550 PRINT "SUBTRACTION 2"
2560 GO SUB 2640:REM SUB
2570 PRINT "MULTIPLICATION"
2580 GO SUB 2640:REM SUB
2590 PRINT "DIVISION | -1 ESC"
2600 PRINT "0 OK AND GO ";
2610 GO TO 2760:REM AFTER SUB
2640 REM SUB
2650 LET A=A+1
2660 LET X=T:LET Y=10:GO SUB 1114
2665 LET T=DV
2670 PRINT A;
2680 LET X=T:LET Y=10:GO SUB 1113
2685 IF 0=MD THEN GO TO 2720:REM ELSE
2690 PRINT "*";
2700 LET N=N+100-10*(6=A)
2710 GO TO 2740:REM ENDIF
2720 REM LBL ELSE
2730 PRINT " ";
2740 REM LBL ENDIF
2750 RETURN
2760 REM LBL AFTER SUB
2770 PRINT N
2780 REM LBL INPUT
2790 PRINT "TOGGLE ITEM 1-6, OR CHOOSE 0 OR -1: ";:INPUT LINE A$:LET A=VAL A$
2795 PRINT A$
2800 IF (-1>A)+(6<A)+(0=A)*(0=N) THEN GO TO 2780:REM INPUT
2810 IF 0=A THEN GO TO 1180:REM S
2820 IF -1=A OR ".1"=A$ THEN GO TO 1120:REM C
2830 GO SUB 3350:REM 10^A
2840 LET X=M:LET Y=R:GO SUB 1114:LET X=DV:LET Y=10:GO SUB 1113
2845 IF 0=MD THEN GO TO 2870:REM ELSE
2850 LET M=M-R
2860 GO TO 2890:REM ENDIF
2870 REM LBL ELSE
2880 LET M=M+R
2890 REM ENDIF
2900 GO TO 2430:REM E
2910 REM LBL H
2920 GO SUB 3470:REM HELP
2930 GO TO 1120:REM C
2940 REM LBL A
2950 GO SUB 3540:REM ABOUT
2960 GO TO 1120:REM C
2970 REM LBL Q
2980 GO SUB 3410:REM CLS
2990 STOP
3000 REM LBL CONTMENU
3010 GO SUB 3240:REM MENUITEM
3020 PRINT "CONTINUE"
3030 REM LBL MENU
3040 GO SUB 3240:REM MENUITEM
3050 PRINT "SETUP AND GO"
3060 GO SUB 3240:REM MENUITEM
3070 PRINT "HELP"
3080 GO SUB 3240:REM MENUITEM
3090 PRINT "ABOUT"
3100 GO SUB 3240:REM MENUITEM
3110 PRINT "EXIT"
3120 REM LBL INPUT
3130 PRINT "CHOOSE 1-";
3132 PRINT 4+(L>0);
3134 PRINT ": ";
3140 INPUT LINE A$:LET S=VAL A$
3145 PRINT A$
3150 IF (1>S)+(4+(L>0)<S) THEN GO TO 3120:REM INPUT
3160 LET S=S+(L<=0)
3170 REM ON S GO TO K,E,H,A,Q
3180 GO TO (S=1)*1870+(S=2)*2430+(S=3)*2910+(S=4)*2940+(S=5)*2970
3230 STOP
3240 REM SUB MENUITEM
3250 LET A=A+1
3260 PRINT A;
3265 PRINT " ";
3270 RETURN
3280 REM SUB SIGN
3290 IF (1=C)+(2=C) THEN PRINT "+";:GO TO 3330:REM ENDIF
3300 IF (3=C)+(4=C) THEN PRINT "-";:GO TO 3330:REM ENDIF
3310 IF 5=C THEN PRINT "*";:GO TO 3330:REM ENDIF
3320 IF 6=C THEN PRINT "/";
3330 REM LBL ENDIF
3340 RETURN
3350 REM SUB 10^A, A>0
3360 LET R=1
3370 FOR I=1 TO A
3380 LET R=R*10
3390 NEXT I
3400 RETURN
3402 REM DELAY
3404 REM LET T1=TIME
3405 LET D=50*D/1000
3407 PAUSE D
3408 RETURN
3410 REM SUB CLS
3420 FOR T=1 TO 30
3430 PRINT:POKE 23692,255
3440 NEXT T
3450 PRINT "ARITM"
3455 POKE 23692,255
3460 RETURN
3470 REM SUB HELP
3480 GO SUB 3410:REM CLS
3490 PRINT "HELP"
3500 PRINT "YOU CAN MIX PROBLEMS ANYWAY YOU LIKE."
3510 PRINT "MORE HELP ON <HTTP://ARITM.ORBIN.SE/>."
3520 LET D=5000:GO SUB 3402:REM DELAY
3530 RETURN
3540 REM SUB ABOUT
3550 GO SUB 3410:REM CLS
3560 PRINT "ABOUT"
3570 PRINT "ARITM 0.3 (C) 1992-2019 BY"
3575 PRINT "MIKAEL O. BONNIER, LUND, SWEDEN."
3580 PRINT "ABSOLUTELY NO WARRANTY."
3585 PRINT "FOSS, SEE LICENSE GPLV3+."
3590 LET D=5000:GO SUB 3402:REM DELAY
3600 RETURN
3610 REM SUB SOUND
3615 BEEP .5,9
3670 PAUSE 5
3690 RETURN