> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 64 00 8F 20 43 4F 50 59 52 49 47 48 |....d.. COPYRIGH|
00000010: 54 28 43 29 20 31 39 38 34 00 30 08 6E 00 8F 20 |T(C) 1984.0.n.. |
00000020: 50 41 52 41 4D 49 44 20 53 4F 46 54 57 41 52 45 |PARAMID SOFTWARE|
00000030: 00 4F 08 78 00 8F 20 50 52 4F 47 52 41 4D 45 44 |.O.x.. PROGRAMED|
00000040: 20 42 59 20 44 52 2E 20 50 45 4E 54 4F 44 45 00 | BY DR. PENTODE.|
00000050: 6F 08 82 00 42 31 B2 35 36 35 37 37 3A 42 32 B2 |o...B1.56577:B2.|
00000060: 35 36 35 37 39 3A 5A 24 B2 22 30 30 30 30 22 00 |56579:Z$."0000".|
00000070: 79 08 8C 00 97 42 31 2C 30 00 90 08 96 00 8F 20 |y....B1,0...... |
00000080: 50 4F 4B 45 42 31 2C 30 3A 20 48 41 4E 47 55 50 |POKEB1,0: HANGUP|
00000090: 00 A8 08 A0 00 8F 20 50 4F 4B 45 42 31 2C 33 32 |...... POKEB1,32|
000000A0: 3A 20 50 49 43 4B 55 50 00 CF 08 AA 00 97 35 33 |: PICKUP......53|
000000B0: 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A |280,14:.53281,6:|
000000C0: 99 22 05 22 3A 99 C7 28 31 34 29 C7 28 38 29 00 |.".":..(14).(8).|
000000D0: D9 08 B4 00 8D 20 38 30 30 00 EF 08 BE 00 86 43 |..... 800......C|
000000E0: 41 24 28 31 30 30 30 29 3A 97 42 32 2C 33 32 00 |A$(1000):.B2,32.|
000000F0: 16 09 C8 00 99 22 93 20 20 20 20 20 20 20 20 20 |.....". |
00000100: 20 20 20 12 D0 C5 CE D4 CF C4 C5 20 D3 CF C6 D4 | ........ ....|
00000110: D7 C1 D2 C5 92 22 00 3D 09 D2 00 99 22 13 11 20 |.....".=....".. |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 31 36 35 30 | 1650|
00000130: 20 20 20 D3 43 41 4E 4E 45 52 20 20 22 00 6E 09 | .CANNER ".n.|
00000140: DC 00 99 22 13 11 11 D3 54 41 54 55 53 3A 20 20 |..."....TATUS: |
00000150: 20 20 20 20 20 20 20 C6 4F 55 4E 44 3A 20 20 20 | .OUND: |
00000160: 20 20 20 20 20 C3 41 52 52 49 45 52 3A 22 00 9D | .ARRIER:"..|
00000170: 09 E6 00 99 22 13 11 11 11 D0 52 45 46 49 58 3A |....".....REFIX:|
00000180: 20 20 20 20 20 20 20 20 20 C4 49 41 4C 49 4E 47 | .IALING|
00000190: 3A 20 20 20 20 20 20 D3 54 4F 50 3A 22 00 B1 09 |: .TOP:"...|
000001A0: F0 00 81 49 B2 31 A4 34 30 3A 99 22 2D 22 3B 3A |...I.1.40:."-";:|
000001B0: 82 00 C7 09 FA 00 99 22 13 11 11 1D 1D 1D 1D 1D |......."........|
000001C0: 1D 1D CD C5 CE D5 22 00 EA 09 04 01 99 3A 99 22 |......"......:."|
000001D0: 13 11 11 11 11 11 D7 48 41 54 20 D0 52 45 46 49 |.......HAT .REFI|
000001E0: 58 2C 20 50 4C 45 41 53 45 22 00 F3 09 05 01 85 |X, PLEASE"......|
000001F0: 50 52 24 00 04 0A 0E 01 8B 50 52 24 B2 22 45 4E |PR$......PR$."EN|
00000200: 44 22 A7 80 00 1F 0A 18 01 8B C3 28 50 52 24 29 |D".........(PR$)|
00000210: B3 33 B0 C3 28 50 52 24 29 B1 33 A7 32 36 30 00 |.3..(PR$).3.260.|
00000220: 35 0A 22 01 99 22 13 11 11 11 1D 1D 1D 1D 1D 1D |5.".."..........|
00000230: 1D 22 50 52 24 00 72 0A 2C 01 99 3A 99 22 13 11 |."PR$.r.,..:."..|
00000240: 11 11 11 11 11 11 D3 54 41 52 54 20 57 48 45 52 |.......TART WHER|
00000250: 45 20 49 4E 20 54 48 45 20 D0 52 45 46 49 58 22 |E IN THE .REFIX"|
00000260: 3A 85 22 28 30 30 30 30 2D 39 39 39 39 29 22 3B |:."(0000-9999)";|
00000270: 53 57 00 88 0A 36 01 8B 53 57 B3 30 B0 53 57 B1 |SW...6..SW.0.SW.|
00000280: 39 39 39 39 A7 33 30 30 00 CA 0A 40 01 99 22 13 |9999.300...@..".|
00000290: 11 11 11 11 11 11 11 11 11 11 C6 49 4E 49 53 48 |...........INISH|
000002A0: 20 57 48 45 52 45 20 49 4E 20 54 48 45 20 50 52 | WHERE IN THE PR|
000002B0: 45 46 49 58 22 3A 99 22 28 22 53 57 22 2D 39 39 |EFIX":."("SW"-99|
000002C0: 39 39 29 22 3B 3A 85 20 53 45 00 E6 0A 4A 01 8B |99)";:. SE...J..|
000002D0: 20 53 45 B3 53 57 20 B0 20 53 45 B1 39 39 39 39 | SE.SW . SE.9999|
000002E0: 20 A7 20 33 32 30 00 0E 0B 54 01 99 22 13 11 11 | . 320...T.."...|
000002F0: 11 22 A3 33 35 29 53 45 3A 99 22 13 11 11 1D 1D |.".35)SE:.".....|
00000300: 1D 1D 1D 1D 1D D3 C3 C1 CE CE C9 CE C7 22 00 1C |............."..|
00000310: 0B 5E 01 81 49 B2 53 57 A4 20 53 45 00 3E 0B 68 |.^..I.SW. SE.>.h|
00000320: 01 8B C3 28 C4 28 49 29 29 B2 35 A7 53 55 24 B2 |...(.(I)).5.SU$.|
00000330: C9 28 C4 28 49 29 2C 34 29 3A 89 33 39 30 00 64 |.(.(I),4):.390.d|
00000340: 0B 72 01 4C 45 24 B2 C4 28 49 29 3A 4C 45 B2 C3 |.r.LE$..(I):LE..|
00000350: 28 4C 45 24 29 AB 31 3A 45 24 B2 C9 28 4C 45 24 |(LE$).1:E$..(LE$|
00000360: 2C 4C 45 29 00 7A 0B 7C 01 53 55 24 B2 C8 28 5A |,LE).z.|.SU$..(Z|
00000370: 24 2C 34 AB 4C 45 29 AA 45 24 00 9E 0B 86 01 4E |$,4.LE).E$.....N|
00000380: 55 24 B2 50 52 24 AA 53 55 24 3A 99 22 13 11 11 |U$.PR$.SU$:."...|
00000390: 11 22 A3 32 35 29 53 55 24 3A 8D 35 32 30 00 AB |.".25)SU$:.520..|
000003A0: 0B 90 01 81 4C B2 31 A4 39 30 30 00 C1 0B 9A 01 |....L.1.900.....|
000003B0: 8B C2 28 42 31 29 B3 B1 31 32 37 A7 20 8D 37 33 |..(B1)..127. .73|
000003C0: 30 00 D7 0B A4 01 A1 4B 45 24 3A 8B 4B 45 24 B3 |0......KE$:.KE$.|
000003D0: B1 22 22 A7 34 34 30 00 DF 0B AE 01 82 3A 82 00 |."".440......:..|
000003E0: EA 0B B8 01 97 20 42 31 2C 30 00 25 0C C2 01 99 |..... B1,0.%....|
000003F0: 22 13 11 11 1D 1D 1D 1D 1D 1D 1D 46 49 4E 49 53 |"..........FINIS|
00000400: 48 45 44 22 3A 81 49 B2 31 32 32 34 A4 31 35 34 |HED":.I.1224.154|
00000410: 34 3A 97 49 2C 33 32 3A 97 49 AA 35 34 32 37 32 |4:.I,32:.I.54272|
00000420: 2C 31 34 3A 82 00 4C 0C CC 01 99 22 13 11 11 11 |,14:..L...."....|
00000430: 22 3A 81 49 B2 31 A4 52 A9 32 3A 99 A3 35 29 50 |":.I.1.R.2:..5)P|
00000440: 52 24 22 2D 22 43 41 24 28 49 29 3B 00 66 0C D6 |R$"-"CA$(I);.f..|
00000450: 01 99 A3 31 39 29 50 52 24 22 2D 22 43 41 24 28 |...19)PR$"-"CA$(|
00000460: 49 AA 31 29 3A 82 00 8A 0C E0 01 99 3A 85 22 D3 |I.1):.......:.".|
00000470: 45 45 20 41 47 41 49 4E 22 3B 41 47 24 3A 8B 41 |EE AGAIN";AG$:.A|
00000480: 47 24 B2 22 59 22 A7 34 35 30 00 9B 0C EA 01 8B |G$."Y".450......|
00000490: 41 47 24 B2 22 4E 22 A7 35 31 30 00 A4 0C F4 01 |AG$."N".510.....|
000004A0: 89 34 37 30 00 AA 0C FE 01 8A 00 BE 0C 08 02 8F |.470............|
000004B0: 20 4E 55 4D 42 45 52 20 49 53 20 4E 55 24 00 D5 | NUMBER IS NU$..|
000004C0: 0C 12 02 97 42 31 2C 30 3A 81 20 4F B2 31 A4 31 |....B1,0:. O.1.1|
000004D0: 37 30 30 3A 82 00 F5 0C 1C 02 97 42 31 2C 33 32 |700:.......B1,32|
000004E0: 3A 54 B2 31 37 30 3A 8F 20 50 49 43 4B 55 50 20 |:T.170:. PICKUP |
000004F0: 50 48 4F 4E 45 00 09 0D 26 02 54 B2 54 AB 31 3A |PHONE...&.T.T.1:|
00000500: 8B 54 B3 B1 30 A7 35 35 30 00 17 0D 30 02 4C 44 |.T..0.550...0.LD|
00000510: B2 C3 28 4E 55 24 29 00 31 0D 3A 02 81 58 B2 31 |..(NU$).1.:..X.1|
00000520: A4 4C 44 3A 4E 24 B2 CA 28 4E 55 24 2C 58 2C 31 |.LD:N$..(NU$,X,1|
00000530: 29 00 3D 0D 44 02 4E B2 C5 28 4E 24 29 00 4C 0D |).=.D.N..(N$).L.|
00000540: 4E 02 8B 4E B2 30 A7 20 4E B2 31 30 00 55 0D 58 |N..N.0. N.10.U.X|
00000550: 02 8D 36 32 30 00 5E 0D 62 02 82 58 3A 8E 00 6B |..620.^.b..X:..k|
00000560: 0D 6C 02 81 56 43 B2 31 A4 20 4E 00 75 0D 76 02 |.l..VC.1. N.u.v.|
00000570: 97 42 31 2C 30 00 7D 0D 80 02 54 B2 32 00 91 0D |.B1,0.}...T.2...|
00000580: 8A 02 54 B2 54 AB 31 3A 8B 54 B3 B1 30 A7 36 35 |..T.T.1:.T..0.65|
00000590: 30 00 9C 0D 94 02 97 42 31 2C 33 32 00 A4 0D 9E |0......B1,32....|
000005A0: 02 54 B2 32 00 AE 0D A8 02 54 B2 54 AB 31 00 BC |.T.2.....T.T.1..|
000005B0: 0D B2 02 8B 54 B3 B1 30 A7 36 38 30 00 C9 0D BC |....T..0.680....|
000005C0: 02 82 56 43 3A 54 B2 32 34 00 E0 0D C6 02 54 B2 |..VC:T.24.....T.|
000005D0: 54 AB 31 3A 8B 20 54 B3 B1 30 20 A7 20 37 31 30 |T.1:. T..0 . 710|
000005E0: 00 E6 0D D0 02 8E 00 09 0E DA 02 97 20 31 30 36 |............ 106|
000005F0: 32 AA 38 30 2C 34 32 3A 97 20 35 34 32 37 33 AA |2.80,42:. 54273.|
00000600: 31 30 36 32 AA 38 30 2C 31 00 1A 0E E4 02 81 20 |1062.80,1...... |
00000610: 57 51 B2 31 20 A4 20 39 30 30 00 31 0E EE 02 8B |WQ.1 . 900.1....|
00000620: 20 C2 28 42 31 29 B3 B1 31 32 37 20 A7 20 37 37 | .(B1)..127 . 77|
00000630: 30 00 4B 0E F8 02 97 20 31 30 36 32 AA 38 30 2C |0.K.... 1062.80,|
00000640: 33 32 3A 4C B2 31 30 30 30 3A 8E 00 5D 0E 02 03 |32:L.1000:..]...|
00000650: 82 3A 97 31 30 36 32 AA 38 30 2C 33 32 00 6F 0E |.:.1062.80,32.o.|
00000660: 0C 03 99 22 13 11 11 22 A6 32 32 29 52 AA 31 00 |..."...".22)R.1.|
00000670: 8D 0E 16 03 52 B2 52 AA 31 3A 43 41 24 28 52 29 |....R.R.1:CA$(R)|
00000680: B2 53 55 24 3A 4C B2 31 30 30 30 3A 8E 00 BA 0E |.SU$:L.1000:....|
00000690: 20 03 99 22 93 11 11 20 20 20 D4 48 49 53 20 50 | .."... .HIS P|
000006A0: 52 4F 47 52 41 4D 20 49 53 20 43 4F 50 59 52 49 |ROGRAM IS COPYRI|
000006B0: 47 48 54 45 44 20 41 4E 44 22 00 E7 0E 2A 03 99 |GHTED AND"...*..|
000006C0: 22 93 11 11 20 20 20 D4 48 49 53 20 50 52 4F 47 |"... .HIS PROG|
000006D0: 52 41 4D 20 49 53 20 43 4F 50 59 52 49 47 48 54 |RAM IS COPYRIGHT|
000006E0: 45 44 20 41 4E 44 22 00 11 0F 34 03 99 22 20 49 |ED AND"...4.." I|
000006F0: 53 20 52 45 4C 45 41 53 45 44 20 42 59 9A 20 D0 |S RELEASED BY. .|
00000700: C5 CE D4 CF C4 C5 A0 A0 D3 CF C6 D7 C1 D2 C5 05 |................|
00000710: 22 00 2C 0F 3E 03 99 22 20 46 4F 52 20 50 55 42 |".,.>.." FOR PUB|
00000720: 4C 49 43 20 44 4F 4D 41 49 4E 2E 22 00 47 0F 48 |LIC DOMAIN.".G.H|
00000730: 03 99 22 20 20 20 20 20 20 12 9E 20 D7 C1 D2 CE |.." .. ....|
00000740: C9 CE C7 20 05 92 22 00 70 0F 52 03 99 22 20 D4 |... ..".p.R.." .|
00000750: C8 C5 A0 D5 D3 C5 A0 CF C6 A0 D4 C8 C9 D3 A0 D0 |................|
00000760: D2 CF C7 D2 C1 CD A0 D6 C9 CF CC C1 D4 C5 D3 22 |..............."|
00000770: 00 9B 0F 5C 03 99 22 20 D5 CE C9 D4 C5 C4 A0 D3 |...\.." ........|
00000780: D4 C1 D4 C5 D3 A0 C6 C5 C4 C5 D2 C1 CC A0 C1 CE |................|
00000790: C4 A0 C3 C1 CE C1 C4 C1 C9 CE 22 00 C5 0F 66 03 |.........."...f.|
000007A0: 99 22 20 D0 D2 CF D6 C9 CE C3 C9 C1 CC A0 D4 C5 |." .............|
000007B0: CC C5 C3 CF CD D5 CE C3 C1 D4 C9 CF CE D3 20 CC |.............. .|
000007C0: C1 D7 D3 2E 22 00 F0 0F 70 03 99 22 20 D5 D3 C5 |...."...p.." ...|
000007D0: A0 CF C6 A0 D4 C8 C9 D3 A0 D0 D2 CF C7 D2 C1 CD |................|
000007E0: A0 C9 D3 20 C3 CF CE D3 C9 C4 C5 D2 C4 20 C1 22 |... ......... ."|
000007F0: 00 18 10 7A 03 99 22 20 D0 D5 C2 CC C9 C3 A0 C4 |...z.." ........|
00000800: C9 D3 D4 D5 D2 C2 C1 CE C3 C5 2C D9 CF D5 A0 C3 |..........,.....|
00000810: C1 CE A0 C8 C1 D6 C5 22 00 41 10 84 03 99 22 A0 |.......".A....".|
00000820: D9 CF D5 27 D2 C5 A0 D0 C8 CF CE C5 A0 D3 C5 D2 |...'............|
00000830: D6 C9 C3 C5 A0 C3 D5 D4 A0 CF C6 C6 2C C1 CE C4 |............,...|
00000840: 22 00 65 10 8E 03 99 22 A0 D9 CF D5 A0 C3 C1 CE |".e...."........|
00000850: A0 C2 C5 A0 C6 C9 CE C5 C4 A0 CF D2 A0 CA C1 C9 |................|
00000860: CC C5 C4 2E 22 00 8D 10 98 03 99 3A 99 22 20 20 |...."......:." |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C8 | .|
00000880: C1 D0 D0 D9 A0 C8 C1 C3 CB C9 CE C7 22 00 B0 10 |............"...|
00000890: A2 03 99 22 12 50 52 45 53 53 20 41 4E 59 20 4B |...".PRESS ANY K|
000008A0: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |EY TO CONTINUE."|
000008B0: 00 C7 10 AC 03 A1 20 41 24 3A 8B 20 41 24 B2 22 |...... A$:. A$."|
000008C0: 22 20 A7 20 39 34 30 00 CD 10 B6 03 8E 00 A0 00 |" . 940.........|
....D.. COPYRIGHT(C) 1984.0.N.. PARAMID
SOFTWARE.O.X.. PROGRAMED BY DR. PENTODE.
O...B1.56577:B2.56579:Z$."0000".Y....B1,
0...... POKEB1,0: HANGUP... .. POKEB1,32
: PICKUP.O....53280,14:.53281,6:.".":.G(
14)G(8).Y.... 800......CA$(1000):.B2,32.
..H..". .PENTODE SOFTWARE.".=
.R..".. 1650 SCANNER ".N.
..."...STATUS: FOUND: CAR
RIER:"......"....PREFIX: DIALING
: STOP:"......I.1.40:."-";:..G...."
..........MENU"......:."......WHAT PREFI
X, PLEASE"......PR$......PR$."END"......
..C(PR$).3.C(PR$).3.260.5.".."..........
."PR$.R.,..:."........START WHERE IN THE
PREFIX":."(0000-9999)";SW...6..SW.0.SW.
9999.300.J.@.."...........FINISH WHERE I
N THE PREFIX":."("SW"-9999)";:. SE...J..
SE.SW . SE.9999 . 320...T.."....".35)SE
:."..........SCANNING"...^..I.SW. SE.>.H
..C(D(I)).5.SU$.I(D(I),4):.390.D.R.LE$.D
(I):LE.C(LE$).1:E$.I(LE$,LE).Z.|.SU$.H(Z
$,4.LE).E$.....NU$.PR$.SU$:."....".25)SU
$:.520......L.1.900.A....B(B1)..127. .73
0.W....KE$:.KE$.."".440......:....... B1
,0.%.B.."..........FINISHED":.I.1224.154
4:.I,32:.I.54272,14:..L.L.."....":.I.1.R
.2:..5)PR$"-"CA$(I);.F.V...19)PR$"-"CA$(
I.1):.......:."SEE AGAIN";AG$:.AG$."Y".4
50......AG$."N".510......470............
NUMBER IS NU$.U....B1,0:. O.1.1700:....
...B1,32:T.170:. PICKUP PHONE...&.T.T.1:
.T..0.550...0.LD.C(NU$).1.:..X.1.LD:N$.J
(NU$,X,1).=.D.N.E(N$).L.N..N.0. N.10.U.X
..620.^.B..X:..K.L..VC.1. N.U.V..B1,0.}.
..T.2.....T.T.1:.T..0.650......B1,32....
.T.2.....T.T.1......T..0.680.I....VC:T.2
4...F.T.T.1:. T..0 . 710...P.....Z.. 106
2.80,42:. 54273.1062.80,1...... WQ.1 . 9
00.1.... B(B1)..127 . 770.K.... 1062.80,
32:L.1000:..]....:.1062.80,32.O...."..."
.22)R.1.....R.R.1:CA$(R).SU$:L.1000:....
.."... THIS PROGRAM IS COPYRIGHTED AN
D"...*.."... THIS PROGRAM IS COPYRIGHT
ED AND"...4.." IS RELEASED BY. PENTODE
SOFWARE.".,.>.." FOR PUBLIC DOMAIN.".G.H
.." .. WARNING ..".P.R.." THE USE O
F THIS PROGRAM VIOLATES"...\.." UNITED S
TATES FEDERAL AND CANADAIN".E.F.." PROVI
NCIAL TELECOMUNCATIONS LAWS."...P.." USE
OF THIS PROGRAM IS CONSIDERD A"...Z.."
PUBLIC DISTURBANCE,YOU CAN HAVE".A...."
YOU'RE PHONE SERVICE CUT OFF,AND".E...."
YOU CAN BE FINED OR JAILED."......:."
HAPPY HACKING"......".PRE
SS ANY KEY TO CONTINUE.".G.... A$:. A$."
" . 940.M..... .
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL