|
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 - metrics - download
Length: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »STRENGLÆ«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STRENGLÆ«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »STRENGLÆ«
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."