CLS
COLOR 9, 4
5 CLS
LOCATE 9, 25
PRINT "Welcome to the Fartometer"
LOCATE 11, 5
PRINT "The smell rate is how bad the smell is."
LOCATE 12, 5
PRINT "The penetration rate is how quickly it spreads."
LOCATE 14, 5
INPUT "Put in the smell rate 1 is low, 5 is stinky, 0 exits"; smell%
LOCATE 15, 5
INPUT "Put in the pentetration rate 1 is slow, 5 is fast, 0 exits"; speed%
LOCATE 17, 5
IF smell% = 0 OR speed% = 0 THEN GOTO 15
IF smell% = 1 AND speed% = 1 THEN PRINT "Your fart is a 1.0 on the fro scale!"
IF smell% = 1 AND speed% = 2 THEN PRINT "Your fart is a 1.5 on the fro scale!"
IF smell% = 1 AND speed% = 3 THEN PRINT "Your fart is a 2.0 on the fro scale!"
IF smell% = 1 AND speed% = 4 THEN PRINT "Your fart is a 2.5 on the fro scale!"
IF smell% = 1 AND speed% = 5 THEN PRINT "Your fart is a 3.0 on the fro scale!"
IF smell% = 2 AND speed% = 1 THEN PRINT "Your fart is a 1.5 on the fro scale!"
IF smell% = 2 AND speed% = 2 THEN PRINT "Your fart is a 2.0 on the fro scale!"
IF smell% = 2 AND speed% = 3 THEN PRINT "Your fart is a 2.5 on the fro scale!"
IF smell% = 2 AND speed% = 4 THEN PRINT "Your fart is a 3.0 on the fro scale!"
IF smell% = 2 AND speed% = 5 THEN PRINT "Your fart is a 3.5 on the fro scale!"
IF smell% = 3 AND speed% = 1 THEN PRINT "Your fart is a 2.0 on the fro scale!"
IF smell% = 3 AND speed% = 2 THEN PRINT "Your fart is a 2.5 on the fro scale!"
IF smell% = 3 AND speed% = 3 THEN PRINT "Your fart is a 3.0 on the fro scale!"
IF smell% = 3 AND speed% = 4 THEN PRINT "Your fart is a 3.5 on the fro scale!"
IF smell% = 3 AND speed% = 5 THEN PRINT "Your fart is a 4.0 on the fro scale!"
IF smell% = 4 AND speed% = 1 THEN PRINT "Your fart is a 2.5 on the fro scale!"
IF smell% = 4 AND speed% = 2 THEN PRINT "Your fart is a 3.0 on the fro scale!"
IF smell% = 4 AND speed% = 3 THEN PRINT "Your fart is a 3.5 on the fro scale!"
IF smell% = 4 AND speed% = 4 THEN PRINT "Your fart is a 4.0 on the fro scale!"
IF smell% = 4 AND speed% = 5 THEN PRINT "Your fart is a 4.5 on the fro scale!"
IF smell% = 5 AND speed% = 1 THEN PRINT "Your fart is a 3.0 on the fro scale!"
IF smell% = 5 AND speed% = 2 THEN PRINT "Your fart is a 3.5 on the fro scale!"
IF smell% = 5 AND speed% = 3 THEN PRINT "Your fart is a 4.0 on the fro scale!"
IF smell% = 5 AND speed% = 4 THEN PRINT "Your fart is a 4.5 on the fro scale!"
IF smell% = 5 AND speed% = 5 THEN PRINT "Your fart is a 5.0 on the fro scale!"
LOCATE 18, 5
IF smell% <= 0 THEN PRINT "Can't do that!": GOTO 11
IF smell% >= 6 THEN PRINT "Can't do that!": GOTO 11
IF speed% <= 0 THEN PRINT "Can't do that!": GOTO 11
IF speed% >= 6 THEN PRINT "Can't do that!": GOTO 11
LOCATE 20, 5
11 INPUT "Another y/n:"; game$
IF game$ = "y" THEN GOTO 5
IF game$ = "n" THEN GOTO 15
15 CLS
LOCATE 12, 25
PRINT "Thanks for using the fartometer!"
END