|
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: »TRETTEN.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRETTEN.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRETTEN.K«
0010 // ------------------------ Tretten ----------------------- 0020 // Programmet udskriver antallet af rigtige på en tipskupon, 0030 // når man indtaster de 13 rigtige tegn. 0040 DIM RESULTAT$(13) OF 1,TIPS$(13) OF 1 0045 INTEGER NR,RÆKKE,ANTRÆKKER,SUM // Definering af heltal 0050 // 0060 CLEAR 0070 CURSOR 1,2 0080 PRINT "Indtastning af de 13 rigtige tipstegn: " 0090 CURSOR 1,3 0100 PRINT "-------------------------------------- " 0110 FOR NR:=1 TO 13 DO 0120 REPEAT 0130 CURSOR 1,4+NR 0140 PRINT "<Z>Indtast resultatet for kamp nr: ";NR 0150 CURSOR 36,4+NR 0160 INPUT "<S>":RESULTAT$(NR) 0170 UNTIL RESULTAT$(NR) IN "1,2,x" 0180 NEXT NR 0190 // 0200 RÆKKE:=0;SUM:=0 0205 READ ANTRÆKKER 0210 FOR RÆKKE:=1 TO ANTRÆKKER DO 0220 FOR NR:=1 TO 13 DO 0230 READ TIPS$(NR) 0240 IF TIPS$(NR)=RESULTAT$(NR) THEN SUM:=SUM+1 0250 NEXT NR 0270 CURSOR 1,18+RÆKKE 0280 PRINT USING "Række nr: ### havde ## rigtige.":RÆKKE,SUM 0290 SUM:=0 0300 NEXT RÆKKE 0310 // 0314 // DATA 3 = antal rækker 0315 DATA 3 0320 DATA "1","2","2","x","x","1","2","1","x","1","2","2","x" 0330 DATA "1","1","1","2","x","2","x","x","2","1","1","x","2" 0340 DATA "2","2","x","1","2","x","1","1","x","2","1","1","x"
0x000…042 Line {l1=0x40, l2=»0010 // ------------------------ Tretten -----------------------«, l3=0x40}
0x042…085 Line {l1=0x41, l2=»0020 // Programmet udskriver antallet af rigtige på en tipskupon,«, l3=0x41}
0x085…0b4 Line {l1=0x2d, l2=»0030 // når man indtaster de 13 rigtige tegn.«, l3=0x2d}
0x0b4…0e0 Line {l1=0x2a, l2=»0040 DIM RESULTAT$(13) OF 1,TIPS$(13) OF 1«, l3=0x2a}
0x0e0…11d Line {l1=0x3b, l2=»0045 INTEGER NR,RÆKKE,ANTRÆKKER,SUM // Definering af heltal«, l3=0x3b}
0x11d…127 Line {l1=0x08, l2=»0050 // «, l3=0x08}
0x127…134 Line {l1=0x0b, l2=»0060 CLEAR «, l3=0x0b}
0x134…145 Line {l1=0x0f, l2=»0070 CURSOR 1,2«, l3=0x0f}
0x145…17b Line {l1=0x34, l2=»0080 PRINT "Indtastning af de 13 rigtige tipstegn: "«, l3=0x34}
0x17b…18c Line {l1=0x0f, l2=»0090 CURSOR 1,3«, l3=0x0f}
0x18c…1c2 Line {l1=0x34, l2=»0100 PRINT "-------------------------------------- "«, l3=0x34}
0x1c2…1dc Line {l1=0x18, l2=»0110 FOR NR:=1 TO 13 DO «, l3=0x18}
0x1dc…1ea Line {l1=0x0c, l2=»0120 REPEAT «, l3=0x0c}
0x1ea…1fe Line {l1=0x12, l2=»0130 CURSOR 1,4+NR«, l3=0x12}
0x1fe…233 Line {l1=0x33, l2=»0140 PRINT "<Z>Indtast resultatet for kamp nr: ";NR«, l3=0x33}
0x233…248 Line {l1=0x13, l2=»0150 CURSOR 36,4+NR«, l3=0x13}
0x248…268 Line {l1=0x1e, l2=»0160 INPUT "<S>":RESULTAT$(NR)«, l3=0x1e}
0x268…28d Line {l1=0x23, l2=»0170 UNTIL RESULTAT$(NR) IN "1,2,x"«, l3=0x23}
0x28d…29b Line {l1=0x0c, l2=»0180 NEXT NR«, l3=0x0c}
0x29b…2a5 Line {l1=0x08, l2=»0190 // «, l3=0x08}
0x2a5…2bb Line {l1=0x14, l2=»0200 RÆKKE:=0;SUM:=0«, l3=0x14}
0x2bb…2d0 Line {l1=0x13, l2=»0205 READ ANTRÆKKER«, l3=0x13}
0x2d0…2f4 Line {l1=0x22, l2=»0210 FOR RÆKKE:=1 TO ANTRÆKKER DO «, l3=0x22}
0x2f4…30e Line {l1=0x18, l2=»0220 FOR NR:=1 TO 13 DO «, l3=0x18}
0x30e…323 Line {l1=0x13, l2=»0230 READ TIPS$(NR)«, l3=0x13}
0x323…354 Line {l1=0x2f, l2=»0240 IF TIPS$(NR)=RESULTAT$(NR) THEN SUM:=SUM+1«, l3=0x2f}
0x354…362 Line {l1=0x0c, l2=»0250 NEXT NR«, l3=0x0c}
0x362…37a Line {l1=0x16, l2=»0270 CURSOR 1,18+RÆKKE«, l3=0x16}
0x37a…3b8 Line {l1=0x3c, l2=»0280 PRINT USING "Række nr: ### havde ## rigtige.":RÆKKE,SUM«, l3=0x3c}
0x3b8…3c5 Line {l1=0x0b, l2=»0290 SUM:=0«, l3=0x0b}
0x3c5…3d6 Line {l1=0x0f, l2=»0300 NEXT RÆKKE«, l3=0x0f}
0x3d6…3e0 Line {l1=0x08, l2=»0310 // «, l3=0x08}
0x3e0…3ff Line {l1=0x1d, l2=»0314 // DATA 3 = antal rækker«, l3=0x1d}
0x3ff…40c Line {l1=0x0b, l2=»0315 DATA 3«, l3=0x0b}
0x40c…44b Line {l1=0x3d, l2=»0320 DATA "1","2","2","x","x","1","2","1","x","1","2","2","x"«, l3=0x3d}
0x44b…48a Line {l1=0x3d, l2=»0330 DATA "1","1","1","2","x","2","x","x","2","1","1","x","2"«, l3=0x3d}
0x48a…4c9 Line {l1=0x3d, l2=»0340 DATA "2","2","x","1","2","x","1","1","x","2","1","1","x"«, l3=0x3d}
0x4c9…4e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccc┆
0x4e0…500 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┆
[…0x27…]