Pomodoro Program

[Graham72]

Here is a quick and dirty program for the Pomodoro Method. 


https://en.wikipedia.org/wiki/Pomodoro_Technique

00100 REM pomodoro for the  m'bee 2026
00110 CLS:PRINT:PRINT:PRINT,,"POMODORO for Microbee 2026"
00120 PRINT
00130 INPUT "press ENTER to begin 25 minute work session:"W1$
00140 S=0:F=S
00150 X=IN(12):IF(X AND 32)=32 THEN 150
00160 X=IN(12):IF(X AND 32)=0 THEN 160
00170 F=F+1:IF F<50THEN150
00180 CURS 960:F=0:S=S+1:PRINT 2210-FLT(S);:IF S<2210 THEN 150
00190 PLAY 8,4: PLAY 13,4:PLAY 16,8
00200 PRINT "Twenty Five Minutes Up, Have a Break"
00210 INPUT "press ENTER when break finished"G1$
00220 RUN
00230 SAVE "POMO"