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

⟦4dc466440⟧ TextFile

    Length: 1984 (0x7c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »RET_LINI.K«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RET_LINI.K« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RET_LINI.K«

Mikados K File

0010 // --------------------- linies _ligning -----------------------------
0020 // Opstiller ligningen for en ret linie, når man indtaster to punkters
0030 // koordinater.
0040 // 
0045 INTEGER X1,X2,Y1,Y2
0050 CLEAR 
0070 CURSOR 1,5
0080 PRINT "L i g n i n g e n   f o r   e n    r e t   l i n i e ."
0090 CURSOR 1,6
0100 PRINT "------------------------------------------------------"
0110 CURSOR 1,9
0120 INPUT "Indtast punkt 1's koordinater:    ":X1,Y1
0130 INPUT "Indtast punkt 2's koordinater:    ":X2,Y2
0140 // 
0150 IF X1=X2 THEN 
0160 IF Y1=Y2 THEN 
0170 PRINT "Punkterne er sammenfaldende"
0180 STOP 
0190 ENDIF 
0200 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";
0210 PRINT " er:  x = ";X1
0220 ELSE 
0230 A:=(Y1-Y2)/(X1-X2)
0240 B:=Y1-A*X1
0250 PRINT 
0260 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";
0269 IF B>0 THEN 
0270 PRINT USING " er:  y  =  ###.## x +###.##":A,B
0274 ELSE 
0275 PRINT USING " er:  y  =  ###.## x ####.##":A,B
0276 ENDIF 
0280 ENDIF

Mikados K File

0x000…04d Line {l1=0x4b, l2=»0010 // --------------------- linies _ligning -----------------------------«, l3=0x4b}
0x04d…09a Line {l1=0x4b, l2=»0020 // Opstiller ligningen for en ret linie, når man indtaster to punkters«, l3=0x4b}
0x09a…0b0 Line {l1=0x14, l2=»0030 // koordinater.«, l3=0x14}
0x0b0…0ba Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x0ba…0d4 Line {l1=0x18, l2=»0045 INTEGER X1,X2,Y1,Y2«, l3=0x18}
0x0d4…0e1 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0e1…0f2 Line {l1=0x0f, l2=»0070 CURSOR 1,5«, l3=0x0f}
0x0f2…137 Line {l1=0x43, l2=»0080 PRINT "L i g n i n g e n   f o r   e n    r e t   l i n i e ."«, l3=0x43}
0x137…148 Line {l1=0x0f, l2=»0090 CURSOR 1,6«, l3=0x0f}
0x148…18d Line {l1=0x43, l2=»0100 PRINT "------------------------------------------------------"«, l3=0x43}
0x18d…19e Line {l1=0x0f, l2=»0110 CURSOR 1,9«, l3=0x0f}
0x19e…1d5 Line {l1=0x35, l2=»0120 INPUT "Indtast punkt 1's koordinater:    ":X1,Y1«, l3=0x35}
0x1d5…20c Line {l1=0x35, l2=»0130 INPUT "Indtast punkt 2's koordinater:    ":X2,Y2«, l3=0x35}
0x20c…216 Line {l1=0x08, l2=»0140 // «, l3=0x08}
0x216…22b Line {l1=0x13, l2=»0150 IF X1=X2 THEN «, l3=0x13}
0x22b…240 Line {l1=0x13, l2=»0160 IF Y1=Y2 THEN «, l3=0x13}
0x240…26a Line {l1=0x28, l2=»0170 PRINT "Punkterne er sammenfaldende"«, l3=0x28}
0x26a…276 Line {l1=0x0a, l2=»0180 STOP «, l3=0x0a}
0x276…283 Line {l1=0x0b, l2=»0190 ENDIF «, l3=0x0b}
0x283…2d1 Line {l1=0x4c, l2=»0200 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";«, l3=0x4c}
0x2d1…2ed Line {l1=0x1a, l2=»0210 PRINT " er:  x = ";X1«, l3=0x1a}
0x2ed…2f9 Line {l1=0x0a, l2=»0220 ELSE «, l3=0x0a}
0x2f9…312 Line {l1=0x17, l2=»0230 A:=(Y1-Y2)/(X1-X2)«, l3=0x17}
0x312…323 Line {l1=0x0f, l2=»0240 B:=Y1-A*X1«, l3=0x0f}
0x323…330 Line {l1=0x0b, l2=»0250 PRINT «, l3=0x0b}
0x330…37e Line {l1=0x4c, l2=»0260 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";«, l3=0x4c}
0x37e…391 Line {l1=0x11, l2=»0269 IF B>0 THEN «, l3=0x11}
0x391…3c6 Line {l1=0x33, l2=»0270 PRINT USING " er:  y  =  ###.## x +###.##":A,B«, l3=0x33}
0x3c6…3d2 Line {l1=0x0a, l2=»0274 ELSE «, l3=0x0a}
0x3d2…407 Line {l1=0x33, l2=»0275 PRINT USING " er:  y  =  ###.## x ####.##":A,B«, l3=0x33}
0x407…414 Line {l1=0x0b, l2=»0276 ENDIF «, l3=0x0b}
0x414…421 Line {l1=0x0b, l2=»0280 ENDIF «, l3=0x0b}
0x421…440 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 4b 30 30 32 30 20 2f 2f 20 4f 70 73 74 69 6c 6c 65 72 20      ┆  ---------KK0020 // Opstiller ┆
0x440…460 6c 69 67 6e 69 6e 67 65 6e 20 66 6f 72 20 65 6e 20 72 65 74 20 6c 69 6e 69 65 2c 20 6e 7d 72 20   ┆ligningen for en ret linie, når ┆
0x460…480 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 74 6f 20 70 75 6e 6b 74 65 72 73 4b 14 30 30 33 30 20   ┆man indtaster to punktersK 0030 ┆
0x480…4a0 2f 2f 20 6b 6f 6f 72 64 69 6e 61 74 65 72 2e 14 08 30 30 34 30 20 2f 2f 20 08 18 30 30 34 35 20   ┆// koordinater.  0040 //   0045 ┆
0x4a0…4c0 49 4e 54 45 47 45 52 20 58 31 2c 58 32 2c 59 31 2c 59 32 18 0b 30 30 35 30 20 43 4c 45 41 52 20   ┆INTEGER X1,X2,Y1,Y2  0050 CLEAR ┆
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…]

TextFile

K0010 // --------------------- linies _ligning -----------------------------KK0020 // Opstiller ligningen for en ret linie, når man indtaster to punktersK▶14◀0030 // koordinater.▶14◀▶08◀0040 // ▶08◀▶18◀0045 INTEGER X1,X2,Y1,Y2▶18◀▶0b◀0050 CLEAR ▶0b◀▶0f◀0070 CURSOR 1,5▶0f◀C0080 PRINT "L i g n i n g e n   f o r   e n    r e t   l i n i e ."C▶0f◀0090 CURSOR 1,6▶0f◀C0100 PRINT "------------------------------------------------------"C▶0f◀0110 CURSOR 1,9▶0f◀50120 INPUT "Indtast punkt 1's koordinater:    ":X1,Y1550130 INPUT "Indtast punkt 2's koordinater:    ":X2,Y25▶08◀0140 // ▶08◀▶13◀0150 IF X1=X2 THEN ▶13◀▶13◀0160 IF Y1=Y2 THEN ▶13◀(0170 PRINT "Punkterne er sammenfaldende"(
0180 STOP 
▶0b◀0190 ENDIF ▶0b◀L0200 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";L▶1a◀0210 PRINT " er:  x = ";X1▶1a◀
0220 ELSE 
▶17◀0230 A:=(Y1-Y2)/(X1-X2)▶17◀▶0f◀0240 B:=Y1-A*X1▶0f◀▶0b◀0250 PRINT ▶0b◀L0260 PRINT "Ligningen for linien gennem (";X1;",";Y1;") og (";X2;",";Y2;")";L▶11◀0269 IF B>0 THEN ▶11◀30270 PRINT USING " er:  y  =  ###.## x +###.##":A,B3
0274 ELSE 
30275 PRINT USING " er:  y  =  ###.## x ####.##":A,B3▶0b◀0276 ENDIF ▶0b◀▶0b◀0280 ENDIF ▶0b◀▶00◀▶00◀---------KK0020 // Opstiller ligningen for en ret linie, når man indtaster to punktersK▶14◀0030 // koordinater.▶14◀▶08◀0040 // ▶08◀▶18◀0045 INTEGER X1,X2,Y1,Y2▶18◀▶0b◀0050 CLEAR cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view