DataMuseum.dk

top - metrics - download

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

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

Text

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 "