/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / OPEN.CTL

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 0a 79 65 73 6e 6f 61 | 73 6b 28 26 31 34 26 44 |..yesnoa|sk(&14&D|
|00000010| 6f 20 79 6f 75 20 68 61 | 76 65 20 41 4e 53 49 20 |o you ha|ve ANSI |
|00000020| 63 6f 6c 6f 72 20 67 72 | 61 70 68 69 63 73 3f 20 |color gr|aphics? |
|00000030| 26 31 35 26 2a 29 0d 0a | 73 61 79 28 26 37 26 2a |&15&*)..|say(&7&*|
|00000040| 29 0d 0a 69 66 20 28 25 | 52 45 53 50 25 29 3d 28 |)..if (%|RESP%)=(|
|00000050| 4e 6f 29 20 74 68 65 6e | 20 72 65 74 75 72 6e 0d |No) then| return.|
|00000060| 0a 73 65 74 65 71 75 61 | 6c 20 28 2f 67 72 61 70 |.setequa|l (/grap|
|00000070| 68 69 63 73 3d 41 4e 53 | 49 29 0d 0a 6c 6f 67 28 |hics=ANS|I)..log(|
|00000080| 2e 2e 2c 4e 49 43 45 20 | 73 79 73 74 65 6d 20 69 |..,NICE |system i|
|00000090| 6e 69 74 69 61 74 65 64 | 21 29 0d 0a 0d 0a 73 65 |nitiated|!)....se|
|000000a0| 74 65 71 75 61 6c 28 74 | 3d 30 29 0d 0a 0d 0a 2a |tequal(t|=0)....*|
|000000b0| 43 4f 4e 54 0d 0a 69 6e | 63 28 74 29 0d 0a 69 66 |CONT..in|c(t)..if|
|000000c0| 20 28 26 74 29 3d 28 35 | 29 20 74 68 65 6e 20 6c | (&t)=(5|) then l|
|000000d0| 6f 61 64 6d 65 6d 28 6e | 69 63 65 5c 6e 6f 2e 63 |oadmem(n|ice\no.c|
|000000e0| 74 6c 29 0d 0a 0d 0a 63 | 6c 65 61 72 73 63 72 0d |tl)....c|learscr.|
|000000f0| 0a 0d 0a 61 6e 73 69 67 | 6f 74 6f 20 28 31 2c 31 |...ansig|oto (1,1|
|00000100| 36 29 0d 0a 76 69 65 77 | 20 28 6e 69 63 65 5c 57 |6)..view| (nice\W|
|00000110| 45 4c 43 4f 4d 45 2e 61 | 6e 73 29 0d 0a 0d 0a 61 |ELCOME.a|ns)....a|
|00000120| 6e 73 69 67 6f 74 6f 20 | 28 31 2c 31 29 0d 0a 0d |nsigoto |(1,1)...|
|00000130| 0a 76 69 65 77 20 28 6e | 69 63 65 5c 6e 61 6d 65 |.view (n|ice\name|
|00000140| 29 0d 0a 0d 0a 61 6e 73 | 69 67 6f 74 6f 20 28 31 |)....ans|igoto (1|
|00000150| 2c 35 29 0d 0a 73 61 79 | 28 26 33 26 2a 29 0d 0a |,5)..say|(&3&*)..|
|00000160| 0d 0a 6a 75 6d 70 20 28 | 67 65 74 69 29 0d 0a 73 |..jump (|geti)..s|
|00000170| 65 74 65 71 75 61 6c 28 | 61 3d 25 56 41 52 25 45 |etequal(|a=%VAR%E|
|00000180| 29 0d 0a 0d 0a 61 6e 73 | 69 67 6f 74 6f 20 28 31 |)....ans|igoto (1|
|00000190| 2c 31 33 29 0d 0a 0d 0a | 6a 75 6d 70 20 28 67 65 |,13)....|jump (ge|
|000001a0| 74 69 29 0d 0a 73 65 74 | 65 71 75 61 6c 28 62 3d |ti)..set|equal(b=|
|000001b0| 25 56 41 52 25 45 29 0d | 0a 0d 0a 6a 75 6d 70 20 |%VAR%E).|...jump |
|000001c0| 28 63 6c 72 62 29 0d 0a | 0d 0a 0d 0a 2a 43 48 45 |(clrb)..|....*CHE|
|000001d0| 43 4b 0d 0a 20 4e 61 6d | 65 71 75 61 6c 20 28 2f |CK.. Nam|equal (/|
|000001e0| 4e 41 4d 45 3d 25 56 41 | 52 25 41 20 25 56 41 52 |NAME=%VA|R%A %VAR|
|000001f0| 25 42 29 0d 0a 20 6e 61 | 6d 65 6f 6b 0d 0a 20 69 |%B).. na|meok.. i|
|00000200| 66 6e 6f 74 74 72 75 65 | 28 67 6f 74 6f 20 28 63 |fnottrue|(goto (c|
|00000210| 6f 6e 74 29 29 0d 0a 20 | 53 65 74 45 71 75 61 6c |ont)).. |SetEqual|
|00000220| 20 28 64 3d 25 4e 41 4d | 45 25 29 0d 0a 20 20 00 | (d=%NAM|E%)..  .|
|00000230| 0d 0a 2a 53 54 53 45 45 | 4b 0d 0a 20 53 65 65 6b |..*STSEE|K.. Seek|
|00000240| 55 73 65 72 20 28 25 4e | 41 4d 45 25 29 0d 0a 20 |User (%N|AME%).. |
|00000250| 49 66 4e 6f 74 54 72 75 | 65 28 20 47 6f 74 6f 20 |IfNotTru|e( Goto |
|00000260| 28 4e 6f 74 46 6f 75 6e | 64 29 20 29 0d 0a 20 49 |(NotFoun|d) ).. I|
|00000270| 66 20 28 25 4e 44 4c 4f | 43 4b 25 29 20 3d 20 28 |f (%NDLO|CK%) = (|
|00000280| 31 29 20 74 68 65 6e 20 | 4c 6f 61 64 6d 65 6d 28 |1) then |Loadmem(|
|00000290| 6e 69 63 65 5c 6c 6f 63 | 6b 6f 75 74 2e 63 74 6c |nice\loc|kout.ctl|
|000002a0| 29 0d 0a 20 73 65 74 65 | 71 75 61 6c 28 61 3d 41 |).. sete|qual(a=A|
|000002b0| 72 65 20 79 6f 75 20 74 | 68 65 20 22 25 4e 44 4e |re you t|he "%NDN|
|000002c0| 41 4d 45 25 22 20 66 72 | 6f 6d 20 22 25 4e 44 46 |AME%" fr|om "%NDF|
|000002d0| 52 4f 4d 25 22 3f 29 0d | 0a 20 6c 6f 61 64 73 75 |ROM%"?).|. loadsu|
|000002e0| 62 28 6e 69 63 65 5c 79 | 65 73 6e 6f 2e 63 74 6c |b(nice\y|esno.ctl|
|000002f0| 29 0d 0a 20 49 66 20 28 | 25 52 45 53 50 25 29 3d |).. If (|%RESP%)=|
|00000300| 28 4e 6f 29 20 74 68 65 | 6e 20 47 6f 74 6f 20 28 |(No) the|n Goto (|
|00000310| 64 75 70 6e 61 6d 65 29 | 0d 0a 20 6a 75 6d 70 20 |dupname)|.. jump |
|00000320| 28 63 6c 72 62 29 0d 0a | 20 4d 65 6e 75 45 71 75 |(clrb)..| MenuEqu|
|00000330| 61 6c 20 28 65 3d 25 4e | 44 50 41 53 53 25 29 0d |al (e=%N|DPASS%).|
|00000340| 0a 20 73 65 74 65 71 75 | 61 6c 28 2f 70 61 73 73 |. setequ|al(/pass|
|00000350| 3d 25 56 41 52 25 45 29 | 0d 0a 3b 20 53 61 79 20 |=%VAR%E)|..; Say |
|00000360| 28 26 43 52 26 44 6f 74 | 73 20 77 69 6c 6c 20 65 |(&CR&Dot|s will e|
|00000370| 63 68 6f 20 69 6e 73 74 | 65 61 64 20 6f 66 20 61 |cho inst|ead of a|
|00000380| 63 74 75 61 6c 20 6c 65 | 74 74 65 72 73 20 6f 66 |ctual le|tters of|
|00000390| 20 79 6f 75 72 20 70 61 | 73 73 77 6f 72 64 2e 29 | your pa|ssword.)|
|000003a0| 0d 0a 20 53 65 74 45 71 | 75 61 6c 20 28 66 3d 30 |.. SetEq|ual (f=0|
|000003b0| 29 0d 0a 0d 0a 2a 50 41 | 53 53 57 4f 52 44 0d 0a |)....*PA|SSWORD..|
|000003c0| 20 20 44 4f 0d 0a 3b 20 | 53 61 79 20 28 26 33 26 |  DO..; |Say (&3&|
|000003d0| 57 68 61 74 20 69 73 20 | 79 6f 75 72 20 70 61 73 |What is |your pas|
|000003e0| 73 77 6f 72 64 3f 26 31 | 31 26 20 28 26 46 26 32 |sword?&1|1& (&F&2|
|000003f0| 30 29 26 31 35 26 2a 29 | 0d 0a 3b 20 42 61 63 6b |0)&15&*)|..; Back|
|00000400| 28 32 31 29 0d 0a 3b 20 | 63 47 65 74 50 61 73 73 |(21)..; |cGetPass|
|00000410| 25 4d 49 4e 31 25 25 4c | 45 4e 32 30 25 20 28 2e |%MIN1%%L|EN20% (.|
|00000420| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|00000430| 20 20 20 3b 67 65 74 20 | 70 61 73 73 77 6f 72 64 |   ;get |password|
|00000440| 2c 20 65 63 68 6f 20 70 | 65 72 69 6f 64 73 2e 0d |, echo p|eriods..|
|00000450| 0a 20 73 65 74 65 71 75 | 61 6c 28 62 3d 32 30 29 |. setequ|al(b=20)|
|00000460| 0d 0a 20 6c 6f 61 64 73 | 75 62 28 6e 69 63 65 5c |.. loads|ub(nice\|
|00000470| 67 65 74 70 2e 63 74 6c | 29 0d 0a 20 49 66 20 28 |getp.ctl|).. If (|
|00000480| 25 52 45 53 50 25 29 20 | 3d 20 28 25 56 41 52 25 |%RESP%) |= (%VAR%|
|00000490| 45 29 20 74 68 65 6e 20 | 47 6f 74 6f 20 28 4f 6b |E) then |Goto (Ok|
|000004a0| 29 0d 0a 20 69 6e 63 28 | 66 29 0d 0a 20 4c 6f 67 |).. inc(|f).. Log|
|000004b0| 20 28 2d 2d 2c 28 25 4e | 41 4d 45 25 29 20 50 61 | (--,(%N|AME%) Pa|
|000004c0| 73 73 77 6f 72 64 20 28 | 25 52 45 53 50 25 29 20 |ssword (|%RESP%) |
|000004d0| 69 6e 63 6f 72 72 65 63 | 74 2e 2e 2e 29 0d 0a 20 |incorrec|t...).. |
|000004e0| 49 66 20 28 26 66 29 20 | 3d 20 28 33 29 20 74 68 |If (&f) |= (3) th|
|000004f0| 65 6e 20 47 6f 74 6f 20 | 28 6c 61 73 74 74 72 79 |en Goto |(lasttry|
|00000500| 29 0d 0a 20 49 66 20 28 | 26 66 29 20 3d 20 28 34 |).. If (|&f) = (4|
|00000510| 29 20 74 68 65 6e 20 47 | 6f 74 6f 20 28 62 61 64 |) then G|oto (bad|
|00000520| 70 61 73 73 29 0d 0a 20 | 53 45 54 45 51 55 41 4c |pass).. |SETEQUAL|
|00000530| 28 5a 3d 26 31 32 26 25 | 42 45 45 50 25 50 61 73 |(Z=&12&%|BEEP%Pas|
|00000540| 73 77 6f 72 64 20 69 6e | 63 6f 72 72 65 63 74 2e |sword in|correct.|
|00000550| 20 54 72 79 20 61 67 61 | 69 6e 20 70 6c 65 61 73 | Try aga|in pleas|
|00000560| 65 2e 2e 2e 29 0d 0a 20 | 4a 55 4d 50 20 28 53 41 |e...).. |JUMP (SA|
|00000570| 59 49 54 29 0d 0a 20 20 | 4c 4f 4f 50 0d 0a 0d 0a |YIT)..  |LOOP....|
|00000580| 2a 4c 41 53 54 54 52 59 | 0d 0a 20 53 45 54 45 51 |*LASTTRY|.. SETEQ|
|00000590| 55 41 4c 28 5a 3d 26 31 | 32 26 54 68 69 73 20 69 |UAL(Z=&1|2&This i|
|000005a0| 73 20 79 6f 75 72 20 6c | 61 73 74 20 74 72 79 21 |s your l|ast try!|
|000005b0| 20 4e 65 78 74 20 74 69 | 6d 65 20 79 6f 75 20 77 | Next ti|me you w|
|000005c0| 69 6c 6c 20 62 65 20 6c | 6f 67 67 65 64 20 6f 66 |ill be l|ogged of|
|000005d0| 66 21 29 0d 0a 20 4a 55 | 4d 50 20 28 53 41 59 49 |f!).. JU|MP (SAYI|
|000005e0| 54 29 0d 0a 20 4c 4f 4f | 50 0d 0a 0d 0a 2a 4e 4f |T).. LOO|P....*NO|
|000005f0| 54 46 4f 55 4e 44 0d 0a | 20 62 61 64 73 65 65 6b |TFOUND..| badseek|
|00000600| 28 25 4e 41 4d 45 25 29 | 0d 0a 20 69 66 74 72 75 |(%NAME%)|.. iftru|
|00000610| 65 20 28 6c 6f 61 64 6d | 65 6d 28 6e 69 63 65 5c |e (loadm|em(nice\|
|00000620| 62 61 64 6e 61 6d 65 2e | 63 74 6c 29 29 0d 0a 20 |badname.|ctl)).. |
|00000630| 61 6e 73 69 67 6f 74 6f | 20 28 32 30 2c 31 36 29 |ansigoto| (20,16)|
|00000640| 0d 0a 20 53 61 79 20 28 | 25 42 45 45 50 25 26 31 |.. Say (|%BEEP%&1|
|00000650| 34 26 57 65 20 63 6f 75 | 6c 64 6e 27 74 20 66 69 |4&We cou|ldn't fi|
|00000660| 6e 64 20 22 25 4e 41 4d | 45 25 22 20 69 6e 20 6f |nd "%NAM|E%" in o|
|00000670| 75 72 20 75 73 65 72 20 | 66 69 6c 65 2e 29 0d 0a |ur user |file.)..|
|00000680| 20 73 65 74 65 71 75 61 | 6c 28 61 3d 44 69 64 20 | setequa|l(a=Did |
|00000690| 79 6f 75 20 73 70 65 6c | 6c 20 79 6f 75 72 20 6e |you spel|l your n|
|000006a0| 61 6d 65 20 63 6f 72 72 | 65 63 74 6c 79 3f 29 0d |ame corr|ectly?).|
|000006b0| 0a 20 6c 6f 61 64 73 75 | 62 28 6e 69 63 65 5c 79 |. loadsu|b(nice\y|
|000006c0| 65 73 6e 6f 2e 63 74 6c | 29 0d 0a 20 49 66 20 28 |esno.ctl|).. If (|
|000006d0| 25 52 45 53 50 25 29 3d | 28 4e 6f 29 20 74 68 65 |%RESP%)=|(No) the|
|000006e0| 6e 20 47 6f 74 6f 20 28 | 54 72 79 41 67 61 69 6e |n Goto (|TryAgain|
|000006f0| 29 0d 0a 20 63 6c 65 61 | 72 73 63 72 0d 0a 20 61 |).. clea|rscr.. a|
|00000700| 6e 73 69 67 6f 74 6f 20 | 28 31 2c 31 36 29 0d 0a |nsigoto |(1,16)..|
|00000710| 20 76 69 65 77 20 28 6e | 69 63 65 5c 77 65 6c 63 | view (n|ice\welc|
|00000720| 6f 6d 65 2e 61 6e 73 29 | 0d 0a 20 61 6e 73 69 67 |ome.ans)|.. ansig|
|00000730| 6f 74 6f 20 28 31 2c 32 | 33 29 0d 0a 20 73 61 79 |oto (1,2|3).. say|
|00000740| 28 26 31 30 26 5b 53 50 | 41 43 45 42 41 52 5d 20 |(&10&[SP|ACEBAR] |
|00000750| 26 37 26 74 6f 20 71 75 | 69 74 20 2e 2e 2e 2a 29 |&7&to qu|it ...*)|
|00000760| 0d 0a 20 61 6e 73 69 67 | 6f 74 6f 20 28 31 2c 31 |.. ansig|oto (1,1|
|00000770| 29 0d 0a 20 44 69 73 70 | 6c 61 79 20 28 6e 69 63 |).. Disp|lay (nic|
|00000780| 65 5c 4e 4f 4e 4d 45 4d | 42 29 0d 0a 20 61 6e 73 |e\NONMEM|B).. ans|
|00000790| 69 67 6f 74 6f 20 28 32 | 33 2c 32 33 29 0d 0a 20 |igoto (2|3,23).. |
|000007a0| 6d 65 6e 75 6b 65 79 0d | 0a 20 6a 75 6d 70 20 28 |menukey.|. jump (|
|000007b0| 63 6c 72 62 29 0d 0a 20 | 73 65 74 65 71 75 61 6c |clrb).. |setequal|
|000007c0| 28 61 3d 57 6f 75 6c 64 | 20 79 6f 75 20 6c 69 6b |(a=Would| you lik|
|000007d0| 65 20 74 6f 20 62 65 63 | 6f 6d 65 20 61 20 6d 65 |e to bec|ome a me|
|000007e0| 6d 62 65 72 20 6f 66 20 | 25 42 42 53 25 3f 29 0d |mber of |%BBS%?).|
|000007f0| 0a 20 6c 6f 61 64 73 75 | 62 28 6e 69 63 65 5c 79 |. loadsu|b(nice\y|
|00000800| 65 73 6e 6f 2e 63 74 6c | 29 0d 0a 20 49 66 20 28 |esno.ctl|).. If (|
|00000810| 25 52 45 53 50 25 29 3d | 28 4e 6f 29 20 74 68 65 |%RESP%)=|(No) the|
|00000820| 6e 20 6c 6f 61 64 6d 65 | 6d 20 28 6e 69 63 65 5c |n loadme|m (nice\|
|00000830| 72 65 66 75 73 65 64 2e | 63 74 6c 29 0d 0a 20 4c |refused.|ctl).. L|
|00000840| 6f 61 64 4d 65 6d 20 28 | 6e 69 63 65 5c 6e 65 77 |oadMem (|nice\new|
|00000850| 75 73 65 72 2e 63 74 6c | 29 0d 0a 0d 0a 2a 54 52 |user.ctl|)....*TR|
|00000860| 59 41 47 41 49 4e 0d 0a | 20 4c 6f 67 20 28 2d 2d |YAGAIN..| Log (--|
|00000870| 2c 41 74 74 65 6d 70 74 | 65 64 20 6c 6f 67 6f 6e |,Attempt|ed logon|
|00000880| 20 61 73 20 25 4e 41 4d | 45 25 29 0d 0a 20 47 6f | as %NAM|E%).. Go|
|00000890| 74 6f 20 28 43 6f 6e 74 | 29 0d 0a 0d 0a 2a 44 55 |to (Cont|)....*DU|
|000008a0| 50 4e 41 4d 45 0d 0a 20 | 73 65 74 65 71 75 61 6c |PNAME.. |setequal|
|000008b0| 28 61 3d 64 69 73 70 6c | 61 79 5c 64 75 70 65 29 |(a=displ|ay\dupe)|
|000008c0| 0d 0a 20 6c 6f 61 64 73 | 75 62 28 6e 69 63 65 5c |.. loads|ub(nice\|
|000008d0| 64 69 73 70 2e 63 74 6c | 29 0d 0a 20 47 6f 74 6f |disp.ctl|).. Goto|
|000008e0| 20 28 43 6f 6e 74 29 0d | 0a 0d 0a 2a 42 41 44 50 | (Cont).|...*BADP|
|000008f0| 41 53 53 0d 0a 20 4c 6f | 61 64 4d 65 6d 28 6e 69 |ASS.. Lo|adMem(ni|
|00000900| 63 65 5c 62 61 64 70 61 | 73 73 2e 63 74 6c 29 0d |ce\badpa|ss.ctl).|
|00000910| 0a 20 20 0d 0a 2a 4f 4b | 0d 0a 20 53 65 74 41 63 |.  ..*OK|.. SetAc|
|00000920| 74 69 76 69 74 79 20 28 | 4c 6f 67 67 69 6e 67 20 |tivity (|Logging |
|00000930| 4f 6e 2e 2e 2e 29 0d 0a | 20 47 6f 74 6f 20 28 43 |On...)..| Goto (C|
|00000940| 6f 6e 6e 65 63 74 29 20 | 20 20 20 20 20 20 20 20 |onnect) |        |
|00000950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000960| 20 20 20 20 3b 70 61 73 | 73 77 6f 72 64 27 73 20 |    ;pas|sword's |
|00000970| 4f 4b 20 73 6f 20 6c 65 | 74 20 74 68 65 6d 20 69 |OK so le|t them i|
|00000980| 6e 2e 2e 2e 0d 0a 0d 0a | 2a 43 4f 4e 4e 45 43 54 |n.......|*CONNECT|
|00000990| 0d 0a 20 55 73 65 72 4c | 6f 67 69 6e 28 25 4e 44 |.. UserL|ogin(%ND|
|000009a0| 4e 55 4d 42 25 2c 55 73 | 65 72 20 25 4e 44 4e 55 |NUMB%,Us|er %NDNU|
|000009b0| 4d 42 25 3a 20 25 4e 44 | 4e 41 4d 45 25 20 4c 6f |MB%: %ND|NAME% Lo|
|000009c0| 67 67 65 64 20 4f 6e 20 | 28 25 42 41 55 44 25 29 |gged On |(%BAUD%)|
|000009d0| 29 0d 0a 20 49 66 20 28 | 25 41 52 45 53 50 25 29 |).. If (|%ARESP%)|
|000009e0| 3d 28 41 4c 52 45 41 44 | 59 20 4f 4e 29 20 74 68 |=(ALREAD|Y ON) th|
|000009f0| 65 6e 20 47 6f 74 6f 20 | 28 61 6c 72 65 61 64 79 |en Goto |(already|
|00000a00| 6f 6e 29 0d 0a 20 49 66 | 20 28 2f 53 45 43 29 3d |on).. If| (/SEC)=|
|00000a10| 28 25 53 59 53 53 45 43 | 25 29 20 74 68 65 6e 20 |(%SYSSEC|%) then |
|00000a20| 47 6f 74 6f 20 28 73 79 | 73 73 65 63 29 0d 0a 0d |Goto (sy|ssec)...|
|00000a30| 0a 2a 43 4f 4e 43 4c 52 | 0d 0a 20 43 6c 65 61 72 |.*CONCLR|.. Clear|
|00000a40| 53 63 72 0d 0a 20 73 65 | 6c 61 72 65 61 28 2f 3a |Scr.. se|larea(/:|
|00000a50| 6c 61 73 74 6d 73 67 2f | 29 0d 0a 20 6c 69 73 74 |lastmsg/|).. list|
|00000a60| 66 69 6c 65 28 61 72 65 | 61 73 5c 66 61 72 65 61 |file(are|as\farea|
|00000a70| 2f 3a 6c 61 73 74 6d 73 | 67 2f 29 0d 0a 20 4c 6f |/:lastms|g/).. Lo|
|00000a80| 67 28 2d 3e 2c 43 61 6c | 6c 20 23 25 43 41 4c 4c |g(->,Cal|l #%CALL|
|00000a90| 45 52 53 25 2c 20 25 47 | 52 41 50 48 49 43 53 25 |ERS%, %G|RAPHICS%|
|00000aa0| 2c 20 25 4e 44 46 52 4f | 4d 25 2c 20 4c 61 73 74 |, %NDFRO|M%, Last|
|00000ab0| 3a 20 2f 3a 4c 41 53 54 | 2f 2c 20 53 65 63 3a 20 |: /:LAST|/, Sec: |
|00000ac0| 2f 3a 53 45 43 2f 29 0d | 0a 20 49 66 20 28 2f 53 |/:SEC/).|. If (/S|
|00000ad0| 55 42 29 3d 28 59 29 20 | 74 68 65 6e 20 47 6f 74 |UB)=(Y) |then Got|
|00000ae0| 6f 20 28 73 75 62 73 63 | 72 69 62 65 72 29 0d 0a |o (subsc|riber)..|
|00000af0| 0d 0a 2a 53 45 43 53 48 | 4f 57 0d 0a 20 49 6e 70 |..*SECSH|OW.. Inp|
|00000b00| 43 6c 6f 73 65 0d 0a 20 | 6c 6f 61 64 73 75 62 28 |Close.. |loadsub(|
|00000b10| 6e 69 63 65 5c 6e 65 77 | 73 64 2e 63 74 6c 29 0d |nice\new|sd.ctl).|
|00000b20| 0a 0d 0a 2a 4d 41 49 4c | 43 48 4b 0d 0a 20 63 6d |...*MAIL|CHK.. cm|
|00000b30| 70 76 61 6c 28 2f 3a 6c | 61 73 74 64 6f 77 6e 2f |pval(/:l|astdown/|
|00000b40| 2c 25 6d 61 78 66 61 72 | 65 61 25 29 0d 0a 20 69 |,%maxfar|ea%).. i|
|00000b50| 66 6e 6f 74 74 72 75 65 | 28 73 65 74 65 71 75 61 |fnottrue|(setequa|
|00000b60| 6c 28 2f 6c 61 73 74 64 | 6f 77 6e 3d 31 29 29 0d |l(/lastd|own=1)).|
|00000b70| 0a 20 73 65 6c 66 61 72 | 65 61 28 2f 3a 6c 61 73 |. selfar|ea(/:las|
|00000b80| 74 64 6f 77 6e 2f 29 0d | 0a 20 76 69 65 77 28 6e |tdown/).|. view(n|
|00000b90| 69 63 65 5c 73 74 61 74 | 2e 61 6e 73 29 0d 0a 20 |ice\stat|.ans).. |
|00000ba0| 61 6e 73 69 67 6f 74 6f | 28 39 2c 35 29 0d 0a 20 |ansigoto|(9,5).. |
|00000bb0| 73 61 79 28 26 31 32 26 | 53 65 63 75 72 69 74 79 |say(&12&|Security|
|00000bc0| 20 4c 65 76 65 6c 3a 2a | 29 0d 0a 20 6c 6f 63 70 | Level:*|).. locp|
|00000bd0| 72 69 6e 74 28 37 2c 34 | 34 2c 4c 61 73 74 20 43 |rint(7,4|4,Last C|
|00000be0| 61 6c 6c 3a 29 0d 0a 20 | 6c 6f 63 70 72 69 6e 74 |all:).. |locprint|
|00000bf0| 28 36 2c 33 2c 4c 61 73 | 74 20 4e 65 77 20 46 69 |(6,3,Las|t New Fi|
|00000c00| 6c 65 73 20 43 68 65 63 | 6b 3a 29 0d 0a 20 6c 6f |les Chec|k:).. lo|
|00000c10| 63 70 72 69 6e 74 28 36 | 2c 34 35 2c 54 69 6d 65 |cprint(6|,45,Time|
|00000c20| 73 20 4f 6e 3a 29 0d 0a | 20 6c 6f 63 70 72 69 6e |s On:)..| locprin|
|00000c30| 74 28 37 2c 31 33 2c 46 | 69 72 73 74 20 43 61 6c |t(7,13,F|irst Cal|
|00000c40| 6c 3a 29 0d 0a 20 6c 6f | 63 70 72 69 6e 74 28 35 |l:).. lo|cprint(5|
|00000c50| 2c 34 33 2c 54 69 6d 65 | 20 4c 69 6d 69 74 3a 29 |,43,Time| Limit:)|
|00000c60| 0d 0a 0d 0a 20 6c 6f 63 | 70 72 69 6e 74 28 31 36 |.... loc|print(16|
|00000c70| 2c 31 30 2c 53 79 73 74 | 65 6d 20 68 61 73 20 62 |,10,Syst|em has b|
|00000c80| 65 65 6e 20 75 70 20 73 | 69 6e 63 65 3a 29 0d 0a |een up s|ince:)..|
|00000c90| 20 6c 6f 63 70 72 69 6e | 74 28 31 37 2c 34 35 2c | locprin|t(17,45,|
|00000ca0| 4c 61 73 74 20 46 69 6c | 65 20 55 70 6c 6f 61 64 |Last Fil|e Upload|
|00000cb0| 65 64 3a 29 0d 0a 20 6c | 6f 63 70 72 69 6e 74 28 |ed:).. l|ocprint(|
|00000cc0| 31 37 2c 31 32 2c 52 75 | 6e 6e 69 6e 67 20 50 6f |17,12,Ru|nning Po|
|00000cd0| 77 65 72 62 6f 61 72 64 | 20 56 65 72 3a 29 0d 0a |werboard| Ver:)..|
|00000ce0| 20 6c 6f 63 70 72 69 6e | 74 28 31 36 2c 35 31 2c | locprin|t(16,51,|
|00000cf0| 4c 61 73 74 20 4d 65 73 | 73 61 67 65 3a 29 0d 0a |Last Mes|sage:)..|
|00000d00| 20 6c 6f 63 70 72 69 6e | 74 28 31 38 2c 31 30 2c | locprin|t(18,10,|
|00000d10| 4e 75 6d 62 65 72 20 6f | 66 20 43 61 6c 6c 73 20 |Number o|f Calls |
|00000d20| 52 65 63 65 69 76 65 64 | 3a 29 0d 0a 0d 0a 20 61 |Received|:).... a|
|00000d30| 6e 73 69 67 6f 74 6f 28 | 32 35 2c 35 29 0d 0a 20 |nsigoto(|25,5).. |
|00000d40| 73 61 79 28 26 32 26 25 | 53 45 43 25 2a 29 0d 0a |say(&2&%|SEC%*)..|
|00000d50| 20 6c 6f 63 70 72 69 6e | 74 28 37 2c 35 35 2c 2f | locprin|t(7,55,/|
|00000d60| 3a 4c 41 53 54 2f 29 0d | 0a 20 6c 6f 63 70 72 69 |:LAST/).|. locpri|
|00000d70| 6e 74 28 36 2c 32 35 2c | 2f 3a 4c 41 53 54 43 48 |nt(6,25,|/:LASTCH|
|00000d80| 4b 2f 29 0d 0a 20 6c 6f | 63 70 72 69 6e 74 28 36 |K/).. lo|cprint(6|
|00000d90| 2c 35 35 2c 2f 3a 54 49 | 4d 45 53 4f 4e 2f 29 0d |,55,/:TI|MESON/).|
|00000da0| 0a 20 6c 6f 63 70 72 69 | 6e 74 28 37 2c 32 35 2c |. locpri|nt(7,25,|
|00000db0| 2f 3a 46 49 52 53 54 2f | 29 0d 0a 20 6c 6f 63 70 |/:FIRST/|).. locp|
|00000dc0| 72 69 6e 74 28 35 2c 35 | 35 2c 25 4c 49 4d 49 54 |rint(5,5|5,%LIMIT|
|00000dd0| 25 29 0d 0a 0d 0a 20 6c | 6f 63 70 72 69 6e 74 28 |%).... l|ocprint(|
|00000de0| 31 36 2c 33 36 2c 25 53 | 49 4e 43 45 25 29 0d 0a |16,36,%S|INCE%)..|
|00000df0| 20 6c 6f 63 70 72 69 6e | 74 28 31 37 2c 36 35 2c | locprin|t(17,65,|
|00000e00| 25 46 49 4c 55 50 25 29 | 0d 0a 20 6c 6f 63 70 72 |%FILUP%)|.. locpr|
|00000e10| 69 6e 74 28 31 37 2c 33 | 36 2c 25 56 45 52 25 29 |int(17,3|6,%VER%)|
|00000e20| 0d 0a 20 6c 6f 63 70 72 | 69 6e 74 28 31 36 2c 36 |.. locpr|int(16,6|
|00000e30| 35 2c 25 4d 53 47 55 50 | 25 29 0d 0a 20 6c 6f 63 |5,%MSGUP|%).. loc|
|00000e40| 70 72 69 6e 74 28 31 38 | 2c 33 36 2c 25 43 41 4c |print(18|,36,%CAL|
|00000e50| 4c 45 52 53 25 29 0d 0a | 0d 0a 20 61 6e 73 69 67 |LERS%)..|.. ansig|
|00000e60| 6f 74 6f 20 28 31 2c 32 | 33 29 0d 0a 20 73 61 79 |oto (1,2|3).. say|
|00000e70| 28 26 31 30 26 5b 53 50 | 41 43 45 42 41 52 5d 20 |(&10&[SP|ACEBAR] |
|00000e80| 26 37 26 74 6f 20 71 75 | 69 74 20 2e 2e 2e 2a 29 |&7&to qu|it ...*)|
|00000e90| 0d 0a 20 6f 6e 65 6b 65 | 79 0d 0a 20 43 6c 65 61 |.. oneke|y.. Clea|
|00000ea0| 72 53 63 72 0d 0a 20 49 | 66 20 28 2f 57 41 49 54 |rScr.. I|f (/WAIT|
|00000eb0| 29 3d 28 4e 29 20 74 68 | 65 6e 20 4c 6f 61 64 4d |)=(N) th|en LoadM|
|00000ec0| 65 6d 28 63 6f 6e 74 72 | 6f 6c 5c 42 55 4c 4c 45 |em(contr|ol\BULLE|
|00000ed0| 54 53 2e 63 74 6c 29 0d | 0a 20 53 65 74 4e 6f 74 |TS.ctl).|. SetNot|
|00000ee0| 46 6f 75 6e 64 4d 53 28 | 20 29 0d 0a 20 4c 6f 61 |FoundMS(| ).. Loa|
|00000ef0| 64 4d 65 6d 28 63 6f 6e | 74 72 6f 6c 5c 6d 73 63 |dMem(con|trol\msc|
|00000f00| 61 6e 2e 63 74 6c 29 0d | 0a 0d 0a 2a 53 55 42 53 |an.ctl).|...*SUBS|
|00000f10| 43 52 49 42 45 52 0d 0a | 20 44 61 74 65 4f 4b 28 |CRIBER..| DateOK(|
|00000f20| 2f 3a 53 55 42 44 41 54 | 45 2f 29 0d 0a 20 49 66 |/:SUBDAT|E/).. If|
|00000f30| 4e 6f 74 54 72 75 65 20 | 28 67 6f 74 6f 20 28 73 |NotTrue |(goto (s|
|00000f40| 65 63 73 68 6f 77 29 29 | 0d 0a 20 43 6d 70 44 61 |ecshow))|.. CmpDa|
|00000f50| 74 65 28 25 44 41 54 45 | 25 2c 2f 3a 53 55 42 44 |te(%DATE|%,/:SUBD|
|00000f60| 41 54 45 2f 29 0d 0a 20 | 49 66 4e 6f 74 54 72 75 |ATE/).. |IfNotTru|
|00000f70| 65 28 67 6f 74 6f 20 28 | 73 6f 6b 29 29 0d 0a 20 |e(goto (|sok)).. |
|00000f80| 44 69 73 70 6c 61 79 20 | 28 64 69 73 70 6c 61 79 |Display |(display|
|00000f90| 5c 53 45 58 50 2f 3a 53 | 45 43 2f 29 0d 0a 20 49 |\SEXP/:S|EC/).. I|
|00000fa0| 6e 70 4f 70 65 6e 20 28 | 73 75 62 2e 62 62 73 29 |npOpen (|sub.bbs)|
|00000fb0| 0d 0a 0d 0a 2a 53 54 52 | 53 55 42 0d 0a 20 66 45 |....*STR|SUB.. fE|
|00000fc0| 6e 64 49 46 28 73 65 63 | 73 68 6f 77 29 0d 0a 20 |ndIF(sec|show).. |
|00000fd0| 49 6e 70 52 65 61 64 0d | 0a 20 53 65 74 45 71 75 |InpRead.|. SetEqu|
|00000fe0| 61 6c 28 62 3d 25 41 52 | 45 53 50 25 29 0d 0a 20 |al(b=%AR|ESP%).. |
|00000ff0| 53 65 74 45 71 75 61 6c | 28 61 3d 25 56 41 52 25 |SetEqual|(a=%VAR%|
|00001000| 62 29 0d 0a 20 4c 65 6e | 28 25 56 41 52 25 61 29 |b).. Len|(%VAR%a)|
|00001010| 0d 0a 20 49 66 20 28 25 | 41 52 45 53 50 25 29 3d |.. If (%|ARESP%)=|
|00001020| 28 30 29 20 74 68 65 6e | 20 47 6f 74 6f 20 28 73 |(0) then| Goto (s|
|00001030| 74 72 73 75 62 29 0d 0a | 20 47 65 74 28 25 56 41 |trsub)..| Get(%VA|
|00001040| 52 25 61 2c 31 2c 31 29 | 0d 0a 20 49 66 20 28 25 |R%a,1,1)|.. If (%|
|00001050| 41 52 45 53 50 25 29 3d | 28 3b 29 20 74 68 65 6e |ARESP%)=|(;) then|
|00001060| 20 47 6f 74 6f 20 28 73 | 74 72 73 75 62 29 0d 0a | Goto (s|trsub)..|
|00001070| 20 46 69 6e 64 28 25 56 | 41 52 25 62 2c 2c 29 0d | Find(%V|AR%b,,).|
|00001080| 0a 20 49 66 20 28 25 41 | 52 45 53 50 25 29 3d 28 |. If (%A|RESP%)=(|
|00001090| 30 29 20 74 68 65 6e 20 | 47 6f 74 6f 20 28 73 74 |0) then |Goto (st|
|000010a0| 72 73 75 62 29 0d 0a 20 | 53 65 74 45 71 75 61 6c |rsub).. |SetEqual|
|000010b0| 28 61 3d 25 56 41 52 25 | 62 29 0d 0a 20 53 65 74 |(a=%VAR%|b).. Set|
|000010c0| 45 71 75 61 6c 28 63 3d | 25 41 52 45 53 50 25 29 |Equal(c=|%ARESP%)|
|000010d0| 0d 0a 20 41 64 64 56 61 | 72 28 26 63 2b 2d 31 3d |.. AddVa|r(&c+-1=|
|000010e0| 63 29 0d 0a 20 47 65 74 | 28 25 56 41 52 25 61 2c |c).. Get|(%VAR%a,|
|000010f0| 31 2c 25 56 41 52 25 63 | 29 0d 0a 20 4e 6f 74 49 |1,%VAR%c|).. NotI|
|00001100| 46 20 28 25 41 52 45 53 | 50 25 29 3d 28 2f 53 45 |F (%ARES|P%)=(/SE|
|00001110| 43 29 20 74 68 65 6e 20 | 47 6f 74 6f 20 28 73 74 |C) then |Goto (st|
|00001120| 72 73 75 62 29 0d 0a 20 | 41 64 64 56 61 72 28 26 |rsub).. |AddVar(&|
|00001130| 63 2b 32 3d 63 29 0d 0a | 20 47 65 74 28 25 56 41 |c+2=c)..| Get(%VA|
|00001140| 52 25 62 2c 25 56 41 52 | 25 63 2c 31 30 29 0d 0a |R%b,%VAR|%c,10)..|
|00001150| 20 53 65 74 45 71 75 61 | 6c 20 28 2f 53 45 43 3d | SetEqua|l (/SEC=|
|00001160| 25 41 52 45 53 50 25 29 | 0d 0a 20 53 65 74 45 71 |%ARESP%)|.. SetEq|
|00001170| 75 61 6c 20 28 2f 53 55 | 42 3d 4e 29 0d 0a 20 4c |ual (/SU|B=N).. L|
|00001180| 6f 67 28 2d 2d 2c 55 73 | 65 72 27 73 20 73 75 62 |og(--,Us|er's sub|
|00001190| 73 63 72 69 70 74 69 6f | 6e 20 65 78 70 69 72 65 |scriptio|n expire|
|000011a0| 64 2e 29 0d 0a 20 47 6f | 74 6f 20 28 73 65 63 73 |d.).. Go|to (secs|
|000011b0| 68 6f 77 29 0d 0a 0d 0a | 2a 53 4f 4b 0d 0a 20 44 |how)....|*SOK.. D|
|000011c0| 69 73 70 6c 61 79 28 64 | 69 73 70 6c 61 79 5c 53 |isplay(d|isplay\S|
|000011d0| 55 42 2f 3a 53 45 43 2f | 29 0d 0a 20 45 6e 74 65 |UB/:SEC/|).. Ente|
|000011e0| 72 0d 0a 20 63 6c 65 61 | 72 73 63 72 0d 0a 20 47 |r.. clea|rscr.. G|
|000011f0| 6f 74 6f 20 28 73 65 63 | 73 68 6f 77 29 0d 0a 0d |oto (sec|show)...|
|00001200| 0a 2a 41 4c 52 45 41 44 | 59 4f 4e 0d 0a 20 44 69 |.*ALREAD|YON.. Di|
|00001210| 73 70 6c 61 79 28 64 69 | 73 70 6c 61 79 5c 41 4c |splay(di|splay\AL|
|00001220| 52 45 41 44 59 29 0d 0a | 20 4c 6f 67 28 3c 3c 2c |READY)..| Log(<<,|
|00001230| 55 73 65 72 20 61 6c 72 | 65 61 64 79 20 6f 6e 20 |User alr|eady on |
|00001240| 6f 74 68 65 72 20 6e 6f | 64 65 21 29 0d 0a 20 51 |other no|de!).. Q|
|00001250| 75 69 74 42 42 53 0d 0a | 0d 0a 2a 53 59 53 4f 50 |uitBBS..|..*SYSOP|
|00001260| 0d 0a 20 44 65 66 50 61 | 75 73 65 20 28 24 37 24 |.. DefPa|use ($7$|
|00001270| 26 30 26 5b 53 65 6e 64 | 20 6d 6f 72 65 20 74 65 |&0&[Send| more te|
|00001280| 78 74 3f 5d 24 30 24 26 | 33 26 20 28 26 31 31 26 |xt?]$0$&|3& (&11&|
|00001290| 53 26 33 26 29 74 6f 70 | 2c 20 28 26 31 31 26 4e |S&3&)top|, (&11&N|
|000012a0| 26 33 26 29 6f 6e 73 74 | 6f 70 20 6f 72 20 28 26 |&3&)onst|op or (&|
|000012b0| 31 31 26 43 26 33 26 29 | 6f 6e 74 69 6e 75 65 3f |11&C&3&)|ontinue?|
|000012c0| 26 31 32 26 3a 20 26 37 | 26 29 0d 0a 20 44 65 66 |&12&: &7|&).. Def|
|000012d0| 50 69 66 20 28 73 3a 73 | 74 6f 70 2c 6e 3a 6e 6f |Pif (s:s|top,n:no|
|000012e0| 6e 73 74 6f 70 29 0d 0a | 20 4b 69 6c 6c 20 28 63 |nstop)..| Kill (c|
|000012f0| 6e 6f 64 65 73 2e 25 4e | 4f 44 45 25 2c 69 6e 6f |nodes.%N|ODE%,ino|
|00001300| 64 65 73 2e 25 4e 4f 44 | 45 25 2c 74 61 67 67 65 |des.%NOD|E%,tagge|
|00001310| 64 2e 25 4e 4f 44 45 25 | 2c 74 61 67 67 65 64 32 |d.%NODE%|,tagged2|
|00001320| 2e 25 4e 4f 44 45 25 29 | 0d 0a 20 53 65 74 41 63 |.%NODE%)|.. SetAc|
|00001330| 74 69 76 69 74 79 20 28 | 53 59 53 4f 50 20 4c 6f |tivity (|SYSOP Lo|
|00001340| 67 6f 6e 29 0d 0a 20 53 | 65 74 65 71 75 61 6c 28 |gon).. S|etequal(|
|00001350| 2f 47 72 61 70 68 69 63 | 73 3d 41 4e 53 49 29 0d |/Graphic|s=ANSI).|
|00001360| 0a 20 55 73 65 72 4c 6f | 67 69 6e 28 31 2c 53 59 |. UserLo|gin(1,SY|
|00001370| 53 54 45 4d 20 4f 50 45 | 52 41 54 4f 52 20 4c 6f |STEM OPE|RATOR Lo|
|00001380| 67 67 65 64 20 4f 6e 20 | 4c 6f 63 61 6c 6c 79 29 |gged On |Locally)|
|00001390| 0d 0a 20 4c 6f 67 20 28 | 2d 3e 2c 43 61 6c 6c 20 |.. Log (|->,Call |
|000013a0| 25 43 41 4c 4c 45 52 53 | 25 2c 20 25 47 52 41 50 |%CALLERS|%, %GRAP|
|000013b0| 48 49 43 53 25 2c 20 4c | 61 73 74 3a 20 2f 3a 4c |HICS%, L|ast: /:L|
|000013c0| 41 53 54 2f 29 0d 0a 20 | 47 6f 74 6f 20 28 73 65 |AST/).. |Goto (se|
|000013d0| 63 73 68 6f 77 29 0d 0a | 0d 0a 2a 53 59 53 53 45 |cshow)..|..*SYSSE|
|000013e0| 43 0d 0a 20 49 66 20 28 | 25 53 59 53 50 25 29 3d |C.. If (|%SYSP%)=|
|000013f0| 28 29 20 74 68 65 6e 20 | 47 6f 74 6f 20 28 63 6f |() then |Goto (co|
|00001400| 6e 63 6c 72 29 0d 0a 20 | 53 61 79 28 26 33 26 53 |nclr).. |Say(&3&S|
|00001410| 79 73 6f 70 20 50 61 73 | 73 77 6f 72 64 3f 26 31 |ysop Pas|sword?&1|
|00001420| 32 26 3a 20 26 31 35 26 | 2a 29 0d 0a 20 4d 65 6e |2&: &15&|*).. Men|
|00001430| 75 45 71 75 61 6c 28 61 | 3d 25 53 59 53 50 25 29 |uEqual(a|=%SYSP%)|
|00001440| 0d 0a 20 63 47 65 74 50 | 61 73 73 28 2a 29 0d 0a |.. cGetP|ass(*)..|
|00001450| 20 49 66 20 28 25 52 45 | 53 50 25 29 3d 28 26 61 | If (%RE|SP%)=(&a|
|00001460| 29 20 74 68 65 6e 20 67 | 6f 74 6f 20 28 63 6f 6e |) then g|oto (con|
|00001470| 63 6c 72 29 0d 0a 20 4c | 6f 67 28 21 21 2c 49 6e |clr).. L|og(!!,In|
|00001480| 63 6f 72 72 65 63 74 20 | 53 79 73 6f 70 20 50 61 |correct |Sysop Pa|
|00001490| 73 73 20 28 25 52 45 53 | 50 25 29 29 0d 0a 20 53 |ss (%RES|P%)).. S|
|000014a0| 61 79 28 26 31 32 26 49 | 6e 63 6f 72 72 65 63 74 |ay(&12&I|ncorrect|
|000014b0| 20 41 74 74 65 6d 70 74 | 21 29 0d 0a 20 51 75 69 | Attempt|!).. Qui|
|000014c0| 74 42 42 53 0d 0a 0d 0a | 2a 4e 4f 43 48 4b 0d 0a |tBBS....|*NOCHK..|
|000014d0| 20 53 61 79 28 59 6f 75 | 20 68 61 76 65 6e 27 74 | Say(You| haven't|
|000014e0| 20 63 68 65 63 6b 65 64 | 20 66 6f 72 20 6e 65 77 | checked| for new|
|000014f0| 20 66 69 6c 65 73 20 69 | 6e 20 6f 75 72 20 66 69 | files i|n our fi|
|00001500| 6c 65 20 61 72 65 61 20 | 79 65 74 21 29 0d 0a 20 |le area |yet!).. |
|00001510| 47 6f 74 6f 20 28 62 61 | 6b 6e 29 0d 0a 0d 0a 2a |Goto (ba|kn)....*|
|00001520| 49 4e 49 54 53 45 54 55 | 50 0d 0a 20 44 65 66 70 |INITSETU|P.. Defp|
|00001530| 61 75 73 65 20 28 24 37 | 24 26 30 26 5b 53 65 6e |ause ($7|$&0&[Sen|
|00001540| 64 20 6d 6f 72 65 20 74 | 65 78 74 3f 5d 24 30 24 |d more t|ext?]$0$|
|00001550| 26 33 26 20 28 26 31 31 | 26 53 26 33 26 29 74 6f |&3& (&11|&S&3&)to|
|00001560| 70 2c 20 28 26 31 31 26 | 4e 26 33 26 29 6f 6e 73 |p, (&11&|N&3&)ons|
|00001570| 74 6f 70 20 6f 72 20 28 | 26 31 31 26 43 26 33 26 |top or (|&11&C&3&|
|00001580| 29 6f 6e 74 69 6e 75 65 | 3f 26 31 32 26 3a 20 26 |)ontinue|?&12&: &|
|00001590| 37 26 29 0d 0a 20 44 65 | 66 50 69 66 20 28 73 3a |7&).. De|fPif (s:|
|000015a0| 73 74 6f 70 2c 6e 3a 6e | 6f 6e 73 74 6f 70 29 0d |stop,n:n|onstop).|
|000015b0| 0a 20 69 66 20 28 25 4f | 4e 25 29 3d 28 46 52 4f |. if (%O|N%)=(FRO|
|000015c0| 4d 20 44 4f 4f 52 29 20 | 74 68 65 6e 20 6c 6f 61 |M DOOR) |then loa|
|000015d0| 64 6d 65 6d 28 63 6f 6e | 74 72 6f 6c 5c 64 6f 6f |dmem(con|trol\doo|
|000015e0| 72 62 61 63 6b 2e 63 74 | 6c 29 0d 0a 20 53 65 74 |rback.ct|l).. Set|
|000015f0| 45 71 75 61 6c 20 28 2f | 73 65 63 3d 25 4e 45 57 |Equal (/|sec=%NEW|
|00001600| 53 45 43 25 29 0d 0a 20 | 53 65 74 45 71 75 61 6c |SEC%).. |SetEqual|
|00001610| 20 28 2f 53 43 52 45 45 | 4e 4c 45 4e 3d 32 33 29 | (/SCREE|NLEN=23)|
|00001620| 0d 0a 20 53 65 74 41 63 | 74 69 76 69 74 79 20 28 |.. SetAc|tivity (|
|00001630| 4c 6f 67 67 69 6e 67 20 | 69 6e 2e 2e 2e 29 0d 0a |Logging |in...)..|
|00001640| 20 6c 69 6e 65 66 65 65 | 64 28 31 29 0d 0a 20 25 | linefee|d(1).. %|
|00001650| 43 6c 6f 67 69 6e 25 20 | 4b 69 6c 6c 20 28 63 6e |Clogin% |Kill (cn|
|00001660| 6f 64 65 73 2e 25 4e 4f | 44 45 25 2c 69 6e 6f 64 |odes.%NO|DE%,inod|
|00001670| 65 73 2e 25 4e 4f 44 45 | 25 2c 74 61 67 67 65 64 |es.%NODE|%,tagged|
|00001680| 2e 25 4e 4f 44 45 25 2c | 74 61 67 67 65 64 32 2e |.%NODE%,|tagged2.|
|00001690| 25 4e 4f 44 45 25 2c 70 | 73 79 73 2e 25 6e 6f 64 |%NODE%,p|sys.%nod|
|000016a0| 65 25 29 0d 0a 72 65 74 | 0d 0a 0d 0a 2a 67 65 74 |e%)..ret|....*get|
|000016b0| 69 0d 0a 73 65 74 65 71 | 75 61 6c 28 65 3d 29 0d |i..seteq|ual(e=).|
|000016c0| 0a 73 65 74 65 71 75 61 | 6c 28 63 3d 30 29 0d 0a |.setequa|l(c=0)..|
|000016d0| 0d 0a 64 6f 0d 0a 6d 65 | 6e 75 6b 65 79 25 43 52 |..do..me|nukey%CR|
|000016e0| 4f 4e 25 0d 0a 69 66 20 | 28 25 52 45 53 50 25 29 |ON%..if |(%RESP%)|
|000016f0| 3d 28 3c 43 52 3e 29 20 | 74 68 65 6e 20 72 65 74 |=(<CR>) |then ret|
|00001700| 0d 0a 6c 65 74 74 65 72 | 28 25 52 45 53 50 25 29 |..letter|(%RESP%)|
|00001710| 0d 0a 69 66 6e 6f 74 74 | 72 75 65 28 67 6f 74 6f |..ifnott|rue(goto|
|00001720| 20 28 6e 6f 6c 29 29 0d | 0a 69 66 20 28 26 43 29 | (nol)).|.if (&C)|
|00001730| 3d 28 31 33 29 20 74 68 | 65 6e 20 6c 6f 6f 70 0d |=(13) th|en loop.|
|00001740| 0a 76 69 65 77 28 6e 69 | 63 65 5c 6c 65 74 74 65 |.view(ni|ce\lette|
|00001750| 72 73 5c 25 52 45 53 50 | 25 29 0d 0a 73 65 74 65 |rs\%RESP|%)..sete|
|00001760| 71 75 61 6c 28 65 3d 25 | 56 41 52 25 45 25 52 45 |qual(e=%|VAR%E%RE|
|00001770| 53 50 25 29 0d 0a 69 6e | 63 28 63 29 0d 0a 6c 6f |SP%)..in|c(c)..lo|
|00001780| 6f 70 0d 0a 0d 0a 2a 6e | 6f 6c 0d 0a 61 73 63 69 |op....*n|ol..asci|
|00001790| 69 0d 0a 69 66 20 28 25 | 41 52 45 53 50 25 29 3d |i..if (%|ARESP%)=|
|000017a0| 28 38 29 20 74 68 65 6e | 20 67 6f 74 6f 20 28 62 |(8) then| goto (b|
|000017b0| 61 63 6b 73 70 29 0d 0a | 6c 6f 6f 70 0d 0a 0d 0a |acksp)..|loop....|
|000017c0| 2a 62 61 63 6b 73 70 0d | 0a 6c 65 6e 28 25 56 41 |*backsp.|.len(%VA|
|000017d0| 52 25 45 29 0d 0a 69 66 | 20 28 25 41 52 45 53 50 |R%E)..if| (%ARESP|
|000017e0| 25 29 3d 28 30 29 20 74 | 68 65 6e 20 6c 6f 6f 70 |%)=(0) t|hen loop|
|000017f0| 0d 0a 61 64 64 76 61 72 | 28 25 41 52 45 53 50 25 |..addvar|(%ARESP%|
|00001800| 2b 2d 31 3d 66 29 0d 0a | 73 65 74 65 71 75 61 6c |+-1=f)..|setequal|
|00001810| 28 63 3d 25 56 41 52 25 | 46 29 0d 0a 67 65 74 28 |(c=%VAR%|F)..get(|
|00001820| 25 56 41 52 25 45 2c 31 | 2c 25 56 41 52 25 46 29 |%VAR%E,1|,%VAR%F)|
|00001830| 0d 0a 73 65 74 65 71 75 | 61 6c 28 45 3d 25 41 52 |..setequ|al(E=%AR|
|00001840| 45 53 50 25 29 0d 0a 76 | 69 65 77 20 28 6e 69 63 |ESP%)..v|iew (nic|
|00001850| 65 5c 6c 65 74 74 65 72 | 73 5c 62 61 63 6b 29 0d |e\letter|s\back).|
|00001860| 0a 6c 6f 6f 70 0d 0a 0d | 0a 0d 0a 2a 63 6c 72 62 |.loop...|...*clrb|
|00001870| 0d 0a 61 6e 73 69 67 6f | 74 6f 20 28 31 2c 31 36 |..ansigo|to (1,16|
|00001880| 29 0d 0a 65 6c 69 6e 65 | 28 31 29 0d 0a 61 6e 73 |)..eline|(1)..ans|
|00001890| 69 67 6f 74 6f 20 28 31 | 2c 32 33 29 0d 0a 65 6c |igoto (1|,23)..el|
|000018a0| 69 6e 65 28 31 29 0d 0a | 61 6e 73 69 67 6f 74 6f |ine(1)..|ansigoto|
|000018b0| 20 28 31 2c 31 37 29 0d | 0a 65 6c 69 6e 65 28 31 | (1,17).|.eline(1|
|000018c0| 29 0d 0a 61 6e 73 69 67 | 6f 74 6f 20 28 31 2c 32 |)..ansig|oto (1,2|
|000018d0| 32 29 0d 0a 65 6c 69 6e | 65 28 31 29 0d 0a 61 6e |2)..elin|e(1)..an|
|000018e0| 73 69 67 6f 74 6f 20 28 | 31 2c 31 38 29 0d 0a 65 |sigoto (|1,18)..e|
|000018f0| 6c 69 6e 65 28 31 29 0d | 0a 61 6e 73 69 67 6f 74 |line(1).|.ansigot|
|00001900| 6f 20 28 31 2c 32 31 29 | 0d 0a 65 6c 69 6e 65 28 |o (1,21)|..eline(|
|00001910| 31 29 0d 0a 61 6e 73 69 | 67 6f 74 6f 20 28 31 2c |1)..ansi|goto (1,|
|00001920| 31 39 29 0d 0a 65 6c 69 | 6e 65 28 31 29 0d 0a 61 |19)..eli|ne(1)..a|
|00001930| 6e 73 69 67 6f 74 6f 20 | 28 31 2c 32 30 29 0d 0a |nsigoto |(1,20)..|
|00001940| 65 6c 69 6e 65 28 31 29 | 0d 0a 72 65 74 0d 0a 0d |eline(1)|..ret...|
|00001950| 0a 2a 53 41 59 49 54 0d | 0a 4a 55 4d 50 20 28 43 |.*SAYIT.|.JUMP (C|
|00001960| 4c 52 42 29 0d 0a 41 4e | 53 49 47 4f 54 4f 28 31 |LRB)..AN|SIGOTO(1|
|00001970| 30 2c 31 39 29 0d 0a 53 | 41 59 28 25 56 41 52 25 |0,19)..S|AY(%VAR%|
|00001980| 5a 2a 29 0d 0a 4c 4f 41 | 44 53 55 42 28 4e 49 43 |Z*)..LOA|DSUB(NIC|
|00001990| 45 5c 43 4f 4e 54 2e 43 | 54 4c 29 0d 0a 6a 75 6d |E\CONT.C|TL)..jum|
|000019a0| 70 28 63 6c 72 62 29 0d | 0a 52 45 54 0d 0a       |p(clrb).|.RET..  |
+--------+-------------------------+-------------------------+--------+--------+