Listing of file='LERN.BAS;01' on disk='vmedia/games2-sector.ccvf'
10 PLOT 12,3,0,10:INPUT "NUMBER OF DIGITS (1-5) ";D$:ND= VAL (D$):IF N D< 1 OR ND> 5 THEN 10 20 PLOT 12,3,0,10:INPUT "(0) AUTO / (1) MULTIPLY / (2) DIVIDE / (3) ADDITION / (4) SUBTRACTION ";M$:M= VAL (M$) 30 A0= RND (1)* (10^ ND):A1= RND (1)* (10^ ND) 35 A0= INT (A0):A1= INT (A1) 40 PLOT 12,3,20,5:A$= RIGHT$ (STR$ (A0),ND):GOSUB 1000 45 PLOT 3,20,8:A$= RIGHT$ (STR$ (A1),ND):GOSUB 1000 50 PLOT 3,20,11:FOR T= 1 TO ND :PRINT "ggg";:NEXT 100 IF M$= "0" THEN M= INT (RND (1)* 3+ 1) 110 IF M= 3 THEN R= A0+ A1:PLOT 3,10,11:PRINT "'PLUS'"; 120 IF M= 4 THEN R= A0- A1:PLOT 3,10,11:PRINT "'MINUS'"; 130 IF M= 1 THEN R= A0* A1:PLOT 3,10,11:PRINT "'TIMES'"; 135 IF A1= 0 AND M= 2 THEN GOTO 100 140 IF M= 2 THEN R= A0/ A1:PLOT 3,4,11:PRINT "'DIVIDED BY'"; 150 PLOT 3,20,20:INPUT "ANSWR =";A2$:A2= VAL (A2$) 160 IF A2$= "Q" THEN RUN 170 IF A2< > R THEN 40 996 GOTO 30 997 END 1000 FOR P= 1TO LEN (A$) 1010 RESTORE 1020 FOR N= 48TO ASC (MID$ (A$,P,1)) 1030 READ A,B,C,D 1040 NEXT 1050 A= A+ 96:B= B+ 96 1060 C= C+ 96:D= D+ 96 1070 PLOT 30,A,B,29,10,26,26,30,C,D,29,25,28 1080 IF P/ 21= INT (P/ 21)THEN PRINT :PRINT :PRINT 1090 NEXT 1100 PRINT :PRINT :PRINT :PRINT :RETURN 1110 DATA 20,21,22,23,39,1,-64,1,8,4,25,31,5,26,7,4,30,1,5,14,27,5,7,4,20,6,27,4 1120 DATA 5,26,30,-64,3,4,3,4,3,29,7,23