PRG.ULIST

FILE INFORMATION

FILENAME(S): PRG.ULIST

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-10-19 22:35:22

APPEARS ON: 2 disk(s)

FILE HASH

2e7990c5767f73aebe84e513e4677e899a16824b1ed73979f583d15a3343bab0

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
ILROYS ASTLE	PRG.ULIST	PRG	Radd Maxx	27	2	DOWNLOAD FILE
CNET DATA	PRG.ULIST	PRG	Radd Maxx	13	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 40 08 00 02 86 4E  25 28 39 29 2C 52 24 28  |..@....N%(9),R$(|
00000010: 36 29 2C 47 25 28 35 29  2C 53 25 28 35 29 2C 55  |6),G%(5),S%(5),U|
00000020: 44 24 28 37 29 3A 8C 3A  81 58 B2 31 A4 39 3A 4E  |D$(7):.:.X.1.9:N|
00000030: 25 28 58 29 B2 30 3A 87  45 44 24 28 58 29 3A 82  |%(X).0:.ED$(X):.|
00000040: 00 78 08 01 02 81 58 B2  31 A4 35 3A 87 54 54 24  |.x....X.1.5:.TT$|
00000050: 28 58 29 2C 47 25 28 58  29 2C 53 25 28 58 29 3A  |(X),G%(X),S%(X):|
00000060: 82 3A 41 49 B2 33 3A 8B  28 28 53 46 25 AF 31 29  |.:AI.3:.((SF%.1)|
00000070: B2 31 29 A7 41 49 B2 35  00 B4 08 02 02 41 24 B2  |.1).AI.5.....A$.|
00000080: 22 8B 93 8B D3 45 41 52  43 48 20 55 53 45 52 20  |"....EARCH USER |
00000090: 44 41 54 41 20 46 49 4C  45 3A 8B 8B 31 29 20 20  |DATA FILE:..1)  |
000000A0: CC 49 53 54 20 41 4C 4C  20 55 53 45 52 53 8B 22  |.IST ALL USERS."|
000000B0: 3A 8D 34 30 00 F2 08 03  02 41 24 B2 22 32 29 20  |:.40.....A$."2) |
000000C0: 20 D3 45 41 52 43 48 20  46 4F 52 20 53 50 45 43  | .EARCH FOR SPEC|
000000D0: 49 46 49 43 20 55 53 45  52 53 8B 8B 20 20 20 20  |IFIC USERS..    |
000000E0: CF 50 54 49 4F 4E 3F 20  22 3A 8D 34 30 3A 8D 35  |.PTION? ":.40:.5|
000000F0: 35 36 00 2F 09 04 02 8D  31 38 3A 4E B2 31 3A 4E  |56./....18:N.1:N|
00000100: 25 28 31 29 B2 30 3A 47  25 28 30 29 B2 37 3A 53  |%(1).0:G%(0).7:S|
00000110: 25 28 30 29 B2 31 3A 41  B2 C5 28 41 4E 24 29 3A  |%(0).1:A..(AN$):|
00000120: 91 41 89 35 33 37 2C 35  31 37 3A 89 35 35 33 00  |.A.537,517:.553.|
00000130: 3C 09 05 02 8B 4E B2 36  A7 35 33 37 00 88 09 06  |<....N.6.537....|
00000140: 02 41 24 B2 22 8B D3 45  4C 45 43 54 20 41 54 54  |.A$."..ELECT ATT|
00000150: 52 49 42 55 54 45 20 54  4F 20 53 45 41 52 43 48  |RIBUTE TO SEARCH|
00000160: 20 46 4F 52 2E 20 D0 52  45 53 53 8B D2 C5 D4 D5  | FOR. .RESS.....|
00000170: D2 CE 20 57 48 45 4E 20  46 49 4E 49 53 48 45 44  |.. WHEN FINISHED|
00000180: 3A 8B 8B 22 3A 8D 34 30  00 B9 09 07 02 81 58 B2  |:..":.40......X.|
00000190: 31 A4 41 49 3A 41 24 B2  CA 28 C4 28 58 29 2C 32  |1.AI:A$..(.(X),2|
000001A0: 29 AA 22 29 20 20 22 AA  54 54 24 28 58 29 3A 4C  |).")  ".TT$(X):L|
000001B0: 50 B2 31 3A 8D 34 30 3A  82 00 F7 09 08 02 41 24  |P.1:.40:......A$|
000001C0: B2 22 8B 20 20 20 20 C1  54 54 52 49 42 55 54 45  |.".    .TTRIBUTE|
000001D0: 3F 20 22 3A 8D 34 30 3A  8D 35 35 36 3A 41 B2 C5  |? ":.40:.556:A..|
000001E0: 28 41 4E 24 29 3A 8D 31  38 3A 8B 41 B3 31 B0 41  |(AN$):.18:.A.1.A|
000001F0: B1 41 49 A7 35 33 37 00  36 0A 09 02 8D 35 35 37  |.AI.537.6....557|
00000200: 3A 91 41 89 35 32 32 2C  35 32 37 2C 35 33 30 2C  |:.A.522,527,530,|
00000210: 35 33 32 2C 35 33 35 3A  41 24 B2 22 8B CE 4F 20  |532,535:A$."..O |
00000220: 44 55 50 4C 49 43 41 54  45 53 21 8B 22 3A 8D 34  |DUPLICATES!.":.4|
00000230: 30 3A 89 35 31 37 00 85  0A 0A 02 41 24 B2 22 C5  |0:.517.....A$.".|
00000240: 4E 54 45 52 20 54 48 45  20 42 45 47 49 4E 4E 49  |NTER THE BEGINNI|
00000250: 4E 47 20 43 48 41 52 41  43 54 45 52 53 20 4F 46  |NG CHARACTERS OF|
00000260: 8B 4F 52 20 45 4E 54 49  52 45 20 48 41 4E 44 4C  |.OR ENTIRE HANDL|
00000270: 45 20 59 4F 55 20 57 41  4E 54 20 54 4F 20 53 45  |E YOU WANT TO SE|
00000280: 41 52 43 48 22 00 AA 0A  0B 02 8D 34 30 3A 41 24  |ARCH"......40:A$|
00000290: B2 22 8B 46 4F 52 3A 8B  8B 3A 22 3A 8D 34 30 3A  |.".FOR:..:":.40:|
000002A0: 50 4C B2 31 3A 8D 32 31  30 30 00 CB 0A 0C 02 4E  |PL.1:.2100.....N|
000002B0: B2 4E AA 31 3A 4E 25 28  4E 29 B2 31 3A 52 24 28  |.N.1:N%(N).1:R$(|
000002C0: 4E 29 B2 41 4E 24 3A 89  35 31 37 00 0E 0B 0D 02  |N).AN$:.517.....|
000002D0: 83 20 22 C8 41 4E 44 4C  45 22 2C 31 2C 32 2C 22  |. ".ANDLE",1,2,"|
000002E0: C3 4F 4D 50 55 54 45 52  20 54 59 50 45 22 2C 32  |.OMPUTER TYPE",2|
000002F0: 2C 31 2C 22 C1 52 45 41  20 43 4F 44 45 22 2C 32  |,1,".REA CODE",2|
00000300: 2C 38 2C 22 D2 45 41 4C  20 4E 41 4D 45 22 00 2B  |,8,".EAL NAME".+|
00000310: 0B 0E 02 83 20 35 2C 31  2C 22 C1 43 43 45 53 53  |.... 5,1,".CCESS|
00000320: 20 47 52 4F 55 50 22 2C  31 2C 31 00 5A 0B 0F 02  | GROUP",1,1.Z...|
00000330: 81 58 B2 31 A4 39 3A 41  24 B2 CA 28 C4 28 58 29  |.X.1.9:A$..(.(X)|
00000340: 2C 32 29 AA 22 29 20 20  22 AA 45 44 24 28 58 29  |,2).")  ".ED$(X)|
00000350: AA 22 8B 22 3A 8D 34 30  3A 82 00 96 0B 10 02 41  |.".":.40:......A|
00000360: 24 B2 22 8B D3 45 41 52  43 48 20 46 4F 52 20 55  |$."..EARCH FOR U|
00000370: 53 45 52 53 20 4F 46 20  57 48 49 43 48 20 43 4F  |SERS OF WHICH CO|
00000380: 4D 50 55 54 45 52 3F 20  22 3A 8D 34 30 3A 8D 35  |MPUTER? ":.40:.5|
00000390: 35 36 3A 8D 31 37 00 C8  0B 11 02 91 AB 28 C5 28  |56:.17.......(.(|
000003A0: 41 4E 24 29 B2 30 29 89  35 31 37 3A 4E B2 4E AA  |AN$).0).517:N.N.|
000003B0: 31 3A 4E 25 28 4E 29 B2  32 3A 52 24 28 4E 29 B2  |1:N%(N).2:R$(N).|
000003C0: 41 4E 24 3A 89 35 31 37  00 0D 0C 12 02 41 24 B2  |AN$:.517.....A$.|
000003D0: 22 C5 4E 54 45 52 20 54  48 45 20 41 52 45 41 20  |".NTER THE AREA |
000003E0: 43 4F 44 45 20 4F 46 20  54 48 45 20 55 53 45 52  |CODE OF THE USER|
000003F0: 20 54 4F 8B 53 45 41 52  43 48 20 46 4F 52 3A 8B  | TO.SEARCH FOR:.|
00000400: 8B 3A 22 3A 8D 34 30 3A  8D 32 31 30 30 00 2E 0C  |.:":.40:.2100...|
00000410: 13 02 4E B2 4E AA 31 3A  4E 25 28 4E 29 B2 33 3A  |..N.N.1:N%(N).3:|
00000420: 52 24 28 4E 29 B2 41 4E  24 3A 89 35 31 37 00 79  |R$(N).AN$:.517.y|
00000430: 0C 14 02 41 24 B2 22 C5  4E 54 45 52 20 54 48 45  |...A$.".NTER THE|
00000440: 20 42 45 47 49 4E 4E 49  4E 47 20 43 48 41 52 41  | BEGINNING CHARA|
00000450: 43 54 45 52 53 20 4F 46  20 4F 52 8B 45 4E 54 49  |CTERS OF OR.ENTI|
00000460: 52 45 20 52 45 41 4C 20  4E 41 4D 45 20 59 4F 55  |RE REAL NAME YOU|
00000470: 20 57 41 4E 54 20 54 4F  22 00 A5 0C 15 02 8D 34  | WANT TO"......4|
00000480: 30 3A 41 24 B2 22 20 53  45 41 52 43 48 8B 46 4F  |0:A$." SEARCH.FO|
00000490: 52 3A 8B 8B 3A 22 3A 8D  34 30 3A 50 4C B2 31 3A  |R:..:":.40:PL.1:|
000004A0: 8D 32 31 30 30 00 C6 0C  16 02 4E B2 4E AA 31 3A  |.2100.....N.N.1:|
000004B0: 4E 25 28 4E 29 B2 34 3A  52 24 28 4E 29 B2 41 4E  |N%(N).4:R$(N).AN|
000004C0: 24 3A 89 35 31 37 00 0B  0D 17 02 41 24 B2 22 D7  |$:.517.....A$.".|
000004D0: 48 49 43 48 20 41 43 43  45 53 53 20 47 52 4F 55  |HICH ACCESS GROU|
000004E0: 50 20 28 30 2D 39 29 20  44 4F 20 59 4F 55 20 57  |P (0-9) DO YOU W|
000004F0: 49 53 48 8B 54 4F 20 46  49 4E 44 20 55 53 45 52  |ISH.TO FIND USER|
00000500: 53 20 4F 46 3F 20 22 3A  8D 34 30 00 40 0D 18 02  |S OF? ":.40.@...|
00000510: 8D 35 35 36 3A 8D 31 37  3A 4E B2 4E AA 31 3A 4E  |.556:.17:N.N.1:N|
00000520: 25 28 4E 29 B2 35 3A 52  24 28 4E 29 B2 CA 28 C4  |%(N).5:R$(N)..(.|
00000530: 28 C5 28 41 4E 24 29 29  2C 32 29 3A 89 35 31 37  |(.(AN$)),2):.517|
00000540: 00 87 0D 19 02 41 24 B2  22 8B D4 48 45 52 45 20  |.....A$."..HERE |
00000550: 41 52 45 22 AA C4 28 55  52 29 AA 22 20 55 53 45  |ARE"..(UR)." USE|
00000560: 52 53 2E 20 D7 48 45 52  45 20 53 48 4F 55 4C 44  |RS. .HERE SHOULD|
00000570: 8B 54 48 45 20 4C 49 53  54 49 4E 47 20 42 45 47  |.THE LISTING BEG|
00000580: 49 4E 3F 8B 8B 3A 22 00  BC 0D 1A 02 8D 34 30 3A  |IN?..:"......40:|
00000590: 50 4C B2 31 3A 8D 32 31  30 30 3A 53 50 B2 B5 28  |PL.1:.2100:SP..(|
000005A0: C5 28 C8 28 41 4E 24 2C  33 29 29 29 3A 8B 53 50  |.(.(AN$,3))):.SP|
000005B0: B3 31 B0 53 50 B1 55 52  A7 35 35 34 00 01 0E 1B  |.1.SP.UR.554....|
000005C0: 02 41 24 B2 22 8B 93 8B  D3 45 41 52 43 48 49 4E  |.A$."....EARCHIN|
000005D0: 47 20 46 4F 52 3A 8B 8B  22 3A 8D 34 30 3A 8B 4E  |G FOR:..":.40:.N|
000005E0: B2 31 A7 41 24 B2 22 28  4E 4F 20 53 50 45 43 49  |.1.A$."(NO SPECI|
000005F0: 46 49 43 53 29 8B 8B 22  3A 8D 34 30 3A 89 35 34  |FICS)..":.40:.54|
00000600: 31 00 34 0E 1C 02 81 58  B2 32 A4 4E 3A 41 24 B2  |1.4....X.2.N:A$.|
00000610: 54 54 24 28 4E 25 28 58  29 29 AA 22 20 3D 20 22  |TT$(N%(X))." = "|
00000620: AA 52 24 28 58 29 AA 22  8B 22 3A 8D 34 30 3A 82  |.R$(X).".":.40:.|
00000630: 3A 8D 31 37 00 68 0E 1D  02 41 24 B2 22 28 48 49  |:.17.h...A$."(HI|
00000640: 54 20 53 50 41 43 45 20  42 41 52 20 54 4F 20 41  |T SPACE BAR TO A|
00000650: 42 4F 52 54 20 41 54 20  41 4E 59 20 54 49 4D 45  |BORT AT ANY TIME|
00000660: 29 8B 8B 22 3A 8D 34 30  00 77 0E 1E 02 8D 36 30  |)..":.40.w....60|
00000670: 30 31 30 3A 51 B2 30 00  8E 0E 1F 02 8B 53 50 B1  |010:Q.0......SP.|
00000680: 55 52 B0 54 52 24 B3 22  01 22 A7 35 35 35 00 C2  |UR.TR$.".".555..|
00000690: 0E 20 02 51 B2 30 3A 81  54 B2 31 A4 35 3A 58 B2  |. .Q.0:.T.1.5:X.|
000006A0: 53 50 AC 35 AB 35 AA 54  3A 8D 32 3A 9E 35 33 31  |SP.5.5.T:.2:.531|
000006B0: 35 34 3A 55 44 24 28 54  29 B2 41 24 3A 82 3A 51  |54:UD$(T).A$:.:Q|
000006C0: B2 30 00 04 0F 21 02 81  4B 4B B2 31 A4 4E 3A 41  |.0...!..KK.1.N:A|
000006D0: B2 4E 25 28 4B 4B 29 3A  41 24 B2 52 24 28 4B 4B  |.N%(KK):A$.R$(KK|
000006E0: 29 3A 8B 41 24 B3 B1 CA  28 55 44 24 28 47 25 28  |):.A$...(UD$(G%(|
000006F0: 41 29 29 2C 53 25 28 41  29 2C C3 28 41 24 29 29  |A)),S%(A),.(A$))|
00000700: A7 35 35 32 00 42 0F 22  02 82 4B 4B 3A 41 24 B2  |.552.B."..KK:A$.|
00000710: 22 8B CC 4F 47 49 4E 20  C9 C4 3A 20 20 22 AA 49  |"..OGIN ..:  ".I|
00000720: 49 24 AA CA 28 C4 28 53  50 29 2C 32 29 3A 4C 50  |I$..(.(SP),2):LP|
00000730: B2 31 3A 8D 34 30 3A 51  B2 51 AA 52 43 3A 89 35  |.1:.40:Q.Q.RC:.5|
00000740: 35 39 00 86 0F 23 02 41  24 B2 22 C8 41 4E 44 4C  |59...#.A$.".ANDL|
00000750: 45 3A 20 20 20 20 22 AA  CA 28 55 44 24 28 31 29  |E:    "..(UD$(1)|
00000760: 2C 32 29 AA 22 8B C3 4F  4D 50 55 54 45 52 3A 20  |,2)."..OMPUTER: |
00000770: 20 22 AA 45 44 24 28 C5  28 C8 28 55 44 24 28 32  | ".ED$(.(.(UD$(2|
00000780: 29 2C 31 29 29 29 00 B5  0F 24 02 8D 34 30 3A 51  |),1)))...$..40:Q|
00000790: B2 51 AA 52 43 3A 41 24  B2 22 8B C1 52 45 41 20  |.Q.RC:A$."..REA |
000007A0: 43 4F 44 45 3A 20 22 AA  CA 28 55 44 24 28 32 29  |CODE: "..(UD$(2)|
000007B0: 2C 37 2C 35 29 00 D2 0F  25 02 8B 41 49 B2 35 A7  |,7,5)...%..AI.5.|
000007C0: 41 24 B2 41 24 AA CA 28  55 44 24 28 32 29 2C 31  |A$.A$..(UD$(2),1|
000007D0: 32 29 00 13 10 26 02 41  24 B2 41 24 AA 22 8B CC  |2)...&.A$.A$."..|
000007E0: 41 53 54 20 43 41 4C 4C  3A 20 04 22 AA C8 28 55  |AST CALL: ."..(U|
000007F0: 44 24 28 33 29 2C 31 31  29 3A 4C 50 B2 31 3A 8D  |D$(3),11):LP.1:.|
00000800: 34 30 3A 51 B2 51 AA 52  43 3A 8B 41 49 B2 33 A7  |40:Q.Q.RC:.AI.3.|
00000810: 35 35 32 00 5A 10 27 02  41 24 B2 22 D2 45 41 4C  |552.Z.'.A$.".EAL|
00000820: 20 4E 41 4D 45 3A 20 22  AA 55 44 24 28 35 29 AA  | NAME: ".UD$(5).|
00000830: 22 8B C1 43 43 45 53 53  20 47 52 3A 20 22 AA C8  |"..CCESS GR: "..|
00000840: 28 55 44 24 28 31 29 2C  31 29 3A 4C 50 B2 31 3A  |(UD$(1),1):LP.1:|
00000850: 8D 34 30 3A 51 B2 51 AA  52 43 00 84 10 28 02 8D  |.40:Q.Q.RC...(..|
00000860: 35 36 31 3A 51 B2 51 AA  52 43 3A 91 AB 28 51 B3  |561:Q.Q.RC:..(Q.|
00000870: B1 30 29 89 35 35 34 3A  53 50 B2 53 50 AA 31 3A  |.0).554:SP.SP.1:|
00000880: 89 35 34 33 00 98 10 29  02 A0 32 3A 9E 35 32 36  |.543...)..2:.526|
00000890: 30 35 3A 89 31 33 30 30  00 B6 10 2A 02 41 24 B2  |05:.1300...*.A$.|
000008A0: 22 8B 28 C1 42 4F 52 54  45 44 29 8B 22 3A 8D 34  |".(.BORTED).":.4|
000008B0: 30 3A 89 35 35 33 00 DB  10 2B 02 41 24 B2 22 8B  |0:.553...+.A$.".|
000008C0: D3 45 41 52 43 48 20 46  49 4E 49 53 48 45 44 2E  |.EARCH FINISHED.|
000008D0: 8B 22 3A 8D 34 30 3A 89  35 35 33 00 F0 10 2C 02  |.":.40:.553...,.|
000008E0: 8D 32 32 30 30 3A 41 24  B2 41 4E 24 3A 89 34 30  |.2200:A$.AN$:.40|
000008F0: 00 0A 11 2D 02 81 58 B2  31 A4 4E 3A 8B 41 B2 4E  |...-..X.1.N:.A.N|
00000900: 25 28 58 29 A7 41 B2 36  3A 8E 00 13 11 2E 02 82  |%(X).A.6:.......|
00000910: 58 3A 8E 00 57 11 2F 02  8B CA 28 55 44 24 28 31  |X:..W./...(UD$(1|
00000920: 29 2C 32 29 B2 22 5E 22  A7 41 24 B2 22 28 54 48  |),2)."^".A$."(TH|
00000930: 49 53 20 41 43 43 4F 55  4E 54 20 48 41 53 20 42  |IS ACCOUNT HAS B|
00000940: 45 45 4E 20 44 45 4C 45  54 45 44 29 8B 22 3A 8D  |EEN DELETED).":.|
00000950: 34 30 3A 89 35 35 32 00  60 11 30 02 89 35 34 37  |40:.552.`.0..547|
00000960: 00 79 11 31 02 8B 28 53  50 AD 31 30 29 B3 B1 B5  |.y.1..(SP.10)...|
00000970: 28 53 50 AD 31 30 29 A7  8E 00 88 11 32 02 41 24  |(SP.10).....2.A$|
00000980: B2 22 2E 22 3A 89 34 30  00 00 00                 |.".":.40...     |

..@....N%(9),R$(6),G%(5),S%(5),UD$(7):.:
.X.1.9:N%(X).0:.ED$(X):..X....X.1.5:.TT$
(X),G%(X),S%(X):.:AI.3:.((SF%.1).1).AI.5
.....A$."...SEARCH USER DATA FILE:..1)  
LIST ALL USERS.":.40.....A$."2)  SEARCH 
FOR SPECIFIC USERS..    OPTION? ":.40:.5
56./....18:N.1:N%(1).0:G%(0).7:S%(0).1:A
.E(AN$):.A.537,517:.553.<....N.6.537....
.A$.".SELECT ATTRIBUTE TO SEARCH FOR. PR
ESS.RETURN WHEN FINISHED:..":.40......X.
1.AI:A$.J(D(X),2).")  ".TT$(X):LP.1:.40:
......A$.".    ATTRIBUTE? ":.40:.556:A.E
(AN$):.18:.A.1.A.AI.537.6....557:.A.522,
527,530,532,535:A$.".NO DUPLICATES!.":.4
0:.517.....A$."ENTER THE BEGINNING CHARA
CTERS OF.OR ENTIRE HANDLE YOU WANT TO SE
ARCH"......40:A$.".FOR:..:":.40:PL.1:.21
00.K...N.N.1:N%(N).1:R$(N).AN$:.517.....
. "HANDLE",1,2,"COMPUTER TYPE",2,1,"AREA
 CODE",2,8,"REAL NAME".+.... 5,1,"ACCESS
 GROUP",1,1.Z....X.1.9:A$.J(D(X),2).")  
".ED$(X).".":.40:......A$.".SEARCH FOR U
SERS OF WHICH COMPUTER? ":.40:.556:.17.H
.....(E(AN$).0).517:N.N.1:N%(N).2:R$(N).
AN$:.517.....A$."ENTER THE AREA CODE OF 
THE USER TO.SEARCH FOR:..:":.40:.2100...
..N.N.1:N%(N).3:R$(N).AN$:.517.Y...A$."E
NTER THE BEGINNING CHARACTERS OF OR.ENTI
RE REAL NAME YOU WANT TO"......40:A$." S
EARCH.FOR:..:":.40:PL.1:.2100.F...N.N.1:
N%(N).4:R$(N).AN$:.517.....A$."WHICH ACC
ESS GROUP (0-9) DO YOU WISH.TO FIND USER
S OF? ":.40.@....556:.17:N.N.1:N%(N).5:R
$(N).J(D(E(AN$)),2):.517.....A$.".THERE 
ARE".D(UR)." USERS. WHERE SHOULD.THE LIS
TING BEGIN?..:"......40:PL.1:.2100:SP..(
E(H(AN$,3))):.SP.1.SP.UR.554.....A$."...
SEARCHING FOR:..":.40:.N.1.A$."(NO SPECI
FICS)..":.40:.541.4....X.2.N:A$.TT$(N%(X
))." = ".R$(X).".":.40:.:.17.H...A$."(HI
T SPACE BAR TO ABORT AT ANY TIME)..":.40
.W....60010:Q.0......SP.UR.TR$.".".555.B
. .Q.0:.T.1.5:X.SP.5.5.T:.2:.53154:UD$(T
).A$:.:Q.0...!..KK.1.N:A.N%(KK):A$.R$(KK
):.A$..J(UD$(G%(A)),S%(A),C(A$)).552.B."
..KK:A$.".LOGIN ID:  ".II$.J(D(SP),2):LP
.1:.40:Q.Q.RC:.559...#.A$."HANDLE:    ".
J(UD$(1),2).".COMPUTER:  ".ED$(E(H(UD$(2
),1)))...$..40:Q.Q.RC:A$.".AREA CODE: ".
J(UD$(2),7,5).R.%..AI.5.A$.A$.J(UD$(2),1
2)...&.A$.A$.".LAST CALL: .".H(UD$(3),11
):LP.1:.40:Q.Q.RC:.AI.3.552.Z.'.A$."REAL
 NAME: ".UD$(5).".ACCESS GR: ".H(UD$(1),
1):LP.1:.40:Q.Q.RC...(..561:Q.Q.RC:..(Q.
.0).554:SP.SP.1:.543...). 2:.52605:.1300
...*.A$.".(ABORTED).":.40:.553...+.A$.".
SEARCH FINISHED..":.40:.553...,..2200:A$
.AN$:.40...-..X.1.N:.A.N%(X).A.6:.......
X:..W./..J(UD$(1),2)."^".A$."(THIS ACCOU
NT HAS BEEN DELETED).":.40:.552.`.0..547
.Y.1..(SP.10)...(SP.10).....2.A$.".":.40
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL