|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »STRENGVA.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STRENGVA.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STRENGVA.K«
0010 // -------------- Strengvariabel -------------------- 0020 DIM A$ OF 40,B$ OF 40,C$ OF 40,D$ OF 40 0030 A$:="Min kone og jeg, vi " 0040 B$:="deler garderobeskab.Hun " 0050 C$:="ta'r ,hvad hun behøver, og " 0060 D$:="resten det får jeg. " 0070 PRINT A$(1:16) 0080 PRINT A$(18:3)+B$(1:19) 0090 PRINT B$(21:4)+C$(1:23) 0100 PRINT D$ E079 // r jeg. "
0x000…03c Line {l1=0x3a, l2=»0010 // -------------- Strengvariabel --------------------«, l3=0x3a}
0x03c…06a Line {l1=0x2c, l2=»0020 DIM A$ OF 40,B$ OF 40,C$ OF 40,D$ OF 40«, l3=0x2c}
0x06a…099 Line {l1=0x2d, l2=»0030 A$:="Min kone og jeg, vi "«, l3=0x2d}
0x099…0c8 Line {l1=0x2d, l2=»0040 B$:="deler garderobeskab.Hun "«, l3=0x2d}
0x0c8…0f7 Line {l1=0x2d, l2=»0050 C$:="ta'r ,hvad hun behøver, og "«, l3=0x2d}
0x0f7…126 Line {l1=0x2d, l2=»0060 D$:="resten det får jeg. "«, l3=0x2d}
0x126…13b Line {l1=0x13, l2=»0070 PRINT A$(1:16)«, l3=0x13}
0x13b…159 Line {l1=0x1c, l2=»0080 PRINT A$(18:3)+B$(1:19)«, l3=0x1c}
0x159…177 Line {l1=0x1c, l2=»0090 PRINT B$(21:4)+C$(1:23)«, l3=0x1c}
0x177…186 Line {l1=0x0d, l2=»0100 PRINT D$«, l3=0x0d}
0x186…1a6 Line {l1=0x1e, l2=»E079 // r jeg. "«, l3=0x1e}
0x1a6…1c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccc┆
0x1c0…1e0 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┆
[…0x40…]