00000000  23 73 6c 69 70 64 69 61  6c 0a 64 65 62 75 67 20  |#slipdial.debug |
00000010  31 0a 23 20 61 64 64 20  6d 61 69 6c 20 69 63 6f  |1.# add mail ico|
00000020  6e 20 74 6f 20 69 63 6f  6e 62 61 72 2e 2e 2e 0a  |n to iconbar....|
00000030  69 63 6f 6e 2f 66 69 6c  65 3d 3c 73 6c 69 70 64  |icon/file=<slipd|
00000040  69 61 6c 24 72 65 73 6f  75 72 63 65 73 3e 2e 6d  |ial$resources>.m|
00000050  61 69 6c 62 6f 78 65 73  0a 23 20 73 65 74 20 70  |ailboxes.# set p|
00000060  61 73 73 77 6f 72 64 73  0a 73 65 74 20 70 61 73  |asswords.set pas|
00000070  73 77 6f 72 64 20 77 61  73 6d 79 70 61 73 73 77  |sword wasmypassw|
00000080  6f 72 64 0a 73 65 74 20  67 74 61 70 61 73 73 20  |ord.set gtapass |
00000090  77 61 73 61 6e 6f 74 68  65 72 70 61 73 73 77 6f  |wasanotherpasswo|
000000a0  72 64 0a 73 65 74 20 65  66 70 70 61 73 73 20 77  |rd.set efppass w|
000000b0  61 73 61 6e 6f 74 68 65  72 70 61 73 73 77 6f 72  |asanotherpasswor|
000000c0  64 0a 23 20 6e 6f 77 20  73 74 61 72 74 20 73 63  |d.# now start sc|
000000d0  72 69 70 74 0a 61 6c 61  72 6d 20 2f 72 65 70 65  |ript.alarm /repe|
000000e0  61 74 20 2f 74 69 6d 65  3d 30 34 3a 33 30 20 2f  |at /time=04:30 /|
000000f0  69 64 3d 65 76 65 72 79  64 61 79 20 22 63 61 6c  |id=everyday "cal|
00000100  6c 2f 6c 6f 63 6b 20 64  6f 61 6c 6c 22 0a 61 6c  |l/lock doall".al|
00000110  61 72 6d 20 2f 73 74 6f  70 3d 22 67 6f 74 6f 20  |arm /stop="goto |
00000120  6c 6f 6f 70 22 0a 70 6f  72 74 20 73 70 5f 64 75  |loop".port sp_du|
00000130  61 6c 20 30 3b 73 70 65  65 64 20 35 37 36 30 30  |al 0;speed 57600|
00000140  3b 72 65 74 72 79 20 33  20 33 30 0a 63 61 6c 6c  |;retry 3 30.call|
00000150  20 6d 61 69 6c 69 63 6f  6e 0a 23 20 6d 61 69 6e  | mailicon.# main|
00000160  20 6c 6f 6f 70 0a 3a 6c  6f 6f 70 0a 6d 65 6e 75  | loop.:loop.menu|
00000170  20 22 53 74 61 72 74 20  41 6c 6c 3a 63 61 6c 6c  | "Start All:call|
00000180  2f 6c 6f 63 6b 20 64 6f  61 6c 6c 22 20 22 53 74  |/lock doall" "St|
00000190  61 72 74 20 4d 61 69 6c  3a 63 61 6c 6c 2f 6c 6f  |art Mail:call/lo|
000001a0  63 6b 20 64 6f 6d 61 69  6c 22 20 2d 0a 20 22 53  |ck domail" -. "S|
000001b0  74 61 72 74 20 4e 65 77  73 3a 63 61 6c 6c 2f 6c  |tart News:call/l|
000001c0  6f 63 6b 20 64 6f 6e 65  77 73 22 20 2d 0a 20 22  |ock donews" -. "|
000001d0  44 65 62 61 74 63 68 3a  63 61 6c 6c 20 65 6e 64  |Debatch:call end|
000001e0  63 61 6c 6c 22 20 2d 0a  20 22 46 69 6c 65 74 65  |call" -. "Filete|
000001f0  73 74 3a 63 61 6c 6c 20  66 69 6c 65 74 65 73 74  |st:call filetest|
00000200  22 0a 77 61 69 74 20 2f  65 76 65 6e 74 0a 67 6f  |".wait /event.go|
00000210  74 6f 20 6c 6f 6f 70 0a  65 78 69 74 0a 0a 23 20  |to loop.exit..# |
00000220  64 69 61 6c 20 75 70 20  26 20 65 6e 74 65 72 20  |dial up & enter |
00000230  53 4c 49 50 20 6d 6f 64  65 0a 3a 64 69 61 6c 75  |SLIP mode.:dialu|
00000240  70 0a 69 66 20 28 21 63  6c 61 69 6d 20 33 29 20  |p.if (!claim 3) |
00000250  67 6f 74 6f 20 64 69 61  6c 75 70 0a 69 6e 69 74  |goto dialup.init|
00000260  20 41 54 5a 51 30 56 31  0a 72 65 74 72 79 20 32  | ATZQ0V1.retry 2|
00000270  20 34 0a 69 66 20 28 21  64 69 61 6c 2f 72 65 74  | 4.if (!dial/ret|
00000280  72 79 3d 35 30 2f 64 65  6c 61 79 3d 35 2f 6e 6f  |ry=50/delay=5/no|
00000290  64 69 61 6c 3d 36 30 20  36 32 36 31 39 32 30 29  |dial=60 6261920)|
000002a0  20 72 65 74 75 72 6e 20  30 0a 6d 65 73 73 61 67  | return 0.messag|
000002b0  65 2f 63 61 70 74 75 72  65 3d 22 54 68 69 73 22  |e/capture="This"|
000002c0  2f 63 65 6e 74 72 65 2f  6d 61 78 3d 35 0a 23 20  |/centre/max=5.# |
000002d0  73 65 74 20 75 73 65 72  6e 61 6d 65 20 26 20 70  |set username & p|
000002e0  61 73 73 77 6f 72 64 20  66 6f 72 20 61 75 74 68  |assword for auth|
000002f0  65 6e 74 69 63 61 74 69  6f 6e 0a 73 65 74 20 75  |entication.set u|
00000300  73 65 72 6e 61 6d 65 20  61 6c 6c 61 6e 40 6d 6e  |sername allan@mn|
00000310  68 65 70 7a 2e 68 65 70  2e 75 6d 6e 2e 65 64 75  |hepz.hep.umn.edu|
00000320  0a 3a 77 61 69 74 6c 6f  6f 70 0a 77 61 69 74 20  |.:waitloop.wait |
00000330  2f 64 65 6c 3d 35 30 20  6e 61 6d 65 3a 20 77 6f  |/del=50 name: wo|
00000340  72 64 3a 20 73 65 72 76  65 72 3e 20 64 65 6e 69  |rd: server> deni|
00000350  65 64 0a 73 65 74 20 72  65 73 75 6c 74 20 25 24  |ed.set result %$|
00000360  73 74 61 74 75 73 0a 69  66 20 28 3f 65 71 20 25  |status.if (?eq %|
00000370  72 65 73 75 6c 74 20 30  29 20 67 6f 74 6f 20 64  |result 0) goto d|
00000380  69 61 6c 75 70 0a 69 66  20 28 3f 65 71 20 25 72  |ialup.if (?eq %r|
00000390  65 73 75 6c 74 20 31 29  20 73 65 6e 64 20 25 75  |esult 1) send %u|
000003a0  73 65 72 6e 61 6d 65 0a  69 66 20 28 3f 65 71 20  |sername.if (?eq |
000003b0  25 72 65 73 75 6c 74 20  32 29 20 73 65 6e 64 20  |%result 2) send |
000003c0  25 70 61 73 73 77 6f 72  64 0a 69 66 20 28 3f 65  |%password.if (?e|
000003d0  71 20 25 72 65 73 75 6c  74 20 33 29 20 67 6f 74  |q %result 3) got|
000003e0  6f 20 65 6e 64 77 61 69  74 6c 6f 6f 70 0a 23 20  |o endwaitloop.# |
000003f0  61 63 63 65 73 73 20 64  65 6e 69 65 64 20 28 6d  |access denied (m|
00000400  6e 68 65 70 7a 20 64 6f  77 6e 3f 29 20 2d 3e 20  |nhepz down?) -> |
00000410  73 65 74 20 61 6c 74 65  72 6e 61 74 69 76 65 20  |set alternative |
00000420  61 75 74 68 65 6e 74 69  63 61 74 6f 72 3a 0a 69  |authenticator:.i|
00000430  66 20 28 3f 65 71 20 25  72 65 73 75 6c 74 20 34  |f (?eq %result 4|
00000440  29 20 73 65 74 20 75 73  65 72 6e 61 6d 65 20 61  |) set username a|
00000450  6c 6c 61 30 30 30 38 40  67 6f 6c 64 2e 74 63 2e  |lla0008@gold.tc.|
00000460  75 6d 6e 2e 65 64 75 0a  69 66 20 28 21 3f 6c 69  |umn.edu.if (!?li|
00000470  6e 65 2f 64 63 64 29 20  67 6f 74 6f 20 64 69 61  |ne/dcd) goto dia|
00000480  6c 75 70 0a 67 6f 74 6f  20 77 61 69 74 6c 6f 6f  |lup.goto waitloo|
00000490  70 0a 3a 65 6e 64 77 61  69 74 6c 6f 6f 70 0a 73  |p.:endwaitloop.s|
000004a0  65 6e 64 20 73 6c 69 70  0a 69 70 67 65 74 20 31  |end slip.ipget 1|
000004b0  33 34 2e 0a 72 65 74 75  72 6e 20 31 0a 0a 23 20  |34..return 1..# |
000004c0  73 74 61 72 74 20 61 20  73 65 73 73 69 6f 6e 20  |start a session |
000004d0  66 6f 72 20 61 6c 6c 20  61 63 74 69 76 69 74 69  |for all activiti|
000004e0  65 73 20 28 73 6d 74 70  2c 20 6e 6e 74 70 29 0a  |es (smtp, nntp).|
000004f0  3a 64 6f 61 6c 6c 0a 63  61 6c 6c 20 64 69 61 6c  |:doall.call dial|
00000500  75 70 0a 73 65 74 20 6e  6e 74 70 20 6e 6e 74 70  |up.set nntp nntp|
00000510  0a 73 65 74 20 70 6f 70  20 70 6f 70 0a 67 6f 74  |.set pop pop.got|
00000520  6f 20 63 6f 6d 6d 6f 6e  0a 0a 23 20 73 74 61 72  |o common..# star|
00000530  74 20 61 20 73 65 73 73  69 6f 6e 20 66 6f 72 20  |t a session for |
00000540  6d 61 69 6c 20 6f 6e 6c  79 0a 3a 64 6f 6d 61 69  |mail only.:domai|
00000550  6c 0a 63 61 6c 6c 20 64  69 61 6c 75 70 0a 73 65  |l.call dialup.se|
00000560  74 20 6e 6e 74 70 20 23  6e 6e 74 70 0a 73 65 74  |t nntp #nntp.set|
00000570  20 70 6f 70 20 70 6f 70  0a 67 6f 74 6f 20 63 6f  | pop pop.goto co|
00000580  6d 6d 6f 6e 0a 0a 23 20  73 74 61 72 74 20 61 20  |mmon..# start a |
00000590  73 65 73 73 69 6f 6e 20  66 6f 72 20 6e 65 77 73  |session for news|
000005a0  20 6f 6e 6c 79 0a 3a 64  6f 6e 65 77 73 0a 63 61  | only.:donews.ca|
000005b0  6c 6c 20 64 69 61 6c 75  70 0a 73 65 74 20 6e 6e  |ll dialup.set nn|
000005c0  74 70 20 6e 6e 74 70 0a  73 65 74 20 70 6f 70 20  |tp nntp.set pop |
000005d0  23 70 6f 70 0a 3a 63 6f  6d 6d 6f 6e 0a 73 65 74  |#pop.:common.set|
000005e0  20 68 61 6e 67 75 70 74  69 6d 65 20 22 31 35 20  | hanguptime "15 |
000005f0  32 20 33 22 0a 6d 61 6b  65 20 53 4c 49 50 64 69  |2 3".make SLIPdi|
00000600  61 6c 3a 75 6d 6e 73 72  63 20 3c 54 43 50 49 50  |al:umnsrc <TCPIP|
00000610  24 44 69 72 3e 2e 41 75  74 6f 45 78 65 63 0a 3a  |$Dir>.AutoExec.:|
00000620  73 74 61 72 74 74 63 70  0a 74 61 73 6b 2f 65 78  |starttcp.task/ex|
00000630  69 74 3d 22 69 66 20 28  3f 6c 69 6e 65 2f 64 63  |it="if (?line/dc|
00000640  64 29 20 67 6f 74 6f 20  73 74 61 72 74 74 63 70  |d) goto starttcp|
00000650  22 2f 69 64 3d 22 54 43  50 49 50 22 20 3c 54 43  |"/id="TCPIP" <TC|
00000660  50 49 50 24 64 69 72 3e  2e 21 52 75 6e 0a 61 6c  |PIP$dir>.!Run.al|
00000670  61 72 6d 2f 64 63 64 20  22 67 6f 74 6f 20 74 63  |arm/dcd "goto tc|
00000680  70 6b 69 6c 6c 22 0a 3a  68 75 70 77 61 69 74 0a  |pkill".:hupwait.|
00000690  77 61 69 74 20 2f 65 76  65 6e 74 0a 67 6f 74 6f  |wait /event.goto|
000006a0  20 68 75 70 77 61 69 74  0a 3a 74 63 70 6b 69 6c  | hupwait.:tcpkil|
000006b0  6c 0a 6d 65 73 73 61 67  65 2f 63 6c 6f 73 65 0a  |l.message/close.|
000006c0  74 61 73 6b 20 2f 6b 69  6c 6c 3d 22 54 43 50 49  |task /kill="TCPI|
000006d0  50 22 0a 63 61 6c 6c 20  65 6e 64 63 61 6c 6c 0a  |P".call endcall.|
000006e0  72 65 74 75 72 6e 0a 0a  23 20 72 6f 75 74 69 6e  |return..# routin|
000006f0  65 20 74 6f 20 65 6e 64  20 63 61 6c 6c 20 26 20  |e to end call & |
00000700  74 65 73 74 20 66 6f 72  20 61 72 72 69 76 65 64  |test for arrived|
00000710  20 66 69 6c 65 73 0a 3a  65 6e 64 63 61 6c 6c 0a  | files.:endcall.|
00000720  72 65 6c 65 61 73 65 0a  73 65 74 20 6e 65 77 6d  |release.set newm|
00000730  61 69 6c 0a 69 66 20 28  3f 66 69 6c 65 2f 73 69  |ail.if (?file/si|
00000740  7a 65 20 3c 4d 61 69 6c  24 64 69 72 3e 2e 73 70  |ze <Mail$dir>.sp|
00000750  6f 6f 6c 2e 6d 61 69 6c  2e 74 65 78 74 2e 65 66  |ool.mail.text.ef|
00000760  70 29 20 63 61 6c 6c 20  6d 6f 76 65 6d 61 69 6c  |p) call movemail|
00000770  20 65 66 70 0a 69 66 20  28 3f 66 69 6c 65 2f 73  | efp.if (?file/s|
00000780  69 7a 65 20 3c 4d 61 69  6c 24 64 69 72 3e 2e 73  |ize <Mail$dir>.s|
00000790  70 6f 6f 6c 2e 6d 61 69  6c 2e 74 65 78 74 2e 67  |pool.mail.text.g|
000007a0  74 61 29 20 63 61 6c 6c  20 6d 6f 76 65 6d 61 69  |ta) call movemai|
000007b0  6c 20 67 74 61 0a 69 66  20 28 3f 66 69 6c 65 20  |l gta.if (?file |
000007c0  3c 4d 61 69 6c 24 64 69  72 3e 2e 66 6f 6c 64 65  |<Mail$dir>.folde|
000007d0  72 2e 75 6d 6e 4e 65 77  73 29 20 6d 6f 76 65 20  |r.umnNews) move |
000007e0  3c 4d 61 69 6c 24 64 69  72 3e 2e 66 6f 6c 64 65  |<Mail$dir>.folde|
000007f0  72 2e 75 6d 6e 4e 65 77  73 20 3c 4e 65 77 73 53  |r.umnNews <NewsS|
00000800  70 6f 6f 6c 24 64 69 72  3e 2e 6e 65 77 73 2a 0a  |pool$dir>.news*.|
00000810  69 66 20 28 3f 66 69 6c  65 20 3c 4d 61 69 6c 24  |if (?file <Mail$|
00000820  64 69 72 3e 2e 66 6f 6c  64 65 72 2e 64 65 6d 4e  |dir>.folder.demN|
00000830  65 77 73 29 20 6d 6f 76  65 20 3c 4d 61 69 6c 24  |ews) move <Mail$|
00000840  64 69 72 3e 2e 66 6f 6c  64 65 72 2e 64 65 6d 4e  |dir>.folder.demN|
00000850  65 77 73 20 3c 4e 65 77  73 53 70 6f 6f 6c 24 64  |ews <NewsSpool$d|
00000860  69 72 3e 2e 6e 65 77 73  2a 0a 69 66 20 28 3f 66  |ir>.news*.if (?f|
00000870  69 6c 65 20 3c 4e 65 77  73 53 70 6f 6f 6c 24 64  |ile <NewsSpool$d|
00000880  69 72 3e 2e 6d 61 69 6c  2a 29 20 63 61 6c 6c 20  |ir>.mail*) call |
00000890  6d 61 69 6c 69 63 6f 6e  3b 6d 65 73 73 61 67 65  |mailicon;message|
000008a0  2f 63 65 6e 74 20 22 4e  65 77 20 6d 61 69 6c 20  |/cent "New mail |
000008b0  66 6f 72 20 25 6e 65 77  6d 61 69 6c 22 0a 69 66  |for %newmail".if|
000008c0  20 28 3f 66 69 6c 65 20  3c 4e 65 77 73 53 70 6f  | (?file <NewsSpo|
000008d0  6f 6c 24 64 69 72 3e 2e  2a 29 20 74 61 73 6b 20  |ol$dir>.*) task |
000008e0  3c 44 65 62 61 74 63 68  24 64 69 72 3e 2e 21 72  |<Debatch$dir>.!r|
000008f0  75 6e 0a 72 65 74 75 72  6e 0a 0a 23 20 72 6f 75  |un.return..# rou|
00000900  74 69 6e 65 20 74 6f 20  6d 6f 76 65 20 6e 65 77  |tine to move new|
00000910  20 6d 61 69 6c 20 66 69  6c 65 73 0a 3a 6d 6f 76  | mail files.:mov|
00000920  65 6d 61 69 6c 0a 61 70  70 65 6e 64 20 3c 4d 61  |email.append <Ma|
00000930  69 6c 24 64 69 72 3e 2e  73 70 6f 6f 6c 2e 6d 61  |il$dir>.spool.ma|
00000940  69 6c 2e 74 65 78 74 2e  25 70 31 20 3c 4d 61 69  |il.text.%p1 <Mai|
00000950  6c 24 64 69 72 3e 2e 73  70 6f 6f 6c 2e 6d 61 69  |l$dir>.spool.mai|
00000960  6c 2e 25 70 31 0a 61 70  70 65 6e 64 20 3c 4d 61  |l.%p1.append <Ma|
00000970  69 6c 24 64 69 72 3e 2e  73 70 6f 6f 6c 2e 6d 61  |il$dir>.spool.ma|
00000980  69 6c 2e 74 65 78 74 2e  25 70 31 20 3c 4d 61 69  |il.text.%p1 <Mai|
00000990  6c 24 64 69 72 3e 2e 25  70 31 0a 6d 6f 76 65 20  |l$dir>.%p1.move |
000009a0  3c 4d 61 69 6c 24 64 69  72 3e 2e 73 70 6f 6f 6c  |<Mail$dir>.spool|
000009b0  2e 6d 61 69 6c 2e 74 65  78 74 2e 25 70 31 20 3c  |.mail.text.%p1 <|
000009c0  4e 65 77 73 53 70 6f 6f  6c 24 64 69 72 3e 2e 6d  |NewsSpool$dir>.m|
000009d0  61 69 6c 2a 0a 73 65 74  20 6e 65 77 6d 61 69 6c  |ail*.set newmail|
000009e0  20 25 6e 65 77 6d 61 69  6c 25 70 31 0a 72 65 74  | %newmail%p1.ret|
000009f0  75 72 6e 0a 0a 3a 6d 61  69 6c 63 6c 69 63 6b 0a  |urn..:mailclick.|
00000a00  69 66 20 28 3f 66 69 6c  65 20 3c 4d 61 69 6c 24  |if (?file <Mail$|
00000a10  44 69 72 3e 2e 67 74 61  29 20 74 61 73 6b 20 22  |Dir>.gta) task "|
00000a20  66 69 6c 65 72 5f 72 75  6e 20 3c 4d 61 69 6c 24  |filer_run <Mail$|
00000a30  44 69 72 3e 2e 67 74 61  22 0a 69 66 20 28 3f 66  |Dir>.gta".if (?f|
00000a40  69 6c 65 20 3c 4d 61 69  6c 24 44 69 72 3e 2e 65  |ile <Mail$Dir>.e|
00000a50  66 70 29 20 74 61 73 6b  20 22 66 69 6c 65 72 5f  |fp) task "filer_|
00000a60  72 75 6e 20 3c 4d 61 69  6c 24 44 69 72 3e 2e 65  |run <Mail$Dir>.e|
00000a70  66 70 22 0a 74 61 73 6b  20 22 72 65 6d 6f 76 65  |fp".task "remove|
00000a80  20 3c 4d 61 69 6c 24 44  69 72 3e 2e 67 74 61 22  | <Mail$Dir>.gta"|
00000a90  0a 74 61 73 6b 20 22 72  65 6d 6f 76 65 20 3c 4d  |.task "remove <M|
00000aa0  61 69 6c 24 44 69 72 3e  2e 65 66 70 22 0a 0a 3a  |ail$Dir>.efp"..:|
00000ab0  6d 61 69 6c 69 63 6f 6e  0a 73 65 74 20 69 63 6f  |mailicon.set ico|
00000ac0  6e 20 6e 6f 6d 61 69 6c  0a 69 66 20 28 3f 66 69  |n nomail.if (?fi|
00000ad0  6c 65 20 3c 4d 61 69 6c  24 44 69 72 3e 2e 67 74  |le <Mail$Dir>.gt|
00000ae0  61 29 20 73 65 74 20 69  63 6f 6e 20 6d 61 69 6c  |a) set icon mail|
00000af0  0a 69 66 20 28 3f 66 69  6c 65 20 3c 4d 61 69 6c  |.if (?file <Mail|
00000b00  24 44 69 72 3e 2e 65 66  70 29 20 73 65 74 20 69  |$Dir>.efp) set i|
00000b10  63 6f 6e 20 6d 61 69 6c  0a 69 63 6f 6e 2f 69 64  |con mail.icon/id|
00000b20  3d 6d 61 69 6c 2f 61 63  74 69 6f 6e 3d 22 63 61  |=mail/action="ca|
00000b30  6c 6c 20 6d 61 69 6c 63  6c 69 63 6b 22 20 25 69  |ll mailclick" %i|
00000b40  63 6f 6e 0a 72 65 74 75  72 6e 0a 0a 3a 74 65 73  |con.return..:tes|
00000b50  74 0a 23 20 72 6f 75 74  69 6e 65 20 66 6f 72 20  |t.# routine for |
00000b60  74 65 73 74 69 6e 67 20  73 6f 6d 65 20 73 63 72  |testing some scr|
00000b70  69 70 74 20 63 6f 6e 73  74 72 75 63 74 73 2e 2e  |ipt constructs..|
00000b80  2e 0a 23 74 61 73 6b 77  69 6e 64 6f 77 20 2f 6e  |..#taskwindow /n|
00000b90  61 6d 65 3d 6c 65 6d 6d  69 6e 67 20 2f 6f 75 74  |ame=lemming /out|
00000ba0  70 75 74 3d 24 2e 74 65  73 74 6f 75 74 20 2f 73  |put=$.testout /s|
00000bb0  69 7a 65 3d 33 32 6b 20  2f 65 78 69 74 3d 22 6d  |ize=32k /exit="m|
00000bc0  65 73 73 61 67 65 20 68  69 22 20 65 78 0a 23 69  |essage hi" ex.#i|
00000bd0  66 20 28 3f 65 71 20 25  70 61 73 73 77 6f 72 64  |f (?eq %password|
00000be0  20 73 6f 6d 65 74 68 69  6e 67 29 20 74 61 73 6b  | something) task|
00000bf0  2f 65 78 69 74 3d 22 6d  65 73 73 61 67 65 20 68  |/exit="message h|
00000c00  65 6c 6c 6f 22 20 69 64  65 66 73 3a 3a 34 2e 24  |ello" idefs::4.$|
00000c10  2e 65 78 74 72 61 73 2e  21 6d 6f 6e 69 74 6f 72  |.extras.!monitor|
00000c20  0a 23 69 63 6f 6e 2f 69  64 3d 74 65 73 74 2f 61  |.#icon/id=test/a|
00000c30  63 74 69 6f 6e 3d 22 6d  65 73 73 61 67 65 20 59  |ction="message Y|
00000c40  6f 75 20 63 6c 69 63 6b  65 64 21 22 20 6e 6f 6d  |ou clicked!" nom|
00000c50  61 69 6c 0a 23 61 6c 61  72 6d 2f 69 63 6f 6e 3d  |ail.#alarm/icon=|
00000c60  74 65 73 74 20 22 6d 65  73 73 61 67 65 20 5c 5c  |test "message \\|
00000c70  25 24 66 69 6c 65 20 5c  5c 25 24 74 79 70 65 22  |%$file \\%$type"|
00000c80  0a 23 67 6f 74 6f 20 6c  6f 6f 70 0a 3f 74 61 73  |.#goto loop.?tas|
00000c90  6b 20 49 6e 63 6f 72 70  0a 69 66 20 28 3f 65 71  |k Incorp.if (?eq|
00000ca0  20 25 24 73 74 61 74 75  73 20 30 29 20 74 61 73  | %$status 0) tas|
00000cb0  6b 20 24 2e 6e 65 74 2e  21 49 6e 63 6f 72 70 0a  |k $.net.!Incorp.|
00000cc0  72 65 74 75 72 6e 0a 0a  3a 66 69 6c 65 74 65 73  |return..:filetes|
00000cd0  74 0a 23 20 73 6c 6f 77  65 73 74 20 70 6f 73 73  |t.# slowest poss|
00000ce0  69 62 6c 65 20 77 61 79  20 74 6f 20 63 6f 70 79  |ible way to copy|
00000cf0  20 61 20 74 65 78 74 20  66 69 6c 65 2e 2e 2e 20  | a text file... |
00000d00  62 75 74 20 73 68 6f 75  6c 64 20 77 6f 72 6b 21  |but should work!|
00000d10  0a 6f 70 65 6e 2f 69 64  3d 69 6e 66 69 6c 65 2f  |.open/id=infile/|
00000d20  65 6f 66 3d 22 67 6f 74  6f 20 63 6c 6f 73 65 66  |eof="goto closef|
00000d30  69 6c 65 73 22 20 73 6c  69 70 64 69 61 6c 3a 21  |iles" slipdial:!|
00000d40  48 65 6c 70 0a 6f 70 65  6e 2f 69 64 3d 6f 75 74  |Help.open/id=out|
00000d50  66 69 6c 65 20 2f 77 72  69 74 65 20 69 64 65 66  |file /write idef|
00000d60  73 3a 3a 34 2e 24 2e 6f  75 74 5f 74 65 73 74 0a  |s::4.$.out_test.|
00000d70  3a 66 69 6c 65 6c 6f 6f  70 0a 72 65 61 64 2f 69  |:fileloop.read/i|
00000d80  64 3d 69 6e 66 69 6c 65  20 62 75 66 66 65 72 3b  |d=infile buffer;|
00000d90  77 72 69 74 65 2f 69 64  3d 6f 75 74 66 69 6c 65  |write/id=outfile|
00000da0  20 22 25 62 75 66 66 65  72 22 3b 67 6f 74 6f 20  | "%buffer";goto |
00000db0  66 69 6c 65 6c 6f 6f 70  0a 3a 63 6c 6f 73 65 66  |fileloop.:closef|
00000dc0  69 6c 65 73 0a 63 6c 6f  73 65 2f 69 64 3d 69 6e  |iles.close/id=in|
00000dd0  66 69 6c 65 0a 63 6c 6f  73 65 2f 69 64 3d 6f 75  |file.close/id=ou|
00000de0  74 66 69 6c 65 0a 72 65  74 75 72 6e 0a 0a        |tfile.return..|
00000dee