ROUTINE.BAS

10 BIKE
20 EAT
30 WORK
40 EAT
50 SLEEP
60 GOTO 10

Update: SYNTAX ERROR