|
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 - download
Length: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »SETRATE.K«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »SETRATE.K«
0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10) 0110 DIM SV$(1) 0120 FIL$="DDE:TEAMS" 0130 OPEN FIL$,W 0140 REPEAT 0150 CLEAR 0160 REPEAT 0170 CURSOR 1,1 0180 INPUT "HJEMMEHOLD ",HH 0185 IF HH>0 THEN 0190 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH 0200 PRINT NAVNH$ 0210 INPUT "RIGTIGT ",SV$ 0212 ELSE 0213 SV$="J" 0214 ENDIF 0220 UNTIL SV$="J" 0230 IF HH>0 THEN 0240 REPEAT 0250 CURSOR 1,5 0260 INPUT "UDEHOLD ",UH 0270 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU 0280 PRINT NAVNU$ 0290 INPUT "RIGTIGT ",SV$ 0300 UNTIL SV$="J" 0310 REPEAT 0312 CURSOR 1,9 0320 INPUT "HJEMMEMÅL, UDEMÅL ",WH,WU 0330 INPUT "RIGTIGT ",SV$ 0340 UNTIL SV$="J" 0341 H=0 0342 IF HJKH>0 THEN H=H+HJDH/HJKH 0343 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU) 0344 H=H/2 0350 AKH=AKH+1 0360 AKU=AKU+1 0370 HJKH=HJKH+1 0380 HJDH=HJDH+WH-WU 0390 UDDU=UDDU+WU-WH 0410 RHO=RH 0420 RH=RH+(AKU-1)/(AKH*AKU-1)*((WH-WU)-H-RH+RU) 0430 RU=RU+(AKH-1)/(AKU*AKH-1)*((WU-WH)+H+RHO-RU) 0440 PUT FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH 0450 PUT FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU 0460 ENDIF 0470 UNTIL HH=0 0480 CLOSE FIL$ 0490 END
0x000…029 Line {l1=0x27, l2=»0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10)«, l3=0x27}
0x029…03a Line {l1=0x0f, l2=»0110 DIM SV$(1)«, l3=0x0f}
0x03a…051 Line {l1=0x15, l2=»0120 FIL$="DDE:TEAMS"«, l3=0x15}
0x051…063 Line {l1=0x10, l2=»0130 OPEN FIL$,W«, l3=0x10}
0x063…071 Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x071…07e Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x07e…08c Line {l1=0x0c, l2=»0160 REPEAT «, l3=0x0c}
0x08c…09d Line {l1=0x0f, l2=»0170 CURSOR 1,1«, l3=0x0f}
0x09d…0ba Line {l1=0x1b, l2=»0180 INPUT "HJEMMEHOLD ",HH«, l3=0x1b}
0x0ba…0ce Line {l1=0x12, l2=»0185 IF HH>0 THEN «, l3=0x12}
0x0ce…0fd Line {l1=0x2d, l2=»0190 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH«, l3=0x2d}
0x0fd…110 Line {l1=0x11, l2=»0200 PRINT NAVNH$«, l3=0x11}
0x110…12b Line {l1=0x19, l2=»0210 INPUT "RIGTIGT ",SV$«, l3=0x19}
0x12b…137 Line {l1=0x0a, l2=»0212 ELSE «, l3=0x0a}
0x137…145 Line {l1=0x0c, l2=»0213 SV$="J"«, l3=0x0c}
0x145…152 Line {l1=0x0b, l2=»0214 ENDIF «, l3=0x0b}
0x152…166 Line {l1=0x12, l2=»0220 UNTIL SV$="J"«, l3=0x12}
0x166…17a Line {l1=0x12, l2=»0230 IF HH>0 THEN «, l3=0x12}
0x17a…188 Line {l1=0x0c, l2=»0240 REPEAT «, l3=0x0c}
0x188…199 Line {l1=0x0f, l2=»0250 CURSOR 1,5«, l3=0x0f}
0x199…1b3 Line {l1=0x18, l2=»0260 INPUT "UDEHOLD ",UH«, l3=0x18}
0x1b3…1e2 Line {l1=0x2d, l2=»0270 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU«, l3=0x2d}
0x1e2…1f5 Line {l1=0x11, l2=»0280 PRINT NAVNU$«, l3=0x11}
0x1f5…210 Line {l1=0x19, l2=»0290 INPUT "RIGTIGT ",SV$«, l3=0x19}
0x210…224 Line {l1=0x12, l2=»0300 UNTIL SV$="J"«, l3=0x12}
0x224…232 Line {l1=0x0c, l2=»0310 REPEAT «, l3=0x0c}
0x232…243 Line {l1=0x0f, l2=»0312 CURSOR 1,9«, l3=0x0f}
0x243…26a Line {l1=0x25, l2=»0320 INPUT "HJEMMEMÅL, UDEMÅL ",WH,WU«, l3=0x25}
0x26a…285 Line {l1=0x19, l2=»0330 INPUT "RIGTIGT ",SV$«, l3=0x19}
0x285…299 Line {l1=0x12, l2=»0340 UNTIL SV$="J"«, l3=0x12}
0x299…2a3 Line {l1=0x08, l2=»0341 H=0«, l3=0x08}
0x2a3…2c6 Line {l1=0x21, l2=»0342 IF HJKH>0 THEN H=H+HJDH/HJKH«, l3=0x21}
0x2c6…2f7 Line {l1=0x2f, l2=»0343 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU)«, l3=0x2f}
0x2f7…303 Line {l1=0x0a, l2=»0344 H=H/2«, l3=0x0a}
0x303…313 Line {l1=0x0e, l2=»0350 AKH=AKH+1«, l3=0x0e}
0x313…323 Line {l1=0x0e, l2=»0360 AKU=AKU+1«, l3=0x0e}
0x323…335 Line {l1=0x10, l2=»0370 HJKH=HJKH+1«, l3=0x10}
0x335…34b Line {l1=0x14, l2=»0380 HJDH=HJDH+WH-WU«, l3=0x14}
0x34b…361 Line {l1=0x14, l2=»0390 UDDU=UDDU+WU-WH«, l3=0x14}
0x361…36e Line {l1=0x0b, l2=»0410 RHO=RH«, l3=0x0b}
0x36e…3a0 Line {l1=0x30, l2=»0420 RH=RH+(AKU-1)/(AKH*AKU-1)*((WH-WU)-H-RH+RU)«, l3=0x30}
0x3a0…3d3 Line {l1=0x31, l2=»0430 RU=RU+(AKH-1)/(AKU*AKH-1)*((WU-WH)+H+RHO-RU)«, l3=0x31}
0x3d3…402 Line {l1=0x2d, l2=»0440 PUT FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH«, l3=0x2d}
0x402…431 Line {l1=0x2d, l2=»0450 PUT FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU«, l3=0x2d}
0x431…43e Line {l1=0x0b, l2=»0460 ENDIF «, l3=0x0b}
0x43e…44f Line {l1=0x0f, l2=»0470 UNTIL HH=0«, l3=0x0f}
0x44f…460 Line {l1=0x0f, l2=»0480 CLOSE FIL$«, l3=0x0f}
0x460…46b Line {l1=0x09, l2=»0490 END «, l3=0x09}
0x46b…480 00 00 30 31 37 30 20 43 55 52 53 4f 52 20 31 2c 31 0f 1b 30 31 ┆ 0170 CURSOR 1,1 01┆
0x480…4a0 38 30 20 49 4e 50 55 54 20 22 48 4a 45 4d 4d 45 48 4f 4c 44 20 22 2c 48 48 1b 2d 30 31 39 30 20 ┆80 INPUT "HJEMMEHOLD ",HH -0190 ┆
0x4a0…4c0 47 45 54 20 46 49 4c 24 2c 48 48 3a 4e 41 56 4e 48 24 2c 52 48 2c 41 4b 48 2c 48 4a 4b 48 2c 48 ┆GET FIL$,HH:NAVNH$,RH,AKH,HJKH,H┆
0x4c0…4e0 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┆
[…0x17…]
'0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10)'▶0f◀0110 DIM SV$(1)▶0f◀▶15◀0120 FIL$="DDE:TEAMS"▶15◀▶10◀0130 OPEN FIL$,W▶10◀\f 0140 REPEAT \f ▶0b◀0150 CLEAR ▶0b◀\f 0160 REPEAT \f ▶0f◀0170 CURSOR 1,1▶0f◀▶1b◀0180 INPUT "HJEMMEHOLD ",HH▶1b◀▶12◀0185 IF HH>0 THEN ▶12◀-0190 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH-▶11◀0200 PRINT NAVNH$▶11◀▶19◀0210 INPUT "RIGTIGT ",SV$▶19◀ 0212 ELSE \f 0213 SV$="J"\f ▶0b◀0214 ENDIF ▶0b◀▶12◀0220 UNTIL SV$="J"▶12◀▶12◀0230 IF HH>0 THEN ▶12◀\f 0240 REPEAT \f ▶0f◀0250 CURSOR 1,5▶0f◀▶18◀0260 INPUT "UDEHOLD ",UH▶18◀-0270 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU-▶11◀0280 PRINT NAVNU$▶11◀▶19◀0290 INPUT "RIGTIGT ",SV$▶19◀▶12◀0300 UNTIL SV$="J"▶12◀\f 0310 REPEAT \f ▶0f◀0312 CURSOR 1,9▶0f◀%0320 INPUT "HJEMMEMÅL, UDEMÅL ",WH,WU%▶19◀0330 INPUT "RIGTIGT ",SV$▶19◀▶12◀0340 UNTIL SV$="J"▶12◀▶08◀0341 H=0▶08◀!0342 IF HJKH>0 THEN H=H+HJDH/HJKH!/0343 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU)/ 0344 H=H/2 ▶0e◀0350 AKH=AKH+1▶0e◀▶0e◀0360 AKU=AKU+1▶0e◀▶10◀0370 HJKH=HJKH+1▶10◀▶14◀0380 HJDH=HJDH+WH-WU▶14◀▶14◀0390 UDDU=UDDU+WU-WH▶14◀▶0b◀0410 RHO=RH▶0b◀00420 RH=RH+(AKU-1)/(AKH*AKU-1)*((WH-WU)-H-RH+RU)010430 RU=RU+(AKH-1)/(AKU*AKH-1)*((WU-WH)+H+RHO-RU)1-0440 PUT FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH--0450 PUT FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU-▶0b◀0460 ENDIF ▶0b◀▶0f◀0470 UNTIL HH=0▶0f◀▶0f◀0480 CLOSE FIL$▶0f◀ 0490 END ▶00◀▶00◀0170 CURSOR 1,1▶0f◀▶1b◀0180 INPUT "HJEMMEHOLD ",HH▶1b◀-0190 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,Hcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc