|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 766 (0x2fe)
Notes: Mikados TextFile, Mikados_K
Names: »WINNER«
└─⟦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