15 lines
417 B
Text
15 lines
417 B
Text
10 HEAP = 12
|
|
20 WHILE HEAP>0
|
|
30 TAKE = 0
|
|
40 PRINT "There are ";HEAP;" tokens left."
|
|
50 WHILE TAKE < 1 OR TAKE > 3 OR TAKE > HEAP
|
|
60 INPUT "How many would you like to take? ", TAKE
|
|
70 IF TAKE = HEAP THEN GOTO 140
|
|
80 WEND
|
|
90 PRINT "I will take ";4-TAKE;" tokens."
|
|
100 HEAP = HEAP - 4
|
|
110 WEND
|
|
120 PRINT "I got the last token. Better luck next time."
|
|
130 END
|
|
140 PRINT "You got the last token. Congratulations!"
|
|
150 END
|