Home » Archimedes archive » Acorn User » AU 1995-04.adf » !Internet_StarterPak » !SLIPdial/Scripts/gta_umn
!SLIPdial/Scripts/gta_umn
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-04.adf » !Internet_StarterPak |
| Filename: | !SLIPdial/Scripts/gta_umn |
| Read OK: | ✔ |
| File size: | 0A58 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
#slipdial
debug 1
call configure
icon/file=<slipdial$resources>.mailboxes
alarm /repeat /time=04:30 /id=everyday "call doall"
alarm /stop="goto loop"
port sp_dual 0;speed 57600;retry 3 30
# main loop
:loop
unset ipaddress
menu "Start All:call doall" "Start Mail:call domail" -
"Start News:call donews" -
"Interactive:call dointer" -
"Debatch:call endcall" -
"Setup:call setup1"
wait /event
goto loop
exit
# dial up & enter SLIP mode
:dialup
if (!claim 3) goto dialup
message/close
init ATZQ0V1M0
retry 2 4
if (!dial/retry=50/delay=5/nodial=60 6261920) return 0
message/capture="This"/centre/max=5
# set username & password for authentication
set username allan@mnhep1.hep.umn.edu
:waitloop
set result {wait /del=120 name: word: server> denied}
case %result
when 0; endcase; goto dialup
when 1; send %username
when 2; send %password
when 3; endcase; goto endwaitloop
when 4; set username alla0008@gold.tc.umn.edu
endcase
if (!?line/dcd) goto dialup
goto waitloop
:endwaitloop
send slip
if (!ipget/del=30/auto) goto dialup
return 1
# start a session for all activities (smtp, nntp)
:doall
set nntp nntp
set pop pop
set hanguptime "30 3"
call/lock dialup
goto common
# start a session for mail only
:domail
set nntp #nntp
set pop pop
set hanguptime "30 3"
call/lock dialup
goto common
# start interactive session
:dointer
set nntp #nntp
set pop #pop
set hanguptime "600 2 2"
call/lock dialup
goto common
# start a session for news only
:donews
set nntp nntp
set pop #pop
set hanguptime "30 3"
call/lock dialup
:common
make SLIPdial:umnsrc <TCPIP$Dir>.AutoExec
message/close
:starttcp
task/exit="if (?line/dcd) goto starttcp"/id="TCPIP" <TCPIP2$dir>.!Run
alarm/dcd "goto tcpkill"
:hupwait
wait /event
goto hupwait
:tcpkill
task /kill="TCPIP"
# routine to end call & test for arrived files
:endcall
release
if (!?task NewsBase) task <NewsBase$dir>.!run
return
:trimfile
if (?lt {?file/size %p1} 10000) return
echo/status "Trimming %p1"
copy/tail=350 %p1 %p1-T;delete %p1;move %p1-T %p1
return
#
# This loads password config from file or prompts for data to create file.
#
:configure
set filename {?file/expand slipdial:umnconfig}
if (!?file %filename) call setup1
open/read/id=conf/error="return" %filename
read/id=conf/eof="goto closeconf" password
read/id=conf/eof="goto closeconf" gtapass
read/id=conf/eof="goto closeconf" efppass
:closeconf
close/id=conf
return
:setup1
input/prompt="Enter authorization password:" password
input/prompt="Enter gta password:" gtapass
input/prompt="Enter efppass:" efppass
open/id=conf/write %filename
write/id=conf %password
write/id=conf %gtapass
write/id=conf %efppass
close/id=conf
return
00000000 23 73 6c 69 70 64 69 61 6c 0a 64 65 62 75 67 20 |#slipdial.debug |
00000010 31 0a 63 61 6c 6c 20 63 6f 6e 66 69 67 75 72 65 |1.call configure|
00000020 0a 69 63 6f 6e 2f 66 69 6c 65 3d 3c 73 6c 69 70 |.icon/file=<slip|
00000030 64 69 61 6c 24 72 65 73 6f 75 72 63 65 73 3e 2e |dial$resources>.|
00000040 6d 61 69 6c 62 6f 78 65 73 0a 61 6c 61 72 6d 20 |mailboxes.alarm |
00000050 2f 72 65 70 65 61 74 20 2f 74 69 6d 65 3d 30 34 |/repeat /time=04|
00000060 3a 33 30 20 2f 69 64 3d 65 76 65 72 79 64 61 79 |:30 /id=everyday|
00000070 20 22 63 61 6c 6c 20 64 6f 61 6c 6c 22 0a 61 6c | "call doall".al|
00000080 61 72 6d 20 2f 73 74 6f 70 3d 22 67 6f 74 6f 20 |arm /stop="goto |
00000090 6c 6f 6f 70 22 0a 70 6f 72 74 20 73 70 5f 64 75 |loop".port sp_du|
000000a0 61 6c 20 30 3b 73 70 65 65 64 20 35 37 36 30 30 |al 0;speed 57600|
000000b0 3b 72 65 74 72 79 20 33 20 33 30 0a 23 20 6d 61 |;retry 3 30.# ma|
000000c0 69 6e 20 6c 6f 6f 70 0a 3a 6c 6f 6f 70 0a 75 6e |in loop.:loop.un|
000000d0 73 65 74 20 69 70 61 64 64 72 65 73 73 0a 6d 65 |set ipaddress.me|
000000e0 6e 75 20 22 53 74 61 72 74 20 41 6c 6c 3a 63 61 |nu "Start All:ca|
000000f0 6c 6c 20 64 6f 61 6c 6c 22 20 22 53 74 61 72 74 |ll doall" "Start|
00000100 20 4d 61 69 6c 3a 63 61 6c 6c 20 64 6f 6d 61 69 | Mail:call domai|
00000110 6c 22 20 2d 0a 20 22 53 74 61 72 74 20 4e 65 77 |l" -. "Start New|
00000120 73 3a 63 61 6c 6c 20 64 6f 6e 65 77 73 22 20 2d |s:call donews" -|
00000130 0a 20 22 49 6e 74 65 72 61 63 74 69 76 65 3a 63 |. "Interactive:c|
00000140 61 6c 6c 20 64 6f 69 6e 74 65 72 22 20 2d 0a 20 |all dointer" -. |
00000150 22 44 65 62 61 74 63 68 3a 63 61 6c 6c 20 65 6e |"Debatch:call en|
00000160 64 63 61 6c 6c 22 20 2d 0a 20 22 53 65 74 75 70 |dcall" -. "Setup|
00000170 3a 63 61 6c 6c 20 73 65 74 75 70 31 22 0a 77 61 |:call setup1".wa|
00000180 69 74 20 2f 65 76 65 6e 74 0a 67 6f 74 6f 20 6c |it /event.goto l|
00000190 6f 6f 70 0a 65 78 69 74 0a 0a 23 20 64 69 61 6c |oop.exit..# dial|
000001a0 20 75 70 20 26 20 65 6e 74 65 72 20 53 4c 49 50 | up & enter SLIP|
000001b0 20 6d 6f 64 65 0a 3a 64 69 61 6c 75 70 0a 69 66 | mode.:dialup.if|
000001c0 20 28 21 63 6c 61 69 6d 20 33 29 20 67 6f 74 6f | (!claim 3) goto|
000001d0 20 64 69 61 6c 75 70 0a 6d 65 73 73 61 67 65 2f | dialup.message/|
000001e0 63 6c 6f 73 65 0a 69 6e 69 74 20 41 54 5a 51 30 |close.init ATZQ0|
000001f0 56 31 4d 30 0a 72 65 74 72 79 20 32 20 34 0a 69 |V1M0.retry 2 4.i|
00000200 66 20 28 21 64 69 61 6c 2f 72 65 74 72 79 3d 35 |f (!dial/retry=5|
00000210 30 2f 64 65 6c 61 79 3d 35 2f 6e 6f 64 69 61 6c |0/delay=5/nodial|
00000220 3d 36 30 20 36 32 36 31 39 32 30 29 20 72 65 74 |=60 6261920) ret|
00000230 75 72 6e 20 30 0a 6d 65 73 73 61 67 65 2f 63 61 |urn 0.message/ca|
00000240 70 74 75 72 65 3d 22 54 68 69 73 22 2f 63 65 6e |pture="This"/cen|
00000250 74 72 65 2f 6d 61 78 3d 35 0a 23 20 73 65 74 20 |tre/max=5.# set |
00000260 75 73 65 72 6e 61 6d 65 20 26 20 70 61 73 73 77 |username & passw|
00000270 6f 72 64 20 66 6f 72 20 61 75 74 68 65 6e 74 69 |ord for authenti|
00000280 63 61 74 69 6f 6e 0a 73 65 74 20 75 73 65 72 6e |cation.set usern|
00000290 61 6d 65 20 61 6c 6c 61 6e 40 6d 6e 68 65 70 31 |ame allan@mnhep1|
000002a0 2e 68 65 70 2e 75 6d 6e 2e 65 64 75 0a 3a 77 61 |.hep.umn.edu.:wa|
000002b0 69 74 6c 6f 6f 70 0a 73 65 74 20 72 65 73 75 6c |itloop.set resul|
000002c0 74 20 7b 77 61 69 74 20 2f 64 65 6c 3d 31 32 30 |t {wait /del=120|
000002d0 20 6e 61 6d 65 3a 20 77 6f 72 64 3a 20 73 65 72 | name: word: ser|
000002e0 76 65 72 3e 20 64 65 6e 69 65 64 7d 0a 63 61 73 |ver> denied}.cas|
000002f0 65 20 25 72 65 73 75 6c 74 0a 20 20 77 68 65 6e |e %result. when|
00000300 20 30 3b 20 65 6e 64 63 61 73 65 3b 20 67 6f 74 | 0; endcase; got|
00000310 6f 20 64 69 61 6c 75 70 0a 20 20 77 68 65 6e 20 |o dialup. when |
00000320 31 3b 20 73 65 6e 64 20 25 75 73 65 72 6e 61 6d |1; send %usernam|
00000330 65 0a 20 20 77 68 65 6e 20 32 3b 20 73 65 6e 64 |e. when 2; send|
00000340 20 25 70 61 73 73 77 6f 72 64 0a 20 20 77 68 65 | %password. whe|
00000350 6e 20 33 3b 20 65 6e 64 63 61 73 65 3b 20 67 6f |n 3; endcase; go|
00000360 74 6f 20 65 6e 64 77 61 69 74 6c 6f 6f 70 0a 20 |to endwaitloop. |
00000370 20 77 68 65 6e 20 34 3b 20 73 65 74 20 75 73 65 | when 4; set use|
00000380 72 6e 61 6d 65 20 61 6c 6c 61 30 30 30 38 40 67 |rname alla0008@g|
00000390 6f 6c 64 2e 74 63 2e 75 6d 6e 2e 65 64 75 0a 65 |old.tc.umn.edu.e|
000003a0 6e 64 63 61 73 65 0a 69 66 20 28 21 3f 6c 69 6e |ndcase.if (!?lin|
000003b0 65 2f 64 63 64 29 20 67 6f 74 6f 20 64 69 61 6c |e/dcd) goto dial|
000003c0 75 70 0a 67 6f 74 6f 20 77 61 69 74 6c 6f 6f 70 |up.goto waitloop|
000003d0 0a 3a 65 6e 64 77 61 69 74 6c 6f 6f 70 0a 73 65 |.:endwaitloop.se|
000003e0 6e 64 20 73 6c 69 70 0a 69 66 20 28 21 69 70 67 |nd slip.if (!ipg|
000003f0 65 74 2f 64 65 6c 3d 33 30 2f 61 75 74 6f 29 20 |et/del=30/auto) |
00000400 67 6f 74 6f 20 64 69 61 6c 75 70 0a 72 65 74 75 |goto dialup.retu|
00000410 72 6e 20 31 0a 0a 23 20 73 74 61 72 74 20 61 20 |rn 1..# start a |
00000420 73 65 73 73 69 6f 6e 20 66 6f 72 20 61 6c 6c 20 |session for all |
00000430 61 63 74 69 76 69 74 69 65 73 20 28 73 6d 74 70 |activities (smtp|
00000440 2c 20 6e 6e 74 70 29 0a 3a 64 6f 61 6c 6c 0a 73 |, nntp).:doall.s|
00000450 65 74 20 6e 6e 74 70 20 6e 6e 74 70 0a 73 65 74 |et nntp nntp.set|
00000460 20 70 6f 70 20 70 6f 70 0a 73 65 74 20 68 61 6e | pop pop.set han|
00000470 67 75 70 74 69 6d 65 20 22 33 30 20 33 22 0a 63 |guptime "30 3".c|
00000480 61 6c 6c 2f 6c 6f 63 6b 20 64 69 61 6c 75 70 0a |all/lock dialup.|
00000490 67 6f 74 6f 20 63 6f 6d 6d 6f 6e 0a 0a 23 20 73 |goto common..# s|
000004a0 74 61 72 74 20 61 20 73 65 73 73 69 6f 6e 20 66 |tart a session f|
000004b0 6f 72 20 6d 61 69 6c 20 6f 6e 6c 79 0a 3a 64 6f |or mail only.:do|
000004c0 6d 61 69 6c 0a 73 65 74 20 6e 6e 74 70 20 23 6e |mail.set nntp #n|
000004d0 6e 74 70 0a 73 65 74 20 70 6f 70 20 70 6f 70 0a |ntp.set pop pop.|
000004e0 73 65 74 20 68 61 6e 67 75 70 74 69 6d 65 20 22 |set hanguptime "|
000004f0 33 30 20 33 22 0a 63 61 6c 6c 2f 6c 6f 63 6b 20 |30 3".call/lock |
00000500 64 69 61 6c 75 70 0a 67 6f 74 6f 20 63 6f 6d 6d |dialup.goto comm|
00000510 6f 6e 0a 0a 23 20 73 74 61 72 74 20 69 6e 74 65 |on..# start inte|
00000520 72 61 63 74 69 76 65 20 73 65 73 73 69 6f 6e 0a |ractive session.|
00000530 3a 64 6f 69 6e 74 65 72 0a 73 65 74 20 6e 6e 74 |:dointer.set nnt|
00000540 70 20 23 6e 6e 74 70 0a 73 65 74 20 70 6f 70 20 |p #nntp.set pop |
00000550 23 70 6f 70 0a 73 65 74 20 68 61 6e 67 75 70 74 |#pop.set hangupt|
00000560 69 6d 65 20 22 36 30 30 20 32 20 32 22 0a 63 61 |ime "600 2 2".ca|
00000570 6c 6c 2f 6c 6f 63 6b 20 64 69 61 6c 75 70 0a 67 |ll/lock dialup.g|
00000580 6f 74 6f 20 63 6f 6d 6d 6f 6e 0a 0a 23 20 73 74 |oto common..# st|
00000590 61 72 74 20 61 20 73 65 73 73 69 6f 6e 20 66 6f |art a session fo|
000005a0 72 20 6e 65 77 73 20 6f 6e 6c 79 0a 3a 64 6f 6e |r news only.:don|
000005b0 65 77 73 0a 73 65 74 20 6e 6e 74 70 20 6e 6e 74 |ews.set nntp nnt|
000005c0 70 0a 73 65 74 20 70 6f 70 20 23 70 6f 70 0a 73 |p.set pop #pop.s|
000005d0 65 74 20 68 61 6e 67 75 70 74 69 6d 65 20 22 33 |et hanguptime "3|
000005e0 30 20 33 22 0a 63 61 6c 6c 2f 6c 6f 63 6b 20 64 |0 3".call/lock d|
000005f0 69 61 6c 75 70 0a 3a 63 6f 6d 6d 6f 6e 0a 6d 61 |ialup.:common.ma|
00000600 6b 65 20 53 4c 49 50 64 69 61 6c 3a 75 6d 6e 73 |ke SLIPdial:umns|
00000610 72 63 20 3c 54 43 50 49 50 24 44 69 72 3e 2e 41 |rc <TCPIP$Dir>.A|
00000620 75 74 6f 45 78 65 63 0a 6d 65 73 73 61 67 65 2f |utoExec.message/|
00000630 63 6c 6f 73 65 0a 3a 73 74 61 72 74 74 63 70 0a |close.:starttcp.|
00000640 74 61 73 6b 2f 65 78 69 74 3d 22 69 66 20 28 3f |task/exit="if (?|
00000650 6c 69 6e 65 2f 64 63 64 29 20 67 6f 74 6f 20 73 |line/dcd) goto s|
00000660 74 61 72 74 74 63 70 22 2f 69 64 3d 22 54 43 50 |tarttcp"/id="TCP|
00000670 49 50 22 20 3c 54 43 50 49 50 32 24 64 69 72 3e |IP" <TCPIP2$dir>|
00000680 2e 21 52 75 6e 0a 61 6c 61 72 6d 2f 64 63 64 20 |.!Run.alarm/dcd |
00000690 22 67 6f 74 6f 20 74 63 70 6b 69 6c 6c 22 0a 3a |"goto tcpkill".:|
000006a0 68 75 70 77 61 69 74 0a 77 61 69 74 20 2f 65 76 |hupwait.wait /ev|
000006b0 65 6e 74 0a 67 6f 74 6f 20 68 75 70 77 61 69 74 |ent.goto hupwait|
000006c0 0a 3a 74 63 70 6b 69 6c 6c 0a 74 61 73 6b 20 2f |.:tcpkill.task /|
000006d0 6b 69 6c 6c 3d 22 54 43 50 49 50 22 0a 0a 23 20 |kill="TCPIP"..# |
000006e0 72 6f 75 74 69 6e 65 20 74 6f 20 65 6e 64 20 63 |routine to end c|
000006f0 61 6c 6c 20 26 20 74 65 73 74 20 66 6f 72 20 61 |all & test for a|
00000700 72 72 69 76 65 64 20 66 69 6c 65 73 0a 3a 65 6e |rrived files.:en|
00000710 64 63 61 6c 6c 0a 72 65 6c 65 61 73 65 0a 69 66 |dcall.release.if|
00000720 20 28 21 3f 74 61 73 6b 20 4e 65 77 73 42 61 73 | (!?task NewsBas|
00000730 65 29 20 74 61 73 6b 20 3c 4e 65 77 73 42 61 73 |e) task <NewsBas|
00000740 65 24 64 69 72 3e 2e 21 72 75 6e 0a 72 65 74 75 |e$dir>.!run.retu|
00000750 72 6e 0a 0a 3a 74 72 69 6d 66 69 6c 65 0a 69 66 |rn..:trimfile.if|
00000760 20 28 3f 6c 74 20 7b 3f 66 69 6c 65 2f 73 69 7a | (?lt {?file/siz|
00000770 65 20 25 70 31 7d 20 31 30 30 30 30 29 20 72 65 |e %p1} 10000) re|
00000780 74 75 72 6e 0a 65 63 68 6f 2f 73 74 61 74 75 73 |turn.echo/status|
00000790 20 22 54 72 69 6d 6d 69 6e 67 20 25 70 31 22 0a | "Trimming %p1".|
000007a0 63 6f 70 79 2f 74 61 69 6c 3d 33 35 30 20 25 70 |copy/tail=350 %p|
000007b0 31 20 25 70 31 2d 54 3b 64 65 6c 65 74 65 20 25 |1 %p1-T;delete %|
000007c0 70 31 3b 6d 6f 76 65 20 25 70 31 2d 54 20 25 70 |p1;move %p1-T %p|
000007d0 31 0a 72 65 74 75 72 6e 20 0a 0a 23 0a 23 20 54 |1.return ..#.# T|
000007e0 68 69 73 20 6c 6f 61 64 73 20 70 61 73 73 77 6f |his loads passwo|
000007f0 72 64 20 63 6f 6e 66 69 67 20 66 72 6f 6d 20 66 |rd config from f|
00000800 69 6c 65 20 6f 72 20 70 72 6f 6d 70 74 73 20 66 |ile or prompts f|
00000810 6f 72 20 64 61 74 61 20 74 6f 20 63 72 65 61 74 |or data to creat|
00000820 65 20 66 69 6c 65 2e 0a 23 0a 3a 63 6f 6e 66 69 |e file..#.:confi|
00000830 67 75 72 65 0a 73 65 74 20 66 69 6c 65 6e 61 6d |gure.set filenam|
00000840 65 20 7b 3f 66 69 6c 65 2f 65 78 70 61 6e 64 20 |e {?file/expand |
00000850 73 6c 69 70 64 69 61 6c 3a 75 6d 6e 63 6f 6e 66 |slipdial:umnconf|
00000860 69 67 7d 0a 69 66 20 28 21 3f 66 69 6c 65 20 25 |ig}.if (!?file %|
00000870 66 69 6c 65 6e 61 6d 65 29 20 63 61 6c 6c 20 73 |filename) call s|
00000880 65 74 75 70 31 0a 6f 70 65 6e 2f 72 65 61 64 2f |etup1.open/read/|
00000890 69 64 3d 63 6f 6e 66 2f 65 72 72 6f 72 3d 22 72 |id=conf/error="r|
000008a0 65 74 75 72 6e 22 20 25 66 69 6c 65 6e 61 6d 65 |eturn" %filename|
000008b0 0a 72 65 61 64 2f 69 64 3d 63 6f 6e 66 2f 65 6f |.read/id=conf/eo|
000008c0 66 3d 22 67 6f 74 6f 20 63 6c 6f 73 65 63 6f 6e |f="goto closecon|
000008d0 66 22 20 70 61 73 73 77 6f 72 64 0a 72 65 61 64 |f" password.read|
000008e0 2f 69 64 3d 63 6f 6e 66 2f 65 6f 66 3d 22 67 6f |/id=conf/eof="go|
000008f0 74 6f 20 63 6c 6f 73 65 63 6f 6e 66 22 20 67 74 |to closeconf" gt|
00000900 61 70 61 73 73 0a 72 65 61 64 2f 69 64 3d 63 6f |apass.read/id=co|
00000910 6e 66 2f 65 6f 66 3d 22 67 6f 74 6f 20 63 6c 6f |nf/eof="goto clo|
00000920 73 65 63 6f 6e 66 22 20 65 66 70 70 61 73 73 0a |seconf" efppass.|
00000930 3a 63 6c 6f 73 65 63 6f 6e 66 0a 63 6c 6f 73 65 |:closeconf.close|
00000940 2f 69 64 3d 63 6f 6e 66 0a 72 65 74 75 72 6e 0a |/id=conf.return.|
00000950 0a 3a 73 65 74 75 70 31 0a 69 6e 70 75 74 2f 70 |.:setup1.input/p|
00000960 72 6f 6d 70 74 3d 22 45 6e 74 65 72 20 61 75 74 |rompt="Enter aut|
00000970 68 6f 72 69 7a 61 74 69 6f 6e 20 70 61 73 73 77 |horization passw|
00000980 6f 72 64 3a 22 20 70 61 73 73 77 6f 72 64 0a 69 |ord:" password.i|
00000990 6e 70 75 74 2f 70 72 6f 6d 70 74 3d 22 45 6e 74 |nput/prompt="Ent|
000009a0 65 72 20 67 74 61 20 70 61 73 73 77 6f 72 64 3a |er gta password:|
000009b0 22 20 67 74 61 70 61 73 73 0a 69 6e 70 75 74 2f |" gtapass.input/|
000009c0 70 72 6f 6d 70 74 3d 22 45 6e 74 65 72 20 65 66 |prompt="Enter ef|
000009d0 70 70 61 73 73 3a 22 20 65 66 70 70 61 73 73 0a |ppass:" efppass.|
000009e0 6f 70 65 6e 2f 69 64 3d 63 6f 6e 66 2f 77 72 69 |open/id=conf/wri|
000009f0 74 65 20 25 66 69 6c 65 6e 61 6d 65 0a 77 72 69 |te %filename.wri|
00000a00 74 65 2f 69 64 3d 63 6f 6e 66 20 25 70 61 73 73 |te/id=conf %pass|
00000a10 77 6f 72 64 0a 77 72 69 74 65 2f 69 64 3d 63 6f |word.write/id=co|
00000a20 6e 66 20 25 67 74 61 70 61 73 73 0a 77 72 69 74 |nf %gtapass.writ|
00000a30 65 2f 69 64 3d 63 6f 6e 66 20 25 65 66 70 70 61 |e/id=conf %efppa|
00000a40 73 73 0a 63 6c 6f 73 65 2f 69 64 3d 63 6f 6e 66 |ss.close/id=conf|
00000a50 0a 72 65 74 75 72 6e 0a |.return.|
00000a58 
.