home *** CD-ROM | disk | FTP | other *** search
- 10 PRINT"[147]1=SQUARE 2=TRIANGLE 3=CIRCLE 4=RECTANGLE"
- 11 IFMM$="Q"THENEND
- 20 INPUT"ENTER[160]NUMBER[160]OF[160]YOUR[160]CHOICE";MM$:MM=VAL(MM$):IFMM>4ORMM<1THEN10
- 30 ONMMGOTO500,1000,1500,2000
- 500 CLR:PRINT"[147]SQUARE:[160]": PRINT"1=AREA[160]OR 2=SIDE":INPUT"ENTER[160]1[160]OR[160]2";CH
- 501 IFCH>2ORCH<1THEN500
- 508 IFCH=2THEN555
- 510 IFCH=1THENPRINT"[147]FORMULA:[160]AREA[160]OF[160]A[160]SQUARE:":PRINT"AREA =[160]4(SIDE)"
- 519 PRINT"A[160]=[160]4S":INPUT"ENTER LENGTH[160]OF[160]SIDE";S:IFS<0ORS>250000THEN500
- 520 AS=4*S:PRINT"";AS;"=[160]4 TIMES";S:PRINT"AREA =[160]";AS:PRINT"SIDE[160]= ";S
- 530 GOSUB5000:GOTO500
- 555 PRINT"[147]FORMULA:[160]SIDE[160]OF[160]A SQUARE:":PRINT"SIDE[160]=[160]AREA[157][157][157][157]----[157][157]4"
- 556 PRINTTAB(7)"S[160]= A/4"
- 557 INPUT"ENTER[160]AREA";A:IFA>250000ORA<0THEN500
- 558 SD=A/4:PRINT"";SD;"=";A;"DIVIDED BY[160]4":PRINT"AREA=";A:PRINT"SIDE=";SD
- 559 GOSUB5000:GOTO500
- 1000 CLR:PRINT"[147]TRIANGLE":PRINT"1[160]= AREA[160]2[160]=[160]BASE 3 = HEIGHT":INPUT"CHOICE";K
- 1001 IFK<1ORK>3THEN1000
- 1002 ONKGOTO1010,1110,1210
- 1010 PRINT"[147]FORMULA: AREA[160]OF[160]A[160]TRIANGLE":PRINT"AREA[160]=[160].5[160]*[160](BASE*HEIGHT)"
- 1011 PRINT"A[160]=[160].5BH":INPUT"ENTER[160]BASE ";BS:INPUT"ENTER[160]HEIGHT";HT
- 1012 IFBS<1ORBS>250000ORHT<1ORHT>250000THEN1000
- 1020 AR=.5*(BS*HT):PRINT"AREA=";AR:PRINT"BASE=";BS:PRINT"HEIGHT=";HT
- 1030 PRINT""AR"=[160].5[160]TIMES[160](";BS;"TIMES";HT;")"
- 1040 GOSUB5000:GOTO1000
- 1110 PRINT"[147]FORMULA:[160]BASE[160]OF[160]A TRIANGLE":PRINT"BASE[160]=[160][160]A[160][157][157][157]---[157][157][157].5H"
- 1111 CLR:INPUT"ENTER[160]HEIGHT";HT:INPUT"ENTER[160]AREA ";AR
- 1112 IFAR<1ORHT<1ORAR>250000ORHT>250000THEN1110
- 1120 BS=AR/(.5*HT):PRINT"BASE [160]:";BS:PRINT"HEIGHT:";HT:PRINT"AREA[160][160]:";AR
- 1121 GOSUB5000:GOTO1000
- 1210 PRINT"[147]FORMULA:[160]HEIGHT[160]OF[160]A TRIANGLE":PRINT"HEIGHT=[160]A[157][157]----[157][157][157][157].5*B"
- 1212 INPUT"ENTER[160]BASE";BA:INPUT"ENTER[160]AREA";AR:LM=250000
- 1213 IFAR>LMORBA>LMORBA<1ORAR<1THEN1000
- 1215 HT=AR/(.5*BA):PRINT"AREA :";AR:PRINT"HEIGHT:";HT:PRINT"BASE[160][160]:";BA
- 1222 GOSUB5000:GOTO1000
- 1500 CLR:PRINT"[147]CIRCLE":PRINT"1[160]=[160]CIRCUMFERENCE2[160]=[160]DIAMETER":PI=3.14
- 1510 INPUT"ENTER[160]1[160]OR[160]2";FU:IFFU<1ORFU>2THEN1500
- 1511 ONFUGOTO1550,1650
- 1550 PRINT"[147]FORMULA:[160]CIRCUMFERENCE[160]OF[160]A[160]CIRCLE"
- 1551 PRINT"CIRCUMFERENCE[160]=[160][255] TIMES[160]DIAMETER":PRINTTAB(16)"C[160]=[160][255]D"
- 1555 INPUT"ENTER[160]RADIUS[160]OR[160]DIAMETER";NS:PRINT"IS[160]THIS[160]A[160]RADIUS[160]OR[160]DIAMETER?"
- 1556 IFNS<1ORNS>250000THEN1550
- 1557 GETRD$:IFRD$=""THEN1557
- 1558 IFRD$="R"THEND=2*NS:GOTO1610
- 1559 IFRD$="D"THEND=NS:GOTO1610
- 1560 IFRD$="Q"THENEND
- 1600 GOTO1557
- 1610 CI=3.14*D:PRINT""CI"[160]=[160]";PI;"TIMES";D:PRINT"CIRCUMFERENCE:";CI
- 1611 PRINT"RADIUS [160][160][160] :";D/2:PRINT"DIAMETER [160] [160][160]:";D
- 1612 PRINT"[255][160][CONSTANT] :[160]3.14":GOSUB5000:GOTO1500
- 1650 PRINT"[147]FORMULA:[160]DIAMETER[160]OF[160]A[160]CIRCLE":PRINT"DIAMETER =[160]C[157]-[157][255]"
- 1660 INPUT"ENTER[160]CIRCUMFERENCE";C:IFC<1ORC>250000THEN1650
- 1670 D=C/3.14:PRINT"";D"[160]=[160]";C;"DIVIDED[160]BY 3.14":PRINT""
- 1680 PRINT"CIRCUMFERENCE:";C:PRINT"DIAMETER [160][160][160][160]:";D:PRINT"[255][160][CONSTANT] :[160]3.14"
- 1700 GOSUB5000:GOTO1500
- 2000 CLR:PRINT"[147]RECTANGLES(OR[160]PARALLELOGRAMS):"
- 2010 PRINT"1[160]=[160]AREA2 = HEIGHT3=BASE"
- 2020 INPUT"ENTER[160]CHOICE";AD:IFAD<1ORAD>3THEN2000
- 2022 ONADGOTO2050,2150,2250
- 2050 PRINT"[147]FORMULA:[160]AREA[160]OF[160]A[160]RECTANGLE":PRINT"AREA[160]=[160]BASE[160]TIMES[160]HEIGHT"
- 2051 PRINT"[160][160] [160][160][160][160]A[160]=[160]BH":INPUT"ENTER[160]BASE";BS:INPUT"ENTER[160]HEIGHT";HT
- 2053 IFHT<1ORHT>250000ORBS<1ORBS>250000THENGOTO2050
- 2055 AR=HT*BS:PRINT"";AR"[160]=[160]";HT"TIMES"BS:PRINT"AREA[160][160]:";AR
- 2056 PRINT"HEIGHT:";HT:PRINT"BASE[160] :";BS:GOSUB5000:GOTO2000
- 2150 PRINT"[147]FORMULA:[160]HEIGHT[160]OF[160]A[160]RECTANGLE":PRINT"HEIGHT[160]=[160]A[157]-[157]B"
- 2160 INPUT"ENTER[160]AREA";AR:INPUT"ENTER[160]BASE";BA:M=250000:IFAR>MORBA>MTHEN2150
- 2161 IFBA<1ORAR<1THEN2150
- 2170 HT=AR/BA:PRINT"AREA[160][160]:";AR:PRINT"HEIGHT:";HT:PRINT"BASE[160][160]:";BA
- 2180 GOSUB5000:GOTO2000
- 2250 PRINT"[147]FORMULA:[160]BASE[160]OF[160]A[160]RECTANGLE":PRINT"BASE[160][160][160]=[160]A[157]-[157]H"
- 2260 INPUT"ENTER[160]AREA";AR:INPUT"ENTER[160]HEIGHT";HT:M=250000:IFAR>MORHT>MTHEN2250
- 2261 IFHT<1ORAR<1THEN2250
- 2270 BA=AR/HT:PRINT"AREA[160][160]:";AR:PRINT"HEIGHT:";HT:PRINT"BASE[160][160]:";BA
- 2280 GOSUB5000:GOTO2000
- 4999 END
- 5000 PRINT"M[160]=[160]MAIN[160]MENUT[160]=[160]TRY[160]THIS[160]CATEGORY[160]AGAIN"
- 5001 GETA$:IFA$=""THEN5001
- 5002 IFA$="M"THEN10
- 5003 IFA$="T"THENRETURN
- 5004 IFA$="Q"THENEND
- 5005 GOTO5001
- 10000 REM ****************************
- 10001 REM ** QUESTIONS? COMPLAINTS? **
- 10002 REM ******** SCHMIDT 20 ********
- 10003 REM ****************************
-