home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / app$cost.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-01-03  |  990 b   |  33 lines
  1. 10  COLOR 4,11:CLS
  2. 20  PRINT:PRINT"COST OF OPERATING AN ELECTRICAL APPLIANCE"
  3. 30  PRINT:PRINT:PRINT
  4. 40  PRINT"DO YOU WANT TO USE: "
  5. 50  PRINT"                    CURRENT BILL ...... C"
  6. 60  PRINT"                    $.06 / KWH .........S"
  7. 70  PRINT"                                    SELECT ";
  8. 75  M$= INKEY$:IF M$= "" THEN 75
  9. 80  IF M$= "C" OR M$= "m" THEN 500
  10. 90  IF M$= "S" OR M$= "s" THEN X=0.06:GOTO 100
  11. 95  GOTO 40
  12. 100  CLS:CPW = 0.06/1000
  13. 110  INPUT"ENTER THE WATTAGE OF THE APPLIANCE ";W
  14. 120  INPUT"ENTER THE HOURS OF USAGE ";H
  15. 130  PRINT"COST OF USE =$";W * CPW *H;" FOR ";H;" HOURS"
  16. 140  PRINT:PRINT:PRINT"PRESS ANY KEY TO CONTINUE"
  17. 150  A$= INKEY$:IF A$= "" THEN 150
  18. 160  CLS:GOTO 1000
  19. 500  CLS
  20. 510  INPUT"ENTER THE AMOUNT OF THE LATEST ELECTRICAL BILL ";B
  21. 520  INPUT"ENTER THE NUMBER OF KILOWATT HOURS USED ";KW
  22. 530  CPK= B/KW:CPW= CPK/1000
  23. 540  GOTO 110
  24. 1000  CLS:PRINT:PRINT"WHAT NOW?"
  25. 1010        PRINT"       DO ANOTHER..........1"
  26. 1020        PRINT"       RETURN TO MAIN MENU.2"
  27. 1030        PRINT"       RETURN TO SYSTEM....3"
  28. 1040  INPUT  "                             SELECT";C
  29. 1050  ON C GOTO 2000,3000,4000
  30. 2000  GOTO 10
  31. 3000  RUN"MAINMENU"
  32. 4000  SYSTEM
  33.