start tok64 d64-cgmDAJ 0 POKE53280,.:POKE53281,.:PRINT"{clear}{yellow}{cm @*8}":PRINT"{reverse on}namnsdag{reverse off} gjort av peter karlsson 1990. 5 REM **huvudprogram** 10 n$="":INPUT"{home}{down*5}{light gray}vad heter du (f{pound}rnamn)";n$:IFn$=""THENPRINT"{clear}":END 15 IFn$="peter"THENPRINT"{white}{down}{reverse on}snyggt namn{!*4} 20 READd$,n1$,n2$,n3$ 30 IFn$=n1$ORn$=n2$ORn$=n3$THEN50 40 IFd$="slut"THEN100 45 GOTO20 50 PRINT"{down*2}{green}du har namnsdag "d$". 60 PRINT"{down*2}{cyan}tryck {reverse on}shift{up}{left*5}{reverse off}{cm @*5}":WAIT653,1:RUN 100 PRINT"{down*2}{pink}du har ingen namnsdag. 110 RUN60 900 DATA29/6,petrus,peter,petter 990 REM **hela namnsdagkalendern** "{space*10}{cm t*4} 999 REM **januari** 1000 DATA2/1,svea,bore,sverre,3/1,alfred,alfrida,annefrid 1010 DATA4/1,rut,ritva,roger,4/1,ruth,, 1020 DATA5/1,hanna,hannele,hanny,5/1,hannah,, 1030 DATA7/1,august,{pound}jar,{pound}rjan,8/1,erland,erhard,erla 1040 DATA9/1,gunnar,gun,gunno,10/1,sigurd,sigryn,sigyn 1050 DATA11/1,hugo,hagar,,12/1,frideborg,fridolf,fridolin 1060 DATAtjugondedag knut,knut,kent,kennet 1070 DATA14/1,felix,felicia,fritz,15/1,laura,lauritz,lotten 1080 DATA16/1,hjalmar,herdis,hj{pound}rdis,17/1,anton,anja,antonia 1090 DATA17/1,ania,anya, 1100 DATA18/1,hilda,hildor,hildur,19/1,henrik,henrika,henry 1110 DATA20/1,fabian,lina,linus,21/1,agnes,agnar,agneta,21/1,agetha,, 1120 DATA22/1,vincent,vanja,veine,23/1,emilia,emelie,mildred 1130 DATA24/1,erika,jarl,jarla,25/1,paulus,paul,paula 1140 DATA26/1,botilda,tilda,tilly,27/1,g{pound}te,g{pound}tar,j{pound}ns,27/1,g{pound}the,, 1150 DATA28/1,karl,kelly,karla,28/1,carl,carla,kalle,28/1,calle,, 1160 DATA29/1,valter,valeri,volter,29/1,walter,, 1170 DATA30/1,gunhild,gunilla,gunnel,31/1,ivar,iva,ivan 1199 REM **februari** 1200 DATA1/2,max,marielle,marietta,3/2,diska,dick,didrik 1210 DATA4/2,ansgar,anneli,ansa,4/2,annelie,, 1220 DATA5/2,agata,aili,aivi,5/2,agatha,, 1230 DATA6/2,dorotea,dora,doris,6/2,dorothea,, 1270 DATA7/2,rikard,ricky,rigmor,7/2,rickard,, 1280 DATA8/2,berta,bert,bertram,9/2,fanny,sanny,sonny 1290 DATA10/2,eugenia,egon,eira,11/2,yngve,yvett,yvonne,11/2,yngwe,yngvhe,yngwhe 1300 DATA12/2,evelina,elaine,evelyn,13/2,agn,alin,alina 1310 DATA14/2,valentin,valentina,vally,15/2,sigrif,sigbert,sigbritt 1320 DATA16/2,julia,juliana,juliette,16/2,juliha,julietthe,juliah 1330 DATA17/2,alexandra,sandor,sandra,18/2,frida,fride,frode,18/2,fridha,, 1340 DATA19/2,gabriella,ella,elna,20/2,hulda,haldis,haldo 1350 DATA21/2,hilding,hildeborg,hildemar,22/2,martina,tim,tina 1360 DATA23/2,torsten,toivi,torun,24/2,mattias,mats,matti 1370 DATA25/2,sigvard,sigvald,sigvor,26/2,torgny,torvald, 1380 DATA27/2,lage,laila,lave,28/2,maria,marie,mary 1399 REM **mars** 1400 DATA1/3,albin,alba,alban,2/3,ernst,erna,ernfrid 1410 DATA3/3,gunborg,gunbritt,gunvald,4/3,adrian,adrienne,astor 1420 DATA5/3,tora,toini,tor,5/3,thor,thora, 1430 DATA6/3,ebba,ebon,evonne,7/3,ottilia,petra,petronella 1440 DATA8/3,filippa,gunl{pound}g,]sl{pound}g,9/3,torbj{pound}rn,torben,torgun 1450 DATA10/3,edla,edling,ethel,11/3,edvin,diana,edna 1460 DATA12/3,viktoria,vibeke,viking,12/3,wiktoria,victoria,wictoria 1470 DATA13/3,greger,greis,greta,14/3,matilda,maud,moa 1480 DATA15/3,kristofer,christel,christer,15/3,christofer,christoffer,kristoffer 1490 DATA15/3,kristel,krister, 1500 DATA16/3,herbert,herta,hervor,17/3,gertrud,gertie,g{pound}lin 1510 DATA18/3,edvard,eda,eddie,19/3,josef,james,janet 1520 DATA20/3,joakim,jockum,kim,21/3,bengt,bengta,benita 1530 DATA22/3,viktor,vinat,v]ge,22/3,wiktor,victor,wictor 1540 DATA23/3,gerda,anngerd,gerd,24/3,gabriel,gabriella,gunni 1550 DATA26/3,emanuel,emanuella,immanuel,27/3,rudolf,rode,rudi 1560 DATA28/3,malkolm,elma,elmer,29/3,jonas,jon,jonna,29/3,,johna,johnna 1570 DATA30/3,holger,olga,,31/3,ester,estrid,vasti 1599 REM **april** 1600 DATA1/4,harald,hadar,hardy,2/4,gudmund,gudmar,gunder 1610 DATA3/4,ferdinand,gunvi,gunvor,4/4,ambrosius,iren,irina 1620 DATA5/4,nanna,nancy,nanny,6/4,vilhelm,william,willy,6/4,villiam,villy, 1630 DATA7/4,ingemund,ingemo,irma,8/4,hemming,heimer,helmut 1640 DATA9/4,otto,orvar,ottar,10/4,ingvar,ingvald,ingvor,11/4,ulf,ylva,yrsa 1650 DATA12/4,julius,gillis,,13/4,artur,aldor,atle,13/4,attle,arthur, 1660 DATA14/4,tibertus,ellen,elly,15/4,olivia,oliver,ove 1670 DATA16/4,patrik,patricia,percy,16/4,patric,patrick, 1680 DATA17/4,elias,elis,elise,18/4,valdemar,valdis,volmar 1690 DATA19/4,olavus petri,olaus,olavi,20/4,amalia,amelie,amy 1700 DATA21/4,anselm,annevi,annvor,22/4,elberta,alida,allan 1710 DATA23/4,georg,georgina,j{pound}rgen,24/4,vega,viggo,viveka 1720 DATA25/4,markus,marika,mark,25/4,marcus,marica,marc 1730 DATA26/4,teresia,terese,tessy,26/4,theresia,therese,thessy 1740 DATA27/4,engelbrekt,engelbert,enok,28/4,ture,turid,tuve,28/4,thure,thuve, 1750 DATA29/4,tyko,toral,torulf,30/4,mariana,marianne,marina 1760 DATA30/4,mariann,, 1799 REM **maj** 1800 DATA1/5,valborg,maj,maja,2/5,filip,]sa,]se,3/5,g{pound}ta,g{pound}rel,g{pound}tmar 1810 DATA4/5,monika,majne,mona,5/5,gotthard,gotthild,gotty 1830 DATA6/5,sigmund,sigge,,7/5,gustava,gullbritt,gullvi 1840 DATA8/5,]ke,]ge,]got,9/5,jonatan,john,johnny,9/5,johny,, 1850 DATA10/5,esbj{pound}rn,elvy,essy,11/5,m[rta,meta,m[rit 1860 DATA12/5,charlotta,charlotte,lotta,13/5,linnea,linn,lis 1870 DATA14/5,halvard,hallvor,halvar,15/5,sofia,sia,sofie,15/5,sofi,, 1880 DATA16/5,hilma,helvi,hilmer,17/5,rebecka,renee,rosita,17/5,rene,rene'e, 1890 DATA18/5,erik,erk,jerker,19/5,alrik,aida,atlea 1900 DATA20/5,karolina,carola,caroline,20/5,carolina,karola,karoline 1910 DATA20/5,carolin,karolin,,21/5,konstantin,conny,konstantina 1920 DATA22/5,henning,henny,p]l,23/5,desideria,dennis,desiree 1930 DATA23/5,de'sire'e,de'sire',desire,24/5,ragnvald,ragnvi,ragnvor 1940 DATA25/5,urban,una,uno,26/5,vilhelmina,vilma,vilmar,26/5,wilma,, 1950 DATA27/5,blenda,eda,britten,28/5,ingeborg,ingebritt,ingbritt 1960 DATA29/5,baltsar,bill,billy,30/5,fritjof,majny,majvim 1970 DATA31/5,isabella,iris,isa 1999 REM **juni** 2000 DATA1/6,nikodemus,nina,ninni,2/6,rutger,runa,rune 2010 DATA3/6,ingemar,ingar,ingmarie,4/6,holmfrid,helfrid,helfrida 2020 DATA5/6,bo,bpdil,boel,6/6,gustav,gusten,g{pound}sta,7/6,robert,robin,ruben 2030 DATA8/6,salomon,sally,,9/6,b{pound}rje,belinda,bj{pound}rg 2040 DATA10/6,svante,sante,sjunne,11/6,bertil,berit,berthold,12/6,eskil,eje,evan 2050 DATA13/6,aina,aino,roine,14/6,h]kan,hakon,hakvin,15/6,justina,jim,jimmy 2060 DATA16/6,axel,axelia,axelina,17/6,torborg,torhild,toril 2070 DATA18/6,bj{pound}rn,bjarne,bj{pound}rne,19/6,germund,jerry,jill 2080 DATA20/6,flora,florence,florentin,21/6,alf,alvin,alvina 2090 DATA22/6,paulina,pamela,paulette,23/6,adolf,adolfina,ally 2100 DATA25/6,david,daisy,davida,26/6,rakel,rafael,ralf 2110 DATA27/6,selma,selim,selmer,28/6,leo,liselott,lola 2120 DATA30/6,elof,elvira,viran 2199 REM **juli** 2200 DATA1/7,aron,arent,arild,1/7,aaron,aroon, 2210 DATA2/7,rosa,rose,rosmarie,2/7,ros-marie,ros-mari,rosmari 2220 DATA3/7,aurora,andre,aurelia,3/7,andre',, 2230 DATA4/7,ulrika,ellika,ulla,5/7,melker,marja,mirjam 2240 DATA6/7,esaias,elisiv,esse,7/7,klas,claudia,klaus,7/7,clas,claes,claus 2250 DATA8/7,kjell,katja,kettil,9/7,g{pound}tilda,g{pound}ran,j{pound}rn,10/7,anund,anita,ante 2260 DATA11/7,eleonora,eleonor,ellinor,12/7,herman,hanne,hermine 2270 DATA13/7,joel,joar,jorunn,14/7,folk,fale,fylgia 2280 DATA15/7,ragnhild,ragni,runo,16/7,reinhold,reine,reino 2290 DATA17/7,alexis,alex,alice,18/7,fredik,fred,freddy 2300 DATA19/7,sara,charles,saga,19/7,sarah,,,20/7,margareta,margit,margret 2310 DATA21/7,johanna,jean,jeanette,22/7,magdalena,madeleine,magda 2320 DATA23/7,emma,elena,emmy,24/7,kristina,kerstin,kristin 2330 DATA24/7,cristina,cristin,cristine,24/7,kristine,, 2340 DATA25/7,jokob,jack,,26/7,jesper,jessie,jessika,27/7,marta,marit,marita 2350 DATA28/7,botvid,reidar,reidun,29/7,olof,ola,olle,30/7,algot,margot,vilgot 2360 DATA31/7,elin,elina,elon 2399 REM **augusti** 2400 DATA1/8,per,peder,pernilla,1/8,p[r,,,2/8,karin,karen,k]re,2/8,carin,, 2410 DATA3/8,tage,tanja,truls,4/8,arne,arna,arnevi,5/8,ulrik,unn,unni 2420 DATA6/8,sixten,s[v,s{pound}lve,7/8,arnold,annika,annmari 2430 DATA7/8,annmarie,ann-mari,ann-marie,8/8,sylvia,silja,silvia 2440 DATA9/8,roland,ronald,ronny,10/8,lars,lasse,lorentz 2450 DATA11/8,susanna,sanne,susanne,12/8,klara,clarence,clary,12/8,clara,, 2460 DATA13/8,hillevi,hilja,irja,14/8,ebbe,eberhard,efraim 2470 DATA15/8,stella,estelle,stellan 2480 DATA16/8,brynolf,benjamin,benny,17/8,verner,verna,veronika 2490 DATA18/8,helena,hlen,helny,19/8,magnus,mogens,m]ns 2500 DATA20/8,bernhard,berna,bernt,21/8,josefina,josefin, 2510 DATA22/8,henrietta,harriet,harry,23/8,signe,signar,signy 2520 DATA24/8,bartolomeus,carita,rita,25/8,lovisa,louis,louise 2530 DATA26/8,{pound}sten,ejvind,{pound}jvind,27/8,rolf,raoul,rasmus 2540 DATA28/8,augustin,gurli,gusti,29/8,hans,hampus,hasse 2550 DATA30/8,albert,albrekt,aste,31/8,arvid,arvida,vidar 2599 REM **september** 2600 DATA1/9,samuel,sam,solveig,2/9,justus,jane,judit 2610 DATA3/9,alfhild,alfons,arja,4/9,moses,molly,my,5/9,adela,adele,adin 2620 DATA5/9,ade'le,adele',ade'le',6/9,sakarias,siv,sivert 2630 DATA7/9,regina,gilbert,gisela,8/9,alma,adils,almar,9/9,augusta,gunda,gunde 2640 DATA9/9,agusta,,,10/9,tord,tordis,torgil,11/9,dag,dagny,daga 2650 DATA12/9,tyra,tyr,,13/9,ambj{pound}rn,stig,styrbj{pound}rn,14/9,ida,idar,vida 2660 DATA15/9,sigrid,siri,solbritt,15/9,sol-britt,, 2670 DATA16/9,eufemia,cornelia,cornelius,16/9,kornelia,kornelius,cornelis 2680 DATA17/9,hildegard,hilbert,hildebrand,18/9,alvar,alva,alve 2690 DATA19/9,fredrika,frej,freja,20/9,agda,jan,jannika 2700 DATA21/9,matteus,majbritt,majlis,22/9,maurits,marlene,moritz 2710 DATA23/9,tekla,trond,tryggve,24/9,gerhard,gert,glenn,24/9,glen,, 2720 DATA25/9,signild,sanfrid,signhild,26/9,enar,einar,eja 2730 DATA27/9,dagmar,donald,douglas,28/9,lennart,lena,leonard 2740 DATA29/9,mikael,majken,mikaela,29/9,michael,michaela, 2750 DATA30/9,helge,heidi,h[rje 2799 REM **oktober** 2800 DATA1/10,ragnar,ragna,ragne,2/10,ludvig,levi,liv,3/10,evald,eila,eilert 2810 DATA4/10,frans,franciska,frank,4/10,franz,franck, 2820 DATA5/10,bror,brage,bruno,6/10,jenny,jennifer,jens 2830 DATA7/10,birgitta,girgit,britt,8/10,nils,nelly,nilla 2840 DATA9/10,ingrid,inger,ingolf,10/10,helmer,helmina,helmy 2850 DATA11/10,erling,elvin,elvina,12/10,valfrid,ina,inez 2860 DATA13/10,teofil,terje,tjelvar,13/10,terie,terije,terye 2870 DATA14/10,manfred,mandor,manne,15/10,hedvig,hartvig,hedda 2880 DATA16/10,fingal,finn,flemming,17/10,antonietta,annette,tony,17/10,toni,, 2890 DATA18/10,lukas,lillemor,lilly,19/10,tore,bojan,borghild 2900 DATA19/10,thore,boijan,boiyan,20/10,sibylla,camilla,kasper 2910 DATA20/10,kamilla,casper,,21/10,birger,brita,britta 2920 DATA22/10,seved,sigvid,ursula,23/10,s{pound}ren,severin, 2930 DATA24/10,evert,eivor,elving,25/10,inga,ingalill,ingert,25/10,inga-lill,, 2940 DATA26/10,amanda,manda,mandy,27/10,dabina,sebastian,sussy 2950 DATA27/10,sussi,sussie,,28/10,simon,simeon,simone,29/10,viola,vivi,vivianne 2960 DATA30/10,elsa,elsie,ilse,31/10,edit,edgar,edor 2999 REM **november** 3000 DATA2/11,tobias,tova,tove,3/11,hubert,raymond,roy,4/11,sverker,nora,nore 3010 DATA5/11,eugen,ebert,egil,6/11,gustav adolf,gull,gulli 3020 DATA7/11,ingegerd,ingel,ingela,8/11,vendela,vanda,ville 3030 DATA9/11,teodor,tea,ted,10/11,martin luther,mait,martin 3040 DATA11/11,m]rten,marion,morgan,12/11,konrad,kuno,kurt 3045 DATA12/11,conrad,curt,kurth,13/11,kristian,karsten,kersti 3050 DATA13/11,christian,,,14/11,emil,milly,mimmi 3060 DATA15/11,leopold,leif,lilian,16/11,edmund,elida,elisa 3070 DATA17/11,napoleon,naemi,naima,18/11,magnhild,magna,magne 3080 DATA19/11,elisabet,lisa,lisbeth,19/11,elisabeth,lisbet, 3090 DATA20/11,pontus,polly,povel,21/11,helga,helle,hilde 3100 DATA22/11,cecilia,cilla,cissi,23/11,klemens,ketty,kitty 3110 DATA24/11,gudrun,gullan,gullvor,25/11,katarina,carina,katrin 3120 DATA25/11,catarina,karina,catrin,26/11,torkel,torleif, 3130 DATA27/11,astrid,asta,astri,28/11,malte,malvina,mia 3140 DATA29/11,sune,sonja,synn{pound}ve,29/11,sonya,sonia,,30/11,anders,andrea,andreas 3199 REM **december** 3200 DATA1/12,oskar,ole,ossian,2/12,beata,beatrice,betty 3210 DATA3/12,lydia,linda,love,4/12,barbro,barbara,boris 3220 DATA5/12,sven,svend,svenning,6/12,nikolaus,niklas,nikolina 3230 DATA7/12,agaton,angela,angelika,8/12,virginia,vera,vesta 3240 DATA9/12,anna,ann,annie,9/12,anni,,,10/12,malin,majvor,malena 3250 DATA11/12,daniel,dan,daniela,12/12,alexander,pia,pierre 3260 DATA13/12,lucia,lisen,lisette,14/12,sten,stina,sture 3270 DATA15/12,gottfrid,kaj,kajsa,15/12,caj,cajsa,kaisa,16/12,assar,odd,osvald 3280 DATA17/12,inge,ilona,irmeli,18/12,abraham,abdon,gideon 3290 DATA19/12,isak,isidor,isidora,20/12,israel,gina,gitte 3300 DATA21/12,tomas,tom,tommy,21/12,thomas,thom,thommy 3310 DATA22/12,natanael,natalia,natan,23/12,adam,ada,adina 3320 DATAjulafton,eva,evita,evy,annandag jul,stefan,staffan,stefanie 3330 DATA27/12,johannes,hannes,johan,29/12,abel,abbe,,30/12,set,viva,vivan 3340 DATA30/12,seth,,,31/12,sylvester,syvlve,sylvi 9999 DATAslut,,, 10000 REM *********************** 10001 REM * ===== namns-dag ===== * 10002 REM * * 10003 REM * ett program gjort 1990 * 10004 REM * av peter karlsson. medl * 10005 REM * nr.0041 i club64. (c) * 10006 REM * softwolves 19900725. * 10007 REM" * N{cm y*21}M * 10008 REM * f{pound}r club64's pd-bibl. * 10009 REM *********************** stop tok64 (bastext 1.0)