DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦7b9ae82f3⟧

    Length: 434 (0x1b2)
    Notes: Mikados TextFile, Mikados_K
    Names: »UDTEAMS«

Derivation

└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
    └─⟦this⟧ »UDTEAMS«

Text

0100 DIM NAVN$(20),FIL$(10)
0110 FIL$="DDE:TEAMS"
0112 OUTPUT P
0115 I=1
0120 OPEN FIL$,R
0125 PRINT "      NR","KLUBNAVN              RATING   AK    HJK  HJD  UDD"
0126 PRINT " "
0130 REPEAT 
0140 GET FIL$,I:NAVN$,RH,AKH,HJKH,HJDH,UDDH
0145 IF NAVN$<>"PIP" THEN 
0150 PRINT I,NAVN$,
0151 PRINT USING "#####.###  ###  ###  ###  ###":RH;AKH;HJKH;HJDH;UDDH
0152 PRINT 
0155 ENDIF 
0160 I=I+1
0170 UNTIL NAVN$="PIP"
0180 CLOSE FIL$
0185 OUTPUT T
0190 END