REM DAYfinder
      REM after Alan Thomas
      REM without the GOTOs - no spaghetti
      REM allowed here
      MODE0
      REPEAT
        INPUT'"Day : "d,"Month : "m,"Year : "y
        z=y-1:leap=0
        IF y MOD 4 = 0 THEN
          IF y MOD 100<>0 THEN leap=1
          IF y MOD 400 =0 THEN leap=1
        ENDIF
        x=INT(z/4)-INT(z/100)+INT(z/400)
        x=x+d+y-1
        IF m=2 THEN x=x+3
        IF m>2 THEN x=x+leap+INT(2.61*(m+1))
        RESTORE
        FOR i=1  TO (1 + x MOD 7)
          READ day$
        NEXT i
        PRINTTAB(12);d;"/";m;"/";y;" is a "day$;"day"
      UNTIL FALSE
      DATA Sun,Mon,Tues,Wednes,Thurs,Fri,Satur