Keskustelu: Koodit: QB: Left

CLS
LOCATE 10, 32: PRINT "ESCillä lopetetaan"
DO UNTIL w$ = CHR$(27)
w$ = INKEY$
tunti = VAL(LEFT$(TIME$, 2))        'Tässä esitellään lähinnä
minuutti = VAL(MID$(TIME$, 4, 2))   'LEFT$, MID$ ja RIGHT$
sekunti = VAL(RIGHT$(TIME$, 2))     'komentojen hyötykäyttöä
COLOR 7: LOCATE 1, 1
PRINT "tunti:   "; tunti
PRINT "minuutti:"; minuutti
PRINT "sekunti: "; sekunti
PRINT TIME$
PRINT ""
kuukausi = VAL(LEFT$(DATE$, 2))
paiva = VAL(MID$(DATE$, 4, 2))
vuosi = VAL(RIGHT$(DATE$, 4))
PRINT "päivä:   "; paiva
PRINT "kuukausi:"; kuukausi
PRINT "vuosi:   "; vuosi
PRINT DATE$
IF paiva = 10 AND kuukausi = 8 THEN
COLOR 21: LOCATE 20, 22: PRINT "Tänään on Markon [Dj Wolf] syntymäpäivä!"
ELSE
END IF
LOOP