10 CLS 
20 INPUT "so skol'ki chasov?",S4
30 INPUT "so skol'ki minyt?",SM
40 INPUT "do skol'ki chasov?",DO4
50 INPUT "do skol'ki minyt?",DOM
60 INPUT "plan(tzeloe 4islo)",PL
70 S=S4*60+SM
80 DO=DO4*60+DOM
100 IF DO<S THEN  GOTO 200
110 R=DO-S
120 GOTO 510
200 RD=24*60-S
210 R=RD+DO
510 PL=PL*100/60
520 ZD=R*PL
523 R4=R/60
525 RM=R-R4*60
550 ZDG=ZD/100
560 ZDK=ZD-ZDG*100
570 DRAWSTRING "Рабочий день",50,20
580 DRAWSTRING "Часов:"+STR$(R4),20,40
590 DRAWSTRING "Минут:"+STR$(RM),20,60
595 DRAWSTRING "Заработал",50,80
600 DRAWSTRING "Гривен:"+STR$(ZDG),20,100
650 DRAWSTRING "Копеек:"+STR$(ZDK),20,120
670 DRAWSTRING "Naik Software",5,150
700 GOTO 670