100 REM Simple number guessing game
  110 READ limit
  120 secret = RND (limit) + 1
  130 CLS 
  140 VTAB = 4
  150 PRINT "I have a number from one to ";  limit;  "."
  160 PRINT "Try to guess it."
  170 CYCLE 
  180   PRINT 
  190   TCOLOUR = White
  200   INPUT "What's your guess? ", guess
  210   IF guess < secret THEN 
  220     TCOLOUR = Yellow
  230     PRINT "Too low."
  240   ELSE 
  250     IF guess > secret THEN 
  260       TCOLOUR = Maroon
  270       PRINT "Too high."
  280     ELSE  // Must be right
  290       TCOLOUR = Lime
  300       PRINT "Well done!"
  310       BREAK 
  320     ENDIF 
  330   ENDIF 
  340 REPEAT 
  350 TCOLOUR = White // Reset!
  360 END 
  370 DATA 120