daily pastebin goal
54%
SHARE
TWEET

BadgerCalc

tchnmncr Dec 1st, 2017 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. [A Quite BASIC program inspired by this photograph: https://www.facebook.com/irisharchaeology.ie/photos/a.287849447933816.111109.184244351627660/1298702696848481
  2. Quite BASIC: http://www.quitebasic.com]
  3.  
  4. 1  REM ** BadgerCalc **
  5. 2  REM This program converts a weight in kilograms
  6. 3  REM or pounds to an equivalent weight in badgers
  7. 4  REM 1 badger = 8.7 kg (19.3 lb)
  8. 10 INPUT "Input weight unit (1=kilograms, 2=pounds)"; U
  9. 20 IF U <> 1 AND U <> 2 THEN GOTO 10
  10. 30 INPUT "Input weight (number)"; W
  11. 40 IF 0 / W <> 0 THEN GOTO 30
  12. 50 IF U = 1 THEN LET W = W * 2.20462
  13. 60 LET B = W / 19.3
  14. 70 PRINT "Your badger weight is "; B;" badgers."
RAW Paste Data
Top