|
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: »STRENGLÆ.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STRENGLÆ.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STRENGLÆ.K«
0010 // -------------------- strenglængde ----------------------- 0020 DIM NAVN1$ OF 40,NAVN2$ OF 40,NAVN3$ OF 40,SVAR$ OF 1 0030 REPEAT 0040 CLEAR 0050 PRINT 0060 PRINT "L Æ N G D E N A F S T R E N G V A R I A B L E ." 0070 PRINT "---------------------------------------------------" 0080 CURSOR 1,5 0090 INPUT "Indtast et navn: (max. 40 karakterer): ":NAVN1$ 0100 INPUT "Indtast et andet navn: ":NAVN2$ 0110 INPUT "Indtast et tredie navn: ":NAVN3$ 0120 PRINT 0130 PRINT "----------------------------------------------------------------" 0140 PRINT 0150 PRINT NAVN1$;TAB(43);"Længde: ";LEN(NAVN1$) 0160 PRINT NAVN2$;TAB(43);"Længde: ";LEN(NAVN2$) 0170 PRINT NAVN3$;TAB(43);"Længde: ";LEN(NAVN3$) 0180 PRINT 0190 PRINT "----------------------------------------------------------------" 0200 PRINT 0210 PRINT NAVN1$+NAVN2$+NAVN3$;TAB(43);"Længde: "; 0220 PRINT LEN(NAVN1$)+LEN(NAVN2$)+LEN(NAVN3$) 0230 PRINT 0240 PRINT "----------------------------------------------------------------" 0250 CURSOR 1,20 0260 INPUT "Ønsker du at slutte? ":SVAR$ 0270 UNTIL SVAR$ IN "Jj" AND LEN(SVAR$)=1 0280 PRINT 0290 PRINT "Så slutter vi for i dag."
0x000…043 Line {l1=0x41, l2=»0010 // -------------------- strenglængde -----------------------«, l3=0x41}
0x043…07f Line {l1=0x3a, l2=»0020 DIM NAVN1$ OF 40,NAVN2$ OF 40,NAVN3$ OF 40,SVAR$ OF 1«, l3=0x3a}
0x07f…08d Line {l1=0x0c, l2=»0030 REPEAT «, l3=0x0c}
0x08d…09a Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x09a…0a7 Line {l1=0x0b, l2=»0050 PRINT «, l3=0x0b}
0x0a7…0e9 Line {l1=0x40, l2=»0060 PRINT "L Æ N G D E N A F S T R E N G V A R I A B L E ."«, l3=0x40}
0x0e9…12b Line {l1=0x40, l2=»0070 PRINT "---------------------------------------------------"«, l3=0x40}
0x12b…13c Line {l1=0x0f, l2=»0080 CURSOR 1,5«, l3=0x0f}
0x13c…17f Line {l1=0x41, l2=»0090 INPUT "Indtast et navn: (max. 40 karakterer): ":NAVN1$«, l3=0x41}
0x17f…1c2 Line {l1=0x41, l2=»0100 INPUT "Indtast et andet navn: ":NAVN2$«, l3=0x41}
0x1c2…205 Line {l1=0x41, l2=»0110 INPUT "Indtast et tredie navn: ":NAVN3$«, l3=0x41}
0x205…212 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x212…261 Line {l1=0x4d, l2=»0130 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x261…26e Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x26e…2ab Line {l1=0x3b, l2=»0150 PRINT NAVN1$;TAB(43);"Længde: ";LEN(NAVN1$)«, l3=0x3b}
0x2ab…2e8 Line {l1=0x3b, l2=»0160 PRINT NAVN2$;TAB(43);"Længde: ";LEN(NAVN2$)«, l3=0x3b}
0x2e8…325 Line {l1=0x3b, l2=»0170 PRINT NAVN3$;TAB(43);"Længde: ";LEN(NAVN3$)«, l3=0x3b}
0x325…332 Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x332…381 Line {l1=0x4d, l2=»0190 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x381…38e Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x38e…3ce Line {l1=0x3e, l2=»0210 PRINT NAVN1$+NAVN2$+NAVN3$;TAB(43);"Længde: ";«, l3=0x3e}
0x3ce…3fe Line {l1=0x2e, l2=»0220 PRINT LEN(NAVN1$)+LEN(NAVN2$)+LEN(NAVN3$)«, l3=0x2e}
0x3fe…40b Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x40b…45a Line {l1=0x4d, l2=»0240 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x45a…46c Line {l1=0x10, l2=»0250 CURSOR 1,20«, l3=0x10}
0x46c…496 Line {l1=0x28, l2=»0260 INPUT "Ønsker du at slutte? ":SVAR$«, l3=0x28}
0x496…4c1 Line {l1=0x29, l2=»0270 UNTIL SVAR$ IN "Jj" AND LEN(SVAR$)=1«, l3=0x29}
0x4c1…4ce Line {l1=0x0b, l2=»0280 PRINT «, l3=0x0b}
0x4ce…4f5 Line {l1=0x25, l2=»0290 PRINT "Så slutter vi for i dag."«, l3=0x25}
0x4f5…500 00 00 63 63 63 63 63 63 63 63 63 ┆ ccccccccc┆
0x500…520 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┆
[…0x26…]