#######################################################################
# Hash is a comments introducer, and must be the first character on   #
# a line							      #
#								      #
#			    DTERM.INIT				      #
#								      #
#######################################################################
smclear
smadd a a `comp1'           `baud 2400 parity even bits 7 `^j^matdt5551111^m''
smadd a a `comp2'           `baud 2400 parity even bits 7 `^j^matdt5552222^m''
# NOTE: Sends a return 2 seconds after connect.
smadd a a `CONNECT 2400^m^j'  `baud 2400 delay 2000 `^m''
smadd a a `CONNECT 1200^m^j'  `baud 1200 delay 2000 `^m''
smadd a a `CONNECT^m^j'       `baud 300 delay 2000 `^m''
smadd a a `CONNECT ^m^j'      `baud 300 delay 2000 `^m''

# Handle a port-selector
smadd b b	Request:	    `dd `cory^m''
# Figure out which computer it is by it's header message
smadd b cl	comp1		    `'
smadd b cg	comp2		    `'
# A BBS!
smadd b cbbs	`name:'             ``Matthew Dillon^m''

smadd cbbs cbbs `Password:'         `delay 1000 `mypassword^m''
smadd cbbs cbbs `[Y,n]:'            `delay 1000 `^m''

smadd cl cl1	login:		    `dd `dillon^m''
smadd cl1 cl1	Password:	    `dd `mypassword^m''
smadd cl1 cl	incorrect	    `'
smadd cl1 online (z29)		    `dd `vt100^m''

smadd cg cg1	login:		    `delay 2000 `myfriend^m''
smadd cg1 cg1	Password:	    `dd dd dd dd `hispassword' dd `^m''
smadd cg1 cg	incorrect	    `'
# For UNIX systems, TERM = sun	(Latest ANSI with enhancements)
# Compatible with the Amiga's CONSOLE.DEVICE
# My login defaults to a Z29...
smadd cg1 online (z29)		     `dd `sun^m''

#smadd online online Password:	     ``mypassword^m''

smgoto a
smoncl `smgoto a delay 1000 baud 2400'
smoncd `smgoto b'
smonpucd `smgoto online'

menuadd phone fidonet	``^j' dd `^matdt6599169^m''
menuadd phone bbs2	``^j' dd `^matdt5952479^m''
menuadd phone wincrc	``^j' dd `^matdt8454812^m''
menuadd phone amwest	``^j' dd `^matdt3557162^m''
menuadd phone amconn	``^j' dd `^matdt5627097^m''
menuadd phone bbsJC	``^j' dd `^matdt9617250^m''
menuadd ctl   comentry	`comentry'
menuadd ctl   7bit-even `bits 7 parity even'
menuadd ctl   8bit-none `bits 8 parity off'
menuadd ctl   `redial on'   `smadd a a `BUSY^m^j' `delay 30000 `a/'''
menuadd window 80x24	`resize 80 24'
menuadd window 80x25	`resize 80 25'
menuadd emulate none	`dataclear keyclear'
menuadd emulate z29	`source emulate:z29.termcap'

conai `conwrite `^[[20l''
#######################################################################
#								      #
#		END DTERM.INIT					      #
#								      #
#######################################################################