Math Program

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Math Program

Source Code

  10 REM MATH PROGRAM
 110 PRINT "WHAT IS YOUR NAME?"
 111 INPUT N$
 120 PRINT 
 130 PRINT "ENTER A NUMBER,PLEASE";
 131 INPUT N1
 140 PRINT " AND ANOTHER";
 141 INPUT N2
 150 PRINT "  WHAT IS ";N1;" + ";N2;
 151 INPUT A
 162 IF A=(N1+N2) THEN GOTO 200
 171 PRINT " SORRY---WRONG ANSWER.WANT TO TRY AGAIN?";
 172 INPUT A$
 173 IF A$="YES" THEN GOTO 150
 175 GOTO 210
 201 PRINT " GOOD FOR YOU, ";N$
 210 PRINT 
 211 PRINT " WANT TO TRY ANOTHER PROBLEM";
 212 INPUT A$
 214 IF A$="YES" THEN GOTO 120
 301 PRINT "  O.K. ";N$;"--GOODBYE"
 900 STOP 
 910 SAVE "1010%2"
 920 RUN 

People

No people associated with this content.

Scroll to Top