home *** CD-ROM | disk | FTP | other *** search
- 5 PRINT"ô"
- 6 A$="":B$="":N$=""
- 7 A=0:B=O:C=O
- 10 PRINT "DO YOU WANT TO:"
- 15 PRINT:PRINT:PRINT
- 20 PRINT" 1. ADD"
- 30 PRINT" 2. SUBTRACT"
- 40 PRINT" 3. MULTIPLY"
- 50 PRINT" 4. DIVIDE"
- 51 PRINT" 5. AREA"
- 52 PRINT" 6. VOLUME"
- 53 PRINT" 7. PERIMETER"
- 54 PRINT" 8. POWERS"
- 55 PRINT" 9. SEE NEXT PAGE"
- 59 PRINT:PRINT
- 60 PRINT" PICK A NUMBER"
- 65 GETN$:IF N$="" GOTO 65
- 67 IF VAL(N$)<1 OR VAL(N$)>9 GOTO 65
- 70 IF N$= "1" GOTO 104
- 80 IF N$= "2" GOTO 200
- 90 IF N$= "3" GOTO 300
- 95 IF N$= "4" GOTO 400
- 96 IF N$="5" GOTO 490
- 97 IF N$= "6" GOTO 560
- 98 IF N$= "7" GOTO 640
- 99 IF N$= "8" GOTO 770
- 100 IF N$= "9" GOTO 830
- 104 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
- 105 INPUT "NUMBER";A:PRINT
- 110 INPUT "NUMBER";B:PRINT
- 115 C=A+B
- 116 PRINT"IS THERE ANOTHER NUMBER? (Y OR N)"
- 117 GET Y$:IFY$=""GOTO117
- 118 IFY$="Y"GOTO190
- 120 PRINT:PRINT" THE ANSWER IS ";C
- 170 PRINT:PRINT:PRINT" HIT ANY KEY TO CONTINUE"
- 175 GET B$:IF B$=""GOTO175
- 180 GOTO5
- 190 Y$="":A=C:GOTO110
- 200 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
- 205 INPUT "TOP NUMBER";A:PRINT
- 210 INPUT "BOTTOM NUMBER";B:PRINT
- 220 PRINT:PRINT" THE ANSWER IS ";A-B
- 270 PRINT:PRINT:PRINT" HIT ANY KEY TO CONTINUE"
- 275 GET A$:IF A$=""GOTO275
- 280 GOTO5
- 300 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
- 305 INPUT "MULTIPLICAND";A:PRINT
- 310 INPUT "MULTIPLIER";B:PRINT
- 320 PRINT:PRINT" THE ANSWER IS ";A*B
- 370 PRINT:PRINT:PRINT" HIT ANY KEY TO CONTINUE"
- 375 GET A$:IF A$=""GOTO375
- 380 GOTO5
- 400 PRINT"ô":
- 405 INPUT "DIVIDEND";A:PRINT
- 410 INPUT "DIVISOR";B:PRINT
- 416 C=INT(A/B)
- 417 R=A-(INT(A/B)*B)
- 420 PRINT:PRINT" THE QUOTIENT IS ";C;"R";R
- 470 PRINT:PRINT:PRINT" HIT ANY KEY TO CONTINUE"
- 475 GET A$:IF A$=""GOTO475
- 480 GOTO5
- 490 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
- 500 INPUT "LENGTH";A:PRINT
- 510 INPUT "WIDTH";B:PRINT
- 520 LET C=A*B
- 530 PRINT:PRINT" THE ANSWER IS";C;"SQ. INCHES"
- 540 GOTO 270
- 560 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
- 570 INPUT "HIGHT";A:PRINT
- 580 INPUT "WIDTH";B:PRINT
- 590 INPUT "LENGTH";D:PRINT
- 600 LET C=A*B
- 610 LET E=D*C
- 620 PRINT:PRINT" THE ANSWER IS";E;"CUBIC FEET"
- 630 GOTO 270
- 640 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
- 650 INPUT "NUMBER";A:PRINT
- 660 INPUT "NUMBER";B:PRINT
-