DataMuseum.dk

top - metrics - download

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »STYRTLØB«

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

Text

0010 // ---------------------- styrtløb -------------------------------------
0020 // Programmet laver en tavle med de tre bedst placerede.
0030 // 
0031 INTEGER I,J,TRUE,FALSE,ANTAL,NR1,NR2,NR3
0032 TRUE:=1;FALSE:=0
0040 NR1:=0;NR2:=0;NR3:=0
0050 FØRSTE:=9;ANDEN:=9;TREDIE:=9
0060 // 
0070 EXEC OVERSKRIFT
0080 FOR I:=1 TO ANTAL DO 
0090 EXEC TIDTAGNING
0100 EXEC PLACERING
0110 EXEC LYSTAVLE
0120 NEXT I
0130 // 
0140 PROC OVERSKRIFT
0150 CLEAR 
0160 CURSOR 22,2
0170 PRINT " +++   S T Y R T L Ø B   +++ "
0180 CURSOR 22,5
0190 PRINT "Løber nr.  "
0200 CURSOR 22,8
0210 PRINT "Tid (1.0000 - 5.0000) :"
0220 CURSOR 22,10
0230 INPUT "Indtast antallet af deltagere:   ":ANTAL
0240 CURSOR 22,10
0250 PRINT "                                                            "
0260 ENDPROC OVERSKRIFT
0270 // 
0280 PROC TIDTAGNING
0290 CURSOR 42,5
0300 PRINT I
0301 CURSOR 52,8
0302 PRINT "            "
0310 CURSOR 52,8
0320 INPUT "":TID
0330 ENDPROC TIDTAGNING
0340 // 
0350 PROC PLACERING
0360 CASE TRUE OF 
0370 WHEN TID<FØRSTE
0380 TREDIE:=ANDEN;NR3:=NR2
0390 ANDEN:=FØRSTE;NR2:=NR1
0400 FØRSTE:=TID;NR1:=I
0410 WHEN TID<ANDEN
0420 TREDIE:=ANDEN;NR3:=NR2
0430 ANDEN:=TID;NR2:=I
0440 WHEN TID<TREDIE
0450 TREDIE:=TID;NR3:=I
0460 WHEN TID=TREDIE
0470 CURSOR 22,21
0480 PRINT "Løber nr.  ";I;
0490 PRINT "opnåede samme tid som den trediebedste."
0500 FOR J:=1 TO 1000 DO // pause
0520 CURSOR 22,21
0530 PRINT "                                                                 
0540 PRINT "                                           "
0550 OTHERWISE 
0560 CURSOR 21,21
0570 PRINT "Løber nr.  ";I;
0580 PRINT "opnåede ikke placering blandt de tre bedste."
0590 FOR J:=1 TO 1000 DO // pause
0610 CURSOR 21,21
0620 PRINT "                                                                 
0630 ENDCASE 
0640 ENDPROC PLACERING
0650 // 
0660 PROC LYSTAVLE
0670 CURSOR 21,15
0680 PRINT USING "1:    Deltager nr.####":NR1;
0690 PRINT USING "    Tid:##.####":FØRSTE
0700 IF I>1 THEN 
0710 CURSOR 21,17
0720 PRINT USING "2:    Deltager nr.####":NR2;
0730 PRINT USING "    Tid:##.####":ANDEN
0740 ENDIF 
0750 IF I>2 THEN 
0760 CURSOR 21,19
0770 PRINT USING "3:    Deltager nr.####":NR3;
0780 PRINT USING "    Tid:##.####":TREDIE
0790 ENDIF 
0800 ENDPROC LYSTAVLE
0900 CURSOR 1,22