|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1089 (0x441)
Notes: Mikados TextFile, Mikados_K
Names: »PÅSKEDAG«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PÅSKEDAG«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PÅSKEDAG«
0010 // ------------------------- påskedag ------------------------- 0020 // *** 1982-10-01 Leif Pehrsson 0030 // ------------------------------------------------------------ 0040 DIM MÅNED$ OF 25,UDSKRIFT$ OF 80 0050 CLEAR 0060 CURSOR 1,3 0070 PRINT " D A T O F O R P Å S K E D A G . " 0080 PRINT "------------------------------------------------------------" 0090 REPEAT 0100 CURSOR 1,6 0110 PRINT "Indtast året for den ønskede påskedag: ";CHR$(29) 0120 CURSOR 50,6 0130 INPUT Y 0140 UNTIL Y=>1900 AND Y<=2100 0150 // ------------------------------------------------------------ 0160 UDSKRIFT$:="Påskedag i året##### falder###. " 0170 N:=Y-1900 0180 A:=N MOD 19 0190 B:=(7*A+1) DIV 19 0200 M:=(11*A+4-B) MOD 29 0210 Q:=N DIV 4 0220 W:=(N+Q+31-M) MOD 7 0230 DAG:=25-M-W 0240 // ------------------------------------------------------------ 0250 IF DAG<=0 THEN 0260 MÅNED$:="marts" 0270 DAG:=DAG+31 0280 ELSE 0290 MÅNED$:="april" 0300 ENDIF 0310 // 0320 CURSOR 1,14 0330 PRINT USING UDSKRIFT$:Y,INT(DAG), 0340 PRINT MÅNED$ 0350 PRINT "------------------------------------------------------"