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 - download

⟦3071fbee2⟧ TextFile

    Length: 672 (0x2a0)
    Types: TextFile
    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

TextFile

▶1b◀0100 DIM NAVN$(20),FIL$(10)▶1b◀▶15◀0110 FIL$="DDE:TEAMS"▶15◀\r0112 OUTPUT P\r▶08◀0115 I=1▶08◀▶10◀0120 OPEN FIL$,R▶10◀J0125 PRINT "      NR","KLUBNAVN              RATING   AK    HJK  HJD  UDD"J▶0e◀0126 PRINT " "▶0e◀\f

0130 REPEAT \f

+0140 GET FIL$,I:NAVN$,RH,AKH,HJKH,HJDH,UDDH+▶1a◀0145 IF NAVN$<>"PIP" THEN ▶1a◀▶13◀0150 PRINT I,NAVN$,▶13◀F0151 PRINT USING "#####.###  ###  ###  ###  ###":RH;AKH;HJKH;HJDH;UDDHF▶0b◀0152 PRINT ▶0b◀▶0b◀0155 ENDIF ▶0b◀
0160 I=I+1
▶16◀0170 UNTIL NAVN$="PIP"▶16◀▶0f◀0180 CLOSE FIL$▶0f◀\r0185 OUTPUT T\r	0190 END 	▶00◀▶00◀0)▶1b◀▶15◀0110 FIL$="DDE:TEAMS"▶15◀\r0112 OUTPUT P\r▶08◀0115 I=1▶08◀▶10◀0120 OPEN FIL$,R▶10◀J0125 PRINT "      NR","KLUBNAVN              RATING   AK    HJK  HJD  UDD"J▶0b◀0126 PRINT ▶0b◀\f

0130 REPEAT \f

+0140 GET FIL$,I:NAVN$,RH,