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
