|
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: »STYRTLØB.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STYRTLØB.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STYRTLØB.K«
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
0x000…04f Line {l1=0x4d, l2=»0010 // ---------------------- styrtløb -------------------------------------«, l3=0x4d}
0x04f…08e Line {l1=0x3d, l2=»0020 // Programmet laver en tavle med de tre bedst placerede.«, l3=0x3d}
0x08e…098 Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x098…0c7 Line {l1=0x2d, l2=»0031 INTEGER I,J,TRUE,FALSE,ANTAL,NR1,NR2,NR3«, l3=0x2d}
0x0c7…0de Line {l1=0x15, l2=»0032 TRUE:=1;FALSE:=0«, l3=0x15}
0x0de…0f9 Line {l1=0x19, l2=»0040 NR1:=0;NR2:=0;NR3:=0«, l3=0x19}
0x0f9…11c Line {l1=0x21, l2=»0050 FØRSTE:=9;ANDEN:=9;TREDIE:=9«, l3=0x21}
0x11c…126 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x126…13c Line {l1=0x14, l2=»0070 EXEC OVERSKRIFT«, l3=0x14}
0x13c…158 Line {l1=0x1a, l2=»0080 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x158…16e Line {l1=0x14, l2=»0090 EXEC TIDTAGNING«, l3=0x14}
0x16e…183 Line {l1=0x13, l2=»0100 EXEC PLACERING«, l3=0x13}
0x183…197 Line {l1=0x12, l2=»0110 EXEC LYSTAVLE«, l3=0x12}
0x197…1a4 Line {l1=0x0b, l2=»0120 NEXT I«, l3=0x0b}
0x1a4…1ae Line {l1=0x08, l2=»0130 // «, l3=0x08}
0x1ae…1c4 Line {l1=0x14, l2=»0140 PROC OVERSKRIFT«, l3=0x14}
0x1c4…1d1 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x1d1…1e3 Line {l1=0x10, l2=»0160 CURSOR 22,2«, l3=0x10}
0x1e3…20f Line {l1=0x2a, l2=»0170 PRINT " +++ S T Y R T L Ø B +++ "«, l3=0x2a}
0x20f…221 Line {l1=0x10, l2=»0180 CURSOR 22,5«, l3=0x10}
0x221…23b Line {l1=0x18, l2=»0190 PRINT "Løber nr. "«, l3=0x18}
0x23b…24d Line {l1=0x10, l2=»0200 CURSOR 22,8«, l3=0x10}
0x24d…273 Line {l1=0x24, l2=»0210 PRINT "Tid (1.0000 - 5.0000) :"«, l3=0x24}
0x273…286 Line {l1=0x11, l2=»0220 CURSOR 22,10«, l3=0x11}
0x286…2bc Line {l1=0x34, l2=»0230 INPUT "Indtast antallet af deltagere: ":ANTAL«, l3=0x34}
0x2bc…2cf Line {l1=0x11, l2=»0240 CURSOR 22,10«, l3=0x11}
0x2cf…31a Line {l1=0x49, l2=»0250 PRINT " "«, l3=0x49}
0x31a…333 Line {l1=0x17, l2=»0260 ENDPROC OVERSKRIFT«, l3=0x17}
0x333…33d Line {l1=0x08, l2=»0270 // «, l3=0x08}
0x33d…353 Line {l1=0x14, l2=»0280 PROC TIDTAGNING«, l3=0x14}
0x353…365 Line {l1=0x10, l2=»0290 CURSOR 42,5«, l3=0x10}
0x365…373 Line {l1=0x0c, l2=»0300 PRINT I«, l3=0x0c}
0x373…385 Line {l1=0x10, l2=»0301 CURSOR 52,8«, l3=0x10}
0x385…3a0 Line {l1=0x19, l2=»0302 PRINT " "«, l3=0x19}
0x3a0…3b2 Line {l1=0x10, l2=»0310 CURSOR 52,8«, l3=0x10}
0x3b2…3c5 Line {l1=0x11, l2=»0320 INPUT "":TID«, l3=0x11}
0x3c5…3de Line {l1=0x17, l2=»0330 ENDPROC TIDTAGNING«, l3=0x17}
0x3de…3e8 Line {l1=0x08, l2=»0340 // «, l3=0x08}
0x3e8…3fd Line {l1=0x13, l2=»0350 PROC PLACERING«, l3=0x13}
0x3fd…411 Line {l1=0x12, l2=»0360 CASE TRUE OF «, l3=0x12}
0x411…427 Line {l1=0x14, l2=»0370 WHEN TID<FØRSTE«, l3=0x14}
0x427…444 Line {l1=0x1b, l2=»0380 TREDIE:=ANDEN;NR3:=NR2«, l3=0x1b}
0x444…461 Line {l1=0x1b, l2=»0390 ANDEN:=FØRSTE;NR2:=NR1«, l3=0x1b}
0x461…47a Line {l1=0x17, l2=»0400 FØRSTE:=TID;NR1:=I«, l3=0x17}
0x47a…48f Line {l1=0x13, l2=»0410 WHEN TID<ANDEN«, l3=0x13}
0x48f…4ac Line {l1=0x1b, l2=»0420 TREDIE:=ANDEN;NR3:=NR2«, l3=0x1b}
0x4ac…4c4 Line {l1=0x16, l2=»0430 ANDEN:=TID;NR2:=I«, l3=0x16}
0x4c4…4da Line {l1=0x14, l2=»0440 WHEN TID<TREDIE«, l3=0x14}
0x4da…4f3 Line {l1=0x17, l2=»0450 TREDIE:=TID;NR3:=I«, l3=0x17}
0x4f3…509 Line {l1=0x14, l2=»0460 WHEN TID=TREDIE«, l3=0x14}
0x509…51c Line {l1=0x11, l2=»0470 CURSOR 22,21«, l3=0x11}
0x51c…539 Line {l1=0x1b, l2=»0480 PRINT "Løber nr. ";I;«, l3=0x1b}
0x539…56f Line {l1=0x34, l2=»0490 PRINT "opnåede samme tid som den trediebedste."«, l3=0x34}
0x56f…592 Line {l1=0x21, l2=»0500 FOR J:=1 TO 1000 DO // pause«, l3=0x21}
0x592…5a5 Line {l1=0x11, l2=»0520 CURSOR 22,21«, l3=0x11}
0x5a5…5f4 Line {l1=0x4d, l2=»0530 PRINT " «, l3=0x4d}
0x5f4…62e Line {l1=0x38, l2=»0540 PRINT " "«, l3=0x38}
0x62e…63f Line {l1=0x0f, l2=»0550 OTHERWISE «, l3=0x0f}
0x63f…652 Line {l1=0x11, l2=»0560 CURSOR 21,21«, l3=0x11}
0x652…66f Line {l1=0x1b, l2=»0570 PRINT "Løber nr. ";I;«, l3=0x1b}
0x66f…6aa Line {l1=0x39, l2=»0580 PRINT "opnåede ikke placering blandt de tre bedste."«, l3=0x39}
0x6aa…6cd Line {l1=0x21, l2=»0590 FOR J:=1 TO 1000 DO // pause«, l3=0x21}
0x6cd…6e0 Line {l1=0x11, l2=»0610 CURSOR 21,21«, l3=0x11}
0x6e0…72f Line {l1=0x4d, l2=»0620 PRINT " «, l3=0x4d}
0x72f…73e Line {l1=0x0d, l2=»0630 ENDCASE «, l3=0x0d}
0x73e…756 Line {l1=0x16, l2=»0640 ENDPROC PLACERING«, l3=0x16}
0x756…760 Line {l1=0x08, l2=»0650 // «, l3=0x08}
0x760…774 Line {l1=0x12, l2=»0660 PROC LYSTAVLE«, l3=0x12}
0x774…787 Line {l1=0x11, l2=»0670 CURSOR 21,15«, l3=0x11}
0x787…7b7 Line {l1=0x2e, l2=»0680 PRINT USING "1: Deltager nr.####":NR1;«, l3=0x2e}
0x7b7…7e2 Line {l1=0x29, l2=»0690 PRINT USING " Tid:##.####":FØRSTE«, l3=0x29}
0x7e2…7f5 Line {l1=0x11, l2=»0700 IF I>1 THEN «, l3=0x11}
0x7f5…808 Line {l1=0x11, l2=»0710 CURSOR 21,17«, l3=0x11}
0x808…838 Line {l1=0x2e, l2=»0720 PRINT USING "2: Deltager nr.####":NR2;«, l3=0x2e}
0x838…862 Line {l1=0x28, l2=»0730 PRINT USING " Tid:##.####":ANDEN«, l3=0x28}
0x862…86f Line {l1=0x0b, l2=»0740 ENDIF «, l3=0x0b}
0x86f…882 Line {l1=0x11, l2=»0750 IF I>2 THEN «, l3=0x11}
0x882…895 Line {l1=0x11, l2=»0760 CURSOR 21,19«, l3=0x11}
0x895…8c5 Line {l1=0x2e, l2=»0770 PRINT USING "3: Deltager nr.####":NR3;«, l3=0x2e}
0x8c5…8f0 Line {l1=0x29, l2=»0780 PRINT USING " Tid:##.####":TREDIE«, l3=0x29}
0x8f0…8fd Line {l1=0x0b, l2=»0790 ENDIF «, l3=0x0b}
0x8fd…914 Line {l1=0x15, l2=»0800 ENDPROC LYSTAVLE«, l3=0x15}
0x914…926 Line {l1=0x10, l2=»0900 CURSOR 1,22«, l3=0x10}
0x926…940 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccc┆
0x940…960 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┆
[…0x4…]