Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet » StarterPak/!Newsbase/Transports/taylor/moduser
StarterPak/!Newsbase/Transports/taylor/moduser
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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet |
| Filename: | StarterPak/!Newsbase/Transports/taylor/moduser |
| Read OK: | ✔ |
| File size: | 0967 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >moduser
20REM modify a user to the /etc/passwd file, whereever it is.
30REM
40REM Author: Gunnar ZREPORTtl
50REM Date: 10-Nov-1994
60REM Last modified: 15-Dec-1994
70
80ONERROR REPORT:PRINT" at line ";ERL:END
90
100LIBRARY "<NewsBase$TaylorDir>.ScriptLib"
110
120REM default value for group
130GRP% = 1
140
150REM get command line parameters
160PROCentry
170IF (argc = 3) OR (argc = 5) THEN
180 FOR i%=1 TO argc - 1
190 CASE argv$(i%) OF
200 WHEN "-u": N$ = argv$(i% + 1): i% += 1
210 WHEN "-g": GRP% = VAL(argv$(i% + 1)): i% += 1
220 OTHERWISE PROCexit(1, "Invalid Parameter")
230 ENDCASE
240 NEXT i%
250ENDIF
260
270REM remove spaces from username.
280user$ = FNstripspaces(N$)
290user$ = FNtolower(user$) + ":"
300len% = LEN(user$)
310
320IF FNgetenv("Wimp$ScrapDir") = "" THEN
330 PROCexit(0, "ScrapDir must have been seen")
340ENDIF
350etcpasswd$ = FNupath("/etc/passwd")
360etcbpasswd$ = FNupath("<Wimp$ScrapDir>.passwd")
370
380REM we copy from /etc/passwd to the temp. file until we find
390REM the specified user. Then we just alter his group number,
400REM and write the new entry out to the temp. file.
410if% = OPENIN(etcpasswd$)
420IF if% = 0 THEN PROCexit(1, "could not open /etc/passwd")
430of% = OPENOUT(etcbpasswd$)
440IF of% = 0 THEN PROCexit(1, "could not open " + etcbpasswd$)
450i% = 0
460j% = 0
470REPEAT
480 c$ = GET$#if%
490 IF LEFT$(c$, len%) = user$ THEN
500 i% = INSTR(c$, ":")
510 i% = INSTR(c$, ":", i% + 1)
520 REM extract strings before and after group number
530 i% = INSTR(c$, ":", i% + 1)
540 j% = INSTR(c$, ":", i% + 1)
550 o$=LEFT$(c$, i%) + STR$(GRP%) + MID$(c$, j%)
560 BPUT #of%,o$
570 ELSE
580 BPUT #of%,c$
590 ENDIF
600UNTIL (c$="")
610CLOSE #of%
620CLOSE #if%
630
640IF i% > 0 THEN
650 REM now copy our new file over the old one then exit and tell
660 REM NewsBase that all went fine.
670 OSCLI("settype " +etcbpasswd$ + " FFF")
680 OSCLI("copy " + etcbpasswd$ + " " + etcpasswd$ + " FD~C~V")
690 PROCexit(0, "user " + user$ + " modified")
700ELSE
710 REM otherwise complain and die.
720 PROCexit(1, "user " + user$ + " not found")
730ENDIF
740END
750
760REM convert all characters in a string to lowercase.
770REM
780DEF FNtolower(a$)
790LOCAL i%, c$
800FOR i% = 1 TO LENa$
810 c$ = MID$(a$, i%, 1)
820 IF c$ >= "A" AND c$ <= "Z" THEN
830 MID$(a$, i%, 1) = CHR$(ASC(c$) + cdiff)
840 ENDIF
850= a$
860
870REM exit from here, returning appropriate info.
880REM
890DEFPROCexit(n%,a$)
900OSCLI("set NewsBase$ReturnCode "+STR$n%)
910OSCLI("set NewsBase$ReturnInfo "+a$)
920END
930ENDPROC
� >moduser
=� modify a user to the /etc/passwd file, whereever it is.
�
(!� Author: Gunnar Z�tl
2!� Date: 10-Nov-1994
<!� Last modified: 15-Dec-1994
F
P� �:�" at line ";�:�
Z
d'ț "<NewsBase$TaylorDir>.ScriptLib"
n
x � default value for group
� GRP% = 1
�
�!� get command line parameters
�
�entry
� � (argc = 3) � (argc = 5) �
� � i%=1 � argc - 1
� Ȏ argv$(i%) �
�3 � "-u": N$ = argv$(i% + 1): i% += 1
�8 � "-g": GRP% = �(argv$(i% + 1)): i% += 1
�/ �exit(1, "Invalid Parameter")
�
�
� � i%
��
"� remove spaces from username.
user$ = �stripspaces(N$)
"!user$ = �tolower(user$) + ":"
,len% = �(user$)
6
@%� �getenv("Wimp$ScrapDir") = "" �
J0 �exit(0, "ScrapDir must have been seen")
T�
^&etcpasswd$ = �upath("/etc/passwd")
h2etcbpasswd$ = �upath("<Wimp$ScrapDir>.passwd")
r
|>� we copy from /etc/passwd to the temp. file until we find
�>� the specified user. Then we just alter his group number,
�4� and write the new entry out to the temp. file.
�if% = �(etcpasswd$)
�6� if% = 0 � �exit(1, "could not open /etc/passwd")
�of% = �(etcbpasswd$)
�9� of% = 0 � �exit(1, "could not open " + etcbpasswd$)
�
i% = 0
�
j% = 0
��
� c$ = �#if%
� � �c$, len%) = user$ �
� i% = �c$, ":")
�" i% = �c$, ":", i% + 1)
; � extract strings before and after group number
" i% = �c$, ":", i% + 1)
" j% = �c$, ":", i% + 1)
&, o$=�c$, i%) + �(GRP%) + �c$, j%)
0 � #of%,o$
: �
D � #of%,c$
N �
X
� (c$="")
b
� #of%
l
� #if%
v
�� i% > 0 �
�C � now copy our new file over the old one then exit and tell
�& � NewsBase that all went fine.
�+ �("settype " +etcbpasswd$ + " FFF")
�? �("copy " + etcbpasswd$ + " " + etcpasswd$ + " FD~C~V")
�/ �exit(0, "user " + user$ + " modified")
��
�% � otherwise complain and die.
�0 �exit(1, "user " + user$ + " not found")
��
��
�
�6� convert all characters in a string to lowercase.
�
� �tolower(a$)
� i%, c$
� i% = 1 � �a$
* c$ = �a$, i%, 1)
4! � c$ >= "A" � c$ <= "Z" �
>* �a$, i%, 1) = �(�(c$) + cdiff)
H �
R= a$
\
f1� exit from here, returning appropriate info.
p�
z��exit(n%,a$)
�%�("set NewsBase$ReturnCode "+�n%)
�$�("set NewsBase$ReturnInfo "+a$)
��
��
� 00000000 0d 00 0a 0e f4 20 3e 6d 6f 64 75 73 65 72 0d 00 |..... >moduser..|
00000010 14 3d f4 20 6d 6f 64 69 66 79 20 61 20 75 73 65 |.=. modify a use|
00000020 72 20 74 6f 20 74 68 65 20 2f 65 74 63 2f 70 61 |r to the /etc/pa|
00000030 73 73 77 64 20 66 69 6c 65 2c 20 77 68 65 72 65 |sswd file, where|
00000040 65 76 65 72 20 69 74 20 69 73 2e 0d 00 1e 05 f4 |ever it is......|
00000050 0d 00 28 21 f4 20 41 75 74 68 6f 72 3a 20 20 20 |..(!. Author: |
00000060 20 20 20 20 20 20 47 75 6e 6e 61 72 20 5a f6 74 | Gunnar Z.t|
00000070 6c 0d 00 32 21 f4 20 44 61 74 65 3a 20 20 20 20 |l..2!. Date: |
00000080 20 20 20 20 20 20 20 31 30 2d 4e 6f 76 2d 31 39 | 10-Nov-19|
00000090 39 34 0d 00 3c 21 f4 20 4c 61 73 74 20 6d 6f 64 |94..<!. Last mod|
000000a0 69 66 69 65 64 3a 20 20 31 35 2d 44 65 63 2d 31 |ified: 15-Dec-1|
000000b0 39 39 34 0d 00 46 04 0d 00 50 19 ee 85 20 f6 3a |994..F...P... .:|
000000c0 f1 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 |." at line ";.:.|
000000d0 0d 00 5a 04 0d 00 64 27 c8 9b 20 22 3c 4e 65 77 |..Z...d'.. "<New|
000000e0 73 42 61 73 65 24 54 61 79 6c 6f 72 44 69 72 3e |sBase$TaylorDir>|
000000f0 2e 53 63 72 69 70 74 4c 69 62 22 0d 00 6e 04 0d |.ScriptLib"..n..|
00000100 00 78 1d f4 20 64 65 66 61 75 6c 74 20 76 61 6c |.x.. default val|
00000110 75 65 20 66 6f 72 20 67 72 6f 75 70 0d 00 82 0c |ue for group....|
00000120 47 52 50 25 20 3d 20 31 0d 00 8c 04 0d 00 96 21 |GRP% = 1.......!|
00000130 f4 20 67 65 74 20 63 6f 6d 6d 61 6e 64 20 6c 69 |. get command li|
00000140 6e 65 20 70 61 72 61 6d 65 74 65 72 73 0d 00 a0 |ne parameters...|
00000150 0a f2 65 6e 74 72 79 0d 00 aa 1f e7 20 28 61 72 |..entry..... (ar|
00000160 67 63 20 3d 20 33 29 20 84 20 28 61 72 67 63 20 |gc = 3) . (argc |
00000170 3d 20 35 29 20 8c 0d 00 b4 19 20 20 20 20 e3 20 |= 5) ..... . |
00000180 69 25 3d 31 20 b8 20 61 72 67 63 20 2d 20 31 0d |i%=1 . argc - 1.|
00000190 00 be 1a 20 20 20 20 20 20 20 20 c8 8e 20 61 72 |... .. ar|
000001a0 67 76 24 28 69 25 29 20 ca 0d 00 c8 33 20 20 20 |gv$(i%) ....3 |
000001b0 20 20 20 20 20 20 20 20 20 c9 20 22 2d 75 22 3a | . "-u":|
000001c0 20 4e 24 20 3d 20 61 72 67 76 24 28 69 25 20 2b | N$ = argv$(i% +|
000001d0 20 31 29 3a 20 69 25 20 2b 3d 20 31 0d 00 d2 38 | 1): i% += 1...8|
000001e0 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 22 2d | . "-|
000001f0 67 22 3a 20 47 52 50 25 20 3d 20 bb 28 61 72 67 |g": GRP% = .(arg|
00000200 76 24 28 69 25 20 2b 20 31 29 29 3a 20 69 25 20 |v$(i% + 1)): i% |
00000210 2b 3d 20 31 0d 00 dc 2f 20 20 20 20 20 20 20 20 |+= 1.../ |
00000220 20 20 20 20 7f 20 f2 65 78 69 74 28 31 2c 20 22 | . .exit(1, "|
00000230 49 6e 76 61 6c 69 64 20 50 61 72 61 6d 65 74 65 |Invalid Paramete|
00000240 72 22 29 0d 00 e6 0d 20 20 20 20 20 20 20 20 cb |r").... .|
00000250 0d 00 f0 0c 20 20 20 20 ed 20 69 25 0d 00 fa 05 |.... . i%....|
00000260 cd 0d 01 04 04 0d 01 0e 22 f4 20 72 65 6d 6f 76 |........". remov|
00000270 65 20 73 70 61 63 65 73 20 66 72 6f 6d 20 75 73 |e spaces from us|
00000280 65 72 6e 61 6d 65 2e 0d 01 18 1c 75 73 65 72 24 |ername.....user$|
00000290 20 3d 20 a4 73 74 72 69 70 73 70 61 63 65 73 28 | = .stripspaces(|
000002a0 4e 24 29 0d 01 22 21 75 73 65 72 24 20 3d 20 a4 |N$).."!user$ = .|
000002b0 74 6f 6c 6f 77 65 72 28 75 73 65 72 24 29 20 2b |tolower(user$) +|
000002c0 20 22 3a 22 0d 01 2c 13 6c 65 6e 25 20 3d 20 a9 | ":"..,.len% = .|
000002d0 28 75 73 65 72 24 29 0d 01 36 04 0d 01 40 25 e7 |(user$)..6...@%.|
000002e0 20 a4 67 65 74 65 6e 76 28 22 57 69 6d 70 24 53 | .getenv("Wimp$S|
000002f0 63 72 61 70 44 69 72 22 29 20 3d 20 22 22 20 8c |crapDir") = "" .|
00000300 0d 01 4a 30 20 20 20 20 f2 65 78 69 74 28 30 2c |..J0 .exit(0,|
00000310 20 22 53 63 72 61 70 44 69 72 20 6d 75 73 74 20 | "ScrapDir must |
00000320 68 61 76 65 20 62 65 65 6e 20 73 65 65 6e 22 29 |have been seen")|
00000330 0d 01 54 05 cd 0d 01 5e 26 65 74 63 70 61 73 73 |..T....^&etcpass|
00000340 77 64 24 20 3d 20 a4 75 70 61 74 68 28 22 2f 65 |wd$ = .upath("/e|
00000350 74 63 2f 70 61 73 73 77 64 22 29 0d 01 68 32 65 |tc/passwd")..h2e|
00000360 74 63 62 70 61 73 73 77 64 24 20 3d 20 a4 75 70 |tcbpasswd$ = .up|
00000370 61 74 68 28 22 3c 57 69 6d 70 24 53 63 72 61 70 |ath("<Wimp$Scrap|
00000380 44 69 72 3e 2e 70 61 73 73 77 64 22 29 0d 01 72 |Dir>.passwd")..r|
00000390 04 0d 01 7c 3e f4 20 77 65 20 63 6f 70 79 20 66 |...|>. we copy f|
000003a0 72 6f 6d 20 2f 65 74 63 2f 70 61 73 73 77 64 20 |rom /etc/passwd |
000003b0 74 6f 20 74 68 65 20 74 65 6d 70 2e 20 66 69 6c |to the temp. fil|
000003c0 65 20 75 6e 74 69 6c 20 77 65 20 66 69 6e 64 0d |e until we find.|
000003d0 01 86 3e f4 20 74 68 65 20 73 70 65 63 69 66 69 |..>. the specifi|
000003e0 65 64 20 75 73 65 72 2e 20 54 68 65 6e 20 77 65 |ed user. Then we|
000003f0 20 6a 75 73 74 20 61 6c 74 65 72 20 68 69 73 20 | just alter his |
00000400 67 72 6f 75 70 20 6e 75 6d 62 65 72 2c 0d 01 90 |group number,...|
00000410 34 f4 20 61 6e 64 20 77 72 69 74 65 20 74 68 65 |4. and write the|
00000420 20 6e 65 77 20 65 6e 74 72 79 20 6f 75 74 20 74 | new entry out t|
00000430 6f 20 74 68 65 20 74 65 6d 70 2e 20 66 69 6c 65 |o the temp. file|
00000440 2e 0d 01 9a 17 69 66 25 20 3d 20 8e 28 65 74 63 |.....if% = .(etc|
00000450 70 61 73 73 77 64 24 29 0d 01 a4 36 e7 20 69 66 |passwd$)...6. if|
00000460 25 20 3d 20 30 20 8c 20 f2 65 78 69 74 28 31 2c |% = 0 . .exit(1,|
00000470 20 22 63 6f 75 6c 64 20 6e 6f 74 20 6f 70 65 6e | "could not open|
00000480 20 2f 65 74 63 2f 70 61 73 73 77 64 22 29 0d 01 | /etc/passwd")..|
00000490 ae 18 6f 66 25 20 3d 20 ae 28 65 74 63 62 70 61 |..of% = .(etcbpa|
000004a0 73 73 77 64 24 29 0d 01 b8 39 e7 20 6f 66 25 20 |sswd$)...9. of% |
000004b0 3d 20 30 20 8c 20 f2 65 78 69 74 28 31 2c 20 22 |= 0 . .exit(1, "|
000004c0 63 6f 75 6c 64 20 6e 6f 74 20 6f 70 65 6e 20 22 |could not open "|
000004d0 20 2b 20 65 74 63 62 70 61 73 73 77 64 24 29 0d | + etcbpasswd$).|
000004e0 01 c2 0a 69 25 20 3d 20 30 0d 01 cc 0a 6a 25 20 |...i% = 0....j% |
000004f0 3d 20 30 0d 01 d6 05 f5 0d 01 e0 12 20 20 20 20 |= 0......... |
00000500 63 24 20 3d 20 be 23 69 66 25 0d 01 ea 1e 20 20 |c$ = .#if%.... |
00000510 20 20 e7 20 c0 63 24 2c 20 6c 65 6e 25 29 20 3d | . .c$, len%) =|
00000520 20 75 73 65 72 24 20 8c 0d 01 f4 1a 20 20 20 20 | user$ ..... |
00000530 20 20 20 20 69 25 20 3d 20 a7 63 24 2c 20 22 3a | i% = .c$, ":|
00000540 22 29 0d 01 fe 22 20 20 20 20 20 20 20 20 69 25 |")..." i%|
00000550 20 3d 20 a7 63 24 2c 20 22 3a 22 2c 20 69 25 20 | = .c$, ":", i% |
00000560 2b 20 31 29 0d 02 08 3b 20 20 20 20 20 20 20 20 |+ 1)...; |
00000570 f4 20 65 78 74 72 61 63 74 20 73 74 72 69 6e 67 |. extract string|
00000580 73 20 62 65 66 6f 72 65 20 61 6e 64 20 61 66 74 |s before and aft|
00000590 65 72 20 67 72 6f 75 70 20 6e 75 6d 62 65 72 0d |er group number.|
000005a0 02 12 22 20 20 20 20 20 20 20 20 69 25 20 3d 20 |.." i% = |
000005b0 a7 63 24 2c 20 22 3a 22 2c 20 69 25 20 2b 20 31 |.c$, ":", i% + 1|
000005c0 29 0d 02 1c 22 20 20 20 20 20 20 20 20 6a 25 20 |)..." j% |
000005d0 3d 20 a7 63 24 2c 20 22 3a 22 2c 20 69 25 20 2b |= .c$, ":", i% +|
000005e0 20 31 29 0d 02 26 2c 20 20 20 20 20 20 20 20 6f | 1)..&, o|
000005f0 24 3d c0 63 24 2c 20 69 25 29 20 2b 20 c3 28 47 |$=.c$, i%) + .(G|
00000600 52 50 25 29 20 2b 20 c1 63 24 2c 20 6a 25 29 0d |RP%) + .c$, j%).|
00000610 02 30 15 20 20 20 20 20 20 20 20 d5 20 23 6f 66 |.0. . #of|
00000620 25 2c 6f 24 0d 02 3a 09 20 20 20 20 cc 0d 02 44 |%,o$..:. ...D|
00000630 15 20 20 20 20 20 20 20 20 d5 20 23 6f 66 25 2c |. . #of%,|
00000640 63 24 0d 02 4e 09 20 20 20 20 cd 0d 02 58 0d fd |c$..N. ...X..|
00000650 20 28 63 24 3d 22 22 29 0d 02 62 0a d9 20 23 6f | (c$="")..b.. #o|
00000660 66 25 0d 02 6c 0a d9 20 23 69 66 25 0d 02 76 04 |f%..l.. #if%..v.|
00000670 0d 02 80 0e e7 20 69 25 20 3e 20 30 20 8c 0d 02 |..... i% > 0 ...|
00000680 8a 43 20 20 20 20 f4 20 6e 6f 77 20 63 6f 70 79 |.C . now copy|
00000690 20 6f 75 72 20 6e 65 77 20 66 69 6c 65 20 6f 76 | our new file ov|
000006a0 65 72 20 74 68 65 20 6f 6c 64 20 6f 6e 65 20 74 |er the old one t|
000006b0 68 65 6e 20 65 78 69 74 20 61 6e 64 20 74 65 6c |hen exit and tel|
000006c0 6c 0d 02 94 26 20 20 20 20 f4 20 4e 65 77 73 42 |l...& . NewsB|
000006d0 61 73 65 20 74 68 61 74 20 61 6c 6c 20 77 65 6e |ase that all wen|
000006e0 74 20 66 69 6e 65 2e 0d 02 9e 2b 20 20 20 20 ff |t fine....+ .|
000006f0 28 22 73 65 74 74 79 70 65 20 22 20 2b 65 74 63 |("settype " +etc|
00000700 62 70 61 73 73 77 64 24 20 2b 20 22 20 46 46 46 |bpasswd$ + " FFF|
00000710 22 29 0d 02 a8 3f 20 20 20 20 ff 28 22 63 6f 70 |")...? .("cop|
00000720 79 20 22 20 2b 20 65 74 63 62 70 61 73 73 77 64 |y " + etcbpasswd|
00000730 24 20 2b 20 22 20 22 20 2b 20 65 74 63 70 61 73 |$ + " " + etcpas|
00000740 73 77 64 24 20 2b 20 22 20 46 44 7e 43 7e 56 22 |swd$ + " FD~C~V"|
00000750 29 0d 02 b2 2f 20 20 20 20 f2 65 78 69 74 28 30 |).../ .exit(0|
00000760 2c 20 22 75 73 65 72 20 22 20 2b 20 75 73 65 72 |, "user " + user|
00000770 24 20 2b 20 22 20 6d 6f 64 69 66 69 65 64 22 29 |$ + " modified")|
00000780 0d 02 bc 05 cc 0d 02 c6 25 20 20 20 20 f4 20 6f |........% . o|
00000790 74 68 65 72 77 69 73 65 20 63 6f 6d 70 6c 61 69 |therwise complai|
000007a0 6e 20 61 6e 64 20 64 69 65 2e 0d 02 d0 30 20 20 |n and die....0 |
000007b0 20 20 f2 65 78 69 74 28 31 2c 20 22 75 73 65 72 | .exit(1, "user|
000007c0 20 22 20 2b 20 75 73 65 72 24 20 2b 20 22 20 6e | " + user$ + " n|
000007d0 6f 74 20 66 6f 75 6e 64 22 29 0d 02 da 05 cd 0d |ot found")......|
000007e0 02 e4 05 e0 0d 02 ee 04 0d 02 f8 36 f4 20 63 6f |...........6. co|
000007f0 6e 76 65 72 74 20 61 6c 6c 20 63 68 61 72 61 63 |nvert all charac|
00000800 74 65 72 73 20 69 6e 20 61 20 73 74 72 69 6e 67 |ters in a string|
00000810 20 74 6f 20 6c 6f 77 65 72 63 61 73 65 2e 0d 03 | to lowercase...|
00000820 02 05 f4 0d 03 0c 12 dd 20 a4 74 6f 6c 6f 77 65 |........ .tolowe|
00000830 72 28 61 24 29 0d 03 16 0c ea 20 69 25 2c 20 63 |r(a$)..... i%, c|
00000840 24 0d 03 20 12 e3 20 69 25 20 3d 20 31 20 b8 20 |$.. .. i% = 1 . |
00000850 a9 61 24 0d 03 2a 18 20 20 20 20 63 24 20 3d 20 |.a$..*. c$ = |
00000860 c1 61 24 2c 20 69 25 2c 20 31 29 0d 03 34 21 20 |.a$, i%, 1)..4! |
00000870 20 20 20 e7 20 63 24 20 3e 3d 20 22 41 22 20 80 | . c$ >= "A" .|
00000880 20 63 24 20 3c 3d 20 22 5a 22 20 8c 0d 03 3e 2a | c$ <= "Z" ...>*|
00000890 20 20 20 20 20 20 20 20 c1 61 24 2c 20 69 25 2c | .a$, i%,|
000008a0 20 31 29 20 3d 20 bd 28 97 28 63 24 29 20 2b 20 | 1) = .(.(c$) + |
000008b0 63 64 69 66 66 29 0d 03 48 09 20 20 20 20 cd 0d |cdiff)..H. ..|
000008c0 03 52 08 3d 20 61 24 0d 03 5c 04 0d 03 66 31 f4 |.R.= a$..\...f1.|
000008d0 20 65 78 69 74 20 66 72 6f 6d 20 68 65 72 65 2c | exit from here,|
000008e0 20 72 65 74 75 72 6e 69 6e 67 20 61 70 70 72 6f | returning appro|
000008f0 70 72 69 61 74 65 20 69 6e 66 6f 2e 0d 03 70 05 |priate info...p.|
00000900 f4 0d 03 7a 11 dd f2 65 78 69 74 28 6e 25 2c 61 |...z...exit(n%,a|
00000910 24 29 0d 03 84 25 ff 28 22 73 65 74 20 4e 65 77 |$)...%.("set New|
00000920 73 42 61 73 65 24 52 65 74 75 72 6e 43 6f 64 65 |sBase$ReturnCode|
00000930 20 22 2b c3 6e 25 29 0d 03 8e 24 ff 28 22 73 65 | "+.n%)...$.("se|
00000940 74 20 4e 65 77 73 42 61 73 65 24 52 65 74 75 72 |t NewsBase$Retur|
00000950 6e 49 6e 66 6f 20 22 2b 61 24 29 0d 03 98 05 e0 |nInfo "+a$).....|
00000960 0d 03 a2 05 e1 0d ff |.......|
00000967 
.