DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦7dbe498e4⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »PÅSKEDAG«

Derivation

└─⟦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 "------------------------------------------------------"

D0010 // ------------------------- påskedag -------------------------D%0020 // *** 1982-10-01  Leif Pehrsson%D0030 // ------------------------------------------------------------D%0040 DIM MÅNED$ OF 25,UDSKRIFT$ OF 80%▶0b◀0050 CLEAR ▶0b◀▶0f◀0060 CURSOR 1,3▶0f◀I0070 PRINT "     D A T O     F O R    P Å S K E D A G .                 "II0080 PRINT "------------------------------------------------------------"I\f

0090 REPEAT \f

▶0f◀0100 CURSOR 1,6▶0f◀=0110 PRINT "Indtast året for den ønskede påskedag: ";CHR$(29)=▶10◀0120 CURSOR 50,6▶10◀\f

0130 INPUT Y\f

▶1e◀0140 UNTIL Y=>1900 AND Y<=2100▶1e◀D0150 // ------------------------------------------------------------D20160 UDSKRIFT$:="Påskedag i året##### falder###. "2▶0e◀0170 N:=Y-1900▶0e◀▶10◀0180 A:=N MOD 19▶10◀▶16◀0190 B:=(7*A+1) DIV 19▶16◀▶19◀0200 M:=(11*A+4-B) MOD 29▶19◀▶0f◀0210 Q:=N DIV 4▶0f◀▶18◀0220 W:=(N+Q+31-M) MOD 7▶18◀▶10◀0230 DAG:=25-M-W▶10◀D0240 // ------------------------------------------------------------D▶14◀0250 IF DAG<=0 THEN ▶14◀▶14◀0260 MÅNED$:="marts"▶14◀▶10◀0270 DAG:=DAG+31▶10◀
0280 ELSE 
▶14◀0290 MÅNED$:="april"▶14◀▶0b◀0300 ENDIF ▶0b◀▶08◀0310 // ▶08◀▶10◀0320 CURSOR 1,14▶10◀&0330 PRINT USING UDSKRIFT$:Y,INT(DAG),&▶11◀0340 PRINT MÅNED$▶11◀C0350 PRINT "------------------------------------------------------"C▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc