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

⟦a0a2380a2⟧

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »STJERN2«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »STJERN2« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »STJERN2« 

Text

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