|
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: »TRETTEN«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRETTEN«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TRETTEN«
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"