home *** CD-ROM | disk | FTP | other *** search
- 5 REM PERIMETER
- 10 PRINT CHR$(147)
- 20 INPUT "WHAT IS THE PERIMETER?";P
- 30 INPUT "WHAT IS THE LENGTH?";L
- 35 IF L > = P/2 THEN PRINT"TOO LONG": GOTO30
- 40 W = (P-2*L)/2: A = L*W
- 50 PRINT "LENGTH" , "WIDTH" , "AREA"
- 60 PRINT L, W, A
- 70 PRINT "PERIMETER = ";P
- 80 PRINT:INPUT"PRINT ANSWER?";Y$
- 90 IF LEFT$(Y$,1) = "Y"THEN 130
- 100 PRINT: INPUT"TRY AGAIN?(Y/N)";Y$
- 110 IF LEFT$(Y$,1) = "Y" THEN 10
- 120 STOP
- 130 OPEN 3,4
- 131 PRINT"PRINTING ANSWER"
- 140 PRINT#3,"LENGTH" , "WIDTH" , "AREA"
- 145 PRINT#3,L, W, A
- 150 PRINT#3,"PERIMETER =";P
- 160 CLOSE 3
- 170 GOTO 100
-