1 REM ====================
2 REM 20 Day Dare
3 REM - Version 1.1
4 REM ====================
8 SET Level = 0
10 CREATE LIST Ideas[SIZE:3]
20 SET Challenge = Ideas[RANDOM]
30 DO BlogAboutChallenge()
40 FOR Day = 1 TO 20
45 IF PAUSE THEN
46 DO DoubleChallengeNextDay()
47 CONTINUE FROM LINE 50
58 END IF
50 WHILE TIME < 30 MIN
60 DO PerformChallenge()
70 CONTINUE FROM LINE 50
80 DO BlogResult()
90 NEXT Day
100 IF Successfull() == TRUE THEN
102 INCREASE Level BY 1
104 END IF
110 REST 5 DAYS
120 REPEAT FROM LINE 10
20 Day Dare 