1 DIMM$(23),A(11),B(11):FORA=0TO11:READM$(A),M$(A+12),A(A),B(A),B$(A+(A>9)):NEXT
2 POKE53281,12:POKE53280,12:H$="":FORA=0TO36:H$=H$+"[192]":NEXT:U=214:GOSUB13
3 B=5:GOSUB11:PRINT,"[153]F1..KALENDER"SPC(68)"F3..WOCHENTAG"SPC(67)"F5..ENDE":Z=6
4 GETA$:ON-(A$<"[133]"ORA$>"[135]")GOTO4:ONASC(A$)-133GOTO9,20:DATAJANUAR,1,31,-1,MONTAG
5 GOSUB14:B=15:GOSUB11:PRINT""R;M$(M):PRINT,"[159]MON DIE MIT DON FRE SAM SON";
6 FORA=1TOX+A(M)-Y*(M=1):Z=Z+1:IFZ=7THENZ=0:PRINT:PRINT,"";:DATAFEBRUAR,2,28,-5
7 IFA<=XTHENPRINTSPC(4);:NEXT:DATADIENSTAG,MAERZ,3,31,-5,MITTWOCH,APRIL,4,30,-2
8 PRINT"[153]"CHR$(-32*(A-X<10));CHR$(-28*(Z=6));CHR$(-5*(A-X=N));A-X;:NEXT:GOTO10
9 GOSUB14:PRINT"[153]DER"N"[157]. "M$(M)R"IST EIN "B$(X+N-1-INT((X+N-1)/7)*7)".
10 [151]214,22:[153]:[153]" DRUECKEN SIE EINE TASTE!":[151]198,0:[146]198,1:[137]2
11 [153]"STOPOR"H$"^":[129]A[178]1[164]B:[153]"(null)"[166]37)"PEEK":[130]:[153]"/"H$"EXP":[151]U,4:[142]
12 [131]DONNERSTAG,MAI,5
13 [158]58692:B[178]1:[141]11:[153]"  KALENDER 1992  SYSBY RASTO LEVRINC":[142]
14 [141]13:[153]"PRINTGEBEN SIE DAS DATUM AN":[131]31,,FREITAG,JUNI,6,30,-4,SAMSTAG
15 Y[178]1:[151]214,7:[133]"JAHR";R:[139]R[179]1752[137]15:[131]JULI,7,31,-2,SONNTAG,AUGUST
16 I[178]R[173]4:[151]214,9:[133]"MONAT";F$:[129]M[178]0[164]23:[145][171](F$[178]M$(M))[137]17:[130]:[137]16
17 M[178]M[170](M[177]11)[172]12:G[178]R[173]400:H[178]R[173]100:[145][171](G[178][181](G))[137]18:Y[178]1[170](H[178][181](H)[176][171](I[171][181](I)))
18 P[178][181](I)[170][181](G)[171][181](H)[170]R:X[178]P[171][181](P[173]7)[172]7[170]B(M)[170]Y[172](M[179]2):X[178]X[171](X[179]0)[172]7:[131]8,31,-6,
19 [151]214,11:[133]"TAG";N:[145]1[171](N[179]1[176]N[177]A(M)[171]Y[172](M[178]1))[137]13,19:[131]SEPTEMBER
20 [158]64738:[131]9,30,-3,,OKTOBER,10,31,-1,,NOVEMBER,11,30,-5,,DEZEMBER,12,31,-3,