0010 // -------------------- strengl{ngde -----------------------0020 DIM NAVN1$ OF 40,NAVN2$ OF 40,NAVN3$ OF 40,SVAR$ OF 10030 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,50090 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,200260 INPUT "\nsker du at slutte? ":SVAR$0270 UNTIL SVAR$ IN "Jj" AND LEN(SVAR$)=10280 PRINT 0290 PRINT "S} slutter vi for i dag."