aRVB BASIC-MIX 1* R+GREKAL V1.1YA1$"KLEINCOMPUTER robotron KC85/1 & KC87"}(A2$"SPIEL":A92:A3$"R+GREKAL"2A5$"GREGORIANISCHER KALENDER"<:A9:8:1:F1;(0,0);" "P(2,2);A1$:(4,2);"",(34,""),"" Z(5,2);"":(5,37);""*d(6,2);"",(34,""),""Jn(5,3);A2$:3;(5,29);A3$dxA9:(8,2);(36,"")I913:(I,2);"":(I,37);"":I(14,2);(36,"")8:(10,36(A4$));A4$:(12,36(A5$));A5$3;(18,2);"VEB ROBOTRON-MESSELEKTRONIK"03;(19,2);">OTTO SCHOEN< DRESDEN":1150^3:(19,2);"ERLAEUTERUNGEN: J/(N) "u(18,2);(27," ")4;(22,31);">ENTER<":19,19,30,36:JN$"N":"";JN$ Rahmenprogramm -----------------1:1:7::JN$"J"1180990 1060V4310'V3340:V1FE0820MV2FE0910\"V31180e,240x61;(0,0);" "@4;(10,7);"BIS ZUM NAECHSTEN MAL!":20:3:JT Datumseingabe ------------------^2:" KALENDER";_V110);"WOCHENTAGSBESTIMMUNG"2`V216);"TAGESDIFFERENZ"Pa" ";(38,""):D0:7:S0xhV2(102D,4);(D1),". DATUM:"r(22,1);"DATUM ?":22,22,20,39|D$""::"";D$:(22,21);D$:1;(22,20);" "FE0:(D$)0FE1:500 D(0)0:D(1)0:D(2)0:T0:M0:J1 Z$(D$,J,1)0 Z$"."440R MM1:T0:M2FE1:500:490b Z$" "490 Z$"0"Z$"9"FE1:500 Z$"0"D(M)0480 T0T1:FE1:500 D(M)10D(M)(Z$) JJ1:J(D$)410 TD(0):MD(1):JD(2):J0J100JJ1900" 650:FE010305 FE0S2580D FE0380| DA$(D)(T)"."(M)"."(J):780:WT(D)TV:ST(D)T &V2(102D,20);DA$(D) 0V2D0D1:S0:360 :V2(22,0);(40," "):10 D:: N Schaltjahrestest  XZ0:(J4)(J4)0630? b(J100)J1000(J400)J4000630G lZ1M vb  Datumspruefungz M1M12FE2:760 J1582J3000FE3:760 600 T1FE4:760 M2T28ZFE4 M2760 TV(M2)M2:M7740 TV0TM31:TM30 750) TV0TM30:TM318 TTMFE4> X  Wochentagbestimmung M2M(30.6M32.4):M31(M1):Z0 JJ1:S365J(J4)(J100)(J400):TTZMS:TVT(T7)7  * Wochentagsausgabe 48,14,10,28:1::1;(8,10);" ":4* >(8,10);"",(18,""),""; HTV02:7s R(10,11);(((18(TA$(TV)))2)," "),TA$(WT(0)):7 \(12,11);(((18(DA$(0)))2)," "),DA$(0):4 f(14,10);"",(18,""),"" pTV913:(TV,10);""::TV913:(TV,29);"":z10:1140:3:1:::4 Tagesdifferenz ausgebenG1;(0,0);" "xST(0)ST(1)(11,10);"SPASSVOGEL":20:970ST(1)ST(0)D00:D11:D01:D10(8,6);TA$(WT(D1)),", DER",DA$(D1)(10,6);"IST DER",(ST(D1)ST(D0)),". TAG NACH"2(12,6);TA$(WT(D0)),", DEM",DA$(D0),"!":10:1140::Q Wochentage leseniDA$(1),WT(1),ST(1)TA$(6):SONNTAG,MONTAG,DIENSTAG,MITTWOCH,DONNERSTAG,FREITAG,SAMSTAGT06:TA$(T):: Fehlerausgabe2;(20,1);"DAS EINGEGEBENE DATUM IST FALSCH.":20:SS14(20,1);(38," "):B Auswahlw$2:" KALENDER";23);"AUSWAHL":" ";(38,""):7.(6,4);"1 - WOCHENTAGSBESTIMMUNG":(8,4);"2 - TAGESDIFFERENZ8(10,4);"3 - ERLAEUTERUNGEN"B(12,4);"4 - ENDE":(22,1);"FUNKTION: (1)/2/3/4"%L22,22,27,395VV1::"";VS`V1V2V3V41110]j::jt ENTER ~4;(22,32);">ENTER<"T$:T$""11601;(22,32);" ":2,20,1,39:136,4:"Es kann ermittelt werden, auf welchen""Wochentag ein beliebiges Datum"G"der Jahre von 1582 bis 3000 faellt."u"Ferner ist es moeglich, die Anzahl der""Tage zwischen zwei verschiedenen Daten""zu bestimmen.":"Datumseingaben muessen in der Form"4:10);"Tag.Monat.Jahr":7+"erfolgen (Beispiel: 6.7.2084)."cLF$(13):"Bei Datumseingaben fuer die Jahre";LF$;"1901 bis 1999 ist die Angabe des Jahr-";LF$;"hunderts nicht";" erforderlich (z.B.";LF$;"6.7.84 anstelle von 6.7.1984)." 20,20,0,0:1;(20,0);" ""4;(19,32);">ENTER<"7 T$:T$""1290H:136,0::` ENDE DES GREKAL !)." 20,20,0,0:1;(20