home *** CD-ROM | disk | FTP | other *** search
- 10 PRINTCHR$(147)
- 20 PRINT
- 30 PRINT" MATH-A-FIGURE"
- 40 PRINT
- 50 PRINT"1.ADDITION"
- 60 PRINT"2.SUBTRACTION"
- 70 PRINT"3.MULTIPLICATION"
- 80 PRINT"4.DIVISION"
- 85 PRINT"5.QUIT"
- 90 PRINT
- 100 PRINT"SELECT ONE"
- 110 INPUT A$
- 111 IF A$="1" GOTO 200
- 112 IF A$="2" GOTO 300
- 113 IF A$="3" GOTO 400
- 114 IF A$="4" GOTO 500
- 115 IF A$="5" GOTO 1000
- 200 PRINTCHR$(147)
- 210 PRINT
- 211 PRINT" ADDITION"
- 212 PRINT
- 215 INPUT"WHAT IS THE FIRST NUMBER";N
- 217 INPUT"WHAT IS THE SECOND NUMBER";X
- 220 C=N+X
- 240 PRINT
- 245 PRINT"THE ANSWER IS ";C
- 250 PRINT
- 255 PRINT"DO YOU WANT ANOTHER"
- 260 INPUT D$
- 265 IF D$="Y" GOTO 200
- 270 IF D$="N" GOTO 10
- 275 IF D$="" GOTO 255
- 290 END
- 300 PRINT CHR$(147)
- 305 PRINT
- 310 PRINT" SUBTRACTION"
- 315 PRINT
- 320 INPUT"WHAT IS THE FIRST NUMBER";N
- 325 INPUT"WHAT IS THE SECOND NUMBER";X
- 330 C=N-X
- 335 PRINT
- 340 PRINT"THE ANSWER IS ";C
- 350 PRINT
- 355 PRINT"DO YOU WANT ANOTHER"
- 360 INPUT D$
- 365 IF D$="Y" GOTO 300
- 370 IF D$="N" GOTO 10
- 375 IF D$="" GOTO 355
- 390 END
- 400 PRINTCHR$(147)
- 405 PRINT
- 410 PRINT" MULTIPLICATION"
- 415 PRINT
- 420 INPUT"WHAT IS THE FIRST NUMBER";N
- 425 INPUT"WHAT IS THE SECOND NUMBER";X
- 430 C=N*X
- 435 PRINT
- 440 PRINT"THE ANSWER IS ";C
- 445 PRINT
- 450 PRINT"DO YOU WANT ANOTHER"
- 460 INPUT D$
- 465 IF D$="Y" GOTO 400
- 470 IF D$="N" GOTO 10
- 475 IF D$="" GOTO 450
- 490 END
- 500 PRINT CHR$(147)
- 510 PRINT" DIVISION"
- 515 PRINT
- 9 INPUT"WHAT IS THE FIRST NUMBER";N
- 525 INPUT"WHAT IS THE SECOND NUMBER";X
- 530 C=N/X
- 535 PRINT
- 540 PRINT"THE ANSWER IS ";C
- 545 PRINT
- 550 PRINT"DO YOU WANT ANOTHER"
- 555 INPUT D$
- 560 IF D$="Y" GOTO 500
- 565 IF D$="N" GOTO 10
- 576 IF D$="" GOTO 550
- 590 END
- 1000 END
-