CODE HACKER V1.0

00000000: 01 08 3B 08 64 00 97 35  33 32 38 30 2C 2E 3A 97  |..;.d..53280,.:.|
00000010: 35 33 32 38 31 2C 2E 3A  99 C7 28 31 34 29 C7 28  |53281,.:..(14).(|
00000020: 38 29 22 93 05 22 A3 31  33 29 22 C3 4F 44 45 20  |8)"..".13)".ODE |
00000030: C8 41 43 4B 45 52 20 56  31 2E 30 00 57 08 69 00  |.ACKER V1.0.W.i.|
00000040: 99 A3 31 33 29 22 1C A3  A3 A3 A3 20 A3 A3 A3 A3  |..13)"..... ....|
00000050: A3 A3 20 A3 A3 A3 A3 00  89 08 78 00 99 22 11 1E  |.. .......x.."..|
00000060: 20 20 20 20 28 43 29 20  31 39 38 35 20 1F 3E 3E  |    (C) 1985 .>>|
00000070: 3E 1E 21 21 05 CA 45 54  48 53 4F 46 54 20 C9 4E  |>.!!..ETHSOFT .N|
00000080: 43 2E 1E 21 21 1F 3C 3C  3C 00 AF 08 82 00 99 22  |C..!!.<<<......"|
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000A0: 20 20 1C A3 A3 A3 A3 A3  A3 A3 A3 20 A3 A3 A3 00  |  ......... ....|
000000B0: E3 08 83 00 99 3A 99 3A  99 22 1C 2A 2A 2A 2A 2A  |.....:.:.".*****|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000E0: 2A 2A 22 00 11 09 84 00  99 3A 99 3A 99 22 05 20  |**"......:.:.". |
000000F0: 20 20 20 20 20 D5 50 2D  47 52 41 44 45 44 20 46  |     .P-GRADED F|
00000100: 4F 52 20 54 48 45 20 31  36 36 30 20 42 59 20 3A  |OR THE 1660 BY :|
00000110: 22 00 3A 09 86 00 99 3A  99 22 05 20 20 20 20 20  |".:....:.".     |
00000120: 20 20 20 3C 3E 3C 3E 3C  3E 20 C3 4F 4D 50 53 54  |   <><><> .OMPST|
00000130: 41 52 20 3C 3E 3C 3E 3C  3E 22 00 6E 09 88 00 99  |AR <><><>".n....|
00000140: 3A 99 3A 99 22 1C 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |:.:.".**********|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 22 00 8C  |*************"..|
00000170: 09 8C 00 85 22 11 11 11  11 9F C1 43 43 45 53 53  |...."......CCESS|
00000180: 20 4E 55 4D 42 45 52 22  3B 41 4E 24 00 BF 09 92  | NUMBER";AN$....|
00000190: 00 85 22 C8 4F 57 20 4C  4F 4E 47 20 28 49 4E 20  |..".OW LONG (IN |
000001A0: 53 45 43 4F 4E 44 53 29  20 55 4E 54 49 4C 20 50  |SECONDS) UNTIL P|
000001B0: 49 43 4B 55 50 20 20 32  9D 9D 9D 22 3B 54 4D 00  |ICKUP  2...";TM.|
000001C0: E7 09 93 00 85 22 C8 4F  57 20 4D 41 4E 59 20 44  |.....".OW MANY D|
000001D0: 49 47 49 54 53 20 41 52  45 20 54 48 45 20 43 4F  |IGITS ARE THE CO|
000001E0: 44 45 53 22 3B 44 47 00  FB 09 96 00 99 22 11 11  |DES";DG......"..|
000001F0: D3 45 4C 45 43 54 20 4F  4E 45 3A 00 1B 0A A0 00  |.ELECT ONE:.....|
00000200: 99 22 11 20 3E 31 3C 20  C8 41 43 4B 20 43 4F 44  |.". >1< .ACK COD|
00000210: 45 53 20 52 41 4E 44 4F  4D 4C 59 00 3E 0A AA 00  |ES RANDOMLY.>...|
00000220: 99 22 20 3E 32 3C 20 C8  41 43 4B 20 43 4F 44 45  |." >2< .ACK CODE|
00000230: 53 20 53 45 51 55 45 4E  54 49 41 4C 4C 59 00 5C  |S SEQUENTIALLY.\|
00000240: 0A B4 00 A1 43 53 24 3A  8B 43 53 24 B3 22 31 22  |....CS$:.CS$."1"|
00000250: B0 43 53 24 B1 22 32 22  A7 31 38 30 00 73 0A BE  |.CS$."2".180.s..|
00000260: 00 99 22 11 11 05 C7 4F  4F 44 20 43 48 4F 49 43  |.."....OOD CHOIC|
00000270: 45 21 21 00 9E 0A C8 00  99 22 11 11 11 20 20 20  |E!!......"...   |
00000280: 20 20 20 20 20 20 C8 49  54 20 41 4E 59 20 4B 45  |      .IT ANY KE|
00000290: 59 20 54 4F 20 43 4F 4E  54 49 4E 55 45 13 00 B1  |Y TO CONTINUE...|
000002A0: 0A D2 00 A1 41 24 3A 8B  41 24 B2 22 22 A7 32 31  |....A$:.A$."".21|
000002B0: 30 00 C6 0A DC 00 81 41  B2 31 A4 32 35 3A 9E 35  |0......A.1.25:.5|
000002C0: 39 36 32 36 3A 82 00 D1  0A E1 00 8D 36 30 30 30  |9626:.......6000|
000002D0: 30 00 E3 0A E6 00 8B 43  53 24 B2 22 31 22 A7 31  |0......CS$."1".1|
000002E0: 30 30 30 00 0A 0B F0 00  85 22 93 D7 48 45 52 45  |000......"..HERE|
000002F0: 20 44 4F 20 59 4F 55 20  57 41 4E 54 20 54 4F 20  | DO YOU WANT TO |
00000300: 53 54 41 52 54 22 3B 53  54 24 00 2F 0B FA 00 85  |START";ST$./....|
00000310: 22 11 D7 48 45 52 45 20  44 4F 20 59 4F 55 20 57  |"..HERE DO YOU W|
00000320: 41 4E 54 20 54 4F 20 45  4E 44 22 3B 45 44 24 00  |ANT TO END";ED$.|
00000330: 41 0B 04 01 8B 45 44 24  B3 B2 53 54 24 A7 32 34  |A....ED$..ST$.24|
00000340: 30 00 55 0B 09 01 53 54  24 B2 C4 28 C5 28 53 54  |0.U...ST$..(.(ST|
00000350: 24 29 AB 31 29 00 81 0B  0E 01 99 22 11 20 20 20  |$).1)......".   |
00000360: 20 C8 49 54 20 D2 C5 D4  D5 D2 CE 20 54 4F 20 43  | .IT ...... TO C|
00000370: 4F 4D 4D 45 4E 43 45 20  44 49 41 49 4C 49 4E 47  |OMMENCE DIAILING|
00000380: 2E 00 98 0B 18 01 A1 41  24 3A 8B 41 24 B3 B1 C7  |.......A$:.A$...|
00000390: 28 31 33 29 A7 32 38 30  00 C9 0B 22 01 99 22 C4  |(13).280..."..".|
000003A0: 49 41 4C 49 4E 47 20 41  43 43 45 53 53 20 4E 55  |IALING ACCESS NU|
000003B0: 4D 42 45 52 3A 20 22 41  4E 24 3A 4E 42 24 B2 41  |MBER: "AN$:NB$.A|
000003C0: 4E 24 3A 8D 35 30 30 30  30 00 DA 0B 27 01 54 49  |N$:.50000...'.TI|
000003D0: 24 B2 22 30 30 30 30 30  30 22 00 ED 0B 28 01 8B  |$."000000"...(..|
000003E0: C5 28 54 49 24 29 B3 54  4D A7 32 39 36 00 01 0C  |.(TI$).TM.296...|
000003F0: 2C 01 53 54 24 B2 C4 28  C5 28 53 54 24 29 AA 31  |,.ST$..(.(ST$).1|
00000400: 29 00 2F 0C 36 01 99 22  C4 49 41 4C 49 4E 47 20  |)./.6..".IALING |
00000410: 41 43 43 45 53 53 20 43  4F 44 45 3A 22 53 54 24  |ACCESS CODE:"ST$|
00000420: 3A 4E 42 24 B2 53 54 24  3A 8D 35 30 30 30 30 00  |:NB$.ST$:.50000.|
00000430: 71 0C 40 01 99 22 C4 49  41 4C 49 4E 47 20 54 45  |q.@..".IALING TE|
00000440: 53 54 20 4E 55 4D 42 45  52 3A 20 28 34 31 32 29  |ST NUMBER: (412)|
00000450: 34 32 39 2D 37 36 32 39  22 3A 4E 42 24 B2 22 34  |429-7629":NB$."4|
00000460: 31 32 34 32 39 37 36 32  39 22 3A 8D 35 30 30 30  |124297629":.5000|
00000470: 30 00 B5 0C 45 01 8B C5  28 53 54 24 29 B2 C5 28  |0...E...(ST$)..(|
00000480: 45 44 24 29 A7 99 22 93  C4 49 41 4C 49 4E 47 20  |ED$).."..IALING |
00000490: 43 4F 4D 50 4C 45 54 45  2E 22 3A 99 22 11 CC 41  |COMPLETE.":."..A|
000004A0: 53 54 20 43 4F 44 45 20  44 49 41 4C 45 44 3A 22  |ST CODE DIALED:"|
000004B0: 53 54 24 3A 80 00 FB 0C  4A 01 99 22 11 11 C8 41  |ST$:....J.."...A|
000004C0: 4E 47 20 55 50 20 50 48  4F 4E 45 20 41 4E 44 20  |NG UP PHONE AND |
000004D0: 48 49 54 20 D2 C5 D4 D5  D2 CE 20 54 4F 20 43 4F  |HIT ...... TO CO|
000004E0: 4E 54 49 4E 55 45 44 49  41 4C 49 4E 47 20 4F 52  |NTINUEDIALING OR|
000004F0: 20 5F 20 54 4F 20 51 55  49 54 2E 00 0E 0D 54 01  | _ TO QUIT....T.|
00000500: A1 41 24 3A 8B 41 24 B2  22 22 A7 33 34 30 00 2D  |.A$:.A$."".340.-|
00000510: 0D 5E 01 8B 41 24 B2 C7  28 31 33 29 A7 99 22 93  |.^..A$..(13)..".|
00000520: 22 3B 3A 8D 36 30 30 30  3A 89 32 39 30 00 3D 0D  |";:.6000:.290.=.|
00000530: 63 01 8B 41 24 B2 22 5F  22 A7 33 36 30 00 55 0D  |c..A$."_".360.U.|
00000540: 65 01 8B 41 24 B2 22 50  22 A7 8D 36 30 30 30 3A  |e..A$."P"..6000:|
00000550: 8D 35 30 30 30 00 5E 0D  66 01 89 33 34 30 00 6B  |.5000.^.f..340.k|
00000560: 0D 68 01 97 35 36 35 37  39 2C 30 00 78 0D 6D 01  |.h..56579,0.x.m.|
00000570: 99 22 93 C4 4F 4E 45 2E  00 9A 0D 72 01 99 22 11  |."..ONE....r..".|
00000580: CC 41 53 54 20 43 4F 44  45 20 44 49 41 4C 45 44  |.AST CODE DIALED|
00000590: 20 57 41 53 22 53 54 24  22 2E 00 A0 0D 7C 01 80  | WAS"ST$"....|..|
000005A0: 00 CB 0D E8 03 99 22 93  20 20 20 20 C8 49 54 20  |......".    .IT |
000005B0: D2 C5 D4 D5 D2 CE 20 54  4F 20 43 4F 4D 4D 45 4E  |...... TO COMMEN|
000005C0: 43 45 20 44 49 41 4C 49  4E 47 2E 00 E3 0D F2 03  |CE DIALING......|
000005D0: A1 41 24 3A 8B 41 24 B3  B1 C7 28 31 33 29 A7 31  |.A$:.A$...(13).1|
000005E0: 30 31 30 00 14 0E F3 03  99 22 C4 49 41 4C 49 4E  |010......".IALIN|
000005F0: 47 20 41 43 43 45 53 53  20 4E 55 4D 42 45 52 3A  |G ACCESS NUMBER:|
00000600: 20 22 41 4E 24 3A 4E 42  24 B2 41 4E 24 3A 8D 35  | "AN$:NB$.AN$:.5|
00000610: 30 30 30 30 00 25 0E F4  03 54 49 24 B2 22 30 30  |0000.%...TI$."00|
00000620: 30 30 30 30 22 00 39 0E  F5 03 8B C5 28 54 49 24  |0000".9.....(TI$|
00000630: 29 B3 54 4D A7 31 30 31  33 00 68 0E FC 03 53 54  |).TM.1013.h...ST|
00000640: 24 B2 C4 28 B5 28 BB 28  31 29 AC 28 31 30 AE 44  |$..(.(.(1).(10.D|
00000650: 47 AD 31 30 AC 35 AB 31  29 AA 28 31 30 AE 44 47  |G.10.5.1).(10.DG|
00000660: AD 31 30 AC 35 29 29 29  00 96 0E 06 04 99 22 C4  |.10.5)))......".|
00000670: 49 41 4C 49 4E 47 20 41  43 43 45 53 53 20 43 4F  |IALING ACCESS CO|
00000680: 44 45 3A 22 53 54 24 3A  4E 42 24 B2 53 54 24 3A  |DE:"ST$:NB$.ST$:|
00000690: 8D 35 30 30 30 30 00 D8  0E 10 04 99 22 C4 49 41  |.50000......".IA|
000006A0: 4C 49 4E 47 20 54 45 53  54 20 4E 55 4D 42 45 52  |LING TEST NUMBER|
000006B0: 3A 20 28 35 31 32 29 34  34 34 2D 37 38 38 33 22  |: (512)444-7883"|
000006C0: 3A 4E 42 24 B2 22 35 31  32 34 34 34 37 38 38 33  |:NB$."5124447883|
000006D0: 22 3A 8D 35 30 30 30 30  00 1E 0F 1A 04 99 22 11  |":.50000......".|
000006E0: 11 C8 41 4E 47 20 55 50  20 50 48 4F 4E 45 20 41  |..ANG UP PHONE A|
000006F0: 4E 44 20 48 49 54 20 D2  C5 D4 D5 D2 CE 20 54 4F  |ND HIT ...... TO|
00000700: 20 43 4F 4E 54 49 4E 55  45 44 49 41 4C 49 4E 47  | CONTINUEDIALING|
00000710: 20 4F 52 20 5F 20 54 4F  20 51 55 49 54 2E 00 32  | OR _ TO QUIT..2|
00000720: 0F 24 04 A1 41 24 3A 8B  41 24 B2 22 22 A7 31 30  |.$..A$:.A$."".10|
00000730: 36 30 00 4B 0F 29 04 8B  41 24 B2 22 50 22 A7 20  |60.K.)..A$."P". |
00000740: 8D 36 30 30 30 3A 8D 35  30 30 30 00 5C 0F 2B 04  |.6000:.5000.\.+.|
00000750: 8B 41 24 B2 22 5F 22 A7  31 30 38 30 00 7B 0F 2E  |.A$."_".1080.{..|
00000760: 04 8B 41 24 B2 C7 28 31  33 29 A7 99 22 93 22 3A  |..A$..(13)..".":|
00000770: 8D 36 30 30 30 3A 89 31  30 31 31 00 85 0F 33 04  |.6000:.1011...3.|
00000780: 89 31 30 36 30 00 92 0F  38 04 97 35 36 35 37 39  |.1060...8..56579|
00000790: 2C 30 00 9F 0F 3D 04 99  22 93 C4 4F 4E 45 2E 00  |,0...=.."..ONE..|
000007A0: C1 0F 42 04 99 22 11 CC  41 53 54 20 43 4F 44 45  |..B.."..AST CODE|
000007B0: 20 44 49 41 4C 45 44 20  57 41 53 22 53 54 24 22  | DIALED WAS"ST$"|
000007C0: 2E 00 C7 0F 4C 04 80 00  D3 0F 88 13 9F 32 2C 34  |....L........2,4|
000007D0: 3A 9D 32 00 E5 0F 92 13  99 22 43 4F 44 45 2D 2D  |:.2......"CODE--|
000007E0: 22 2C 53 54 24 00 EF 0F  9C 13 98 32 3A A0 32 00  |",ST$......2:.2.|
000007F0: F9 0F A1 13 99 3A 99 3A  99 00 0D 10 A6 13 99 22  |.....:.:......."|
00000800: 50 52 45 53 53 20 52 45  54 55 52 4E 22 00 13 10  |PRESS RETURN"...|
00000810: B0 13 8E 00 20 10 70 17  97 35 36 35 37 39 2C 30  |.... .p..56579,0|
00000820: 00 30 10 7A 17 81 54 B2  31 A4 35 30 30 3A 82 54  |.0.z..T.1.500:.T|
00000830: 00 36 10 84 17 8E 00 51  10 50 C3 97 35 36 35 37  |.6.....Q.P..5657|
00000840: 39 2C 33 32 3A 81 54 B2  31 A4 32 30 30 30 3A 82  |9,32:.T.1.2000:.|
00000850: 54 00 61 10 55 C3 81 4A  B2 31 A4 C3 28 4E 42 24  |T.a.U..J.1..(NB$|
00000860: 29 00 73 10 5A C3 4E 24  B2 CA 28 4E 42 24 2C 4A  |).s.Z.N$..(NB$,J|
00000870: 2C 31 29 00 86 10 64 C3  8B 4E 24 B2 22 30 22 A7  |,1)...d..N$."0".|
00000880: 4E 24 B2 22 31 31 00 99  10 6E C3 8B 4E 24 B2 22  |N$."11...n..N$."|
00000890: 2A 22 A7 4E 24 B2 22 31  30 00 AC 10 78 C3 8B 4E  |*".N$."10...x..N|
000008A0: 24 B2 22 23 22 A7 4E 24  B2 22 31 32 00 D1 10 82  |$."#".N$."12....|
000008B0: C3 8B 4E 24 B2 22 20 22  B0 4E 24 B2 22 2D 22 B0  |..N$." ".N$."-".|
000008C0: 4E 24 B2 22 28 22 B0 4E  24 B2 22 29 22 A7 82 3A  |N$."(".N$.")"..:|
000008D0: 8E 00 E0 10 8C C3 56 41  B2 C5 28 4E 24 29 AB 31  |......VA..(N$).1|
000008E0: 00 EC 10 96 C3 52 25 B2  56 41 AD 33 00 FB 10 A0  |.....R%.VA.3....|
000008F0: C3 43 25 B2 56 41 AB 33  AC 52 25 00 17 11 AA C3  |.C%.VA.3.R%.....|
00000900: 97 56 31 AA 31 2C 52 48  28 52 25 29 3A 97 56 31  |.V1.1,RH(R%):.V1|
00000910: 2C 52 4C 28 52 25 29 00  33 11 B4 C3 97 56 32 AA  |,RL(R%).3....V2.|
00000920: 31 2C 43 48 28 43 25 29  3A 97 56 32 2C 43 4C 28  |1,CH(C%):.V2,CL(|
00000930: 43 25 29 00 49 11 BE C3  97 56 31 AA 34 2C 31 37  |C%).I....V1.4,17|
00000940: 3A 97 56 32 AA 34 2C 31  37 00 58 11 C8 C3 81 4E  |:.V2.4,17.X....N|
00000950: B2 31 A4 31 30 30 3A 82  00 6C 11 D2 C3 97 56 31  |.1.100:..l....V1|
00000960: AA 34 2C 2E 3A 97 56 32  AA 34 2C 2E 00 74 11 DC  |.4,.:.V2.4,..t..|
00000970: C3 82 3A 8E 00 A0 11 60  EA 43 46 B2 2E 39 37 35  |..:....`.CF..975|
00000980: 3A 4B B2 2E 30 35 39 36  30 34 36 34 35 3A 81 4E  |:K..059604645:.N|
00000990: B2 2E A4 33 3A 87 46 3A  46 B2 46 AC 43 46 AD 4B  |...3:.F:F.F.CF.K|
000009A0: 00 C7 11 6A EA 52 48 28  4E 29 B2 B5 28 46 AD 32  |...j.RH(N)..(F.2|
000009B0: 35 36 29 3A 52 4C 28 4E  29 B2 46 AB 32 35 36 AC  |56):RL(N).F.256.|
000009C0: 52 48 28 4E 29 3A 82 00  DC 11 74 EA 83 36 39 37  |RH(N):....t..697|
000009D0: 2C 37 37 30 2C 38 35 32  2C 39 34 31 00 F3 11 7E  |,770,852,941...~|
000009E0: EA 81 4E B2 30 A4 32 3A  87 46 3A 46 B2 46 AC 43  |..N.0.2:.F:F.F.C|
000009F0: 46 AD 4B 00 1A 12 88 EA  43 48 28 4E 29 B2 B5 28  |F.K.....CH(N)..(|
00000A00: 46 AD 32 35 36 29 3A 43  4C 28 4E 29 B2 46 AB 32  |F.256):CL(N).F.2|
00000A10: 35 36 AC 43 48 28 4E 29  3A 82 00 2E 12 92 EA 83  |56.CH(N):.......|
00000A20: 31 32 30 39 2C 31 33 33  36 2C 31 34 37 37 00 4D  |1209,1336,1477.M|
00000A30: 12 9C EA 56 31 B2 35 34  32 37 32 3A 56 32 B2 56  |...V1.54272:V2.V|
00000A40: 31 AA 37 3A 97 56 31 AA  32 34 2C 31 35 00 63 12  |1.7:.V1.24,15.c.|
00000A50: A6 EA 97 56 31 AA 35 2C  2E 3A 97 56 31 AA 36 2C  |...V1.5,.:.V1.6,|
00000A60: 32 34 30 00 79 12 B0 EA  97 56 32 AA 35 2C 2E 3A  |240.y....V2.5,.:|
00000A70: 97 56 32 AA 36 2C 32 34  30 00 7F 12 BA EA 8E 00  |.V2.6,240.......|
00000A80: 00 00                                             |..              |

..;.D..53280,.:.53281,.:.G(14)G(8)"..".1
3)"CODE HACKER V1.0.W.I...13)"..... ....
.. .......X.."..    (C) 1985 .>>>.!!.JET
HSOFT INC..!!.<<<......"                
  ......... .........:.:.".*************
**************************"......:.:.". 
     UP-GRADED FOR THE 1660 BY :".:....:
.".        <><><> COMPSTAR <><><>".N....
:.:.".**********************************
*****"......".....ACCESS NUMBER";AN$....
.."HOW LONG (IN SECONDS) UNTIL PICKUP  2
...";TM......"HOW MANY DIGITS ARE THE CO
DES";DG......"..SELECT ONE:... ..". >1< 
HACK CODES RANDOMLY.>...." >2< HACK CODE
S SEQUENTIALLY.\....CS$:.CS$."1".CS$."2"
.180.S...."...GOOD CHOICE!!...H.."...   
      HIT ANY KEY TO CONTINUE....R..A$:.
A$."".210.F....A.1.25:.59626:..Q....6000
0......CS$."1".1000......".WHERE DO YOU 
WANT TO START";ST$./....".WHERE DO YOU W
ANT TO END";ED$.A....ED$..ST$.240.U...ST
$.D(E(ST$).1)......".    HIT RETURN TO C
OMMENCE DIAILING.......A$:.A$..G(13).280
.I.".."DIALING ACCESS NUMBER: "AN$:NB$.A
N$:.50000.Z.'.TI$."000000"...(..E(TI$).T
M.296...,.ST$.D(E(ST$).1)./.6.."DIALING 
ACCESS CODE:"ST$:NB$.ST$:.50000.Q.@.."DI
ALING TEST NUMBER: (412)429-7629":NB$."4
124297629":.50000...E..E(ST$).E(ED$)..".
DIALING COMPLETE.":.".LAST CODE DIALED:"
ST$:....J.."..HANG UP PHONE AND HIT RETU
RN TO CONTINUEDIALING OR _ TO QUIT....T.
.A$:.A$."".340.-.^..A$.G(13)..".";:.6000
:.290.=.C..A$."_".360.U.E..A$."P"..6000:
.5000.^.F..340.K.H..56579,0.X.M..".DONE.
...R..".LAST CODE DIALED WAS"ST$".. .|..
.K....".    HIT RETURN TO COMMENCE DIALI
NG.......A$:.A$..G(13).1010......"DIALIN
G ACCESS NUMBER: "AN$:NB$.AN$:.50000.%..
.TI$."000000".9....E(TI$).TM.1013.H...ST
$.D(.(.(1).(10.DG.10.5.1).(10.DG.10.5)))
......"DIALING ACCESS CODE:"ST$:NB$.ST$:
.50000.X...."DIALING TEST NUMBER: (512)4
44-7883":NB$."5124447883":.50000......".
.HANG UP PHONE AND HIT RETURN TO CONTINU
EDIALING OR _ TO QUIT..2.$..A$:.A$."".10
60.K.)..A$."P". .6000:.5000.\.+..A$."_".
1080.{....A$.G(13)..".":.6000:.1011...3.
.1060...8..56579,0...=..".DONE..A.B..".L
AST CODE DIALED WAS"ST$"..G.L...S....2,4
:.2......"CODE--",ST$......2: 2......:.:
......."PRESS RETURN"....... .P..56579,0
.0.Z..T.1.500:.T.6.....Q.PC.56579,32:.T.
1.2000:.T.A.UC.J.1.C(NB$).S.ZCN$.J(NB$,J
,1)...DC.N$."0".N$."11...NC.N$."*".N$."1
0...XC.N$."#".N$."12.Q..C.N$." ".N$."-".
N$."(".N$.")"..:.....CVA.E(N$).1....CR%.
VA.3... CC%.VA.3.R%....C.V1.1,RH(R%):.V1
,RL(R%).3..C.V2.1,CH(C%):.V2,CL(C%).I..C
.V1.4,17:.V2.4,17.X.HC.N.1.100:..L.RC.V1
.4,.:.V2.4,..T..C.:.. .`.CF..975:K..0596
04645:.N...3:.F:F.F.CF.K.G.J.RH(N)..(F.2
56):RL(N).F.256.RH(N):....T..697,770,852
,941...~..N.0.2:.F:F.F.CF.K.....CH(N)..(
F.256):CL(N).F.256.CH(N):.......1209,133
6,1477.M...V1.54272:V2.V1.7:.V1.24,15.C.
...V1.5,.:.V1.6,240.Y....V2.5,.:.V2.6,24
0........

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL