BadgerCalc

[A Quite BASIC program inspired by this photograph: https://www.facebook.com/irisharchaeology.ie/photos/a.287849447933816.111109.184244351627660/1298702696848481
Quite BASIC: http://www.quitebasic.com]

1  REM ** BadgerCalc **
2  REM This program converts a weight in kilograms
3  REM or pounds to an equivalent weight in badgers
4  REM 1 badger = 8.7 kg (19.3 lb)
10 INPUT "Input weight unit (1=kilograms, 2=pounds)"; U
20 IF U <> 1 AND U <> 2 THEN GOTO 10
30 INPUT "Input weight (number)"; W
40 IF 0 / W <> 0 THEN GOTO 30
50 IF U = 1 THEN LET W = W * 2.20462
60 LET B = W / 19.3
70 PRINT "Your badger weight is "; B;" badgers."