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

 
Output of file : INDIR.CMD contained in archive : CA29-3.ZIP
; ----- INDIR: Load the dialing directory from an ASCII file
; ----------------------------------------------------------------
; Note: This script expects the file DIALING.TXT to be an ASCII file
; of a specific format, carrying dialing directory entries. Records
; are structured:
;
; Col: 0 38 57 61
; +-----+-/ /-+-----+-----+-/ /-+-----+-----+-/ /-+-----+-//
; ! Entry name ! Phone number ! Speed !
; +-----+-/ /-+-----+-----+-/ /-+-----+-----+-/ /-+-----+-//
; ! ! +--------- 4 chars
; ! +--------------------------- 14 chars
; +--------------------------------------------- 24 chars
;
; Col: 61 62 63 64 65 66 67 68 69 70
; +-----+-----+-----+-----+-----+-----+-----+-----+-----+-//
; ! ! P ! ! D ! ! S ! ! E ! !
; +-----+-----+-----+-----+-----+-----+-----+-----+-----+-//
; ! ! ! +--- Echo Y/N
; ! ! +--------------- Stop 1/2
; ! +--------------------------- Data 7/8
; +--------------------------------------- Parity E/N/O
;
; Col: 70 78
; +-----+-/ /-+-----+
; ! Script file !
; +-----+-/ /-+-----+
; +--------------------------------------- 8 chars
;
; ----------------------------------------------------------------
; Only the first 100 records in DIALING.TXT are used. Blank records
; result in an empty directory entry.
; ----------------------------------------------------------------
; The long distance portion of the dialing directory is copied
; from the file COM-AND.DIR (which must be present).
; ----------------------------------------------------------------
;
; Move the header with no changes
;
LEGEND "InDir: Dialing directory update"
FOPENI "COM-AND.DIR" BINARY
FOPENO "NCOM-AND.DIR" BINARY

READ S0 80 N0
WRITE S0 80
READ S0 70 N0
WRITE S0 70
;
; Now, read the input file and update the directory
;
FOPENI "Dialing.TXT" Text
FOR N0 = 1,100 ; Do 100 times
LEGEND "InDir: Entry # "*N0*" output"
READ S0 80 N1
IF EOF or NULL S0
S0(0:39) = "........................ .-"
S0(40:79) = "...-.... 1200,E,7,1,N "
ENDIF
S1 = S0(0:23) ; Name (24 chars and a null)
S1(25:79) = S0(38:52) ; Number (14 chars and a null)
S1(40:79) = S0(57:61) ; Speed (4 chars and a null)
S1(45:79) = " "*S0(62)*S0(64)*S0(66)*S0(68)*" " ; Parms (6 wide)
S1(51:79) = S0(70:77) ; Script (8 Chars and a null)
ITOC 0 S1(24) ; Null stoppers
ITOC 0 S1(39)
ITOC 0 S1(44)
ITOC 0 S1(59)
WRITE S1 60 ; Each entry is 60 wide with embedded
ENDFOR


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : CA29-3.ZIP
Filename : INDIR.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/