qbasic
شماره ی روز از کل سال را گرفته و خروجی آن این است که معلوم می کند چندمین روز و چندمین ماه سال است
مثال
ورودی 241
خروجی ماه هشتم و روز 25
در انتها عبارت q را پاک کنید
CLS : o = 31 q
INPUT "enter days ( 1 - 365 ) : ", n q
FOR i = 1 TO 11 q
IF n <= o THEN EXIT FOR q
n = n - o q
IF i = 6 THEN o = 30 q
NEXT i q
PRINT "month = "; i, "day = "; n q
END