420 PRINT " So Mo Di Mi Do Fr Sa" TAB(28) " So Mo Di Mi Do Fr Sa" TAB(54) " So Mo Di Mi Do Fr Sa"
430 FOR TR=1 TO 6
440 FOR TRR=1 TO 3
450 PRINT " ";
460 FOR TT=1 TO 7
470 D=DA(T+TRR-1,TT,TR)
480 IF D=0 THEN D$=" ": GOTO 500
490 D$=RIGHT$(" "+STR$(D),3)
500 PRINT D$;
510 NEXT:PRINT " ";
520 NEXT:PRINT " ";
530 NEXT
531 COLOR 0,7:PRINT " Return Taste drücken für weitere Monate ";:COLOR 7,0:INPUT " ",A$
540 NEXT:COLOR 7,0
550 CLS:GOTO 970
560 DATA 31,28,31,30,31,30,31,31,30,31,30,31,3,4,5,7,1,2,3,5,6,7,1,3,4,5,6,1,2,3,4,6,7,1,2,4,5,6,7,2," JANUAR ","FEBRUAR"," MAERZ "," APRIL "," MAY ", " JUNI "," JULI "," AUGUST ","SEPTEMBER","OKTOBER","NOVEMBER"
820 DATA 31,28,31,30,31,30,31,31,30,31,30,31,3,4,5,7,1,2,3,5,6,7,1,3,4,5,6,1,2,3,4,6,7,1,2,4,5,6,7,2," JANUAR ","FEBRUAR"," MAERZ "," APRIL "," MAY ", " JUNI "," JULI "," AUGUST ","SEPTEMBER","OKTOBER","NOVEMBER"
830 DATA "DEZEMBER "
840 CLS
960 RETURN
970 BEEP:LOCATE 10,26:PRINT"Noch einmal Kalender < K >"