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_K
    Names: »UDTEAMS.K«

Derivation

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

Mikados K File

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

Mikados K File

0x000…01d Line {l1=0x1b, l2=»0100 DIM NAVN$(20),FIL$(10)«, l3=0x1b}
0x01d…034 Line {l1=0x15, l2=»0110 FIL$="DDE:TEAMS"«, l3=0x15}
0x034…043 Line {l1=0x0d, l2=»0112 OUTPUT P«, l3=0x0d}
0x043…04d Line {l1=0x08, l2=»0115 I=1«, l3=0x08}
0x04d…05f Line {l1=0x10, l2=»0120 OPEN FIL$,R«, l3=0x10}
0x05f…0ab Line {l1=0x4a, l2=»0125 PRINT "      NR","KLUBNAVN              RATING   AK    HJK  HJD  UDD"«, l3=0x4a}
0x0ab…0bb Line {l1=0x0e, l2=»0126 PRINT " "«, l3=0x0e}
0x0bb…0c9 Line {l1=0x0c, l2=»0130 REPEAT «, l3=0x0c}
0x0c9…0f6 Line {l1=0x2b, l2=»0140 GET FIL$,I:NAVN$,RH,AKH,HJKH,HJDH,UDDH«, l3=0x2b}
0x0f6…112 Line {l1=0x1a, l2=»0145 IF NAVN$<>"PIP" THEN «, l3=0x1a}
0x112…127 Line {l1=0x13, l2=»0150 PRINT I,NAVN$,«, l3=0x13}
0x127…16f Line {l1=0x46, l2=»0151 PRINT USING "#####.###  ###  ###  ###  ###":RH;AKH;HJKH;HJDH;UDDH«, l3=0x46}
0x16f…17c Line {l1=0x0b, l2=»0152 PRINT «, l3=0x0b}
0x17c…189 Line {l1=0x0b, l2=»0155 ENDIF «, l3=0x0b}
0x189…195 Line {l1=0x0a, l2=»0160 I=I+1«, l3=0x0a}
0x195…1ad Line {l1=0x16, l2=»0170 UNTIL NAVN$="PIP"«, l3=0x16}
0x1ad…1be Line {l1=0x0f, l2=»0180 CLOSE FIL$«, l3=0x0f}
0x1be…1cd Line {l1=0x0d, l2=»0185 OUTPUT T«, l3=0x0d}
0x1cd…1d8 Line {l1=0x09, l2=»0190 END «, l3=0x09}
0x1d8…1e0 00 00 30 29 1b 15 30 31                                                                           ┆  0)  01┆
0x1e0…200 31 30 20 46 49 4c 24 3d 22 44 44 45 3a 54 45 41 4d 53 22 15 0d 30 31 31 32 20 4f 55 54 50 55 54   ┆10 FIL$="DDE:TEAMS"  0112 OUTPUT┆
0x200…220 20 50 0d 08 30 31 31 35 20 49 3d 31 08 10 30 31 32 30 20 4f 50 45 4e 20 46 49 4c 24 2c 52 10 4a   ┆ P  0115 I=1  0120 OPEN FIL$,R J┆
0x220…240 30 31 32 35 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 4e 52 22 2c 22 4b 4c 55 42 4e 41 56 4e 20   ┆0125 PRINT "      NR","KLUBNAVN ┆
0x240…260 20 20 20 20 20 20 20 20 20 20 20 20 20 52 41 54 49 4e 47 20 20 20 41 4b 20 20 20 20 48 4a 4b 20   ┆             RATING   AK    HJK ┆
0x260…280 20 48 4a 44 20 20 55 44 44 22 4a 0b 30 31 32 36 20 50 52 49 4e 54 20 0b 0c 30 31 33 30 20 52 45   ┆ HJD  UDD"J 0126 PRINT   0130 RE┆
0x280…2a0 50 45 41 54 20 0c 2b 30 31 34 30 20 47 45 54 20 46 49 4c 24 2c 49 3a 4e 41 56 4e 24 2c 52 48 2c   ┆PEAT  +0140 GET FIL$,I:NAVN$,RH,┆

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,

Reduced view