Cover V06, I07
Article
Listing 1
Sidebar 1

jul97.tar


Listing 1: beepme


#! /usr/local/bin/kermit
; This should beep me
set quiet on
;; don't want clutter output -- particularly
; with error messages

; st: make sure we have arguments and
; that the third one (quirky) is numeric
; \&@[] = kermit (with optional path to same)
; \&@[] = -y
; \&@[2] = this script's name
; so we use  for the actually argument
if < \v(args)   goto NOARGS
if not numeric \&@[]  goto BADARGS

; that done we can get to work
set dial method tone
; must use tone dialing
; my global init file does this too -- but let's be sure
set modem type ppi
set line /dev/modem
; change these for other systems (maybe)
dial 855524@\&@[]
exit

:NOARGS
:BADARGS
write-line error { Arguments are wrong:  need to page me with a number \ }
echo
exit