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 TextFile, Mikados_K
    Names: »WINNER«

Derivation

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

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 

'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