home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PERIMETER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  512 b   |  22 lines

  1. 5 REM PERIMETER
  2. 10 PRINT CHR$(147)
  3. 20 INPUT "WHAT IS THE PERIMETER?";P
  4. 30 INPUT "WHAT IS THE LENGTH?";L
  5. 35 IF L > = P/2 THEN PRINT"TOO LONG": GOTO30
  6. 40 W = (P-2*L)/2: A = L*W
  7. 50 PRINT "LENGTH" , "WIDTH" , "AREA"
  8. 60 PRINT L, W, A
  9. 70 PRINT "PERIMETER = ";P
  10. 80 PRINT:INPUT"PRINT ANSWER?";Y$
  11. 90 IF LEFT$(Y$,1) = "Y"THEN 130
  12. 100 PRINT: INPUT"TRY AGAIN?(Y/N)";Y$
  13. 110 IF LEFT$(Y$,1) = "Y" THEN 10
  14. 120 STOP
  15. 130 OPEN 3,4
  16. 131 PRINT"PRINTING ANSWER"
  17. 140 PRINT#3,"LENGTH" , "WIDTH" , "AREA"
  18. 145 PRINT#3,L, W, A
  19. 150 PRINT#3,"PERIMETER =";P
  20. 160 CLOSE 3
  21. 170 GOTO 100
  22.