start tok64 d64-Qp4NKf 10 REM a$ = ]r m]nad & dag. 20 REM d$ = vecko dagen. 25 REM na$ = namnsdags barnet 30 REM vd = vecko dag. 40 REM an = antal dagar fr]n ]r noll. 50 REM a = ]r. 60 REM m = m]nad. 70 REM d = dag. 80 REM s = antal dagar i m]naden 90 REM ***************************** 100 REM * skrivet 851218 av: * 110 REM * * 120 REM * rickard.f. {100}yk{pound}ping * 130 REM * * 140 REM * f{pound}r com{100}rore + {100}{114}. * 150 REM * * 160 REM ***************************** 170 PRINT"{clear}{black}":DIMna$(12,31):POKE53280,6:POKE53281,15 180 d$(0)="l{pound}r":d$(1)="{red}s{pound}n":d$(2)="m]n":d$(3)="tis":d$(4)="ons":d$(5)="tors" 190 d$(6)="fre":INPUT"]r m]n dag ({]*4}mmdd)";a$ 200 IFLEN(a$)<>8THENPRINT"det skall skrivas med ]tta tecken{!*3}":GOTO190 210 a=VAL(LEFT$(a$,4)):m=VAL(MID$(a$,5,2)):d=VAL(RIGHT$(a$,2)) 220 IFm>12ORm<1ORd<1ORd>31ORa<1582THENPRINT"fel{!*3}":GOTO190 230 an=365*a+31*(m-1)+d:IFm>=3THENan=an-INT(.4*m+2.3) 240 IFm<3THENa=a-1 250 an=an+INT(a/4)-INT(.75+INT(a/100)*.75) 260 vd=an-INT(an/7)*7 270 PRINT"{clear}{down*10}datumet "a$" [r en "d$(vd)"dag{black}" 280 OPEN2,8,2,"0:namnsdag,s,r" 290 PRINT"{down*4}och det [r {.*4}{left*4}"; 300 FORi=1TO12:READs:FORj=1TOs 310 INPUT#2,na$(i,j):NEXTj 320 IFi<>mTHENNEXTi 330 IFna$(m,d)=""THENna$(m,d)="nonnsens{!*3}" 340 PRINTna$(m,d);:CLOSE2 350 IFLEN(na$(m,d))<5THENPRINT" dagen.":GOTO370 360 IFna$(m,d)<>"nonnsens{!*3}"THENIFRIGHT$(na$(m,d),5)<>"dagen"THENPRINT" dagen" 370 PRINT"{home}{light gray} run{black}" 380 PRINT"{down}tryck return f{pound}r start{light gray}" 390 POKE631,145:POKE632,32:POKE633,32:POKE634,32:POKE635,32:POKE636,32 400 POKE637,32:POKE638,19:POKE198,8 500 DATA 31,29,31,30,31,30,31,31,30,31,30,31 stop tok64 (bastext 1.0)