start tok64 d64-GfCtQn 230 PRINT"{clear}{down*2}" 240 PRINT"programmet skriver ut en kalender {pound}ver{space*2}valfri m]nad" 260 FORt=1TO3000:NEXT 270 DIMdag(7),m$(12) 280 u$="{cm q}{sh asterisk*4}{sh +}{sh asterisk*4}{sh +}{sh asterisk*4}{sh +}{sh asterisk*4}{sh +}{sh asterisk*4}{sh +}{sh asterisk*4}{sh +}{sh asterisk*4}{cm w}" 290 i$="B{space*4}B{space*4}B{space*4}B{space*4}B{space*4}B{space*4}B{space*4}B" 330 FORt=1TO7 340 READdag$(t) 350 NEXT 370 DATAm]ndag,tisdag,onsdag,torsdag,fredag,l{pound}rdag,s{pound}ndag 410 FORt=1TO12 420 READm$(t) 430 NEXT 450 DATAjanuari,februari,mars,april,maj,juni,juli,augusti,september,oktober 460 DATAnovember,december 500 PRINT"{clear}{down*2}" 510 INPUT"vilket ]r och m]nad (]r,m]nad)";ar,man 515 IFar<1582 THEN PRINT"den gregorianska kalendern inf{pound}rdes":GOTO520 516 GOTO530 520 PRINT"f{pound}rst ]r 1582!" 521 a=INT(5*RND(1))+1 522 IFa=1THENPRINT"f{pound}rs{pound}k inte med mig!" 523 IFa=2THENPRINT"det [r ju rena fusket!" 524 IFa=3THENPRINT"f{pound}rs{pound}ker du bygga en tidsmaskin, eller?" 525 IFa=4THENPRINT"jag vet nog! du f{pound}rs{pound}ker att {pound}verh[tta{space*2}mig{!*3}" 526 IFa=5THENPRINT"tyv[rr, tyv[rr, tyv[rr, tyv[rr, tyv[rr!!" 527 FORt=1TO5000:NEXT:GOTO510 530 man$=m$(man) 535 utar=ar 540 IFman<>2THEN670 590 IFar/4<>INT(ar/4)THENmlangd=28:GOTO700 600 mlangd=29 610 IFar/100=INT(ar/100)ANDar/400<>INT(ar/400)THENmlangd=28 620 GOTO700 670 IF(man=4ORman=6ORman=9ORman=11)THENmlangd=30:GOTO700 680 mlangd=31 700 d=0 710 IFman<3THENman=man+12:ar=ar-1 720 n=d+2*man+INT(.6*(man+1))+ar+INT(ar/4)-INT(ar/100)+INT(ar/400)+2 725 n=INT((n/7-INT(n/7))*7+.5) 740 IFn=0THENn=7 750 dag=1-n 790 PRINT"{clear}"; 800 PRINT"{space*2}"man$TAB(30);utar 810 PRINT" "u$ 820 FORkol=1TO7 830 PRINTTAB(3+(kol-1)*5);LEFT$(dag$(kol),3); 835 NEXT 836 PRINT 840 PRINTTAB(1);u$ 860 FORrad=1TO6 865 PRINT" ";i$ 870 FORkol=1TO7:dag=dag+1 880 PRINTTAB(1+(kol-1)*5);"B"; 890 IFdag>mlangdORdag<=0THEN910 900 IFdag<10 THENPRINT" ";dag; 905 IFdag>9THENPRINT"";dag; 910 NEXT kol 915 PRINTTAB(36);"B" 920 PRINT" ";u$ 930 NEXTrad 970 INPUT"en kalender till (ja/nej)";fr$ 980 IFfr$="ja"THEN500 stop tok64 (bastext 1.0)