Category : Recently Uploaded Files
Archive   : DS40BDS.ZIP
Filename : PRMTDEMO.BAS
PROGNAME$ = "Prompt Demo" ' Door name
RELEASE$ = "1.0" ' Door release #
CALL ClrScrn ' Clear the screen
CLOSE #1 ' Close configuration file
CALL Send("This is a demo of the new prompts!", No, Yes, 13) ' Display text
CALL NL(1) ' Display one blank line
CALL EntryIncomm("Enter some text (30 chars max):", 30, 15, 10) ' Make field entry prompt
CALL Send("You typed:" + ARG$, No, Yes, 14) ' Show what was inputted
CALL PromptIncomm("Do you like this", Default1, 15, 1, 11) ' Make ( ) input prompt
IF ARG$ = "" OR ARG$ = "N" OR ARG$ = "n" THEN
CALL Send("You said NO! Why did you say that?", Yes, Yes, 12) ' Show "default" response
ELSE
CALL Send("Good! I'm glad you're pleased!", No, Yes, 14) ' Show yes response
END IF
CALL ExitDoor ' End door
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/