|
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 - download
Length: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »PÅSKEDAG.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PÅSKEDAG.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PÅSKEDAG.K«
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 "------------------------------------------------------"
0x000…046 Line {l1=0x44, l2=»0010 // ------------------------- påskedag -------------------------«, l3=0x44}
0x046…06d Line {l1=0x25, l2=»0020 // *** 1982-10-01 Leif Pehrsson«, l3=0x25}
0x06d…0b3 Line {l1=0x44, l2=»0030 // ------------------------------------------------------------«, l3=0x44}
0x0b3…0da Line {l1=0x25, l2=»0040 DIM MÅNED$ OF 25,UDSKRIFT$ OF 80«, l3=0x25}
0x0da…0e7 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0e7…0f8 Line {l1=0x0f, l2=»0060 CURSOR 1,3«, l3=0x0f}
0x0f8…143 Line {l1=0x49, l2=»0070 PRINT " D A T O F O R P Å S K E D A G . "«, l3=0x49}
0x143…18e Line {l1=0x49, l2=»0080 PRINT "------------------------------------------------------------"«, l3=0x49}
0x18e…19c Line {l1=0x0c, l2=»0090 REPEAT «, l3=0x0c}
0x19c…1ad Line {l1=0x0f, l2=»0100 CURSOR 1,6«, l3=0x0f}
0x1ad…1ec Line {l1=0x3d, l2=»0110 PRINT "Indtast året for den ønskede påskedag: ";CHR$(29)«, l3=0x3d}
0x1ec…1fe Line {l1=0x10, l2=»0120 CURSOR 50,6«, l3=0x10}
0x1fe…20c Line {l1=0x0c, l2=»0130 INPUT Y«, l3=0x0c}
0x20c…22c Line {l1=0x1e, l2=»0140 UNTIL Y=>1900 AND Y<=2100«, l3=0x1e}
0x22c…272 Line {l1=0x44, l2=»0150 // ------------------------------------------------------------«, l3=0x44}
0x272…2a6 Line {l1=0x32, l2=»0160 UDSKRIFT$:="Påskedag i året##### falder###. "«, l3=0x32}
0x2a6…2b6 Line {l1=0x0e, l2=»0170 N:=Y-1900«, l3=0x0e}
0x2b6…2c8 Line {l1=0x10, l2=»0180 A:=N MOD 19«, l3=0x10}
0x2c8…2e0 Line {l1=0x16, l2=»0190 B:=(7*A+1) DIV 19«, l3=0x16}
0x2e0…2fb Line {l1=0x19, l2=»0200 M:=(11*A+4-B) MOD 29«, l3=0x19}
0x2fb…30c Line {l1=0x0f, l2=»0210 Q:=N DIV 4«, l3=0x0f}
0x30c…326 Line {l1=0x18, l2=»0220 W:=(N+Q+31-M) MOD 7«, l3=0x18}
0x326…338 Line {l1=0x10, l2=»0230 DAG:=25-M-W«, l3=0x10}
0x338…37e Line {l1=0x44, l2=»0240 // ------------------------------------------------------------«, l3=0x44}
0x37e…394 Line {l1=0x14, l2=»0250 IF DAG<=0 THEN «, l3=0x14}
0x394…3aa Line {l1=0x14, l2=»0260 MÅNED$:="marts"«, l3=0x14}
0x3aa…3bc Line {l1=0x10, l2=»0270 DAG:=DAG+31«, l3=0x10}
0x3bc…3c8 Line {l1=0x0a, l2=»0280 ELSE «, l3=0x0a}
0x3c8…3de Line {l1=0x14, l2=»0290 MÅNED$:="april"«, l3=0x14}
0x3de…3eb Line {l1=0x0b, l2=»0300 ENDIF «, l3=0x0b}
0x3eb…3f5 Line {l1=0x08, l2=»0310 // «, l3=0x08}
0x3f5…407 Line {l1=0x10, l2=»0320 CURSOR 1,14«, l3=0x10}
0x407…42f Line {l1=0x26, l2=»0330 PRINT USING UDSKRIFT$:Y,INT(DAG),«, l3=0x26}
0x42f…442 Line {l1=0x11, l2=»0340 PRINT MÅNED$«, l3=0x11}
0x442…487 Line {l1=0x43, l2=»0350 PRINT "------------------------------------------------------"«, l3=0x43}
0x487…4a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccc┆
0x4a0…4c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
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