TELEFON BOOK
FILE INFORMATION
FILENAME(S): TELEFON BOOK
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
3f68b1a3cf3ab25d6abd7f90d9d7cd8bd4dd1d4573e6094dd397af8387029aa1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | TELEFON BOOK | PRG | Bugjam - Argentina | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 40 08 0A 00 99 22 93 22 3A 97 35 33 32 38 |..@....".":.5328|
00000010: 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 86 4E 24 |0,0:.53281,0:.N$|
00000020: 28 35 30 30 29 3A 86 53 24 28 35 30 30 29 3A 86 |(500):.S$(500):.|
00000030: 43 24 28 35 30 30 29 3A 86 54 24 28 35 30 30 29 |C$(500):.T$(500)|
00000040: 00 49 08 0B 00 8D 31 30 30 00 7B 08 0F 00 59 24 |.I....100.{...Y$|
00000050: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 20 22 00 BC 08 14 00 | ".....|
00000080: 54 24 B2 22 54 48 45 20 54 45 4C 45 46 4F 4E 2D |T$."THE TELEFON-|
00000090: 42 4F 4F 4B 20 57 41 53 20 57 52 49 54 54 45 4E |BOOK WAS WRITTEN|
000000A0: 20 49 4E 20 31 39 38 35 20 42 59 20 4A 4F 48 4E | IN 1985 BY JOHN|
000000B0: 20 53 49 4E 43 4C 41 49 52 2E 47 22 00 0D 09 1E | SINCLAIR.G"....|
000000C0: 00 55 24 B2 22 52 45 45 54 49 4E 47 53 20 54 4F |.U$."REETINGS TO|
000000D0: 3A 54 43 49 2C 53 4F 55 4E 44 4D 41 53 54 45 52 |:TCI,SOUNDMASTER|
000000E0: 2C 53 59 4E 44 49 43 41 54 45 2C 53 45 43 54 49 |,SYNDICATE,SECTI|
000000F0: 4F 4E 20 38 2C 41 4E 44 20 4D 41 50 20 20 20 20 |ON 8,AND MAP |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 26 09 | ".&.|
00000110: 28 00 59 24 B2 59 24 AA 54 24 AA 55 24 3A 81 49 |(.Y$.Y$.T$.U$:.I|
00000120: B2 31 A4 33 32 33 00 3A 09 2D 00 A1 41 24 3A 8B |.1.323.:.-..A$:.|
00000130: 41 24 B2 22 20 22 A7 31 35 30 00 4D 09 32 00 99 |A$." ".150.M.2..|
00000140: 22 91 91 05 22 C8 28 59 24 2C 34 30 29 00 76 09 |"...".(Y$,40).v.|
00000150: 3C 00 59 24 B2 CA 28 59 24 2C 32 29 AA C8 28 59 |<.Y$..(Y$,2)..(Y|
00000160: 24 2C 31 29 3A 81 4A B2 30 A4 31 30 30 3A 82 3A |$,1):.J.0.100:.:|
00000170: 82 3A 89 31 35 30 00 A6 09 64 00 97 35 36 33 32 |.:.150...d..5632|
00000180: 35 2C 30 3A 99 A6 38 29 22 1C 11 11 11 12 20 20 |5,0:..8)"..... |
00000190: 20 20 20 92 20 12 20 20 92 20 12 20 20 92 20 12 | . . . . . .|
000001A0: 20 20 20 20 92 22 00 C5 09 69 00 99 A6 31 30 29 | ."...i...10)|
000001B0: 22 12 20 92 20 20 20 12 20 20 92 20 12 20 20 92 |". . . . . .|
000001C0: 20 12 20 20 22 00 E4 09 6E 00 99 A6 31 30 29 22 | . "...n...10)"|
000001D0: 12 20 92 20 20 20 12 20 20 20 20 20 92 20 12 20 |. . . . . |
000001E0: 20 20 20 22 00 03 0A 73 00 99 A6 31 30 29 22 12 | "...s...10)".|
000001F0: 20 92 20 20 20 12 20 20 92 20 12 20 20 92 20 12 | . . . . . .|
00000200: 20 20 22 00 26 0A 78 00 99 A6 31 30 29 22 12 20 | ".&.x...10)". |
00000210: 92 20 20 20 12 20 20 92 20 12 20 20 92 20 12 20 |. . . . . . |
00000220: 20 20 20 11 11 22 00 57 0A 7D 00 99 A6 31 31 29 | ..".W.}...11)|
00000230: 22 05 54 45 4C 45 46 4F 4E 2D 42 4F 4F 4B 22 3A |".TELEFON-BOOK":|
00000240: 81 49 B2 30 A4 31 30 3A 99 3A 82 3A 97 35 36 33 |.I.0.10:.:.:.563|
00000250: 32 35 2C 35 33 3A 8E 00 6E 0A 96 00 9F 31 2C 38 |25,53:..n....1,8|
00000260: 2C 30 2C 22 4E 41 4D 45 53 2C 53 2C 52 22 00 77 |,0,"NAMES,S,R".w|
00000270: 0A 97 00 84 31 2C 4C 00 8D 0A 98 00 81 49 B2 30 |....1,L......I.0|
00000280: A4 4C AB 31 3A 84 31 2C 4E 24 28 49 29 00 AC 0A |.L.1:.1,N$(I)...|
00000290: 99 00 84 31 2C 53 24 28 49 29 3A 84 31 2C 43 24 |...1,S$(I):.1,C$|
000002A0: 28 49 29 3A 84 31 2C 54 24 28 49 29 00 B5 0A 9A |(I):.1,T$(I)....|
000002B0: 00 82 3A A0 31 00 D5 0A C8 00 99 22 93 20 20 20 |..:.1......". |
000002C0: 54 48 45 20 54 45 4C 45 46 4F 4E 2D 55 54 49 4C |THE TELEFON-UTIL|
000002D0: 4C 49 54 59 22 00 F2 0A D2 00 99 22 11 11 12 20 |LITY"......"... |
000002E0: 46 31 20 92 20 20 53 45 41 52 43 48 20 4E 41 4D |F1 . SEARCH NAM|
000002F0: 45 22 00 0F 0B D3 00 99 22 11 12 20 46 32 20 92 |E"......".. F2 .|
00000300: 20 20 43 4F 52 52 45 43 54 20 4E 41 4D 45 22 00 | CORRECT NAME".|
00000310: 2A 0B D7 00 99 22 11 12 20 46 33 20 92 20 20 53 |*....".. F3 . S|
00000320: 41 56 45 20 4E 41 4D 45 53 22 00 45 0B DC 00 99 |AVE NAMES".E....|
00000330: 22 11 12 20 46 35 20 92 20 20 45 44 49 54 20 4E |".. F5 . EDIT N|
00000340: 41 4D 45 53 22 00 64 0B E1 00 99 22 11 12 20 46 |AMES".d....".. F|
00000350: 37 20 92 20 20 4C 49 53 54 20 41 4C 4C 20 4E 41 |7 . LIST ALL NA|
00000360: 4D 45 53 22 00 77 0B E6 00 A1 41 24 3A 8B 41 24 |MES".w....A$:.A$|
00000370: B2 22 22 A7 32 33 30 00 87 0B EB 00 8B 41 24 B2 |."".230......A$.|
00000380: 22 85 22 A7 33 30 30 00 97 0B EC 00 8B 41 24 B2 |".".300......A$.|
00000390: 22 89 22 A7 35 35 30 00 A7 0B F0 00 8B 41 24 B2 |".".550......A$.|
000003A0: 22 87 22 A7 34 30 30 00 B7 0B F5 00 8B 41 24 B2 |".".400......A$.|
000003B0: 22 88 22 A7 34 36 30 00 C7 0B FA 00 8B 41 24 B2 |".".460......A$.|
000003C0: 22 86 22 A7 35 30 30 00 D0 0B 04 01 89 32 33 30 |".".500......230|
000003D0: 00 FF 0B 2C 01 99 22 93 20 53 45 41 52 43 48 20 |...,..". SEARCH |
000003E0: 4E 41 4D 45 53 20 28 43 29 31 39 38 35 20 42 59 |NAMES (C)1985 BY|
000003F0: 20 4A 4F 48 4E 20 53 49 4E 43 4C 41 49 52 22 00 | JOHN SINCLAIR".|
00000400: 17 0C 36 01 85 22 11 11 53 45 41 52 43 48 20 4E |..6.."..SEARCH N|
00000410: 41 4D 45 22 3B 41 24 00 28 0C 3B 01 8B 41 24 B2 |AME";A$.(.;..A$.|
00000420: 22 2A 22 A7 89 32 30 30 00 41 0C 40 01 81 49 B2 |"*"..200.A.@..I.|
00000430: 30 A4 4C 3A 8B 41 24 B2 4E 24 28 49 29 A7 33 35 |0.L:.A$.N$(I).35|
00000440: 30 00 60 0C 45 01 82 3A 99 22 11 4E 41 4D 45 20 |0.`.E..:.".NAME |
00000450: 4E 4F 54 20 46 4F 55 4E 44 21 22 3A 89 33 31 30 |NOT FOUND!":.310|
00000460: 00 A6 0C 5E 01 99 22 11 11 4E 41 4D 45 3A 22 4E |...^.."..NAME:"N|
00000470: 24 28 49 29 3A 99 22 11 53 54 52 45 45 54 3A 22 |$(I):.".STREET:"|
00000480: 53 24 28 49 29 3A 99 22 11 43 49 54 59 3A 22 43 |S$(I):.".CITY:"C|
00000490: 24 28 49 29 3A 99 22 11 54 45 4C 45 46 4F 4E 3A |$(I):.".TELEFON:|
000004A0: 22 54 24 28 49 29 00 AF 0C 63 01 89 33 31 30 00 |"T$(I)...c..310.|
000004B0: DD 0C 90 01 99 22 93 20 20 45 44 49 54 20 4E 41 |.....". EDIT NA|
000004C0: 4D 45 53 20 28 43 29 31 39 38 35 20 42 59 20 4A |MES (C)1985 BY J|
000004D0: 4F 48 4E 20 53 49 4E 43 4C 41 49 52 22 00 FE 0C |OHN SINCLAIR"...|
000004E0: 9A 01 85 22 11 11 4E 41 4D 45 28 46 49 52 53 54 |..."..NAME(FIRST|
000004F0: 2C 4C 41 53 54 29 3A 22 3B 4E 24 28 4C 29 00 13 |,LAST):";N$(L)..|
00000500: 0D A4 01 85 22 53 54 52 45 45 54 3A 22 3B 53 24 |...."STREET:";S$|
00000510: 28 4C 29 00 26 0D A9 01 85 22 43 49 54 59 3A 22 |(L).&...."CITY:"|
00000520: 3B 43 24 28 4C 29 00 3C 0D AE 01 85 22 54 45 4C |;C$(L).<...."TEL|
00000530: 45 46 4F 4E 3A 22 3B 54 24 28 4C 29 00 46 0D B3 |EFON:";T$(L).F..|
00000540: 01 4C B2 4C AA 31 00 5E 0D B8 01 85 22 11 41 4E |.L.L.1.^....".AN|
00000550: 4F 54 48 45 52 28 59 2F 4E 29 22 3B 41 24 00 6F |OTHER(Y/N)";A$.o|
00000560: 0D BD 01 8B 41 24 B3 B1 22 59 22 A7 32 30 30 00 |....A$.."Y".200.|
00000570: 78 0D C2 01 89 34 31 30 00 A6 0D CC 01 99 22 93 |x....410......".|
00000580: 20 20 4C 49 53 54 20 4E 41 4D 45 53 20 28 43 29 | LIST NAMES (C)|
00000590: 31 39 38 35 20 42 59 20 4A 4F 48 4E 20 53 49 4E |1985 BY JOHN SIN|
000005A0: 43 4C 41 49 52 22 00 B5 0D D1 01 99 3A 99 3A 81 |CLAIR"......:.:.|
000005B0: 49 B2 30 A4 4C 00 F9 0D D6 01 99 22 4E 41 4D 45 |I.0.L......"NAME|
000005C0: 3A 22 4E 24 28 49 29 3A 99 22 11 53 54 52 45 45 |:"N$(I):.".STREE|
000005D0: 54 3A 22 53 24 28 49 29 3A 99 22 11 43 49 54 59 |T:"S$(I):.".CITY|
000005E0: 3A 22 43 24 28 49 29 3A 99 22 11 54 45 4C 45 46 |:"C$(I):.".TELEF|
000005F0: 4F 4E 3A 22 54 24 28 49 29 00 0C 0E DB 01 A1 41 |ON:"T$(I)......A|
00000600: 24 3A 8B 41 24 B2 22 22 A7 34 37 35 00 14 0E E0 |$:.A$."".475....|
00000610: 01 99 3A 82 00 1D 0E E5 01 89 32 30 30 00 4B 0E |..:.......200.K.|
00000620: F4 01 99 22 93 20 20 53 41 56 45 20 4E 41 4D 45 |...". SAVE NAME|
00000630: 53 20 28 43 29 31 39 38 35 20 42 59 20 4A 4F 48 |S (C)1985 BY JOH|
00000640: 4E 20 53 49 4E 43 4C 41 49 52 22 00 53 0E FE 01 |N SINCLAIR".S...|
00000650: 99 3A 99 00 6C 0E 03 02 9F 31 2C 38 2C 31 35 2C |.:..l....1,8,15,|
00000660: 22 53 3A 4E 41 4D 45 53 22 3A A0 31 00 83 0E 08 |"S:NAMES":.1....|
00000670: 02 9F 31 2C 38 2C 31 2C 22 4E 41 4D 45 53 2C 53 |..1,8,1,"NAMES,S|
00000680: 2C 57 22 00 8C 0E 0D 02 98 31 2C 4C 00 A0 0E 12 |,W"......1,L....|
00000690: 02 81 49 B2 30 A4 4C 3A 98 31 2C 4E 24 28 49 29 |..I.0.L:.1,N$(I)|
000006A0: 00 C9 0E 17 02 98 31 2C 53 24 28 49 29 3A 98 31 |......1,S$(I):.1|
000006B0: 2C 43 24 28 49 29 3A 98 31 2C 54 24 28 49 29 3A |,C$(I):.1,T$(I):|
000006C0: 82 3A A0 31 3A 89 32 30 30 00 F8 0E 26 02 99 22 |.:.1:.200...&.."|
000006D0: 93 43 4F 52 52 45 43 54 20 4E 41 4D 45 53 20 28 |.CORRECT NAMES (|
000006E0: 43 29 31 39 38 35 20 42 59 20 4A 4F 48 4E 20 53 |C)1985 BY JOHN S|
000006F0: 49 4E 43 4C 41 49 52 22 00 0A 0F 2B 02 85 22 11 |INCLAIR"...+..".|
00000700: 11 4E 41 4D 45 3A 22 3B 41 24 00 1B 0F 30 02 8B |.NAME:";A$...0..|
00000710: 41 24 B2 22 2A 22 A7 89 32 30 30 00 34 0F 35 02 |A$."*"..200.4.5.|
00000720: 81 49 B2 30 A4 4C 3A 8B 41 24 B2 4E 24 28 49 29 |.I.0.L:.A$.N$(I)|
00000730: A7 35 37 35 00 53 0F 3A 02 82 3A 99 22 11 4E 41 |.575.S.:..:.".NA|
00000740: 4D 45 20 4E 4F 54 20 46 4F 55 4E 44 21 22 3A 89 |ME NOT FOUND!":.|
00000750: 33 31 30 00 99 0F 3F 02 99 22 11 11 4E 41 4D 45 |310...?.."..NAME|
00000760: 3A 22 4E 24 28 49 29 3A 99 22 11 53 54 52 45 45 |:"N$(I):.".STREE|
00000770: 54 3A 22 53 24 28 49 29 3A 99 22 11 43 49 54 59 |T:"S$(I):.".CITY|
00000780: 3A 22 43 24 28 49 29 3A 99 22 11 54 45 4C 45 46 |:"C$(I):.".TELEF|
00000790: 4F 4E 3A 22 54 24 28 49 29 00 D9 0F 44 02 85 22 |ON:"T$(I)...D.."|
000007A0: 11 4E 45 57 20 4E 41 4D 45 3A 22 3B 4E 24 28 49 |.NEW NAME:";N$(I|
000007B0: 29 3A 85 22 4E 45 57 20 53 54 52 45 45 54 3A 22 |):."NEW STREET:"|
000007C0: 3B 53 24 28 49 29 3A 85 22 4E 45 57 20 43 49 54 |;S$(I):."NEW CIT|
000007D0: 59 3A 22 3B 43 24 28 49 29 00 F3 0F 4E 02 85 22 |Y:";C$(I)...N.."|
000007E0: 4E 45 57 20 54 45 4C 45 46 4F 4E 3A 22 3B 54 24 |NEW TELEFON:";T$|
000007F0: 28 49 29 00 FC 0F 53 02 89 35 35 30 00 00 00 |(I)...S..550... |
..@....".":.53280,0:.53281,0:.N$(500):.S
$(500):.C$(500):.T$(500).I....100.{...Y$
."
".....T$."THE TELEFON-BOOK WAS WRITTEN
IN 1985 BY JOHN SINCLAIR.G".....U$."REE
TINGS TO:TCI,SOUNDMASTER,SYNDICATE,SECTI
ON 8,AND MAP ".&.(.Y$.Y$.
T$.U$:.I.1.323.:.-..A$:.A$." ".150.M.2..
"..."H(Y$,40).V.<.Y$.J(Y$,2).H(Y$,1):.J.
0.100:.:.:.150...D..56325,0:..8)".....
. . . . . . .".E.I...10)". . .
. . . . "...N...10)". . . . .
"...S...10)". . . . . . . ".&.X.
..10)". . . . . . . ..".W.}...11)
".TELEFON-BOOK":.I.0.10:.:.:.56325,53:..
N....1,8,0,"NAMES,S,R".W....1,L......I.0
.L.1:.1,N$(I)......1,S$(I):.1,C$(I):.1,T
$(I)......: 1.U.H..". THE TELEFON-UTIL
LITY"...R.."... F1 . SEARCH NAME"...S..
".. F2 . CORRECT NAME".*.W..".. F3 . S
AVE NAMES".E....".. F5 . EDIT NAMES".D.
...".. F7 . LIST ALL NAMES".W....A$:.A$
."".230......A$.".".300......A$.".".550.
.....A$.".".400......A$.".".460.G....A$.
".".500.P....230...,..". SEARCH NAMES (C
)1985 BY JOHN SINCLAIR"...6.."..SEARCH N
AME";A$.(.;..A$."*"..200.A.@..I.0.L:.A$.
N$(I).350.`.E..:.".NAME NOT FOUND!":.310
...^.."..NAME:"N$(I):.".STREET:"S$(I):."
.CITY:"C$(I):.".TELEFON:"T$(I)...C..310.
.....". EDIT NAMES (C)1985 BY JOHN SINC
LAIR"......"..NAME(FIRST,LAST):";N$(L)..
...."STREET:";S$(L).&...."CITY:";C$(L).<
...."TELEFON:";T$(L).F...L.L.1.^....".AN
OTHER(Y/N)";A$.O....A$.."Y".200.X.B..410
...L..". LIST NAMES (C)1985 BY JOHN SIN
CLAIR"...Q..:.:.I.0.L...V.."NAME:"N$(I):
.".STREET:"S$(I):.".CITY:"C$(I):.".TELEF
ON:"T$(I)......A$:.A$."".475......:.....
..200.K....". SAVE NAMES (C)1985 BY JOH
N SINCLAIR".S....:..L....1,8,15,"S:NAMES
": 1......1,8,1,"NAMES,S,W"......1,L. ..
..I.0.L:.1,N$(I).I....1,S$(I):.1,C$(I):.
1,T$(I):.: 1:.200...&..".CORRECT NAMES (
C)1985 BY JOHN SINCLAIR"...+.."..NAME:";
A$...0..A$."*"..200.4.5..I.0.L:.A$.N$(I)
.575.S.:..:.".NAME NOT FOUND!":.310...?.
."..NAME:"N$(I):.".STREET:"S$(I):.".CITY
:"C$(I):.".TELEFON:"T$(I).Y.D..".NEW NAM
E:";N$(I):."NEW STREET:";S$(I):."NEW CIT
Y:";C$(I)...N.."NEW TELEFON:";T$(I)...S.
.550...
> CLICK IMAGE PREVIEW FOR FULL MODAL