Hallo Sigurd,
Op 30 Augustus 1995, om 19:08, schreef Sigurd Rijsdijk aan All:
SR> Name: ...................
Try this:
DO
A$ = INPUT$(1) '1 char. input from user
IF A$ = CHR$(8) THEN 'Check for backspace CHR$(8)
B$ = LEFT$(B$, LEN(B$)-1) 'Go back 1 char, when backspace
pressed
ELSE
B$ = B$ + A$ 'When no backspace, add A$ to B$
IF LEN(B$) = 20 THEN 'Check lengt of B$
BEEP 'To long, beep& message
LOCATE 20,1:PRINT "You are over the limit! Max. 20 chars!"
END IF
END IF
LOOP
I did not test this, I just typed it from my brainz, so don't expect to much
from it =)
p.s: waarom schrijf ik dit niet via netmail in het nederlands???
Grtnx, Sander * Internet: sander@taf.idn.nl
... Even Mason and Dixon had to draw the line somewhere.
--- FMail 1.02+ / GoldEd-
# Origin: Co-Sysop - The Animal Farm BBS - 079-512523 (88:950/6.10)
# Origin: BasicNet MailGate to -> United Bbs Systems (119:119/88.0)
---------------
* Origin: United Bbs Systems Europe MailGate to -> Fido USA (2:283/529.0)
|