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.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 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