ZX spectrum: Eeuwigdurende Kalender

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.

Video's

 
58 Views

Wie Ik Ben

oprichter en oud-voorzitter Puch Touring Club Nederland 1987 t/m 1994, oprichter en oud-voorzitter Stichting Bevordering Bromfietsgebruik 1991 t/m 1994, oprichter en oud-webmaster De Grootste Puch Maxi Site Ter Wereld 1998 t/m 2001, naamtegel @ Boompjeskade, Rotterdam sinds 1998, naam in atomen geschreven op aluminium target marker, geland door Hayabusa ruimtesonde in 2005 op asteroide 1998 SF 36, oprichter en oud-webmaster Back to Lowlands community 2001 t/m 2009, officieel verkozen tot 'Ultimate Diehard Lowlander' door Oor Magazine in  2005, oprichter en oud-webmaster Low-Lands.nl fansite 2005 t/m 2022, officieel verkozen tot Time Magazine's 'Person Of The Year' 2006, oud-recensent MusicFrom.nl 2006 t/m 2013, co-houder van 1 wereldrecord in 1986 en 2 wereldrecords in 2008, oud-recensent 3voor12 Overijssel 2007 t/m 2009, oprichter en oud-webmaster Nirwana Tuinfeest startpagina 2009 t/m 2021, oprichter en oud-webmaster NirwanaFestival twitter 2009 t/m 2021, oprichter en oud-webmaster Zwolz.nl wijkwebsite Zwolle Zuid 2010 t/m 2012, directeur/eigenaar en oprichter van webshop Pandorrah.nl 2012 t/m heden, naam naar Mars gevlogen aan boord van NASA's Orion Flight Test 2014, oprichter en oud-webmaster spellensite Collect.One 2015 t/m 2020, oprichter en oud-webmaster 27MC.org 2020 t/m 2021

Waar Ik Voor Sta