|
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: »STJERN2.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STJERN2.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STJERN2.K«
0010 // ------------------------- stjerner_2 ----------------------
0020 // Udskriver stjernetegn samt det pågældende tidsrum,
0030 // der svarer til stjernetegnet.
0035 INTEGER TRUE,FALSE,DATE
0036 TRUE:=1;FALSE:=0
0040 DIM NAVN$ OF 30,TEGN$ OF 30
0050 DIM FØDSELSMD$ OF 30,DATO$ OF 6
0060 TAB:=0
0070 //
0080 CLEAR
0090 CURSOR 5,5
0100 PRINT " I H V I L K E T S T J E R N E T E G N E R D U ";
0105 PRINT "F Ø D T ?"
0110 CURSOR 5,6
0120 PRINT "---------------------------------------------------------------";
0125 PRINT "------"
0130 CURSOR 5,8
0140 INPUT "Indtast fødselsdato: ":DATE
0150 CURSOR 5,10
0160 INPUT "Indtast fødselsmåned (januar osv.): ":FØDSELSMD$
0170 FUNDET:=FALSE
0180 OPEN "SYSTIME:ETOILES",R
0190 WHILE NOT EOF("SYSTIME:ETOILES") DO
0200 GET "SYSTIME:ETOILES":DG1,DG2,NAVN$,TEGN$
0210 //
0220 IF DATE=>DG1 AND DATE<=DG2 AND FØDSELSMD$=NAVN$ THEN
0230 CURSOR 5,18
0240 PRINT "Da du er født den ";DATE;". ";FØDSELSMD$;" , ";
0250 PRINT "er du født i ";TEGN$;"'s tegn."
0260 FUNDET:=TRUE
0270 //
0280 ENDIF
0290 ENDWHILE
0300 CLOSE
0310 IF NOT FUNDET THEN
0320 CURSOR 5,22
0330 PRINT "Du er ikke født i noget tegn."
0340 END
0350 ENDIF
0360 //
0370 PROC EOF(FNAVN$)
0380 EOF:=(STATUS(FNAVN$)=19)
0390 ENDPROC EOF
0x000…045 Line {l1=0x43, l2=»0010 // ------------------------- stjerner_2 ----------------------«, 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…0c6 Line {l1=0x1c, l2=»0035 INTEGER TRUE,FALSE,DATE«, l3=0x1c}
0x0c6…0dd Line {l1=0x15, l2=»0036 TRUE:=1;FALSE:=0«, l3=0x15}
0x0dd…0ff Line {l1=0x20, l2=»0040 DIM NAVN$ OF 30,TEGN$ OF 30«, l3=0x20}
0x0ff…125 Line {l1=0x24, l2=»0050 DIM FØDSELSMD$ OF 30,DATO$ OF 6«, l3=0x24}
0x125…132 Line {l1=0x0b, l2=»0060 TAB:=0«, l3=0x0b}
0x132…13c Line {l1=0x08, l2=»0070 // «, l3=0x08}
0x13c…149 Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x149…15a Line {l1=0x0f, l2=»0090 CURSOR 5,5«, l3=0x0f}
0x15a…1a6 Line {l1=0x4a, l2=»0100 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}
0x1a6…1be Line {l1=0x16, l2=»0105 PRINT "F Ø D T ?"«, l3=0x16}
0x1be…1cf Line {l1=0x0f, l2=»0110 CURSOR 5,6«, l3=0x0f}
0x1cf…21e Line {l1=0x4d, l2=»0120 PRINT "---------------------------------------------------------------";«, l3=0x4d}
0x21e…233 Line {l1=0x13, l2=»0125 PRINT "------"«, l3=0x13}
0x233…244 Line {l1=0x0f, l2=»0130 CURSOR 5,8«, l3=0x0f}
0x244…28e Line {l1=0x48, l2=»0140 INPUT "Indtast fødselsdato: ":DATE«, l3=0x48}
0x28e…2a0 Line {l1=0x10, l2=»0150 CURSOR 5,10«, l3=0x10}
0x2a0…2ef Line {l1=0x4d, l2=»0160 INPUT "Indtast fødselsmåned (januar osv.): ":FØDSELSMD$«, l3=0x4d}
0x2ef…303 Line {l1=0x12, l2=»0170 FUNDET:=FALSE«, l3=0x12}
0x303…322 Line {l1=0x1d, l2=»0180 OPEN "SYSTIME:ETOILES",R«, l3=0x1d}
0x322…34d Line {l1=0x29, l2=»0190 WHILE NOT EOF("SYSTIME:ETOILES") DO «, l3=0x29}
0x34d…37d Line {l1=0x2e, l2=»0200 GET "SYSTIME:ETOILES":DG1,DG2,NAVN$,TEGN$«, l3=0x2e}
0x37d…387 Line {l1=0x08, l2=»0210 // «, l3=0x08}
0x387…3c3 Line {l1=0x3a, l2=»0220 IF DATE=>DG1 AND DATE<=DG2 AND FØDSELSMD$=NAVN$ THEN «, l3=0x3a}
0x3c3…3d5 Line {l1=0x10, l2=»0230 CURSOR 5,18«, l3=0x10}
0x3d5…412 Line {l1=0x3b, l2=»0240 PRINT "Da du er født den ";DATE;". ";FØDSELSMD$;" , ";«, l3=0x3b}
0x412…43f Line {l1=0x2b, l2=»0250 PRINT "er du født i ";TEGN$;"'s tegn."«, l3=0x2b}
0x43f…452 Line {l1=0x11, l2=»0260 FUNDET:=TRUE«, l3=0x11}
0x452…45c Line {l1=0x08, l2=»0270 // «, l3=0x08}
0x45c…469 Line {l1=0x0b, l2=»0280 ENDIF «, l3=0x0b}
0x469…479 Line {l1=0x0e, l2=»0290 ENDWHILE «, l3=0x0e}
0x479…486 Line {l1=0x0b, l2=»0300 CLOSE «, l3=0x0b}
0x486…4a0 Line {l1=0x18, l2=»0310 IF NOT FUNDET THEN «, l3=0x18}
0x4a0…4b2 Line {l1=0x10, l2=»0320 CURSOR 5,22«, l3=0x10}
0x4b2…4de Line {l1=0x2a, l2=»0330 PRINT "Du er ikke født i noget tegn."«, l3=0x2a}
0x4de…4e9 Line {l1=0x09, l2=»0340 END «, l3=0x09}
0x4e9…4f6 Line {l1=0x0b, l2=»0350 ENDIF «, l3=0x0b}
0x4f6…500 Line {l1=0x08, l2=»0360 // «, l3=0x08}
0x500…517 Line {l1=0x15, l2=»0370 PROC EOF(FNAVN$)«, l3=0x15}
0x517…536 Line {l1=0x1d, l2=»0380 EOF:=(STATUS(FNAVN$)=19)«, l3=0x1d}
0x536…548 Line {l1=0x10, l2=»0390 ENDPROC EOF«, l3=0x10}
0x548…560 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccc┆
0x560…580 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┆
[…0x23…]