Een eeuwigdurende kalender. Handig en leuk om te hebben op de thuiscomputer. Ik schreef daarom op de ZX Spectrum het volgende programma.

ZX spectrum: Kalender

let a$="033614625035"
let b$="ZonMaaDinWoeDonVryZat"
print "Datum? (1 tot 31)": input d
print "Maand? (1 tot 12)": input m
print "Jaar?": input j
let z=j-1
let c=int (z/4)-int (z/100)+int (z/400)
let x=j+d+c+val a$ (m-1)
if m>2 and ( j=4*int (j/4) and j<>100*int (j/100) or j=400*int (j/400)) then let x=x+1
let x=x-7*int (x/7)
print : print d;".";m;".";j;" is ";b$(3*x+1 to 3*x+3)
print : print : pause 0: go to 1

Dit artikel stond op 11 december 1986 in de krant.