home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
utils
/
miscutil.zip
/
MIRRORDD.ZIP
/
MIRRORDD.XTS
< prev
next >
Wrap
Text File
|
1987-07-24
|
10KB
|
630 lines
MO C
SC T
rd 0
message
A: Bit Bucket X: F77L
B: Hal PC Y: Microstuf
C: Hal PC #2 Z: K101
D: AT&T 0: TBL
E: HAL Tech 1: brief
F: fulcrum's edge 2: Mirror
G: Seabrook 3:
H: Big Boys 4:
I: oxy 5:
J: doubledos 6:
K: pc persuit 800 7:
L: persuit cities 8:
M: Eagle Tech 9:
N: Flagship Frodo II `:
O: Pegasus on line ]:
P: Archimedes lever -:
Q: Cats Meow =:
R: Last Stop /:
S: Pseudonym \:
T: Computer Craft ;:
U: Fidos Partner ':
V: YELLOW ROSE .:
W: PC'S LIMITED ,:
.
FK C7 ""
;
La ASK-1
ASK 1st number
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUMP CONTINUE
FK C8 DIAL-1
FK C9 FK A1
FK C10 ASK-2
JUMP SET-@
LA ASK-2
ASK 2nd number
FK C7 FK A2 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A2
FK C10 ASK-3
JUMP SET-@
LA ASK-3
ASK 3rd number
FK C7 FK A3 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A3
FK C10 ASK-4
JUMP SET-@
LA ASK-4
ASK 4th number
FK C7 FK A4 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A4
FK C10 ASK-5
JUMP SET-@
LA ASK-5
ASK 5th number
FK C7 FK A5 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A5
FK C10 ASK-6
JUMP SET-@
LA ASK-6
ASK 6th number
FK C7 FK A6 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A6
FK C10 ASK-7
JUMP SET-@
LA ASK-7
ASK 7th number
FK C7 FK A7 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A7
FK C10 ASK-8
JUMP SET-@
LA ASK-8
ASK 8th number
FK C7 FK A8 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A8
FK C10 ASK-9
JUMP SET-@
LA ASK-9
ASK 9th number
FK C7 FK A9 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A9
FK C10 ASK-10
JUMP SET-@
LA ASK-10
ASK 10th number
FK C7 FK A10 DIAL-1
If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
FK C9 FK A10
FK C10 START-DIAL
JUMP SET-@
;
;Here goes the sets. This sets up the function keys and returns to the next
;ask. All of this would not be needed if Mirror would allow the
;following code: FK f1 CALL-@
;
LA SET-A
@C9 CALL-A
JUMP @C10
LA SET-B
@C9 CALL-B
JUMP @C10
LA SET-C
@C9 CALL-C
JUMP @C10
LA SET-D
@C9 CALL-D
JUMP @C10
LA SET-E
@C9 CALL-E
JUMP @C10
LA SET-F
@C9 CALL-F
JUMP @C10
LA SET-G
@C9 CALL-G
JUMP @C10
LA SET-H
@C9 CALL-H
JUMP @C10
LA SET-I
@C9 CALL-I
JUMP @C10
LA SET-J
@C9 CALL-J
JUMP @C10
LA SET-K
@C9 CALL-K
JUMP @C10
LA SET-L
@C9 CALL-L
JUMP @C10
LA SET-M
@C9 CALL-M
JUMP @C10
LA SET-N
@C9 CALL-N
JUMP @C10
LA SET-O
@C9 CALL-O
JUMP @C10
LA SET-P
@C9 CALL-P
JUMP @C10
LA SET-Q
@C9 CALL-Q
JUMP @C10
LA SET-R
@C9 CALL-R
JUMP @C10
LA SET-S
@C9 CALL-S
JUMP @C10
LA SET-T
@C9 CALL-T
JUMP @C10
LA SET-U
@C9 CALL-U
JUMP @C10
LA SET-V
@C9 CALL-V
JUMP @C10
LA SET-W
@C9 CALL-W
JUMP @C10
LA SET-X
@C9 CALL-X
JUMP @C10
LA SET-Y
@C9 CALL-Y
JUMP @C10
LA SET-Z
@C9 CALL-Z
JUMP @C10
LA SET-0
@C9 CALL-0
JUMP @C10
LA SET-1
@C9 CALL-1
JUMP @C10
LA SET-2
@C9 CALL-2
JUMP @C10
LA SET-3
@C9 CALL-3
JUMP @C10
LA SET-4
@C9 CALL-4
JUMP @C10
LA SET-5
@C9 CALL-5
JUMP @C10
LA SET-6
@C9 CALL-6
JUMP @C10
LA SET-7
@C9 CALL-7
JUMP @C10
LA SET-8
@C9 CALL-8
JUMP @C10
LA SET-9
@C9 CALL-9
JUMP @C10
LA SET-`
@C9 CALL-`
JUMP @C10
LA SET-]
@C9 CALL-]
JUMP @C10
LA SET-=
@C9 CALL-=
JUMP @C10
LA SET--
@C9 CALL--
JUMP @C10
LA SET-.
@C9 CALL-.
JUMP @C10
LA SET-,
@C9 CALL-,
JUMP @C10
LA SET-/
@C9 CALL-/
JUMP @C10
LA SET-\
@C9 CALL-\
JUMP @C10
LA SET-;
@C9 CALL-;
JUMP @C10
LA SET-'
@C9 CALL-'
JUMP @C10
;
; The following code does the dialing.
; For each loop, C8 is set mearly so the user can start the redial from where
; he left off. C9 is set so that deletion from the queue can be done. C10 is
; set for the place to go to for the next dialing sequence.
;
LAbel START-DIAL
@C7
;put whatever you want between this statement and the JUmp
DA 8
PA N
SC S
JUMP @C8
;
LABEL DIAL-1
if $ JUMP ONLINE
FK C8 DIAL-1
FK C9 FK A1 DIAL-2
FK C10 DIAL-2
JUMP @A1
;
LABEL DIAL-2
if $ JUMP ONLINE
FK C8 DIAL-2
FK C9 FK A2 DIAL-3
FK C10 DIAL-3
JUMP @A2
;
LABEL DIAL-3
if $ JUMP ONLINE
FK C8 DIAL-3
FK C9 FK A3 DIAL-4
FK C10 DIAL-4
JUMP @A3
;
LABEL DIAL-4
if $ JUMP ONLINE
FK C8 DIAL-4
FK C9 FK A4 DIAL-5
FK C10 DIAL-5
JUMP @A4
;
LABEL DIAL-5
if $ JUMP ONLINE
FK C8 DIAL-5
FK C9 FK A5 DIAL-6
FK C10 DIAL-6
JUMP @A5
;
LABEL DIAL-6
if $ JUMP ONLINE
FK C8 DIAL-6
FK C9 FK A6 DIAL-7
FK C10 DIAL-7
JUMP @A6
;
LABEL DIAL-7
if $ JUMP ONLINE
FK C8 DIAL-7
FK C9 FK A7 DIAL-8
FK C10 DIAL-8
JUMP @A7
;
LABEL DIAL-8
if $ JUMP ONLINE
FK C8 DIAL-8
FK C9 FK A8 DIAL-9
FK C10 DIAL-9
JUMP @A8
;
LABEL DIAL-9
if $ JUMP ONLINE
FK C8 DIAL-9
FK C9 FK A9 DIAL-10
FK C10 DIAL-10
JUMP @A9
;
LABEL DIAL-10
if $ JUMP ONLINE
FK C8 DIAL-10
FK C9 FK A10 DIAL-1
FK C10 DIAL-1
JUMP @A10
;
Label RTurn
LAbel ONLINE
WAit Manual
ask @c7 What script do you wish to run?
do @c7
jump online
;
LAbel RTurn
LAbel CONTINUE
sc s
ASk Delete from queue?
if y @C9
JUMP START-DIAL
;
LABEL DELETE
@C9
JUMP START-DIAL
;
LAbel recall
JUmp START-DIAL
;
;here is where the dialing information goes. You can stick in any valid
;mirror commands. You will usually set the name, phone number, and baud
;rate. You can even call a nested script file if you like.
;
LABEL CALL-A
NAME Bit Bucket
NUMBER 332-4006
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-B
NAME Hal PC
NUMBER 8473800
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-C
NAME Hal-PC #2
NUMBER 442-6704
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-D
NAME AT&T
NUMBER 7825454
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-E
NAME HAL Tech
NUMBER 4744134
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-F
NAME Fulcrum's Edge
NUMBER 3506284
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-G
NAME Seabrook
NUMBER 4825526
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-H
NAME Big Boys
NUMBER 3243416
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-I
NAME Oxy
NUMBER 6459751
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-J
NAME Doubledos
NUMBER 16036445556
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-K
NAME PC Persuit 800
NUMBER 18008353001
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-L
NAME PC Persuit Cities
NUMBER 18004249494
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-M
NAME Eagle Tech
NUMBER 17148913037
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-N
NAME Flagship Frodo II
NUMBER 9874163
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-O
NAME Peagasus On Line
NUMBER 4991857
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-P
NAME Archemedies Lever
NUMBER 3912258
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-Q
NAME Cats Meow
NUMBER 4882036
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-R
NAME Last Stop
NUMBER 664-0222
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-S
NAME Pseudonym
NUMBER 937-6779
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-T
NAME Computer Craft
NUMBER 9528492
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-U
NAME Fidos Partner
NUMBER 458-7410
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-V
NAME Yellow Rose
NUMBER 326-2999
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-W
NAME PC's Limited
NUMBER 1 512 339 4127
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-X
NAME f77l
NUMBER 1 702 831 8023
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-Y
NAME Microstuf
NUMBER 1 404 998 8048
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-Z
NAME k101
NUMBER 523-2425
GO R1/45
IF -$ JUMP @C10
DA 7
PA E
JUMP ONLINE
LABEL CALL-0
NAME Tbl
NUMBER 661-9040
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-1
NAME brief
NUMBER 1 617 659 1479
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-2
NAME Mirror
NUMBER 19048789884
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-3
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-4
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-5
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-6
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-7
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-8
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-9
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-`
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-]
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL--
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-=
NAME
NUMBER
GO R1/45
JUMP @C10
LABEL CALL-.
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-,
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-/
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-\
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-;
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE
LABEL CALL-'
NAME
NUMBER
GO R1/45
IF -$ JUMP @C10
JUMP ONLINE