DIRTY DILER
FILE INFORMATION
FILENAME(S): DIRTY DILER
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-10-19 22:35:51
APPEARS ON: 1 disk(s)
FILE HASH
34288667ac83517c163c4d7fa8bbeaae99f34b57ad670389658c90bcfe696857
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RADD MAXX IS 1 | DIRTY DILER | PRG | Radd Maxx | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 42 31 B2 35 36 35 37 37 3A 42 |..!...B1.56577:B|
00000010: 32 B2 35 36 35 37 39 3A 5A 24 B2 22 30 30 30 30 |2.56579:Z$."0000|
00000020: 22 00 2B 08 0C 00 97 42 31 2C 30 00 42 08 0F 00 |".+....B1,0.B...|
00000030: 8F 20 50 4F 4B 45 42 31 2C 30 3A 20 48 41 4E 47 |. POKEB1,0: HANG|
00000040: 55 50 00 5A 08 14 00 8F 20 50 4F 4B 45 42 31 2C |UP.Z.... POKEB1,|
00000050: 33 32 3A 20 50 49 43 4B 55 50 00 81 08 19 00 97 |32: PICKUP......|
00000060: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00000070: 36 3A 99 22 05 22 3A 99 C7 28 31 34 29 C7 28 38 |6:.".":..(14).(8|
00000080: 29 00 97 08 1B 00 86 43 41 24 28 31 30 30 30 29 |)......CA$(1000)|
00000090: 3A 97 42 32 2C 33 32 00 BC 08 1E 00 99 22 93 20 |:.B2,32......". |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 C4 C9 D2 D4 | ....|
000000B0: D9 20 C4 C9 C1 CC 20 5D 5B 11 11 22 00 DA 08 1F |. .... ][.."....|
000000C0: 00 99 22 20 D0 52 4F 47 52 41 4D 20 20 42 59 20 |.." .ROGRAM BY |
000000D0: 20 CA 4F 45 20 D2 4F 53 45 22 00 FC 08 20 00 99 | .OE .OSE"... ..|
000000E0: 22 20 CD 4F 44 49 46 49 45 44 20 42 59 20 20 D2 |" .ODIFIED BY .|
000000F0: 4F 42 45 52 54 20 CB 55 52 54 5A 22 00 02 09 23 |OBERT .URTZ"...#|
00000100: 00 99 00 16 09 28 00 81 49 B2 31 A4 34 30 3A 99 |.....(..I.1.40:.|
00000110: 22 2D 22 3B 3A 82 00 38 09 29 00 99 22 11 11 11 |"-";:..8.).."...|
00000120: 3C 2B 20 CF 52 20 27 45 4E 44 27 20 54 4F 20 51 |<+ .R 'END' TO Q|
00000130: 55 49 54 2E 20 2B 3E 22 00 4D 09 2A 00 99 22 31 |UIT. +>".M.*.."1|
00000140: 2D 38 30 30 20 28 D9 2F CE 29 3A 22 3B 00 63 09 |-800 (./.):";.c.|
00000150: 2B 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |+.. A$:. A$."" .|
00000160: 20 34 33 00 89 09 2C 00 8B 20 41 24 B2 22 59 22 | 43...,.. A$."Y"|
00000170: 20 B0 20 41 24 B2 22 D9 22 20 A7 20 50 52 24 28 | . A$."." . PR$(|
00000180: 31 29 B2 22 31 38 30 30 22 00 AD 09 2D 00 99 3A |1)."1800"...-..:|
00000190: 85 22 91 91 91 D7 48 41 54 20 D0 52 45 46 49 58 |."....HAT .REFIX|
000001A0: 2C 20 50 4C 45 41 53 45 22 3B 50 52 24 00 BE 09 |, PLEASE";PR$...|
000001B0: 2E 00 8B 50 52 24 B2 22 45 4E 44 22 A7 80 00 D8 |...PR$."END"....|
000001C0: 09 32 00 8B C3 28 50 52 24 29 B3 33 B0 C3 28 50 |.2...(PR$).3..(P|
000001D0: 52 24 29 B1 33 A7 34 35 00 F9 09 34 00 8B 20 50 |R$).3.45...4.. P|
000001E0: 52 24 28 31 29 B3 B1 22 22 A7 20 50 52 24 B2 50 |R$(1).."". PR$.P|
000001F0: 52 24 28 31 29 AA 50 52 24 00 2F 0A 37 00 99 3A |R$(1).PR$./.7..:|
00000200: 99 22 11 D3 54 41 52 54 20 57 48 45 52 45 20 49 |."..TART WHERE I|
00000210: 4E 20 54 48 45 20 D0 52 45 46 49 58 22 3A 85 22 |N THE .REFIX":."|
00000220: 28 30 30 30 30 2D 39 39 39 39 29 22 3B 53 57 00 |(0000-9999)";SW.|
00000230: 44 0A 3C 00 8B 53 57 B3 30 B0 53 57 B1 39 39 39 |D.<..SW.0.SW.999|
00000240: 39 A7 35 35 00 7A 0A 40 00 99 3A 99 22 C5 CE C4 |9.55.z.@..:."...|
00000250: 20 57 48 45 52 45 20 49 4E 20 54 48 45 20 50 52 | WHERE IN THE PR|
00000260: 45 46 49 58 22 3A 99 22 28 22 53 57 22 2D 39 39 |EFIX":."("SW"-99|
00000270: 39 39 29 22 3B 3A 85 20 53 45 00 95 0A 42 00 8B |99)";:. SE...B..|
00000280: 20 53 45 B3 53 57 20 B0 20 53 45 B1 39 39 39 39 | SE.SW . SE.9999|
00000290: 20 A7 20 36 34 00 A5 0A 46 00 99 3A 81 49 B2 53 | . 64...F..:.I.S|
000002A0: 57 A4 20 53 45 00 C7 0A 5A 00 8B C3 28 C4 28 49 |W. SE...Z...(.(I|
000002B0: 29 29 B2 35 A7 53 55 24 B2 C9 28 C4 28 49 29 2C |)).5.SU$..(.(I),|
000002C0: 34 29 3A 89 31 31 30 00 ED 0A 5F 00 4C 45 24 B2 |4):.110..._.LE$.|
000002D0: C4 28 49 29 3A 4C 45 B2 C3 28 4C 45 24 29 AB 31 |.(I):LE..(LE$).1|
000002E0: 3A 45 24 B2 C9 28 4C 45 24 2C 4C 45 29 00 03 0B |:E$..(LE$,LE)...|
000002F0: 64 00 53 55 24 B2 C8 28 5A 24 2C 34 AB 4C 45 29 |d.SU$..(Z$,4.LE)|
00000300: AA 45 24 00 1B 0B 6E 00 4E 55 24 B2 50 52 24 AA |.E$...n.NU$.PR$.|
00000310: 53 55 24 3A 99 3A 8D 31 30 30 30 00 28 0B 78 00 |SU$:.:.1000.(.x.|
00000320: 81 4C B2 31 A4 36 38 30 00 4B 0B 82 00 8B C2 28 |.L.1.680.K.....(|
00000330: 42 31 29 B3 B1 31 32 37 A7 20 4C B2 31 30 30 30 |B1)..127. L.1000|
00000340: 3A 82 20 4C 3A 89 20 32 30 30 30 00 55 0B 85 00 |:. L:. 2000.U...|
00000350: 89 20 31 33 38 00 76 0B 87 00 52 B2 52 AA 31 3A |. 138.v...R.R.1:|
00000360: 43 41 24 28 52 29 B2 53 55 24 3A 99 22 20 53 49 |CA$(R).SU$:." SI|
00000370: 47 4E 41 4C 22 3B 00 8C 0B 8A 00 A1 4B 45 24 3A |GNAL";......KE$:|
00000380: 8B 4B 45 24 B3 B1 22 22 A7 35 30 30 00 92 0B 8C |.KE$.."".500....|
00000390: 00 82 00 A4 0B 90 01 99 22 20 4E 4F 54 48 49 4E |........" NOTHIN|
000003A0: 47 22 3A 82 00 CA 0B F4 01 97 20 42 31 2C 30 3A |G":....... B1,0:|
000003B0: 99 3A 99 3A 81 49 B2 31 A4 52 3A 99 50 52 24 22 |.:.:.I.1.R:.PR$"|
000003C0: 2D 22 43 41 24 28 49 29 3A 82 00 EE 0B FE 01 99 |-"CA$(I):.......|
000003D0: 3A 85 22 D3 45 45 20 41 47 41 49 4E 22 3B 41 47 |:.".EE AGAIN";AG|
000003E0: 24 3A 8B 41 47 24 B2 22 59 22 A7 35 30 30 00 FF |$:.AG$."Y".500..|
000003F0: 0B 03 02 8B 41 47 24 B2 22 4E 22 A7 35 32 30 00 |....AG$."N".520.|
00000400: 08 0C 04 02 89 35 31 30 00 0E 0C 08 02 8A 00 22 |.....510......."|
00000410: 0C E8 03 8F 20 4E 55 4D 42 45 52 20 49 53 20 4E |.... NUMBER IS N|
00000420: 55 24 00 39 0C ED 03 97 42 31 2C 30 3A 81 20 4F |U$.9....B1,0:. O|
00000430: B2 31 A4 31 37 30 30 3A 82 00 59 0C F2 03 97 42 |.1.1700:..Y....B|
00000440: 31 2C 33 32 3A 54 B2 31 37 30 3A 8F 20 50 49 43 |1,32:T.170:. PIC|
00000450: 4B 55 50 20 50 48 4F 4E 45 00 6E 0C FC 03 54 B2 |KUP PHONE.n...T.|
00000460: 54 AB 31 3A 8B 54 B3 B1 30 A7 31 30 32 30 00 7C |T.1:.T..0.1020.||
00000470: 0C 06 04 4C 44 B2 C3 28 4E 55 24 29 00 96 0C 10 |...LD..(NU$)....|
00000480: 04 81 58 B2 31 A4 4C 44 3A 4E 24 B2 CA 28 4E 55 |..X.1.LD:N$..(NU|
00000490: 24 2C 58 2C 31 29 00 9F 0C 1A 04 99 4E 24 3B 00 |$,X,1)......N$;.|
000004A0: AB 0C 24 04 4E B2 C5 28 4E 24 29 00 BA 0C 2E 04 |..$.N..(N$).....|
000004B0: 8B 4E B2 30 A7 20 4E B2 31 30 00 C4 0C 33 04 8D |.N.0. N.10...3..|
000004C0: 31 30 39 30 00 CD 0C 38 04 82 58 3A 8E 00 DA 0C |1090...8..X:....|
000004D0: 42 04 81 56 43 B2 31 A4 20 4E 00 E4 0C 4C 04 97 |B..VC.1. N...L..|
000004E0: 42 31 2C 30 00 EC 0C 56 04 54 B2 32 00 01 0D 60 |B1,0...V.T.2...`|
000004F0: 04 54 B2 54 AB 31 3A 8B 54 B3 B1 30 A7 31 31 32 |.T.T.1:.T..0.112|
00000500: 30 00 0C 0D 6A 04 97 42 31 2C 33 32 00 14 0D 74 |0...j..B1,32...t|
00000510: 04 54 B2 32 00 1E 0D 79 04 54 B2 54 AB 31 00 2D |.T.2...y.T.T.1.-|
00000520: 0D 7E 04 8B 54 B3 B1 30 A7 31 31 34 35 00 3A 0D |.~..T..0.1145.:.|
00000530: 83 04 82 56 43 3A 54 B2 32 34 00 52 0D 84 04 54 |...VC:T.24.R...T|
00000540: B2 54 AB 31 3A 8B 20 54 B3 B1 30 20 A7 20 31 31 |.T.1:. T..0 . 11|
00000550: 35 36 00 58 0D 88 04 8E 00 68 0D D0 07 81 20 56 |56.X.....h.... V|
00000560: B2 31 20 A4 20 36 30 30 00 80 0D DA 07 8B 20 C2 |.1 . 600...... .|
00000570: 28 42 31 29 B3 B1 31 32 37 20 A7 20 32 30 33 30 |(B1)..127 . 2030|
00000580: 00 9E 0D E4 07 56 B2 31 30 30 30 3A 82 3A 99 22 |.....V.1000:.:."|
00000590: 20 46 41 4C 53 45 22 3B 3A 89 20 34 30 30 00 AA | FALSE";:. 400..|
000005A0: 0D EE 07 82 3A 89 20 31 33 35 00 B0 0D 88 13 8F |....:. 135......|
000005B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005F0: 00 00 00 00 |.... |
..!...B1.56577:B2.56579:Z$."0000".+....B
1,0.B.... POKEB1,0: HANGUP.Z.... POKEB1,
32: PICKUP......53280,14:.53281,6:.".":.
G(14)G(8)......CA$(1000):.B2,32......".
DIRTY DIAL ][..".Z...." PROG
RAM BY JOE ROSE"... .." MODIFIED BY R
OBERT KURTZ"...#.....(..I.1.40:."-";:..8
.).."...<+ OR 'END' TO QUIT. +>".M.*.."1
-800 (Y/N):";.C.+.. A$:. A$."" . 43...,.
. A$."Y" . A$."Y" . PR$(1)."1800"...-..:
."...WHAT PREFIX, PLEASE";PR$......PR$."
END"...X.2..C(PR$).3.C(PR$).3.45...4.. P
R$(1).."". PR$.PR$(1).PR$./.7..:.".START
WHERE IN THE PREFIX":."(0000-9999)";SW.
D.<..SW.0.SW.9999.55.Z.@..:."END WHERE I
N THE PREFIX":."("SW"-9999)";:. SE...B..
SE.SW . SE.9999 . 64...F..:.I.SW. SE.G.
Z..C(D(I)).5.SU$.I(D(I),4):.110..._.LE$.
D(I):LE.C(LE$).1:E$.I(LE$,LE)...D.SU$.H(
Z$,4.LE).E$...N.NU$.PR$.SU$:.:.1000.(.X.
.L.1.680.K....B(B1)..127. L.1000:. L:. 2
000.U.... 138.V...R.R.1:CA$(R).SU$:." SI
GNAL";......KE$:.KE$.."".500............
" NOTHING":..J.... B1,0:.:.:.I.1.R:.PR$"
-"CA$(I):.......:."SEE AGAIN";AG$:.AG$."
Y".500......AG$."N".520......510......."
.... NUMBER IS NU$.9....B1,0:. O.1.1700:
..Y....B1,32:T.170:. PICKUP PHONE.N...T.
T.1:.T..0.1020.|...LD.C(NU$)......X.1.LD
:N$.J(NU$,X,1)......N$;...$.N.E(N$).....
.N.0. N.10.D.3..1090.M.8..X:..Z.B..VC.1.
N...L..B1,0...V.T.2...`.T.T.1:.T..0.112
0...J..B1,32...T.T.2...Y.T.T.1.-.~..T..0
.1145.:....VC:T.24.R...T.T.1:. T..0 . 11
56.X.....H.P.. V.1 . 600...Z.. B(B1)..12
7 . 2030.....V.1000:.:." FALSE";:. 400..
....:. 135..............................
........................................
....
> CLICK IMAGE PREVIEW FOR FULL MODAL