|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »STJERNER.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STJERNER.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STJERNER.K«
0010 // ------------------------- stjernerne ---------------------- 0020 // Udskriver stjernetegn samt det pågældende tidsrum, 0030 // der svarer til stjernetegnet. 0035 INTEGER TRUE,FALSE,FUNDET,DATE 0036 TRUE:=1;FALSE:=0 0040 DIM NAVN$ OF 30,TEGN$ OF 30 0050 DIM FØDSELSMD$ OF 30,DATO$ OF 6 0060 // 0070 CLEAR 0080 CURSOR 5,5 0090 PRINT " I H V I L K E T S T J E R N E T E G N E R D U "; 0095 PRINT "F Ø D T ?" 0100 CURSOR 5,6 0110 PRINT "---------------------------------------------------------------"; 0115 PRINT "-----" 0120 CURSOR 5,8 0130 INPUT "Indtast fødselsdato: ":DATE 0140 CURSOR 5,10 0150 INPUT "Indtast fødselsmåned (små bogstaver): ":FØDSELSMD$ 0160 FUNDET:=FALSE 0170 CURSOR 1,22 0180 // 0190 FOR I:=1 TO 24 DO 0200 READ DG1,DG2,NAVN$,TEGN$ 0210 IF DATE=>DG1 AND DATE<=DG2 AND FØDSELSMD$=NAVN$ THEN 0220 CURSOR 5,18 0230 PRINT "Da du er født den ";DATE;". ";FØDSELSMD$;", "; 0240 PRINT "er du født i ";TEGN$;"'s tegn." 0250 FUNDET:=TRUE 0260 END 0270 ENDIF 0280 NEXT I 0290 // 0300 IF NOT FUNDET THEN 0310 CURSOR 5,22 0320 PRINT "Du er ikke født i noget tegn." 0330 END 0340 ENDIF 0350 // 0360 INPUT "Indtast fødselsdato: ":DATE 0370 DATA 1,20,"april"," V Æ D D E R E N " 0380 DATA 21,30,"april"," T Y R E N " 0390 DATA 1,21,"maj"," T Y R E N " 0400 DATA 22,31,"maj"," T V I L L I N G E R N E " 0410 DATA 1,22,"juni"," T V I L I N G E R N E " 0420 DATA 22,30,"juni"," K R E B S E N " 0430 DATA 1,22,"juli"," K R E B S E N " 0440 DATA 23,31,"juli"," L Ø V E N " 0450 DATA 1,23,"august"," L Ø V E N " 0460 DATA 24,31,"august"," J O M F R U E N " 0470 DATA 1,23,"september"," J O M F R U E N " 0480 DATA 24,30,"september"," V Æ G T E N " 0490 DATA 1,23,"oktober"," V Æ G T E N " 0500 DATA 24,31,"oktober"," S K O R P I O N E N " 0510 DATA 1,23,"november"," S K O R P I O N E N " 0520 DATA 24,30,"november"," S K Y T T E N " 0530 DATA 1,21,"december"," S K Y T T E N " 0540 DATA 22,31,"december"," S T E N B U K K E N " 0550 DATA 1,20,"januar"," S T E N B U K K E N " 0560 DATA 21,31,"januar"," V A N D M A N D E N " 0570 DATA 1,19,"februar"," V A N D M A N D E N " 0580 DATA 19,29,"februar"," F I S K E N E " 0590 DATA 1,20,"marts"," F I S K E N E " 0600 DATA 21,31,"marts"," V Æ D D E R E N "
0x000…045 Line {l1=0x43, l2=»0010 // ------------------------- stjernerne ----------------------«, l3=0x43}
0x045…081 Line {l1=0x3a, l2=»0020 // Udskriver stjernetegn samt det pågældende tidsrum,«, l3=0x3a}
0x081…0a8 Line {l1=0x25, l2=»0030 // der svarer til stjernetegnet.«, l3=0x25}
0x0a8…0cd Line {l1=0x23, l2=»0035 INTEGER TRUE,FALSE,FUNDET,DATE«, l3=0x23}
0x0cd…0e4 Line {l1=0x15, l2=»0036 TRUE:=1;FALSE:=0«, l3=0x15}
0x0e4…106 Line {l1=0x20, l2=»0040 DIM NAVN$ OF 30,TEGN$ OF 30«, l3=0x20}
0x106…12c Line {l1=0x24, l2=»0050 DIM FØDSELSMD$ OF 30,DATO$ OF 6«, l3=0x24}
0x12c…136 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x136…143 Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x143…154 Line {l1=0x0f, l2=»0080 CURSOR 5,5«, l3=0x0f}
0x154…1a0 Line {l1=0x4a, l2=»0090 PRINT " I H V I L K E T S T J E R N E T E G N E R D U ";«, l3=0x4a}
0x1a0…1b8 Line {l1=0x16, l2=»0095 PRINT "F Ø D T ?"«, l3=0x16}
0x1b8…1c9 Line {l1=0x0f, l2=»0100 CURSOR 5,6«, l3=0x0f}
0x1c9…218 Line {l1=0x4d, l2=»0110 PRINT "---------------------------------------------------------------";«, l3=0x4d}
0x218…22c Line {l1=0x12, l2=»0115 PRINT "-----"«, l3=0x12}
0x22c…23d Line {l1=0x0f, l2=»0120 CURSOR 5,8«, l3=0x0f}
0x23d…287 Line {l1=0x48, l2=»0130 INPUT "Indtast fødselsdato: ":DATE«, l3=0x48}
0x287…299 Line {l1=0x10, l2=»0140 CURSOR 5,10«, l3=0x10}
0x299…2e8 Line {l1=0x4d, l2=»0150 INPUT "Indtast fødselsmåned (små bogstaver): ":FØDSELSMD$«, l3=0x4d}
0x2e8…2fc Line {l1=0x12, l2=»0160 FUNDET:=FALSE«, l3=0x12}
0x2fc…30e Line {l1=0x10, l2=»0170 CURSOR 1,22«, l3=0x10}
0x30e…318 Line {l1=0x08, l2=»0180 // «, l3=0x08}
0x318…331 Line {l1=0x17, l2=»0190 FOR I:=1 TO 24 DO «, l3=0x17}
0x331…350 Line {l1=0x1d, l2=»0200 READ DG1,DG2,NAVN$,TEGN$«, l3=0x1d}
0x350…38c Line {l1=0x3a, l2=»0210 IF DATE=>DG1 AND DATE<=DG2 AND FØDSELSMD$=NAVN$ THEN «, l3=0x3a}
0x38c…39e Line {l1=0x10, l2=»0220 CURSOR 5,18«, l3=0x10}
0x39e…3da Line {l1=0x3a, l2=»0230 PRINT "Da du er født den ";DATE;". ";FØDSELSMD$;", ";«, l3=0x3a}
0x3da…407 Line {l1=0x2b, l2=»0240 PRINT "er du født i ";TEGN$;"'s tegn."«, l3=0x2b}
0x407…41a Line {l1=0x11, l2=»0250 FUNDET:=TRUE«, l3=0x11}
0x41a…425 Line {l1=0x09, l2=»0260 END «, l3=0x09}
0x425…432 Line {l1=0x0b, l2=»0270 ENDIF «, l3=0x0b}
0x432…43f Line {l1=0x0b, l2=»0280 NEXT I«, l3=0x0b}
0x43f…449 Line {l1=0x08, l2=»0290 // «, l3=0x08}
0x449…463 Line {l1=0x18, l2=»0300 IF NOT FUNDET THEN «, l3=0x18}
0x463…475 Line {l1=0x10, l2=»0310 CURSOR 5,22«, l3=0x10}
0x475…4a1 Line {l1=0x2a, l2=»0320 PRINT "Du er ikke født i noget tegn."«, l3=0x2a}
0x4a1…4ac Line {l1=0x09, l2=»0330 END «, l3=0x09}
0x4ac…4b9 Line {l1=0x0b, l2=»0340 ENDIF «, l3=0x0b}
0x4b9…4c3 Line {l1=0x08, l2=»0350 // «, l3=0x08}
0x4c3…50e Line {l1=0x49, l2=»0360 INPUT "Indtast fødselsdato: ":DATE«, l3=0x49}
0x50e…53a Line {l1=0x2a, l2=»0370 DATA 1,20,"april"," V Æ D D E R E N "«, l3=0x2a}
0x53a…561 Line {l1=0x25, l2=»0380 DATA 21,30,"april"," T Y R E N "«, l3=0x25}
0x561…585 Line {l1=0x22, l2=»0390 DATA 1,21,"maj"," T Y R E N "«, l3=0x22}
0x585…5b8 Line {l1=0x31, l2=»0400 DATA 22,31,"maj"," T V I L L I N G E R N E "«, l3=0x31}
0x5b8…5e9 Line {l1=0x2f, l2=»0410 DATA 1,22,"juni"," T V I L I N G E R N E "«, l3=0x2f}
0x5e9…613 Line {l1=0x28, l2=»0420 DATA 22,30,"juni"," K R E B S E N "«, l3=0x28}
0x613…63c Line {l1=0x27, l2=»0430 DATA 1,22,"juli"," K R E B S E N "«, l3=0x27}
0x63c…662 Line {l1=0x24, l2=»0440 DATA 23,31,"juli"," L Ø V E N "«, l3=0x24}
0x662…689 Line {l1=0x25, l2=»0450 DATA 1,23,"august"," L Ø V E N "«, l3=0x25}
0x689…6b7 Line {l1=0x2c, l2=»0460 DATA 24,31,"august"," J O M F R U E N "«, l3=0x2c}
0x6b7…6e7 Line {l1=0x2e, l2=»0470 DATA 1,23,"september"," J O M F R U E N "«, l3=0x2e}
0x6e7…714 Line {l1=0x2b, l2=»0480 DATA 24,30,"september"," V Æ G T E N "«, l3=0x2b}
0x714…73e Line {l1=0x28, l2=»0490 DATA 1,23,"oktober"," V Æ G T E N "«, l3=0x28}
0x73e…771 Line {l1=0x31, l2=»0500 DATA 24,31,"oktober"," S K O R P I O N E N "«, l3=0x31}
0x771…7a4 Line {l1=0x31, l2=»0510 DATA 1,23,"november"," S K O R P I O N E N "«, l3=0x31}
0x7a4…7d2 Line {l1=0x2c, l2=»0520 DATA 24,30,"november"," S K Y T T E N "«, l3=0x2c}
0x7d2…7ff Line {l1=0x2b, l2=»0530 DATA 1,21,"december"," S K Y T T E N "«, l3=0x2b}
0x7ff…833 Line {l1=0x32, l2=»0540 DATA 22,31,"december"," S T E N B U K K E N "«, l3=0x32}
0x833…864 Line {l1=0x2f, l2=»0550 DATA 1,20,"januar"," S T E N B U K K E N "«, l3=0x2f}
0x864…896 Line {l1=0x30, l2=»0560 DATA 21,31,"januar"," V A N D M A N D E N "«, l3=0x30}
0x896…8c8 Line {l1=0x30, l2=»0570 DATA 1,19,"februar"," V A N D M A N D E N "«, l3=0x30}
0x8c8…8f5 Line {l1=0x2b, l2=»0580 DATA 19,29,"februar"," F I S K E N E "«, l3=0x2b}
0x8f5…91f Line {l1=0x28, l2=»0590 DATA 1,20,"marts"," F I S K E N E "«, l3=0x28}
0x91f…94c Line {l1=0x2b, l2=»0600 DATA 21,31,"marts"," V Æ D D E R E N "«, l3=0x2b}
0x94c…960 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x960…980 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┆
[…0x3…]