Примеры программ на языке QBASIC

ОТОБРАЖЕНИЕ ДАТЫ И ВРЕМЕНИ

DATA &H60, &H1E, &H0E, &H1F, &HA1, &H1C, &H00, &H90, &HCD, &H33
DATA &HA3, &H1C, &H00, &H89, &H1E, &H1E, &H00, &H89, &H0E, &H20
DATA &H00, &H89, &H16, &H22, &H00, &H1F, &H61, &HCB

DIM IntProg(1 TO 18) AS INTEGER
DEF SEG = VARSEG(IntProg(1)): 'установка сегмента для работы подпрограммы
Int33& = VARPTR(IntProg(1)):  'установка смещения для работы подпрограммы
'Перепись подпрограммы из блока данных в массив
FOR J% = 0 TO 27
  READ K%: POKE Int33& + J%, K%
NEXT J%

IntProg(5) = &H21CD
IntProg(15) = &H2A00
CALL ABSOLUTE(Int33&)

FOR K = 15 TO 18
PRINT IntProg(K)
NEXT K
WeekDay = IntProg(15) MOD 256: ' День недели = AL
Day = IntProg(18) MOD 256:     ' День месяца = DL
Month = IntProg(18) \ 256:  ' Номер месяца = DH
Year = IntProg(17):            ' Год = CX
PRINT USING "Сегодня - ##/##/#### - #"; Day; Month; Year; WeekDay
DEF SEG
END