Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

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