|
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: 480 (0x1e0)
Types: TextFile
Notes: Mikados_K
Names: »FUNKTION.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FUNKTION.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FUNKTION.K«
0010 // --------------------------- funktion_g ------------------------ 0020 // 0030 PROC G(X) 0040 IF X=>0 THEN 0050 G:=(X-4)**2 0060 ELSE 0070 G:=X+16 0080 ENDIF 0090 ENDPROC G 0100 // 0110 CLEAR 0120 PRINT " x g(x) " 0130 PRINT 0140 FOR I:=-16 TO 8 DO 0150 PRINT USING "#### ######.##":I,G(I) 0160 NEXT I
0x000…049 Line {l1=0x47, l2=»0010 // --------------------------- funktion_g ------------------------«, l3=0x47}
0x049…053 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x053…063 Line {l1=0x0e, l2=»0030 PROC G(X)«, l3=0x0e}
0x063…077 Line {l1=0x12, l2=»0040 IF X=>0 THEN «, l3=0x12}
0x077…089 Line {l1=0x10, l2=»0050 G:=(X-4)**2«, l3=0x10}
0x089…095 Line {l1=0x0a, l2=»0060 ELSE «, l3=0x0a}
0x095…0a3 Line {l1=0x0c, l2=»0070 G:=X+16«, l3=0x0c}
0x0a3…0b0 Line {l1=0x0b, l2=»0080 ENDIF «, l3=0x0b}
0x0b0…0c0 Line {l1=0x0e, l2=»0090 ENDPROC G«, l3=0x0e}
0x0c0…0ca Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x0ca…0d7 Line {l1=0x0b, l2=»0110 CLEAR «, l3=0x0b}
0x0d7…0f8 Line {l1=0x1f, l2=»0120 PRINT " x g(x) "«, l3=0x1f}
0x0f8…105 Line {l1=0x0b, l2=»0130 PRINT «, l3=0x0b}
0x105…11f Line {l1=0x18, l2=»0140 FOR I:=-16 TO 8 DO «, l3=0x18}
0x11f…14b Line {l1=0x2a, l2=»0150 PRINT USING "#### ######.##":I,G(I)«, l3=0x2a}
0x14b…158 Line {l1=0x0b, l2=»0160 NEXT I«, l3=0x0b}
0x158…160 00 00 63 63 63 63 63 63 ┆ cccccc┆
0x160…180 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┆
[…0x3…]