|
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 - metrics - download
Length: 2528 (0x9e0) Notes: Mikados TextFile, Mikados_K Names: »STJERN2«
└─⟦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«
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