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

⟦efe755fc9⟧ TextFile

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

Derivation

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

0010 // ------------------------- gaffel_func ----------------------
0020 // 
0030 PROC F(X)
0040 IF X=>1 THEN 
0050 F:=(((3*X-2)*X-4)*X+1)*X+5
0060 ELSE 
0070 F:=2*X+1
0080 ENDIF 
0090 ENDPROC F
0100 // 
0110 CLEAR 
0115 PRINT 
0120 PRINT F(-2);
0121 PRINT F(-1);
0122 PRINT F(0);
0123 PRINT F(1);
0124 PRINT F(2);
0125 PRINT F(3)

0x000…046 Line {l1=0x44, l2=»0010 // ------------------------- gaffel_func ----------------------«, l3=0x44}
0x046…050 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x050…060 Line {l1=0x0e, l2=»0030 PROC F(X)«, l3=0x0e}
0x060…074 Line {l1=0x12, l2=»0040 IF X=>1 THEN «, l3=0x12}
0x074…095 Line {l1=0x1f, l2=»0050 F:=(((3*X-2)*X-4)*X+1)*X+5«, l3=0x1f}
0x095…0a1 Line {l1=0x0a, l2=»0060 ELSE «, l3=0x0a}
0x0a1…0b0 Line {l1=0x0d, l2=»0070 F:=2*X+1«, l3=0x0d}
0x0b0…0bd Line {l1=0x0b, l2=»0080 ENDIF «, l3=0x0b}
0x0bd…0cd Line {l1=0x0e, l2=»0090 ENDPROC F«, l3=0x0e}
0x0cd…0d7 Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x0d7…0e4 Line {l1=0x0b, l2=»0110 CLEAR «, l3=0x0b}
0x0e4…0f1 Line {l1=0x0b, l2=»0115 PRINT «, l3=0x0b}
0x0f1…104 Line {l1=0x11, l2=»0120 PRINT F(-2);«, l3=0x11}
0x104…117 Line {l1=0x11, l2=»0121 PRINT F(-1);«, l3=0x11}
0x117…129 Line {l1=0x10, l2=»0122 PRINT F(0);«, l3=0x10}
0x129…13b Line {l1=0x10, l2=»0123 PRINT F(1);«, l3=0x10}
0x13b…14d Line {l1=0x10, l2=»0124 PRINT F(2);«, l3=0x10}
0x14d…15e Line {l1=0x0f, l2=»0125 PRINT F(3)«, l3=0x0f}
0x15e…160 00 00                                                                                             ┆  ┆
0x160…180 37 31 31 20 2f 2f 20 4c 53 45 20 0c 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆711 // LSE    cccccccccccccccccc┆
0x180…1a0 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┆
          […0x12…]

D0010 // ------------------------- gaffel_func ----------------------D▶08◀0020 // ▶08◀▶0e◀0030 PROC F(X)▶0e◀▶12◀0040 IF X=>1 THEN ▶12◀▶1f◀0050 F:=(((3*X-2)*X-4)*X+1)*X+5▶1f◀
0060 ELSE 
\r0070 F:=2*X+1\r▶0b◀0080 ENDIF ▶0b◀▶0e◀0090 ENDPROC F▶0e◀▶08◀0100 // ▶08◀▶0b◀0110 CLEAR ▶0b◀▶0b◀0115 PRINT ▶0b◀▶11◀0120 PRINT F(-2);▶11◀▶11◀0121 PRINT F(-1);▶11◀▶10◀0122 PRINT F(0);▶10◀▶10◀0123 PRINT F(1);▶10◀▶10◀0124 PRINT F(2);▶10◀▶0f◀0125 PRINT F(3)▶0f◀▶00◀▶00◀711 // LSE \f

▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view