00000000: 01 1C 0E 1C 0A 00 8D 36 30 31 30 30 3A 9C 00 33 |.......60100:..3|
00000010: 1C 0F 00 99 22 13 13 93 95 20 20 20 20 20 20 20 |....".... |
00000020: 20 20 20 20 20 20 20 C4 49 41 4C 2D C1 2D D7 4F | .IAL-.-.O|
00000030: 52 44 22 00 5B 1C 10 00 99 22 95 20 20 20 20 20 |RD".[....". |
00000040: 20 20 20 20 42 59 20 CA 45 52 52 59 20 C1 2E 20 | BY .ERRY .. |
00000050: D3 54 55 52 44 49 56 41 4E 54 22 00 8C 1C 12 00 |.TURDIVANT".....|
00000060: 99 22 1F A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |."..............|
00000070: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000080: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 B4 1C 14 |..........."....|
00000090: 00 5A 24 B2 22 30 30 30 31 31 31 41 42 43 44 45 |.Z$."000111ABCDE|
000000A0: 46 47 48 49 4A 4B 4C 4D 4E 4F 50 52 53 54 55 56 |FGHIJKLMNOPRSTUV|
000000B0: 57 58 59 22 00 E6 1C 1E 00 99 22 11 11 90 C5 4E |WXY"......"....N|
000000C0: 54 45 52 20 41 20 37 2D 44 49 47 49 54 20 50 48 |TER A 7-DIGIT PH|
000000D0: 4F 4E 45 20 4E 55 4D 42 45 52 2C 20 D1 20 54 4F |ONE NUMBER, . TO|
000000E0: 20 51 55 49 54 22 00 00 1D 23 00 99 22 2D 2D 3E | QUIT"...#.."-->|
000000F0: 05 22 3B 3A 8D 36 30 35 30 30 3A 50 24 B2 41 24 |.";:.60500:P$.A$|
00000100: 00 1E 1D 24 00 8B 41 24 B2 22 51 22 B0 41 24 B2 |...$..A$."Q".A$.|
00000110: 22 D1 22 A7 8D 36 30 30 30 30 3A 89 33 35 00 33 |"."..60000:.35.3|
00000120: 1D 25 00 8B 41 24 B2 22 22 A7 99 22 91 22 3B 3A |.%..A$.""..".";:|
00000130: 89 33 35 00 6B 1D 28 00 99 22 13 13 11 11 1F A4 |.35.k.(.."......|
00000140: A4 12 D0 52 45 53 53 20 CE CF 20 D3 C3 D2 CF CC |...RESS .. .....|
00000150: CC 20 54 4F 20 50 41 55 53 45 2C 20 D1 20 54 4F |. TO PAUSE, . TO|
00000160: 20 51 55 49 54 2E 92 A4 A4 95 22 00 7E 1D 2D 00 | QUIT.....".~.-.|
00000170: FE 1A 20 30 2C 33 2C 33 39 2C 32 34 2C 31 00 8C |.. 0,3,39,24,1..|
00000180: 1D 32 00 81 20 49 B2 31 20 A4 20 37 00 A2 1D 37 |.2.. I.1 . 7...7|
00000190: 00 4E 28 49 29 B2 C5 28 CA 28 50 24 2C 49 2C 31 |.N(I)..(.(P$,I,1|
000001A0: 29 29 00 AD 1D 3C 00 42 28 49 29 B2 33 00 C3 1D |))...<.B(I).3...|
000001B0: 46 00 8B 20 4E 28 49 29 B3 32 20 A7 20 42 28 49 |F.. N(I).2 . B(I|
000001C0: 29 B2 31 00 C9 1D 50 00 82 00 CF 1D 55 00 3A 00 |).1...P.....U.:.|
000001D0: DE 1D 5A 00 81 20 49 B2 31 20 A4 20 31 30 00 F8 |..Z.. I.1 . 10..|
000001E0: 1D 64 00 4C 24 28 49 AB 31 29 B2 CA 28 5A 24 2C |.d.L$(I.1)..(Z$,|
000001F0: 49 AC 33 AB 32 2C 33 29 00 FE 1D 6E 00 82 00 04 |I.3.2,3)...n....|
00000200: 1E 73 00 3A 00 15 1E 78 00 81 20 4B B2 31 20 A4 |.s.:...x.. K.1 .|
00000210: 20 42 28 31 29 00 26 1E 82 00 81 20 4A B2 31 20 | B(1).&.... J.1 |
00000220: A4 20 42 28 32 29 00 37 1E 8C 00 81 20 49 B2 31 |. B(2).7.... I.1|
00000230: 20 A4 20 42 28 33 29 00 48 1E 96 00 81 20 48 B2 | . B(3).H.... H.|
00000240: 31 20 A4 20 42 28 34 29 00 59 1E A0 00 81 20 47 |1 . B(4).Y.... G|
00000250: B2 31 20 A4 20 42 28 35 29 00 6A 1E AA 00 81 20 |.1 . B(5).j.... |
00000260: 46 B2 31 20 A4 20 42 28 36 29 00 7B 1E B4 00 81 |F.1 . B(6).{....|
00000270: 20 45 B2 31 20 A4 20 42 28 37 29 00 B4 1E BE 00 | E.1 . B(7).....|
00000280: 44 24 B2 C4 28 45 AA 46 AC 31 30 AA 47 AC 31 30 |D$..(E.F.10.G.10|
00000290: 30 AA 48 AC 31 30 30 30 AA 49 AC 31 30 30 30 30 |0.H.1000.I.10000|
000002A0: AA 4A AC 31 30 30 30 30 30 AA 4B AC 31 30 30 30 |.J.100000.K.1000|
000002B0: 30 30 30 29 00 BA 1E C3 00 3A 00 C8 1E C8 00 81 |000).....:......|
000002C0: 20 57 B2 31 20 A4 20 37 00 DF 1E CD 00 A1 41 24 | W.1 . 7......A$|
000002D0: 3A 8B 41 24 B3 B1 22 22 A7 8D 36 31 30 30 30 00 |:.A$..""..61000.|
000002E0: 05 1F D2 00 99 22 95 22 CA 28 4C 24 28 4E 28 57 |.....".".(L$(N(W|
000002F0: 29 29 2C C5 28 CA 28 44 24 2C 57 AA 31 2C 31 29 |)),.(.(D$,W.1,1)|
00000300: 29 2C 31 29 3B 00 10 1F DC 00 82 20 57 3A 99 2C |),1);...... W:.,|
00000310: 00 16 1F E1 00 3A 00 2A 1F E6 00 82 20 45 2C 46 |.....:.*.... E,F|
00000320: 2C 47 2C 48 2C 49 2C 4A 2C 4B 00 30 1F F0 00 80 |,G,H,I,J,K.0....|
00000330: 00 53 1F FA 00 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.S....----------|
00000340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000350: 2D 2D 2D 00 72 1F 04 01 8F 20 20 20 33 35 20 43 |---.r.... 35 C|
00000360: 4C 4F 53 45 34 3A 4F 50 45 4E 34 2C 34 3A 43 4D |LOSE4:OPEN4,4:CM|
00000370: 44 34 00 8E 1F 0E 01 8F 20 20 32 32 30 20 4E 45 |D4...... 220 NE|
00000380: 58 54 20 57 3A 50 52 49 4E 54 22 20 22 3B 00 AC |XT W:PRINT" ";..|
00000390: 1F 18 01 8F 20 20 32 34 30 20 50 52 49 4E 54 23 |.... 240 PRINT#|
000003A0: 34 3A 43 4C 4F 53 45 34 3A 45 4E 44 00 E0 1F 60 |4:CLOSE4:END...`|
000003B0: EA 99 22 11 20 20 95 C1 52 45 20 59 4F 55 20 53 |..". ..RE YOU S|
000003C0: 55 52 45 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |URE YOU WANT TO |
000003D0: 51 55 49 54 3F 20 28 1C D9 95 2F 1C CE 95 29 22 |QUIT? (.../...)"|
000003E0: 00 0F 20 6A EA A1 41 24 3A 8B 41 24 B3 B1 22 4E |.. j..A$:.A$.."N|
000003F0: 22 AF 41 24 B3 B1 22 CE 22 AF 41 24 B3 B1 22 59 |".A$..".".A$.."Y|
00000400: 22 AF 41 24 B3 B1 22 D9 22 A7 36 30 30 31 30 00 |".A$..".".60010.|
00000410: 57 20 74 EA 8B 41 24 B2 22 4E 22 B0 41 24 B2 22 |W t..A$."N".A$."|
00000420: CE 22 A7 99 22 91 20 20 20 20 20 20 20 20 20 20 |."..". |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 | ":."|
00000450: 91 91 91 22 3B 3A 8E 00 75 20 7E EA F5 20 22 31 |...";:..u ~.. "1|
00000460: 32 38 20 4D 45 4E 55 22 20 A4 20 22 31 32 38 20 |28 MENU" . "128 |
00000470: 4D 45 4E 55 22 00 83 20 88 EA 8B 44 53 B3 B1 36 |MENU".. ...DS..6|
00000480: 33 A7 80 00 94 20 92 EA 8A 20 22 31 32 38 20 4D |3.... ... "128 M|
00000490: 45 4E 55 22 00 A4 20 C4 EA E7 20 30 2C 34 3A E7 |ENU".. ... 0,4:.|
000004A0: 20 34 2C 37 00 DB 20 CE EA 99 22 13 13 93 0B 0E | 4,7.. ...".....|
000004B0: 1F B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000004C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000004D0: C0 C0 C0 C0 C0 C0 C0 C0 AE 22 3B 00 F6 20 D8 EA |.........";.. ..|
000004E0: 81 41 B2 31 A4 32 33 3A 99 22 DD 22 A6 33 38 29 |.A.1.23:.".".38)|
000004F0: 22 DD 22 3B 3A 82 00 2A 21 E2 EA 99 22 AD C0 C0 |".";:..*!..."...|
00000500: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000510: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000520: C0 C0 C0 BD 9D 94 C0 13 13 22 00 54 21 EC EA 99 |.........".T!...|
00000530: 22 13 13 11 11 1D 1C 20 20 20 20 20 20 20 20 20 |"...... |
00000540: 20 CC CF C1 C4 D3 D4 C1 D2 20 D0 52 45 53 45 4E | ........ .RESEN|
00000550: 54 53 3A 22 00 7D 21 F6 EA 99 22 11 11 11 11 11 |TS:".}!...".....|
00000560: 11 11 1D 05 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000570: 20 C4 49 41 4C 2D C1 2D D7 4F 52 44 22 00 A5 21 | .IAL-.-.ORD"..!|
00000580: 00 EB 99 22 11 1D 20 20 20 20 20 20 20 20 42 59 |...".. BY|
00000590: 20 CA 45 52 52 59 20 C1 2E 20 D3 54 55 52 44 49 | .ERRY .. .TURDI|
000005A0: 56 41 4E 54 22 00 CA 21 0A EB 99 22 11 1D 20 20 |VANT"..!...".. |
000005B0: 20 20 20 20 20 20 20 20 20 28 C3 29 4F 50 59 52 | (.)OPYR|
000005C0: 49 47 48 54 20 31 39 38 37 22 00 01 22 14 EB 99 |IGHT 1987".."...|
000005D0: 22 11 11 11 11 11 11 11 1D 1C 20 20 20 20 20 20 |"......... |
000005E0: 20 D0 52 45 53 53 20 D3 D0 C1 C3 C5 20 54 4F 20 | .RESS ..... TO |
000005F0: 43 4F 4E 54 49 4E 55 45 2E 22 3A 97 32 30 38 2C |CONTINUE.":.208,|
00000600: 2E 00 18 22 1E EB A1 41 24 3A 8B 41 24 B3 B1 22 |..."...A$:.A$.."|
00000610: 20 22 A7 36 30 31 39 30 00 1E 22 23 EB 8E 00 38 | ".60190.."#...8|
00000620: 22 54 EC 99 22 A4 22 3B 3A 81 41 B2 31 A4 38 3A |"T..".";:.A.1.8:|
00000630: 47 24 28 41 29 B2 22 22 00 4D 22 5E EC A1 41 24 |G$(A)."".M"^..A$|
00000640: 3A 8B 41 24 B2 22 22 A7 36 30 35 31 30 00 61 22 |:.A$."".60510.a"|
00000650: 68 EC 8B 41 24 B2 C7 28 31 33 29 A7 36 30 35 39 |h..A$..(13).6059|
00000660: 30 00 99 22 72 EC 8B 28 41 B1 31 29 AF 28 41 24 |0.."r..(A.1).(A$|
00000670: B2 C7 28 32 30 29 29 A7 41 B2 41 AB 31 3A 99 22 |..(20)).A.A.1:."|
00000680: 9D 9D 20 20 9D 9D A4 22 3B 3A 47 24 28 41 29 B2 |.. ...";:G$(A).|
00000690: 22 22 3A 89 36 30 35 31 30 00 A8 22 7C EC 8B 41 |"":.60510.."|..A|
000006A0: B2 38 A7 36 30 35 31 30 00 C1 22 86 EC 8B 41 24 |.8.60510.."...A$|
000006B0: B2 22 51 22 B0 41 24 B2 22 D1 22 A7 36 30 35 38 |."Q".A$.".".6058|
000006C0: 30 00 E0 22 90 EC 8B 28 41 24 B1 B2 22 30 22 29 |0.."...(A$.."0")|
000006D0: AF 28 41 24 B3 B2 22 39 22 29 A7 36 30 35 38 30 |.(A$.."9").60580|
000006E0: 00 EB 22 9A EC 89 36 30 35 31 30 00 05 23 A4 EC |.."...60510..#..|
000006F0: 99 22 9D 22 41 24 22 A4 22 3B 3A 47 24 28 41 29 |."."A$".";:G$(A)|
00000700: B2 41 24 3A 82 00 2E 23 AE EC 99 22 9D 20 22 3A |.A$:...#...". ":|
00000710: 41 24 B2 22 22 3A 81 42 B2 31 A4 41 AB 31 3A 41 |A$."":.B.1.A.1:A|
00000720: 24 B2 41 24 AA 47 24 28 42 29 3A 82 3A 8E 00 53 |$.A$.G$(B):.:..S|
00000730: 23 48 EE 97 35 2C C2 28 35 29 B0 31 3A 9E 36 35 |#H..5,.(5).1:.65|
00000740: 35 32 30 3A 52 4F B2 C2 28 37 29 3A 43 4F B2 C2 |520:RO..(7):CO..|
00000750: 28 38 29 00 87 23 52 EE 99 22 13 13 11 11 A4 A4 |(8)..#R.."......|
00000760: 1F 12 C1 52 45 20 59 4F 55 20 53 55 52 45 20 59 |...RE YOU SURE Y|
00000770: 4F 55 20 57 41 4E 54 20 54 4F 20 51 55 49 54 3F |OU WANT TO QUIT?|
00000780: 20 28 D9 2F CE 29 22 00 B6 23 5C EE A1 41 24 3A | (./.)"..#\..A$:|
00000790: 8B 41 24 B3 B1 22 4E 22 AF 41 24 B3 B1 22 CE 22 |.A$.."N".A$.."."|
000007A0: AF 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 D9 22 |.A$.."Y".A$.."."|
000007B0: A7 36 31 30 32 30 00 CC 23 66 EE 8B 41 24 B2 22 |.61020..#f..A$."|
000007C0: 59 22 B0 41 24 B2 22 D9 22 A7 31 35 00 00 24 70 |Y".A$.".".15..$p|
000007D0: EE 99 22 13 13 11 11 1F A4 A4 12 D0 52 45 53 53 |..".........RESS|
000007E0: 20 CE CF 20 D3 C3 D2 CF CC CC 20 54 4F 20 50 41 | .. ...... TO PA|
000007F0: 55 53 45 2C 20 D1 20 54 4F 20 51 55 49 54 2E 22 |USE, . TO QUIT."|
00000800: 00 11 24 75 EE FE 1A 20 30 2C 33 2C 33 39 2C 32 |..$u... 0,3,39,2|
00000810: 34 00 36 24 7A EE 97 35 2C C2 28 35 29 AF 32 35 |4.6$z..5,.(5).25|
00000820: 34 3A 97 37 2C 52 4F 3A 97 38 2C 43 4F 3A 9E 36 |4:.7,RO:.8,CO:.6|
00000830: 35 35 32 30 3A 8E 00 00 00 |5520:.... |
.......60100:..3....".... D
IAL-A-WORD".[....". BY JERRY A.
STURDIVANT"......"......................
...................".....Z$."000111ABCDE
FGHIJKLMNOPRSTUVWXY"......"...ENTER A 7-
DIGIT PHONE NUMBER, Q TO QUIT"...#.."-->
.";:.60500:P$.A$...$..A$."Q".A$."Q"..600
00:.35.3.%..A$.""..".";:.35.K.(.."......
..PRESS NO SCROLL TO PAUSE, Q TO QUIT...
..".~.-... 0,3,39,24,1...2.. I.1 . 7...7
.N(I).E(J(P$,I,1))...<.B(I).3.C.F.. N(I)
.2 . B(I).1.I.P...O.U.:...Z.. I.1 . 10..
.D.L$(I.1).J(Z$,I.3.2,3)...N.....S.:...X
.. K.1 . B(1).&.... J.1 . B(2).7.... I.1
. B(3).H.... H.1 . B(4).Y. .. G.1 . B(5
).J.... F.1 . B(6).{.... E.1 . B(7).....
D$.D(E.F.10.G.100.H.1000.I.10000.J.10000
0.K.1000000)...C.:.H.H.. W.1 . 7...M..A$
:.A$..""..61000...R.."."J(L$(N(W)),E(J(D
$,W.1,1)),1);...... W:.,.....:.*.... E,F
,G,H,I,J,K.0.....S....------------------
-----------.R.... 35 CLOSE4:OPEN4,4:CM
D4...... 220 NEXT W:PRINT" ";...... 24
0 PRINT#4:CLOSE4:END...`..". .ARE YOU S
URE YOU WANT TO QUIT? (.Y./.N.)".. J..A$
:.A$.."N".A$.."N".A$.."Y".A$.."Y".60010.
W T..A$."N".A$."N"..".
":."...";:..U ~.. "1
28 MENU" . "128 MENU".. ...DS..63.... ..
. "128 MENU".. D.. 0,4:. 4,7.. N..".....
........................................
.";.. X..A.1.23:.".".38)".";:..*!..."...
........................................
.".T!..."...... LOADSTAR PRESEN
TS:".}!..."......... DIAL-A-
WORD"..!...".. BY JERRY A. STURDI
VANT".J!...".. (C)OPYRIGHT 198
7".."..."......... PRESS SPACE TO
CONTINUE.":.208,..."...A$:.A$.." ".60190
.."#...8"T..".";:.A.1.8:G$(A)."".M"^..A$
:.A$."".60510.A"H..A$.G(13).60590.."R..(
A.1).(A$.G(20)).A.A.1:.".. ...";:G$(A).
"":.60510.."|..A.8.60510.A"...A$."Q".A$.
"Q".60580.."...(A$.."0").(A$.."9").60580
.."...60510..#..."."A$".";:G$(A).A$:...#
...". ":A$."":.B.1.A.1:A$.A$.G$(B):.:..S
#H..5,B(5).1:.65520:RO.B(7):CO.B(8)..#R.
."........ARE YOU SURE YOU WANT TO QUIT?
(Y/N)"..#\..A$:.A$.."N".A$.."N".A$.."Y"
.A$.."Y".61020.L#F..A$."Y".A$."Y".15..$P
.."........PRESS NO SCROLL TO PAUSE, Q T
O QUIT."..$U... 0,3,39,24.6$Z..5,B(5).25
4:.7,RO:.8,CO:.65520:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL