Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : FINDNAME.CMD

 
Output of file : FINDNAME.CMD contained in archive : CA29-3.ZIP
; ----- Findname: Look up a word in the dialing directory
; If no directory entry matches, look for a script
; with the given name.
;
; R.McG; 7/89, Chicago
; ----------------------------------------------------------------
; Ask for a word
;
WOPEN 10 10 13 70 (blue red) ESCape
ATSAY 10 12 (blue yellow) " Find Name "
ATSAY 11 12 (blue yellow) "Enter the word to be searched: "
ATGET 12 12 (blue white) 26 S0 ; Read word
WCLOSE

IF NULL S0 ; If file not open
SOUND 55,1000 ; Bronx cheer
EXIT ; Stop here
ENDIF
;
; Look for the word in the dialing directory
;
LEGEND "FindName: Searching dialing directory"
FOR N0 = 1,100
DIRECT S1 N0 ; Entry name
IF FIND S1 S0 ; If we find word in name
LEGEND "FindName: Dialing " * S1
DIAL N0 ; Dial number
IF SUCCESS ; Entry number
DSCRIPT S1 N0 ; Look for a linked script
IF NOT NULL S1 ; Script name when used
SET LINKED ON ; Fake entry from dial command
EXECUTE S1 ; Link to script
ENDIF
ENDIF
EXIT ; Exit whether dial succeed or failed
ENDIF
ENDFOR
;
; Look for an executable script file of that name
;
LEGEND "FindName: Searching for script named "*S0
IF ISSCFile S0 ; If script file of that name exists
LEGEND "" ; Clear legend line
EXECUTE S0 ; Execute it
ENDIF
;
; Failed
;
CURSOR N0,N1
ATSAY N0,N1 (DEFAULT) "Word does not exist"
MESSAGE "^M^J" ; Scroll down
SOUND 55,500
EXIT
;
; Escape - simply no-op
;
Escape:
S0 = "" ; Make null return
RETURN


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : FINDNAME.CMD

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/