ADDSUB

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to: navigation, search
100 DIMLM(5,2),MS$(5)
110 DATA0,9,10,99,100,999,1000,9999,10000,99999
120 DATA"GOOD WORK?","KEEP IT UP?","NICE GOING?","YOU'RE DOING GREAT"
130 DATA"FANTASTIC?"
140 FORT=1TO5
150 READLM(T,1),LM(T,2):NEXTT
160 FORT=1TO5
170 READNS$(T):NEXTT
180 CLS
190 PRINT@92,"ADDITION/SUBTRACTION PROGRAM"
200 PRINT@64,"SELECT ONE OF THE FOLLOWING:"
210 PRINT@96,"A. ADDITION"
220 PRINT@128,"B. SUBTRACTION"
230 PRINT@160,"WHICH ONE";:INPUTA$
240 IFA$="A"THEN290
250 IFA$="B"THEN350
260 PRINT@224,"INVALID SELECTION--TRY AGAIN"
270 FORT=1TO300:NEXTT
280 PRINT@224,"";:PRINT:PRINT@171,"":GOTO230
290 REM ADDITION
300 C=1:T1=0:T2=0
310 A1=RND(LM(C,2)):A2=RND(LM(C,2))
320 IF(A1<LM(C,1))OR(A2<LM(C,1))THEN310
330 A3=A1+A2:GOSUB410
340 GOTO310
350 REM SUBTRACTION
360 C=1:T1=0:T2=0
370 A1=RND(LM(C,2)):A2=RND(LM(C,2))
380 IF(A1<LM(C,1))OR(A2<LM(C,1))OR(A1<A2)THEN370
390 A3=A1-A2:GOSUB410
400 GOTO370
410 REM PRINT SUBROUTINE
420 CLS
430 IFA$="A"THENPRINT@12,"ADDITION":PRINT@166,"+":GOTO450
440 PRINT@10,"SUBTRACTION":PRINT@166,"-"
450 PRINT@135,A1:PRINT@167,A2
460 PRINT@167,A2
470 PRINT@198,"-------"
480 B$=STR$(A2):C$=STR$(A3)
490 IFA$="A"THENPRINT@230-(LEN(C$)-LEN(B$)),"";:INPUTT:GOTO510
500 PRINT@230+(LEN(B$)-LEN(C$)),"";:INPUTT
510 T2=T2+1
520 IFT=A3THEN540
530 PRINT"WRONG! THE ANSWER IS";A3:GOTO570
540 T1=T1+1
550 IF((T2/10)=INT(T2/10))AND((T1/T2)>.6)THENPRINT@238,MS$(C)
560 PRINT@320,"C0RRECT!";T1;"0UT OF";T2
570 PRINT@384,"ENTER H FOR HARDER, E FOR"
580 PRINT@416,"EASIER, R FOR RESTART, OR"
590 PRINT@448,"JUST <ENTER> FOR SAME";:INPUTB$
600 IFB$="R"THEN180
610 IFB$=""THEN650
620 IF(B$="E")AND(C>1)THENC=C-1:GOTO650
630 IF(B$="H")AND(C<5)THENC=C+1:GOTO650
640 GOTO570
650 RETURN