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

⟦6e6279234⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »WINNER.K«

Derivation

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

Mikados K File

0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10)
0101 DIM SV$(1)
0110 FIL$="DDE:TEAMS"
0120 OPEN FIL$,W
0125 Y=1
0130 REPEAT 
0132 CLEAR 
0135 REPEAT 
0136 CURSOR 1,1
0140 INPUT "HJEMMEHOLD ",HH
0145 IF HH>0 THEN 
0150 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH
0160 PRINT NAVNH$
0170 INPUT "RIGTIGT ",SV$
0172 ELSE 
0173 SV$="J"
0175 ENDIF 
0180 UNTIL SV$="J"
0185 IF HH>0 THEN 
0190 REPEAT 
0195 CURSOR 1,5
0200 INPUT "UDEHOLD ",UH
0210 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU
0220 PRINT NAVNU$
0230 INPUT "RIGTIGT ",SV$
0240 UNTIL SV$="J"
0241 H=0
0242 IF HJKH>0 THEN H=H+HJDH/HJKH
0243 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU)
0244 H=H/2
0260 W=H+(RH-RU)*Y
0265 OUTPUT P
0270 PRINT NAVNH$;TAB(20);" MOD ";NAVNU$;TAB(45);" VINDER-MARGIN ";W
0275 OUTPUT T
0360 ENDIF 
0370 UNTIL HH=0
0380 CLOSE FIL$
0390 END

Mikados K File

0x000…029 Line {l1=0x27, l2=»0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10)«, l3=0x27}
0x029…03a Line {l1=0x0f, l2=»0101 DIM SV$(1)«, l3=0x0f}
0x03a…051 Line {l1=0x15, l2=»0110 FIL$="DDE:TEAMS"«, l3=0x15}
0x051…063 Line {l1=0x10, l2=»0120 OPEN FIL$,W«, l3=0x10}
0x063…06d Line {l1=0x08, l2=»0125 Y=1«, l3=0x08}
0x06d…07b Line {l1=0x0c, l2=»0130 REPEAT «, l3=0x0c}
0x07b…088 Line {l1=0x0b, l2=»0132 CLEAR «, l3=0x0b}
0x088…096 Line {l1=0x0c, l2=»0135 REPEAT «, l3=0x0c}
0x096…0a7 Line {l1=0x0f, l2=»0136 CURSOR 1,1«, l3=0x0f}
0x0a7…0c4 Line {l1=0x1b, l2=»0140 INPUT "HJEMMEHOLD ",HH«, l3=0x1b}
0x0c4…0d8 Line {l1=0x12, l2=»0145 IF HH>0 THEN «, l3=0x12}
0x0d8…107 Line {l1=0x2d, l2=»0150 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH«, l3=0x2d}
0x107…11a Line {l1=0x11, l2=»0160 PRINT NAVNH$«, l3=0x11}
0x11a…135 Line {l1=0x19, l2=»0170 INPUT "RIGTIGT ",SV$«, l3=0x19}
0x135…141 Line {l1=0x0a, l2=»0172 ELSE «, l3=0x0a}
0x141…14f Line {l1=0x0c, l2=»0173 SV$="J"«, l3=0x0c}
0x14f…15c Line {l1=0x0b, l2=»0175 ENDIF «, l3=0x0b}
0x15c…170 Line {l1=0x12, l2=»0180 UNTIL SV$="J"«, l3=0x12}
0x170…184 Line {l1=0x12, l2=»0185 IF HH>0 THEN «, l3=0x12}
0x184…192 Line {l1=0x0c, l2=»0190 REPEAT «, l3=0x0c}
0x192…1a3 Line {l1=0x0f, l2=»0195 CURSOR 1,5«, l3=0x0f}
0x1a3…1bd Line {l1=0x18, l2=»0200 INPUT "UDEHOLD ",UH«, l3=0x18}
0x1bd…1ec Line {l1=0x2d, l2=»0210 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU«, l3=0x2d}
0x1ec…1ff Line {l1=0x11, l2=»0220 PRINT NAVNU$«, l3=0x11}
0x1ff…21a Line {l1=0x19, l2=»0230 INPUT "RIGTIGT ",SV$«, l3=0x19}
0x21a…22e Line {l1=0x12, l2=»0240 UNTIL SV$="J"«, l3=0x12}
0x22e…238 Line {l1=0x08, l2=»0241 H=0«, l3=0x08}
0x238…25b Line {l1=0x21, l2=»0242 IF HJKH>0 THEN H=H+HJDH/HJKH«, l3=0x21}
0x25b…28c Line {l1=0x2f, l2=»0243 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU)«, l3=0x2f}
0x28c…298 Line {l1=0x0a, l2=»0244 H=H/2«, l3=0x0a}
0x298…2ac Line {l1=0x12, l2=»0260 W=H+(RH-RU)*Y«, l3=0x12}
0x2ac…2bb Line {l1=0x0d, l2=»0265 OUTPUT P«, l3=0x0d}
0x2bb…301 Line {l1=0x44, l2=»0270 PRINT NAVNH$;TAB(20);" MOD ";NAVNU$;TAB(45);" VINDER-MARGIN ";W«, l3=0x44}
0x301…310 Line {l1=0x0d, l2=»0275 OUTPUT T«, l3=0x0d}
0x310…31d Line {l1=0x0b, l2=»0360 ENDIF «, l3=0x0b}
0x31d…32e Line {l1=0x0f, l2=»0370 UNTIL HH=0«, l3=0x0f}
0x32e…33f Line {l1=0x0f, l2=»0380 CLOSE FIL$«, l3=0x0f}
0x33f…34a Line {l1=0x09, l2=»0390 END «, l3=0x09}
0x34a…360 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                 ┆  cccccccccccccccccccc┆
0x360…380 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┆
          […0x3…]

TextFile

'0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10)'▶0f◀0101 DIM SV$(1)▶0f◀▶15◀0110 FIL$="DDE:TEAMS"▶15◀▶10◀0120 OPEN FIL$,W▶10◀▶08◀0125 Y=1▶08◀\f

0130 REPEAT \f

▶0b◀0132 CLEAR ▶0b◀\f

0135 REPEAT \f

▶0f◀0136 CURSOR 1,1▶0f◀▶1b◀0140 INPUT "HJEMMEHOLD ",HH▶1b◀▶12◀0145 IF HH>0 THEN ▶12◀-0150 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH-▶11◀0160 PRINT NAVNH$▶11◀▶19◀0170 INPUT "RIGTIGT ",SV$▶19◀
0172 ELSE 
\f

0173 SV$="J"\f

▶0b◀0175 ENDIF ▶0b◀▶12◀0180 UNTIL SV$="J"▶12◀▶12◀0185 IF HH>0 THEN ▶12◀\f

0190 REPEAT \f

▶0f◀0195 CURSOR 1,5▶0f◀▶18◀0200 INPUT "UDEHOLD ",UH▶18◀-0210 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU-▶11◀0220 PRINT NAVNU$▶11◀▶19◀0230 INPUT "RIGTIGT ",SV$▶19◀▶12◀0240 UNTIL SV$="J"▶12◀▶08◀0241 H=0▶08◀!0242 IF HJKH>0 THEN H=H+HJDH/HJKH!/0243 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU)/
0244 H=H/2
▶12◀0260 W=H+(RH-RU)*Y▶12◀\r0265 OUTPUT P\rD0270 PRINT NAVNH$;TAB(20);" MOD ";NAVNU$;TAB(45);" VINDER-MARGIN ";WD\r0275 OUTPUT T\r▶0b◀0360 ENDIF ▶0b◀▶0f◀0370 UNTIL HH=0▶0f◀▶0f◀0380 CLOSE FIL$▶0f◀	0390 END 	▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view