SURVEY ASSIST.C

00000000: 01 08 24 08 64 00 8F 22  B8 B8 B8 B8 B8 B8 B8 B8  |..$.d.."........|
00000010: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
00000020: B8 B8 B8 B8 00 41 08 6E  00 8F 22 20 20 20 20 20  |.....A.n.."     |
00000030: 20 D3 D5 D2 D6 C5 D9 20  C1 D3 D3 C9 D3 D4 C1 CE  | ...... ........|
00000040: D4 00 54 08 78 00 8F 22  20 20 20 20 20 20 20 20  |..T.x.."        |
00000050: 20 20 42 59 00 6B 08 82  00 8F 22 20 20 20 20 20  |  BY.k...."     |
00000060: 20 CA 49 4D 20 CF 27 C8  41 52 45 00 8A 08 8C 00  | .IM .'.ARE.....|
00000070: 8F 22 20 20 20 20 20 20  33 30 33 20 C7 4F 56 45  |."      303 .OVE|
00000080: 52 4E 4D 45 4E 54 20 D3  54 2E 00 AD 08 96 00 8F  |RNMENT .T.......|
00000090: 22 20 20 20 20 20 20 D6  49 43 54 4F 52 49 41 2C  |"      .ICTORIA,|
000000A0: 20 C2 2E C3 2E 20 D6 38  D6 20 32 CC 33 00 C8 08  | .... .8. 2.3...|
000000B0: A0 00 8F 22 20 20 20 20  20 20 D3 45 50 54 45 4D  |..."      .EPTEM|
000000C0: 42 45 52 20 31 39 38 34  00 EB 08 AA 00 8F 22 B9  |BER 1984......".|
000000D0: B9 B9 B9 B9 B9 B9 B9 B9  B9 B9 B9 B9 B9 B9 B9 B9  |................|
000000E0: B9 B9 B9 B9 B9 B9 B9 B9  B9 B9 B9 00 F1 08 B4 00  |................|
000000F0: 3A 00 1C 09 BE 00 42 B2  35 33 32 38 30 3A 53 B2  |:.....B.53280:S.|
00000100: 35 33 32 38 31 3A 43 B2  36 34 36 3A 8F 20 53 43  |53281:C.646:. SC|
00000110: 52 45 45 4E 20 43 4F 4C  4F 55 52 53 00 3E 09 C8  |REEN COLOURS.>..|
00000120: 00 97 20 35 33 32 37 32  2C 32 33 3A 8F 20 55 50  |.. 53272,23:. UP|
00000130: 50 45 52 2F 4C 4F 57 45  52 20 43 41 53 45 00 60  |PER/LOWER CASE.`|
00000140: 09 D2 00 8F 20 4E 24 3D  43 4F 4D 50 41 4E 59 20  |.... N$=COMPANY |
00000150: 4E 41 4D 45 20 4A 24 3D  4A 4F 42 20 4E 41 4D 45  |NAME J$=JOB NAME|
00000160: 00 7E 09 DC 00 8F 20 4D  24 3D 4D 4F 4E 54 48 20  |.~.... M$=MONTH |
00000170: 44 24 3D 44 41 59 20 59  24 3D 59 45 41 52 00 84  |D$=DAY Y$=YEAR..|
00000180: 09 E6 00 3A 00 9E 09 F0  00 8F 22 2A 2A 2D C6 C9  |...:......"**-..|
00000190: D2 D3 D4 A0 D3 C3 D2 C5  C5 CE 2D 2D 2A 2A 00 A4  |..........--**..|
000001A0: 09 FA 00 3A 00 BF 09 04  01 99 C7 28 31 34 37 29  |...:.......(147)|
000001B0: 3A 97 42 2C 36 3A 97 53  2C 36 3A 97 43 2C 31 00  |:.B,6:.S,6:.C,1.|
000001C0: CE 09 0E 01 43 44 B2 35  3A 8D 39 30 30 30 00 E9  |....CD.5:.9000..|
000001D0: 09 18 01 4E 4E 24 B2 22  D3 55 52 56 45 59 20 C1  |...NN$.".URVEY .|
000001E0: 53 53 49 53 54 41 4E 54  22 00 03 0A 22 01 99 A6  |SSISTANT"..."...|
000001F0: 32 30 AB 28 C3 28 4E 4E  24 29 AD 32 29 29 4E 4E  |20.(.(NN$).2))NN|
00000200: 24 3A 99 00 10 0A 2C 01  4E 4E 24 B2 22 42 59 22  |$:....,.NN$."BY"|
00000210: 00 2A 0A 36 01 99 A6 32  30 AB 28 C3 28 4E 4E 24  |.*.6...20.(.(NN$|
00000220: 29 AD 32 29 29 4E 4E 24  3A 99 00 3F 0A 40 01 4E  |).2))NN$:..?.@.N|
00000230: 4E 24 B2 22 CA 49 4D 20  CF 27 C8 41 52 45 22 00  |N$.".IM .'.ARE".|
00000240: 57 0A 4A 01 99 A6 32 30  AB 28 C3 28 4E 4E 24 29  |W.J...20.(.(NN$)|
00000250: AD 32 29 29 4E 4E 24 00  6C 0A 54 01 99 22 13 22  |.2))NN$.l.T.."."|
00000260: 3A 43 44 B2 32 33 3A 8D  39 30 30 30 00 9C 0A 5E  |:CD.23:.9000...^|
00000270: 01 99 20 A6 37 29 C7 28  31 38 29 22 50 52 45 53  |.. .7).(18)"PRES|
00000280: 53 20 41 4E 59 20 4B 45  59 20 54 4F 20 43 4F 4E  |S ANY KEY TO CON|
00000290: 54 49 4E 55 45 22 C7 28  31 34 36 29 00 AF 0A 68  |TINUE".(146)...h|
000002A0: 01 8D 31 35 30 30 30 3A  8F 20 53 4F 55 4E 44 00  |..15000:. SOUND.|
000002B0: C2 0A 72 01 A1 5A 24 3A  8B 5A 24 B2 22 22 A7 33  |..r..Z$:.Z$."".3|
000002C0: 37 30 00 C8 0A 7C 01 3A  00 E9 0A 86 01 8F 22 2A  |70...|.:......"*|
000002D0: 2A 2D 2D D7 C1 CE D4 A0  C9 CE D3 D4 D2 D5 C3 D4  |*--.............|
000002E0: C9 CF CE D3 3F 2D 2D 2A  2A 00 EF 0A 90 01 3A 00  |....?--**.....:.|
000002F0: 06 0B 9A 01 99 C7 28 31  34 37 29 3A 43 44 B2 35  |......(147):CD.5|
00000300: 3A 8D 39 30 30 30 00 2F  0B A4 01 99 A6 35 29 22  |:.9000./.....5)"|
00000310: C4 4F 20 59 4F 55 20 57  41 4E 54 20 49 4E 53 54  |.O YOU WANT INST|
00000320: 52 55 43 54 49 4F 4E 53  3F 22 3A 99 22 11 22 00  |RUCTIONS?":.".".|
00000330: 3A 0B AE 01 8D 20 38 30  30 30 00 50 0B B8 01 8B  |:.... 8000.P....|
00000340: 20 59 45 53 24 B2 22 59  22 A7 8D 31 30 30 30 30  | YES$."Y"..10000|
00000350: 00 63 0B C2 01 97 42 2C  36 3A 97 53 2C 36 3A 97  |.c....B,6:.S,6:.|
00000360: 43 2C 31 00 7A 0B CC 01  99 C7 28 31 34 37 29 3A  |C,1.z.....(147):|
00000370: 43 44 B2 35 3A 8D 39 30  30 30 00 A3 0B D6 01 99  |CD.5:.9000......|
00000380: 22 C4 4F 20 59 4F 55 20  57 41 4E 54 20 54 4F 20  |".O YOU WANT TO |
00000390: 50 52 4F 44 55 43 45 20  54 48 45 20 52 41 4E 44  |PRODUCE THE RAND|
000003A0: 4F 4D 22 00 C8 0B E0 01  99 22 4E 55 4D 42 45 52  |OM"......"NUMBER|
000003B0: 20 4C 49 53 54 20 46 52  4F 4D 20 41 20 50 52 45  | LIST FROM A PRE|
000003C0: 56 49 4F 55 53 4C 59 22  00 EE 0B EA 01 99 22 43  |VIOUSLY"......"C|
000003D0: 52 45 41 54 45 44 20 44  41 54 41 20 46 49 4C 45  |REATED DATA FILE|
000003E0: 3F 22 3A 99 22 11 22 3A  20 8D 38 30 30 30 00 02  |?":.".": .8000..|
000003F0: 0C F4 01 8B 59 45 53 24  B2 22 4E 22 A7 20 89 37  |....YES$."N". .7|
00000400: 33 30 00 28 0C FE 01 99  22 C5 4E 54 45 52 20 4E  |30.(....".NTER N|
00000410: 41 4D 45 20 4F 46 20 46  49 4C 45 20 54 4F 20 52  |AME OF FILE TO R|
00000420: 45 54 52 49 45 56 45 22  00 34 0C 08 02 85 20 46  |ETRIEVE".4.... F|
00000430: 49 4C 45 24 00 3A 0C 12  02 3A 00 52 0C 1C 02 8F  |ILE$.:...:.R....|
00000440: 22 2A 2A 2D 2D D2 C5 C1  C4 A0 C6 C9 CC C5 2D 2D  |"**--.........--|
00000450: 2A 2A 00 58 0C 26 02 3A  00 85 0C 30 02 99 22 11  |**.X.&.:...0..".|
00000460: 22 3A 20 99 C7 28 31 38  29 22 D0 CC C5 C1 D3 C5  |": ..(18)"......|
00000470: A0 D7 C1 C9 D4 A0 C1 A0  CD CF CD C5 CE D4 22 C7  |..............".|
00000480: 28 31 34 36 29 00 A8 0C  3A 02 9F 32 2C 38 2C 32  |(146)...:..2,8,2|
00000490: 2C 22 30 3A 22 AA 46 49  4C 45 24 AA 22 2E 50 54  |,"0:".FILE$.".PT|
000004A0: 22 AA 22 2C 53 2C 52 22  00 B2 0C 44 02 84 32 2C  |".",S,R"...D..2,|
000004B0: 50 4E 00 DA 0C 49 02 8B  53 54 B1 36 34 A7 A0 32  |PN...I..ST.64..2|
000004C0: 3A 20 9F 31 35 2C 38 2C  31 35 3A 84 31 35 2C 58  |: .15,8,15:.15,X|
000004D0: 24 3A A0 31 35 3A 89 36  30 30 00 E1 0C 4E 02 A0  |$:.15:.600...N..|
000004E0: 32 00 18 0D 58 02 99 3A  8B 50 4E B2 30 A7 20 99  |2...X..:.PN.0. .|
000004F0: C7 28 31 38 29 20 22 9E  C6 C9 CC C5 A0 C4 CF C5  |.(18) ".........|
00000500: D3 A0 CE CF D4 A0 C5 D8  C9 D3 D4 05 22 C7 28 31  |............".(1|
00000510: 34 36 29 3A 89 35 31 30  00 35 0D 62 02 9F 33 2C  |46):.510.5.b..3,|
00000520: 38 2C 33 2C 22 30 3A 22  AA 46 49 4C 45 24 AA 22  |8,3,"0:".FILE$."|
00000530: 2C 53 2C 52 22 00 42 0D  6C 02 86 20 50 44 28 50  |,S,R".B.l.. PD(P|
00000540: 4E 29 00 50 0D 76 02 81  4A B2 31 20 A4 20 50 4E  |N).P.v..J.1 . PN|
00000550: 00 5D 0D 80 02 84 33 2C  50 44 28 4A 29 00 64 0D  |.]....3,PD(J).d.|
00000560: 8A 02 82 4A 00 6B 0D 94  02 A0 33 00 77 0D 9E 02  |...J.k....3.w...|
00000570: 99 C7 28 31 34 37 29 00  B3 0D A8 02 43 44 B2 35  |..(147).....CD.5|
00000580: 3A 8D 39 30 30 30 3A 99  22 D7 41 4E 54 20 54 4F  |:.9000:.".ANT TO|
00000590: 20 52 45 56 49 45 57 20  55 4E 49 54 20 50 4F 50  | REVIEW UNIT POP|
000005A0: 55 4C 41 54 49 4F 4E 20  44 41 54 41 3F 22 3A 99  |ULATION DATA?":.|
000005B0: 22 11 22 00 BD 0D B2 02  8D 38 30 30 30 00 D4 0D  |"."......8000...|
000005C0: BC 02 8B 20 59 45 53 24  B2 22 59 22 20 A7 20 8D  |... YES$."Y" . .|
000005D0: 37 30 30 30 00 DD 0D C6  02 89 39 37 30 00 05 0E  |7000......970...|
000005E0: CB 02 8B 53 54 B1 36 34  A7 A0 32 3A 20 9F 31 35  |...ST.64..2: .15|
000005F0: 2C 38 2C 31 35 3A 84 31  35 2C 58 24 3A A0 31 35  |,8,15:.15,X$:.15|
00000600: 3A 89 36 30 30 00 0B 0E  D0 02 3A 00 25 0E DA 02  |:.600.....:.%...|
00000610: 8F 22 2A 2A 2D 2D C5 CE  D4 C5 D2 A0 C4 C1 D4 C1  |."**--..........|
00000620: 2D 2D 2A 2A 00 2A 0E E4  02 3A 00 41 0E EE 02 99  |--**.*...:.A....|
00000630: C7 28 31 34 37 29 3A 43  44 B2 35 3A 8D 39 30 30  |.(147):CD.5:.900|
00000640: 30 00 6F 0E F8 02 99 22  C8 4F 57 20 4D 41 4E 59  |0.o....".OW MANY|
00000650: 20 50 4F 4C 4C 53 20 4F  52 20 53 41 4D 50 4C 49  | POLLS OR SAMPLI|
00000660: 4E 47 20 55 4E 49 54 53  3F 22 3A 99 22 11 22 00  |NG UNITS?":.".".|
00000670: A4 0E 02 03 85 20 50 4E  3A 8B 50 4E B2 30 A7 99  |..... PN:.PN.0..|
00000680: 22 93 22 3A 99 22 D2 C5  D1 D5 C9 D2 C5 A0 CE D5  |".":."..........|
00000690: CD C2 C5 D2 A0 2D 20 D3  D4 C1 D2 D4 A0 CF D6 C5  |.....- .........|
000006A0: D2 22 3A 80 00 B1 0E 0C  03 86 20 50 44 28 50 4E  |.":....... PD(PN|
000006B0: 29 00 BF 0E 16 03 81 20  4A B2 31 A4 20 50 4E 00  |)...... J.1. PN.|
000006C0: E2 0E 20 03 99 22 C5 4E  54 45 52 20 50 4F 50 55  |.. ..".NTER POPU|
000006D0: 4C 41 54 49 4F 4E 20 4F  46 20 55 4E 49 54 20 22  |LATION OF UNIT "|
000006E0: 3B 4A 00 EE 0E 2A 03 85  20 50 44 28 4A 29 00 F5  |;J...*.. PD(J)..|
000006F0: 0E 34 03 82 4A 00 0C 0F  3E 03 99 C7 28 31 34 37  |.4..J...>...(147|
00000700: 29 3A 43 44 B2 35 3A 8D  39 30 30 30 00 1E 0F 48  |):CD.5:.9000...H|
00000710: 03 81 4B 4A B2 31 A4 32  30 30 3A 82 4B 4A 00 4F  |..KJ.1.200:.KJ.O|
00000720: 0F 52 03 99 22 D7 41 4E  54 20 54 4F 20 52 45 56  |.R..".ANT TO REV|
00000730: 49 45 57 20 55 4E 49 54  20 50 4F 50 55 4C 41 54  |IEW UNIT POPULAT|
00000740: 49 4F 4E 20 44 41 54 41  3F 22 3A 99 22 11 22 00  |ION DATA?":.".".|
00000750: 59 0F 5C 03 8D 38 30 30  30 00 70 0F 66 03 8B 20  |Y.\..8000.p.f.. |
00000760: 59 45 53 24 B2 22 59 22  20 A7 20 8D 37 30 30 30  |YES$."Y" . .7000|
00000770: 00 83 0F 70 03 97 42 2C  36 3A 97 53 2C 36 3A 97  |...p..B,6:.S,6:.|
00000780: 43 2C 31 00 9A 0F 7A 03  99 C7 28 31 34 37 29 3A  |C,1...z...(147):|
00000790: 43 44 B2 35 3A 8D 39 30  30 30 00 BF 0F 84 03 99  |CD.5:.9000......|
000007A0: 22 C4 4F 20 59 4F 55 20  57 41 4E 54 20 54 4F 20  |".O YOU WANT TO |
000007B0: 53 41 56 45 20 54 48 49  53 20 44 41 54 41 22 00  |SAVE THIS DATA".|
000007C0: DA 0F 8E 03 99 22 4F 4E  20 44 49 53 4B 3F 22 3A  |....."ON DISK?":|
000007D0: 99 22 11 22 3A 8D 38 30  30 30 00 F1 0F 98 03 8B  |.".":.8000......|
000007E0: 20 59 45 53 24 B2 22 4E  22 20 A7 20 89 20 39 37  | YES$."N" . . 97|
000007F0: 30 00 22 10 A2 03 99 22  C5 4E 54 45 52 20 46 49  |0."....".NTER FI|
00000800: 4C 45 20 4E 41 4D 45 20  28 4D 41 58 49 4D 55 4D  |LE NAME (MAXIMUM|
00000810: 20 31 32 20 43 48 41 52  41 43 54 45 52 53 29 22  | 12 CHARACTERS)"|
00000820: 3A 99 00 3F 10 AC 03 85  46 49 4C 45 24 3A 8B 20  |:..?....FILE$:. |
00000830: 46 49 4C 45 24 B2 22 22  A7 20 89 20 39 34 30 00  |FILE$."". . 940.|
00000840: 68 10 B6 03 99 3A 99 C7  28 31 38 29 22 D0 4C 45  |h....:..(18)".LE|
00000850: 41 53 45 20 D7 41 49 54  20 41 20 CD 4F 4D 45 4E  |ASE .AIT A .OMEN|
00000860: 54 22 C7 28 31 34 36 29  00 83 10 C0 03 8D 33 30  |T".(146)......30|
00000870: 30 30 3A 20 8F 20 46 49  4C 45 20 43 52 45 41 54  |00: . FILE CREAT|
00000880: 49 4F 4E 00 A4 10 CA 03  97 42 2C 36 3A 97 53 2C  |ION......B,6:.S,|
00000890: 36 3A 99 C7 28 31 34 37  29 3A 43 44 B2 35 3A 8D  |6:..(147):CD.5:.|
000008A0: 39 30 30 30 00 CC 10 D4  03 99 22 C8 4F 57 20 4D  |9000......".OW M|
000008B0: 41 4E 59 20 52 41 4E 44  4F 4D 20 4E 55 4D 42 45  |ANY RANDOM NUMBE|
000008C0: 52 53 20 46 4F 52 20 45  41 43 48 22 00 F1 10 DE  |RS FOR EACH"....|
000008D0: 03 99 22 53 41 4D 50 4C  45 20 55 4E 49 54 20 44  |.."SAMPLE UNIT D|
000008E0: 4F 20 59 4F 55 20 57 41  4E 54 3F 22 3A 99 22 11  |O YOU WANT?":.".|
000008F0: 22 00 FC 10 E8 03 85 20  52 4E 3A 99 00 2A 11 F2  |"...... RN:..*..|
00000900: 03 99 22 C4 4F 20 59 4F  55 20 57 41 4E 54 20 41  |..".O YOU WANT A|
00000910: 20 50 52 49 4E 54 4F 55  54 20 4F 46 20 54 48 45  | PRINTOUT OF THE|
00000920: 20 52 45 53 55 4C 54 53  3F 22 00 58 11 FC 03 99  | RESULTS?".X....|
00000930: 22 C9 46 20 4E 4F 2C 20  4E 55 4D 42 45 52 53 20  |".F NO, NUMBERS |
00000940: 57 49 4C 4C 20 44 49 53  50 4C 41 59 20 4F 4E 20  |WILL DISPLAY ON |
00000950: 53 43 52 45 45 4E 2E 22  00 67 11 06 04 99 22 11  |SCREEN.".g....".|
00000960: 22 3A 8D 38 30 30 30 00  7B 11 10 04 8B 59 45 53  |":.8000.{....YES|
00000970: 24 B2 22 4E 22 A7 89 31  37 30 30 00 81 11 1A 04  |$."N"..1700.....|
00000980: 3A 00 9D 11 24 04 8F 22  2A 2A 2D 2D D0 D2 C9 CE  |:...$.."**--....|
00000990: D4 A0 D2 CF D5 D4 C9 CE  C5 2D 2D 2A 2A 00 B9 11  |.........--**...|
000009A0: 2E 04 8F 22 2A 2A 2D 2D  CE 41 4D 45 2C CA 4F 42  |..."**--.AME,.OB|
000009B0: 2C C4 41 54 45 2D 2D 2A  2A 00 BF 11 38 04 3A 00  |,.ATE--**...8.:.|
000009C0: D6 11 42 04 99 C7 28 31  34 37 29 3A 43 44 B2 33  |..B...(147):CD.3|
000009D0: 3A 8D 39 30 30 30 00 0C  12 4C 04 99 C7 28 31 38  |:.9000...L...(18|
000009E0: 29 C7 28 31 35 38 29 A6  38 29 22 D0 C1 C7 C5 A0  |).(158).8)".....|
000009F0: C8 C5 C1 C4 C5 D2 A0 C9  CE C6 CF D2 CD C1 D4 C9  |................|
00000A00: CF CE 22 C7 28 35 29 3A  99 22 11 22 00 3A 12 56  |..".(5):.".".:.V|
00000A10: 04 99 22 D4 59 50 45 20  49 4E 20 59 4F 55 52 20  |..".YPE IN YOUR |
00000A20: 4E 41 4D 45 20 4F 52 20  59 4F 55 52 20 43 4F 4D  |NAME OR YOUR COM|
00000A30: 50 41 4E 59 20 4E 41 4D  45 22 00 5E 12 60 04 99  |PANY NAME".^.`..|
00000A40: 22 C4 4F 20 4E 4F 54 20  55 53 45 20 43 4F 4D 4D  |".O NOT USE COMM|
00000A50: 41 53 20 4F 52 20 43 4F  4C 4F 4E 53 2E 22 00 67  |AS OR COLONS.".g|
00000A60: 12 6A 04 85 20 4E 24 00  6D 12 74 04 99 00 87 12  |.j.. N$.m.t.....|
00000A70: 7E 04 99 22 C5 4E 54 45  52 20 54 4F 44 41 59 27  |~..".NTER TODAY'|
00000A80: 53 20 44 41 54 45 22 00  AC 12 88 04 85 22 CD 4F  |S DATE"......".O|
00000A90: 4E 54 48 22 3B 4D 24 3A  85 22 C4 41 59 22 3B 44  |NTH";M$:.".AY";D|
00000AA0: 24 3A 85 22 D9 45 41 52  22 3B 59 24 00 B2 12 92  |$:.".EAR";Y$....|
00000AB0: 04 99 00 DF 12 9C 04 99  22 C5 4E 54 45 52 20 54  |........".NTER T|
00000AC0: 48 45 20 4E 41 4D 45 20  4F 46 20 54 48 49 53 20  |HE NAME OF THIS |
00000AD0: 4A 4F 42 20 4F 52 20 50  52 4F 4A 45 43 54 22 00  |JOB OR PROJECT".|
00000AE0: E7 12 A6 04 85 4A 24 00  F3 12 B0 04 99 C7 28 31  |.....J$.......(1|
00000AF0: 34 37 29 00 2D 13 BA 04  99 C7 28 31 38 29 3B C7  |47).-.....(18);.|
00000B00: 28 31 35 38 29 3B 22 D9  CF D5 D2 A0 CE C1 CD C5  |(158);".........|
00000B10: A0 CF D2 A0 C3 CF CD D0  C1 CE D9 A0 CE C1 CD C5  |................|
00000B20: 22 3B C7 28 31 34 36 29  3B C7 28 35 29 00 33 13  |";.(146);.(5).3.|
00000B30: C4 04 99 00 3D 13 CE 04  99 4E 24 3A 99 00 6C 13  |....=....N$:..l.|
00000B40: D8 04 99 C7 28 31 38 29  3B C7 28 31 35 38 29 3B  |....(18);.(158);|
00000B50: 22 D4 CF C4 C1 D9 27 D3  A0 C4 C1 D4 C5 22 3B C7  |".....'......";.|
00000B60: 28 31 34 36 29 3B C7 28  35 29 3A 99 00 84 13 E2  |(146);.(5):.....|
00000B70: 04 99 4D 24 3B 22 20 22  3B 44 24 3B 22 20 22 3B  |..M$;" ";D$;" ";|
00000B80: 59 24 3A 99 00 BC 13 EC  04 99 C7 28 31 38 29 3B  |Y$:........(18);|
00000B90: C7 28 31 35 38 29 3B 22  CA CF C2 A0 CE C1 CD C5  |.(158);"........|
00000BA0: A0 CF D2 A0 C4 C5 D3 C3  D2 C9 D0 D4 C9 CF CE 22  |..............."|
00000BB0: 3B C7 28 31 34 36 29 3B  C7 28 35 29 00 C2 13 F6  |;.(146);.(5)....|
00000BC0: 04 99 00 CC 13 00 05 99  4A 24 3A 99 00 F8 13 0A  |........J$:.....|
00000BD0: 05 99 A6 35 29 22 C9 53  20 54 48 49 53 20 49 4E  |...5)".S THIS IN|
00000BE0: 46 4F 52 4D 41 54 49 4F  4E 20 43 4F 52 52 45 43  |FORMATION CORREC|
00000BF0: 54 3F 22 3A 99 22 11 22  00 02 14 14 05 8D 38 30  |T?":."."......80|
00000C00: 30 30 00 18 14 1E 05 8B  20 59 45 53 24 B2 22 4E  |00...... YES$."N|
00000C10: 22 A7 20 89 31 30 39 30  00 1E 14 28 05 3A 00 3E  |". .1090...(.:.>|
00000C20: 14 32 05 8F 22 2A 2A 2D  2D D0 D2 CF CD D0 D4 2C  |.2.."**--......,|
00000C30: C3 C1 CC C3 2C D0 D2 C9  CE D4 2D 2D 2A 2A 00 44  |....,.....--**.D|
00000C40: 14 3C 05 3A 00 5B 14 46  05 99 C7 28 31 34 37 29  |.<.:.[.F...(147)|
00000C50: 3A 43 44 B2 35 3A 8D 39  30 30 30 00 83 14 50 05  |:CD.5:.9000...P.|
00000C60: 99 22 CD 41 4B 45 20 53  55 52 45 20 50 52 49 4E  |.".AKE SURE PRIN|
00000C70: 54 45 52 20 49 53 20 52  45 41 44 59 2C 20 54 48  |TER IS READY, TH|
00000C80: 45 4E 22 00 A5 14 5A 05  99 22 50 52 45 53 53 20  |EN"...Z.."PRESS |
00000C90: 41 4E 59 20 4B 45 59 20  54 4F 20 43 4F 4E 54 49  |ANY KEY TO CONTI|
00000CA0: 4E 55 45 2E 22 00 BB 14  64 05 A1 5A 24 3A 8B 5A  |NUE."...d..Z$:.Z|
00000CB0: 24 B2 22 22 A7 20 89 31  33 38 30 00 C1 14 6E 05  |$."". .1380...n.|
00000CC0: 3A 00 D9 14 78 05 99 C7  28 31 34 37 29 3A 43 44  |:...x...(147):CD|
00000CD0: B2 31 30 3A 8D 39 30 30  30 00 F7 14 82 05 99 A6  |.10:.9000.......|
00000CE0: 31 36 29 C7 28 31 38 29  22 D0 D2 C9 CE D4 C9 CE  |16).(18)".......|
00000CF0: C7 22 3A 99 22 11 22 00  14 15 8C 05 99 A6 31 34  |.":.".".......14|
00000D00: 29 22 D0 CC C5 C1 D3 C5  A0 D7 C1 C9 D4 22 C7 28  |)"...........".(|
00000D10: 31 34 36 29 00 46 15 96  05 9F 34 2C 34 2C 37 3A  |146).F....4,4,7:|
00000D20: 98 34 2C C7 28 32 37 29  22 4C 22 C7 28 31 30 29  |.4,.(27)"L".(10)|
00000D30: 3A A0 34 3A 8F 20 53 45  54 53 20 4C 45 46 54 20  |:.4:. SETS LEFT |
00000D40: 4D 41 52 47 49 4E 00 51  15 A0 05 9F 34 2C 34 2C  |MARGIN.Q....4,4,|
00000D50: 37 00 60 15 AA 05 98 34  2C C7 28 31 38 29 4E 24  |7.`....4,.(18)N$|
00000D60: 00 6E 15 B4 05 98 34 2C  C7 28 31 34 36 29 00 80  |.n....4,.(146)..|
00000D70: 15 BE 05 98 34 2C 22 CA  CF C2 3A 20 22 3B 4A 24  |....4,"...: ";J$|
00000D80: 00 A1 15 C8 05 98 34 2C  22 C4 C1 D4 C5 3A 20 22  |......4,"....: "|
00000D90: 3B 4D 24 AA 22 20 22 AA  44 24 AA 22 20 22 AA 59  |;M$." ".D$." ".Y|
00000DA0: 24 00 C6 15 D2 05 98 34  2C 22 D2 C1 CE C4 CF CD  |$......4,"......|
00000DB0: A0 CE D5 CD C2 C5 D2 A0  CC C9 D3 D4 22 3A 98 34  |............":.4|
00000DC0: 2C C7 28 31 30 29 00 CD  15 DC 05 A0 34 00 DC 15  |,.(10)......4...|
00000DD0: E6 05 81 20 4A B2 31 20  A4 20 50 4E 00 E6 15 F0  |... J.1 . PN....|
00000DE0: 05 58 B2 58 AA 31 00 19  16 FA 05 9F 34 2C 34 2C  |.X.X.1......4,4,|
00000DF0: 37 3A 98 34 2C 22 D5 4E  49 54 20 CE 4F 3A 22 3B  |7:.4,".NIT .O:";|
00000E00: 58 3B 22 20 20 20 D5 4E  49 54 20 D0 4F 50 3A 22  |X;"   .NIT .OP:"|
00000E10: 3B 50 44 28 4A 29 3A A0  34 00 26 16 04 06 81 4B  |;PD(J):.4.&....K|
00000E20: B2 31 A4 20 52 4E 00 3C  16 0E 06 52 B2 B5 28 50  |.1. RN.<...R..(P|
00000E30: 44 28 4A 29 AC BB 28 31  29 29 AA 31 00 50 16 18  |D(J)..(1)).1.P..|
00000E40: 06 9F 34 2C 34 2C 37 3A  98 34 2C 52 3B 3A A0 34  |..4,4,7:.4,R;:.4|
00000E50: 00 58 16 22 06 82 20 4B  00 6F 16 2C 06 9F 34 2C  |.X.".. K.o.,..4,|
00000E60: 34 2C 37 3A 98 34 2C C7  28 31 30 29 3A A0 34 00  |4,7:.4,.(10):.4.|
00000E70: 77 16 36 06 82 20 4A 00  8F 16 40 06 99 C7 28 31  |w.6.. J...@...(1|
00000E80: 34 37 29 3A 43 44 B2 31  38 3A 8D 39 30 30 30 00  |47):CD.18:.9000.|
00000E90: C1 16 4A 06 99 22 11 11  22 3A 20 20 99 22 D0 52  |..J.."..":  .".R|
00000EA0: 45 53 53 20 22 3B C7 28  31 38 29 22 C6 31 22 3B  |ESS ";.(18)".1";|
00000EB0: C7 28 31 34 36 29 3B 22  20 C1 47 41 49 4E 20 22  |.(146);" .GAIN "|
00000EC0: 3B 00 FD 16 54 06 99 C7  28 31 38 29 3B 22 C6 33  |;...T...(18);".3|
00000ED0: 22 3B C7 28 31 34 36 29  3B 22 20 D1 55 49 54 20  |";.(146);" .UIT |
00000EE0: 22 3B C7 28 31 38 29 22  C6 35 22 3B C7 28 31 34  |";.(18)".5";.(14|
00000EF0: 36 29 3B 22 20 D2 45 53  54 41 52 54 22 00 12 17  |6);" .ESTART"...|
00000F00: 5E 06 A1 5A 24 3A 8B 5A  24 B2 22 22 A7 20 31 36  |^..Z$:.Z$."". 16|
00000F10: 33 30 00 40 17 68 06 8B  5A 24 B3 B1 C7 28 31 33  |30.@.h..Z$...(13|
00000F20: 33 29 AF 5A 24 B3 B1 C7  28 31 33 34 29 AF 20 5A  |3).Z$...(134). Z|
00000F30: 24 B3 B1 C7 28 31 33 35  29 A7 20 89 31 36 33 30  |$...(135). .1630|
00000F40: 00 62 17 72 06 8B 5A 24  B2 C7 28 31 33 33 29 A7  |.b.r..Z$..(133).|
00000F50: 20 58 B2 30 3A 99 C7 28  31 34 37 29 3A 89 31 33  | X.0:..(147):.13|
00000F60: 35 30 00 77 17 7C 06 8B  5A 24 B2 C7 28 31 33 34  |50.w.|..Z$..(134|
00000F70: 29 A7 20 31 36 38 30 00  8E 17 86 06 8B 5A 24 B2  |). 1680......Z$.|
00000F80: C7 28 31 33 35 29 A7 20  9C 3A 89 31 30 30 00 9C  |.(135). .:.100..|
00000F90: 17 90 06 99 C7 28 31 34  37 29 3A 80 00 A2 17 9A  |.....(147):.....|
00000FA0: 06 3A 00 C0 17 A4 06 8F  22 2D 2D 2A 2A D0 D2 C9  |.:......"--**...|
00000FB0: CE D4 A0 D4 CF A0 D3 C3  D2 C5 C5 CE 2D 2D 2A 2A  |............--**|
00000FC0: 00 C6 17 AE 06 3A 00 FA  17 B8 06 99 C7 28 31 34  |.....:.......(14|
00000FD0: 37 29 3A 99 22 91 91 11  11 22 3A 99 3A 99 22 CE  |7):."....":.:.".|
00000FE0: 55 4D 42 45 52 53 20 57  49 4C 4C 20 44 49 53 50  |UMBERS WILL DISP|
00000FF0: 4C 41 59 20 49 4E 20 41  22 3B 00 24 18 C2 06 99  |LAY IN A";.$....|
00001000: 22 20 46 45 57 20 53 45  43 4F 4E 44 53 2E 20 20  |" FEW SECONDS.  |
00001010: D7 48 45 4E 20 53 43 52  45 45 4E 20 49 53 20 46  |.HEN SCREEN IS F|
00001020: 55 4C 4C 22 00 5E 18 CC  06 99 22 11 11 22 3A 99  |ULL".^...."..":.|
00001030: 20 A3 36 29 22 D0 52 45  53 53 20 22 C7 28 31 38  | .6)".RESS ".(18|
00001040: 29 22 D3 D0 C1 C3 C5 20  C2 C1 D2 20 22 C7 28 31  |)"..... ... ".(1|
00001050: 34 36 29 22 54 4F 20 53  43 52 4F 4C 4C 22 00 81  |46)"TO SCROLL"..|
00001060: 18 D6 06 81 4B 4B B2 31  20 A4 32 35 30 30 3A 82  |....KK.1 .2500:.|
00001070: 4B 4B 3A 99 C7 28 31 34  37 29 3A 97 31 39 38 2C  |KK:..(147):.198,|
00001080: 30 00 94 18 E0 06 81 4A  B2 31 A4 20 50 4E 3A 58  |0......J.1. PN:X|
00001090: B2 58 AA 31 00 B2 18 EA  06 99 20 C7 28 31 35 38  |.X.1...... .(158|
000010A0: 29 22 D5 CE C9 D4 20 CE  CF 3A 22 3B 58 3B C7 28  |)".... ..:";X;.(|
000010B0: 35 29 00 D1 18 F4 06 81  4B B2 31 A4 20 52 4E 3A  |5)......K.1. RN:|
000010C0: 52 B2 B5 28 50 44 28 4A  29 AC BB 28 31 29 29 AA  |R..(PD(J)..(1)).|
000010D0: 31 00 DE 18 FE 06 99 20  52 3B 3A 82 20 4B 00 E9  |1...... R;:. K..|
000010E0: 18 08 07 99 C7 28 33 32  29 00 1F 19 12 07 8B C2  |.....(32).......|
000010F0: 28 31 39 34 35 29 B3 B1  33 32 20 B0 C2 28 31 39  |(1945)..32 ..(19|
00001100: 30 36 29 B3 B1 33 32 20  20 A7 20 A1 58 24 3A 8B  |06)..32  . .X$:.|
00001110: 58 24 B3 B1 C7 28 33 32  29 A7 89 31 38 31 30 00  |X$...(32)..1810.|
00001120: 26 19 1C 07 82 4A 00 56  19 30 07 99 22 11 11 22  |&....J.V.0..".."|
00001130: 3A 99 22 D0 52 45 53 53  20 22 3B C7 28 31 38 29  |:.".RESS ";.(18)|
00001140: 22 C6 31 22 3B C7 28 31  34 36 29 3B 22 20 C1 47  |".1";.(146);" .G|
00001150: 41 49 4E 20 22 3B 00 92  19 3A 07 99 C7 28 31 38  |AIN ";...:...(18|
00001160: 29 3B 22 C6 33 22 3B C7  28 31 34 36 29 3B 22 20  |);".3";.(146);" |
00001170: D1 55 49 54 20 22 3B C7  28 31 38 29 22 C6 35 22  |.UIT ";.(18)".5"|
00001180: 3B C7 28 31 34 36 29 3B  22 20 D2 45 53 54 41 52  |;.(146);" .ESTAR|
00001190: 54 22 00 A7 19 44 07 A1  5A 24 3A 8B 5A 24 B2 22  |T"...D..Z$:.Z$."|
000011A0: 22 A7 20 31 38 36 30 00  D5 19 4E 07 8B 5A 24 B3  |". 1860...N..Z$.|
000011B0: B1 C7 28 31 33 33 2B AF  5A 24 B3 B1 C7 28 31 33  |..(133+.Z$...(13|
000011C0: 34 29 AF 20 5A 24 B3 B1  C7 28 31 33 35 29 A7 20  |4). Z$...(135). |
000011D0: 89 31 38 36 30 00 F7 19  58 07 8B 5A 24 B2 C7 28  |.1860...X..Z$..(|
000011E0: 31 33 33 29 A7 20 58 B2  30 3A 99 C7 28 31 34 37  |133). X.0:..(147|
000011F0: 29 3A 89 31 37 36 30 00  0C 1A 62 07 8B 5A 24 B2  |):.1760...b..Z$.|
00001200: C7 28 31 33 34 29 A7 20  31 39 31 30 00 23 1A 6C  |.(134). 1910.#.l|
00001210: 07 8B 5A 24 B2 C7 28 31  33 35 29 A7 20 9C 3A 89  |..Z$..(135). .:.|
00001220: 31 30 30 00 31 1A 76 07  99 C7 28 31 34 37 29 3A  |100.1.v...(147):|
00001230: 80 00 37 1A 80 07 3A 00  5B 1A B8 0B 8F 22 2A 2A  |..7...:.[...."**|
00001240: 2D 2D C6 C9 CC C5 A0 C3  D2 C5 C1 D4 C9 CF CE A0  |--..............|
00001250: D2 CF D5 D4 C9 CE C5 2D  2D 2A 2A 00 61 1A C2 0B  |.......--**.a...|
00001260: 3A 00 7C 1A CC 0B 8F 22  2A 2A 2D 2D D0 4F 49 4E  |:.|...."**--.OIN|
00001270: 54 45 52 20 C6 49 4C 45  2D 2D 2A 2A 00 A0 1A D6  |TER .ILE--**....|
00001280: 0B 9F 32 2C 38 2C 32 2C  22 40 30 3A 22 AA 46 49  |..2,8,2,"@0:".FI|
00001290: 4C 45 24 AA 22 2E 50 54  22 AA 22 2C 53 2C 57 22  |LE$.".PT".",S,W"|
000012A0: 00 AA 1A E0 0B 98 32 2C  50 4E 00 B1 1A EA 0B A0  |......2,PN......|
000012B0: 32 00 C9 1A F4 0B 8F 22  2A 2A 2D 2D C4 41 54 41  |2......"**--.ATA|
000012C0: 20 C6 49 4C 45 2D 2D 2A  2A 00 E7 1A FE 0B 9F 33  | .ILE--**......3|
000012D0: 2C 38 2C 33 2C 22 40 30  3A 22 AA 46 49 4C 45 24  |,8,3,"@0:".FILE$|
000012E0: AA 22 2C 53 2C 57 22 00  F5 1A 08 0C 81 20 4A B2  |.",S,W"...... J.|
000012F0: 31 A4 20 50 4E 00 02 1B  12 0C 98 33 2C 50 44 28  |1. PN......3,PD(|
00001300: 4A 29 00 09 1B 1C 0C 82  4A 00 10 1B 26 0C A0 33  |J)......J...&..3|
00001310: 00 16 1B 30 0C 8E 00 1C  1B 3A 0C 3A 00 36 1B 58  |...0.....:.:.6.X|
00001320: 1B 8F 22 2A 2A 2D 2D C4  C1 D4 C1 A0 D2 C5 D6 C9  |.."**--.........|
00001330: C5 D7 2D 2D 2A 2A 00 3C  1B 62 1B 3A 00 53 1B 6C  |..--**.<.b.:.S.l|
00001340: 1B 99 C7 28 31 34 37 29  3A 43 44 B2 39 3A 8D 39  |...(147):CD.9:.9|
00001350: 30 30 30 00 61 1B 76 1B  97 42 2C 38 3A 97 53 2C  |000.a.v..B,8:.S,|
00001360: 38 00 70 1B 80 1B 81 20  4A B2 31 20 A4 20 50 4E  |8.p.... J.1 . PN|
00001370: 00 7C 1B 8A 1B 99 C7 28  31 34 37 29 00 89 1B 94  |.|.....(147)....|
00001380: 1B 99 22 11 11 11 11 11  22 00 B3 1B 9E 1B 99 20  |.."....."...... |
00001390: A6 35 29 C7 28 31 38 29  22 D5 CE C9 D4 20 22 3B  |.5).(18)".... ";|
000013A0: 4A 3B C7 28 31 34 36 2B  3B 22 20 20 22 3B 50 44  |J;.(146+;"  ";PD|
000013B0: 28 4A 29 00 C5 1B A8 1B  99 22 11 11 11 11 11 11  |(J)......"......|
000013C0: 11 11 11 11 22 00 F1 1B  B2 1B 99 22 D0 52 45 53  |...."......".RES|
000013D0: 53 20 22 3B C7 28 31 38  29 22 D3 D0 C1 C3 C5 22  |S ";.(18)"....."|
000013E0: 3B C7 28 31 34 36 29 3B  22 20 CE 45 58 54 20 22  |;.(146);" .EXT "|
000013F0: 3B 00 2C 1C BC 1B 99 C7  28 31 38 29 3B 22 C6 31  |;.,.....(18);".1|
00001400: 22 3B C7 28 31 34 36 29  3B 22 20 C5 58 49 54 20  |";.(146);" .XIT |
00001410: 22 3B C7 28 31 3A 29 22  C6 33 22 3B C7 28 31 34  |";.(1:)".3";.(14|
00001420: 36 29 3B 22 20 C3 48 41  4E 47 45 22 00 42 1C C6  |6);" .HANGE".B..|
00001430: 1B A1 5A 24 3A 8B 5A 24  B2 22 22 A7 20 89 37 31  |..Z$:.Z$."". .71|
00001440: 31 30 00 6F 1C D0 1B 8B  5A 24 B3 B1 C7 28 33 32  |10.o....Z$...(32|
00001450: 29 AF 5A 24 B3 B1 C7 28  31 33 33 29 AF 20 5A 24  |).Z$...(133). Z$|
00001460: B3 B1 C7 28 31 33 34 29  A7 20 89 37 31 31 30 00  |...(134). .7110.|
00001470: 89 1C DA 1B 8B 5A 24 B2  C7 28 33 32 29 AF 20 4A  |.....Z$..(32). J|
00001480: B3 B1 50 4E 20 A7 20 82  4A 00 A4 1C E4 1B 8B 5A  |..PN . .J......Z|
00001490: 24 B2 C7 28 33 32 29 AF  4A B2 50 4E 20 A7 20 89  |$..(32).J.PN . .|
000014A0: 37 30 32 30 00 B6 1C EE  1B 8B 5A 24 B2 C7 28 31  |7020......Z$..(1|
000014B0: 33 33 29 A7 20 8E 00 E1  1C F8 1B 99 22 91 91 91  |33). ......."...|
000014C0: 91 91 22 3A 99 20 A6 35  29 C7 28 31 38 29 22 CE  |..":. .5).(18)".|
000014D0: C5 D7 A0 C4 C1 D4 C1 20  22 3B C7 28 31 34 36 29  |....... ";.(146)|
000014E0: 3B 00 FB 1C 02 1C 85 20  50 44 28 4A 29 3A 8B 4A  |;...... PD(J):.J|
000014F0: B2 50 4E 20 A7 20 89 37  30 32 30 00 03 1D 0C 1C  |.PN . .7020.....|
00001500: 82 20 4A 00 09 1D 16 1C  3A 00 29 1D 40 1F 8F 22  |. J.....:.).@.."|
00001510: 2A 2A 2D 2D D9 2F CE 20  C9 CE D0 D5 D4 A0 D2 CF  |**--./. ........|
00001520: D5 D4 C9 CE C5 2D 2D 2A  2A 00 2F 1D 4A 1F 3A 00  |.....--**./.J.:.|
00001530: 3B 1D 54 1F 59 45 53 24  B2 22 22 00 47 1D 5E 1F  |;.T.YES$."".G.^.|
00001540: 99 C7 28 31 35 38 29 00  83 1D 68 1F 99 A6 31 30  |..(158)...h...10|
00001550: 29 22 D4 59 50 45 20 41  20 22 3B C7 28 31 38 29  |)".YPE A ";.(18)|
00001560: 3B 22 59 22 3B C7 28 31  34 36 29 3B 22 20 4F 52  |;"Y";.(146);" OR|
00001570: 20 22 3B C7 28 31 38 29  3B 22 4E 22 3B C7 28 31  | ";.(18);"N";.(1|
00001580: 34 36 29 00 8D 1D 72 1F  99 C7 28 35 29 00 A7 1D  |46)...r...(5)...|
00001590: 7C 1F 97 31 39 38 2C 30  3A 8F 20 43 4C 45 41 52  ||..198,0:. CLEAR|
000015A0: 20 42 55 46 46 45 52 00  B2 1D 86 1F 85 20 59 45  | BUFFER...... YE|
000015B0: 53 24 00 CA 1D 90 1F 8B  20 59 45 53 24 B2 C7 28  |S$...... YES$..(|
000015C0: 31 33 29 A7 20 89 38 30  37 30 00 F9 1D 9A 1F 8B  |13). .8070......|
000015D0: 20 C8 28 59 45 53 24 2C  31 29 B2 22 59 22 B0 20  | .(YES$,1)."Y". |
000015E0: C8 28 59 45 53 24 2C 31  29 B2 22 D9 22 A7 20 59  |.(YES$,1).".". Y|
000015F0: 45 53 24 B2 22 59 22 3A  8E 00 28 1E A4 1F 8B 20  |ES$."Y":..(.... |
00001600: C8 28 59 45 53 24 2C 31  29 B2 22 4E 22 B0 20 C8  |.(YES$,1)."N". .|
00001610: 28 59 45 53 24 2C 31 29  B2 22 CE 22 A7 20 59 45  |(YES$,1).".". YE|
00001620: 53 24 B2 22 4E 22 3A 8E  00 2E 1E AE 1F 99 00 5A  |S$."N":........Z|
00001630: 1E B8 1F 99 C7 28 31 38  29 C7 28 32 38 29 22 49  |.....(18).(28)"I|
00001640: 4E 43 4F 52 52 45 43 54  20 43 48 4F 49 43 45 22  |NCORRECT CHOICE"|
00001650: C7 28 31 34 36 29 C7 28  35 29 00 60 1E C2 1F 99  |.(146).(5).`....|
00001660: 00 77 1E CC 1F 89 38 30  30 30 3A 20 8F 20 41 53  |.w....8000: . AS|
00001670: 4B 20 41 47 41 49 4E 00  7D 1E D6 1F 3A 00 9F 1E  |K AGAIN.}...:...|
00001680: 28 23 8F 22 2A 2A 2D 2D  C3 D5 D2 D3 CF D2 A0 C4  |(#."**--........|
00001690: CF D7 CE A0 D2 CF D5 D4  C9 CE C5 2D 2D 2A 2A 00  |...........--**.|
000016A0: A5 1E 32 23 3A 00 B4 1E  3C 23 81 20 49 B2 31 20  |..2#:...<#. I.1 |
000016B0: A4 20 43 44 00 C0 1E 46  23 99 C7 28 31 37 29 3B  |. CD...F#..(17);|
000016C0: 00 C8 1E 50 23 82 20 49  00 CE 1E 5A 23 8E 00 D4  |...P#. I...Z#...|
000016D0: 1E 64 23 3A 00 EF 1E 10  27 8F 22 2A 2A 2D 2D C9  |.d#:....'."**--.|
000016E0: CE D3 D4 D2 D5 C3 D4 C9  CF CE D3 2D 2D 2A 2A 00  |...........--**.|
000016F0: F5 1E 1A 27 3A 00 0A 1F  24 27 97 42 2C 31 34 3A  |...':...$'.B,14:|
00001700: 97 53 2C 31 34 3A 97 43  2C 30 00 2F 1F 2E 27 99  |.S,14:.C,0./..'.|
00001710: C7 28 31 34 37 29 3A 99  A3 31 33 29 22 C9 CE D3  |.(147):..13)"...|
00001720: D4 D2 D5 C3 D4 C9 CF CE  D3 22 3A 99 22 11 22 00  |.........":.".".|
00001730: 5B 1F 38 27 99 22 D4 48  49 53 20 50 52 4F 47 52  |[.8'.".HIS PROGR|
00001740: 41 4D 20 57 49 4C 4C 20  48 45 4C 50 20 53 45 4C  |AM WILL HELP SEL|
00001750: 45 43 54 20 52 41 4E 44  4F 4D 22 00 87 1F 42 27  |ECT RANDOM"...B'|
00001760: 99 22 53 41 4D 50 4C 45  53 20 46 4F 52 20 4F 50  |."SAMPLES FOR OP|
00001770: 49 4E 49 4F 4E 20 53 55  52 56 45 59 53 20 4F 52  |INION SURVEYS OR|
00001780: 20 4F 54 48 45 52 22 00  B6 1F 4C 27 99 22 4B 49  | OTHER"...L'."KI|
00001790: 4E 44 53 20 4F 46 20 52  45 53 45 41 52 43 48 2E  |NDS OF RESEARCH.|
000017A0: 20 20 D9 4F 55 20 4D 55  53 54 20 53 55 50 50 4C  |  .OU MUST SUPPL|
000017B0: 59 20 54 48 45 22 00 E3  1F 56 27 99 22 4E 55 4D  |Y THE"...V'."NUM|
000017C0: 42 45 52 20 4F 46 20 53  41 4D 50 4C 49 4E 47 20  |BER OF SAMPLING |
000017D0: 55 4E 49 54 53 20 28 45  2E 47 2E 20 56 4F 54 45  |UNITS (E.G. VOTE|
000017E0: 52 53 22 00 12 20 60 27  99 22 50 4F 4C 4C 53 29  |RS".. `'."POLLS)|
000017F0: 20 41 4E 44 20 54 48 45  20 50 4F 50 55 4C 41 54  | AND THE POPULAT|
00001800: 49 4F 4E 20 4F 46 20 45  41 43 48 20 55 4E 49 54  |ION OF EACH UNIT|
00001810: 2E 22 00 18 20 6A 27 99  00 46 20 74 27 99 22 C1  |.".. j'..F t'.".|
00001820: 46 54 45 52 20 45 4E 54  45 52 49 4E 47 20 54 48  |FTER ENTERING TH|
00001830: 45 20 44 41 54 41 20 59  4F 55 20 4D 41 59 20 52  |E DATA YOU MAY R|
00001840: 45 56 49 45 57 22 00 75  20 7E 27 99 22 41 4E 44  |EVIEW".u ~'."AND|
00001850: 2F 4F 52 20 43 48 41 4E  47 45 20 49 54 2E 20 20  |/OR CHANGE IT.  |
00001860: D4 48 45 20 44 41 54 41  20 4D 41 59 20 41 4C 53  |.HE DATA MAY ALS|
00001870: 4F 20 42 45 22 00 A2 20  88 27 99 22 53 41 56 45  |O BE".. .'."SAVE|
00001880: 44 20 54 4F 20 44 49 53  4B 20 41 4E 44 20 52 45  |D TO DISK AND RE|
00001890: 54 52 49 45 56 45 44 20  46 4F 52 20 4C 41 54 45  |TRIEVED FOR LATE|
000018A0: 52 22 00 AE 20 92 27 99  22 55 53 45 2E 22 00 B4  |R".. .'."USE."..|
000018B0: 20 9C 27 99 00 DD 20 A6  27 99 22 D9 4F 55 20 57  | .'... .'.".OU W|
000018C0: 49 4C 4C 20 42 45 20 41  53 4B 45 44 20 48 4F 57  |ILL BE ASKED HOW|
000018D0: 20 4D 41 4E 59 20 52 41  4E 44 4F 4D 22 00 08 21  | MANY RANDOM"..!|
000018E0: B0 27 99 22 4E 55 4D 42  45 52 53 20 41 52 45 20  |.'."NUMBERS ARE |
000018F0: 52 45 51 55 49 52 45 44  20 46 4F 52 20 45 41 43  |REQUIRED FOR EAC|
00001900: 48 20 55 4E 49 54 2E 22  00 36 21 BA 27 99 22 D2  |H UNIT.".6!.'.".|
00001910: 45 53 55 4C 54 53 20 43  41 4E 20 42 45 20 44 49  |ESULTS CAN BE DI|
00001920: 53 50 4C 41 59 45 44 20  4F 4E 20 54 48 45 20 53  |SPLAYED ON THE S|
00001930: 43 52 45 45 4E 22 00 64  21 C4 27 99 22 4F 52 20  |CREEN".d!.'."OR |
00001940: 53 45 4E 54 20 54 4F 20  54 48 45 20 50 52 49 4E  |SENT TO THE PRIN|
00001950: 54 45 52 2E 20 20 C9 46  20 59 4F 55 20 53 45 4C  |TER.  .F YOU SEL|
00001960: 45 43 54 22 00 90 21 CE  27 99 22 41 20 50 52 49  |ECT"..!.'."A PRI|
00001970: 4E 54 4F 55 54 20 54 48  45 20 50 52 4F 47 52 41  |NTOUT THE PROGRA|
00001980: 4D 20 57 49 4C 4C 20 52  45 51 55 45 53 54 20 22  |M WILL REQUEST "|
00001990: 00 B4 21 D8 27 99 22 53  4F 4D 45 20 41 44 44 49  |..!.'."SOME ADDI|
000019A0: 54 49 4F 4E 41 4C 20 49  4E 46 4F 52 4D 41 54 49  |TIONAL INFORMATI|
000019B0: 4F 4E 2E 22 00 BF 21 E2  27 8D 31 32 30 32 30 00  |ON."..!.'.12020.|
000019C0: CB 21 EC 27 99 C7 28 31  34 37 29 00 F7 21 F6 27  |.!.'..(147)..!.'|
000019D0: 99 22 C6 4F 4C 4C 4F 57  49 4E 47 20 54 48 45 20  |.".OLLOWING THE |
000019E0: 44 49 53 50 4C 41 59 2F  50 52 49 4E 54 20 52 4F  |DISPLAY/PRINT RO|
000019F0: 55 54 49 4E 45 53 22 00  21 22 00 28 99 22 59 4F  |UTINES".!".(."YO|
00001A00: 55 20 4D 41 59 20 47 45  4E 45 52 41 54 45 20 41  |U MAY GENERATE A|
00001A10: 20 4E 45 57 20 53 45 51  55 45 4E 43 45 20 4F 46  | NEW SEQUENCE OF|
00001A20: 22 00 4B 22 0A 28 99 22  52 41 4E 44 4F 4D 20 4E  |".K".(."RANDOM N|
00001A30: 55 4D 42 45 52 53 20 46  52 4F 4D 20 54 48 45 20  |UMBERS FROM THE |
00001A40: 53 41 4D 45 20 44 41 54  41 2C 22 00 6F 22 14 28  |SAME DATA,".o".(|
00001A50: 99 22 52 45 53 54 41 52  54 20 54 48 45 20 50 52  |."RESTART THE PR|
00001A60: 4F 47 52 41 4D 2C 20 4F  52 20 51 55 49 54 22 00  |OGRAM, OR QUIT".|
00001A70: 96 22 1E 28 99 22 54 48  45 20 50 52 4F 47 52 41  |.".(."THE PROGRA|
00001A80: 4D 2E 20 20 D3 49 4D 50  4C 59 20 50 52 45 53 53  |M.  .IMPLY PRESS|
00001A90: 20 54 48 45 20 22 00 C4  22 28 28 99 22 46 55 4E  | THE ".."((."FUN|
00001AA0: 43 54 49 4F 4E 20 4B 45  59 20 57 48 49 43 48 20  |CTION KEY WHICH |
00001AB0: 49 53 20 49 4E 44 49 43  41 54 45 44 20 41 54 20  |IS INDICATED AT |
00001AC0: 54 48 45 22 00 E1 22 32  28 99 22 42 4F 54 54 4F  |THE".."2(."BOTTO|
00001AD0: 4D 20 4F 46 20 54 48 45  20 53 43 52 45 45 4E 2E  |M OF THE SCREEN.|
00001AE0: 22 00 EC 22 3C 28 8D 31  32 30 32 30 00 F8 22 46  |".."<(.12020.."F|
00001AF0: 28 99 C7 28 31 34 37 29  00 15 23 50 28 99 A3 31  |(..(147)..#P(..1|
00001B00: 32 29 22 D3 D9 D3 D4 C5  CD A0 CE CF D4 C5 D3 22  |2)"............"|
00001B10: 3A 99 22 11 22 00 41 23  5A 28 99 22 D4 48 49 53  |:.".".A#Z(.".HIS|
00001B20: 20 50 52 4F 47 52 41 4D  20 57 41 53 20 44 45 53  | PROGRAM WAS DES|
00001B30: 49 47 4E 45 44 20 46 4F  52 20 41 20 C3 36 34 2C  |IGNED FOR A .64,|
00001B40: 22 00 6E 23 64 28 99 22  31 35 34 31 20 44 52 49  |".n#d(."1541 DRI|
00001B50: 56 45 2C 20 41 4E 44 20  C5 50 53 4F 4E 20 D2 D8  |VE, AND .PSON ..|
00001B60: 20 50 52 49 4E 54 45 52  20 57 49 54 48 22 00 99  | PRINTER WITH"..|
00001B70: 23 6E 28 99 22 41 20 C3  41 52 44 3F 20 2B C7 20  |#n(."A .ARD? +. |
00001B80: C9 4E 54 45 52 46 41 43  45 2E 20 20 D4 4F 20 41  |.NTERFACE.  .O A|
00001B90: 44 41 50 54 20 46 4F 52  22 00 C6 23 78 28 99 22  |DAPT FOR"..#x(."|
00001BA0: 4F 54 48 45 52 20 50 52  49 4E 54 45 52 53 20 41  |OTHER PRINTERS A|
00001BB0: 44 4A 55 53 54 20 54 48  45 20 53 45 54 54 49 4E  |DJUST THE SETTIN|
00001BC0: 47 53 20 49 4E 22 00 E0  23 82 28 99 22 4C 49 4E  |GS IN"..#.(."LIN|
00001BD0: 45 53 20 31 33 33 30 20  2D 20 31 36 38 30 2E 22  |ES 1330 - 1680."|
00001BE0: 00 F5 23 8C 28 99 22 13  22 3A 43 44 B2 32 31 3A  |..#.(.".":CD.21:|
00001BF0: 8D 39 30 30 30 00 26 24  96 28 99 22 D0 52 45 53  |.9000.&$.(.".RES|
00001C00: 53 20 22 3B C7 28 31 38  29 22 D3 D0 C1 C3 C5 20  |S ";.(18)"..... |
00001C10: 22 3B C7 28 31 34 36 29  3B 22 CE 45 58 54 20 D0  |";.(146);".EXT .|
00001C20: 41 47 45 20 22 3B 00 43  24 A0 28 99 C7 28 31 38  |AGE ";.C$.(..(18|
00001C30: 29 22 C6 31 22 C7 28 31  34 36 29 3B 22 20 C5 58  |)".1".(146);" .X|
00001C40: 49 54 22 00 69 24 AA 28  A1 5A 24 3A 8B 20 5A 24  |IT".i$.(.Z$:. Z$|
00001C50: B3 B1 C7 28 33 32 29 AF  20 5A 24 B3 B1 C7 28 31  |...(32). Z$...(1|
00001C60: 33 33 29 A7 31 30 34 31  30 00 7E 24 B4 28 8B 20  |33).10410.~$.(. |
00001C70: 5A 24 B2 C7 28 33 32 29  A7 31 30 30 30 30 00 87  |Z$..(32).10000..|
00001C80: 24 BE 28 89 34 35 30 00  8D 24 C8 28 3A 00 A5 24  |$.(.450..$.(:..$|
00001C90: E0 2E 8F 22 2D 2D 2A 2A  CE C5 D8 D4 A0 D0 C1 C7  |..."--**........|
00001CA0: C5 2A 2A 2D 2D 00 AB 24  EA 2E 3A 00 C0 24 F4 2E  |.**--..$..:..$..|
00001CB0: 99 22 13 22 3A 43 44 B2  32 31 3A 8D 39 30 30 30  |.".":CD.21:.9000|
00001CC0: 00 F1 24 FE 2E 99 22 D0  52 45 53 53 20 22 3B C7  |..$...".RESS ";.|
00001CD0: 28 31 38 29 22 D3 D0 C1  C3 C5 20 22 3B C7 28 31  |(18)"..... ";.(1|
00001CE0: 34 36 29 3B 22 CE 45 58  54 20 50 41 47 45 20 22  |46);".EXT PAGE "|
00001CF0: 3B 00 11 25 08 2F 99 C7  28 31 38 29 3B 22 C6 31  |;..%./..(18);".1|
00001D00: 22 3B C7 28 31 34 36 29  3B 22 20 C5 58 49 54 20  |";.(146);" .XIT |
00001D10: 22 00 28 25 12 2F A1 5A  24 3A 8B 5A 24 B2 22 22  |".(%./.Z$:.Z$.""|
00001D20: A7 20 89 31 32 30 35 30  00 4A 25 1C 2F 8B 5A 24  |. .12050.J%./.Z$|
00001D30: B3 B1 C7 28 33 32 29 AF  5A 24 B3 B1 C7 28 31 33  |...(32).Z$...(13|
00001D40: 33 29 A7 20 89 31 32 30  35 30 00 5B 25 26 2F 8B  |3). .12050.[%&/.|
00001D50: 5A 24 B2 C7 28 33 32 29  A7 20 8E 00 70 25 30 2F  |Z$..(32). ..p%0/|
00001D60: 8B 5A 24 B2 C7 28 31 33  33 29 A7 20 89 34 35 30  |.Z$..(133). .450|
00001D70: 00 76 25 44 2F 3A 00 95  25 98 3A 8F 22 2D 2D 2A  |.v%D/:..%.:."--*|
00001D80: 2A D3 CF D5 CE C4 A0 D3  D5 C2 D2 CF D5 D4 C9 CE  |*...............|
00001D90: C5 2D 2D 2A 2A 00 9B 25  A2 3A 3A 00 A7 25 AC 3A  |.--**..%.::..%.:|
00001DA0: 54 B2 35 34 32 37 32 00  B4 25 B6 3A 97 20 54 AA  |T.54272..%.:. T.|
00001DB0: 31 2C 32 30 00 C0 25 C0  3A 97 20 54 AA 35 2C 39  |1,20..%.:. T.5,9|
00001DC0: 00 CC 25 CA 3A 97 20 54  AA 36 2C 39 00 DA 25 D4  |..%.:. T.6,9..%.|
00001DD0: 3A 97 20 54 AA 32 34 2C  31 35 00 E7 25 DE 3A 97  |:. T.24,15..%.:.|
00001DE0: 20 54 AA 34 2C 31 37 00  FB 25 E3 3A 81 20 57 B2  | T.4,17..%.:. W.|
00001DF0: 31 20 A4 20 32 30 3A 20  82 20 57 00 0F 26 E8 3A  |1 . 20: . W..&.:|
00001E00: 81 20 57 B2 31 20 A4 20  32 30 3A 20 82 20 57 00  |. W.1 . 20: . W.|
00001E10: 1E 26 F2 3A 97 20 54 AA  34 2C 31 36 00 22 26 FC  |.&.:. T.4,16."&.|
00001E20: 3A 8E 00 00 00                                    |:....           |

..$.D..".............................A.N
.."      SURVEY ASSISTANT.T.X.."        
  BY.K...."      JIM O'HARE......"      
303 GOVERNMENT ST......."      VICTORIA,
 B.C. V8V 2L3.H. .."      SEPTEMBER 1984
......".................................
:.....B.53280:S.53281:C.646:. SCREEN COL
OURS.>.H.. 53272,23:. UPPER/LOWER CASE.`
.R.. N$=COMPANY NAME J$=JOB NAME.~.... M
$=MONTH D$=DAY Y$=YEAR.....:......"**-FI
RST SCREEN--**.....:......G(147):.B,6:.S
,6:.C,1.N...CD.5:.9000.....NN$."SURVEY A
SSISTANT"..."...20.(C(NN$).2))NN$:....,.
NN$."BY".*.6...20.(C(NN$).2))NN$:..?.@.N
N$."JIM O'HARE".W.J...20.(C(NN$).2))NN$.
L.T..".":CD.23:.9000...^.. .7)G(18)"PRES
S ANY KEY TO CONTINUE"G(146)...H..15000:
. SOUND.B.R..Z$:.Z$."".370.H.|.:......"*
*--WANT INSTRUCTIONS?--**.....:......G(1
47):CD.5:.9000./.....5)"DO YOU WANT INST
RUCTIONS?":.".".:.... 8000.P.... YES$."Y
"..10000.C.B..B,6:.S,6:.C,1.Z.L..G(147):
CD.5:.9000...V.."DO YOU WANT TO PRODUCE 
THE RANDOM".H...."NUMBER LIST FROM A PRE
VIOUSLY"......"CREATED DATA FILE?":.".":
 .8000......YES$."N". .730.(...."ENTER N
AME OF FILE TO RETRIEVE".4.... FILE$.:..
.:.R...."**--READ FILE--**.X.&.:...0..".
": .G(18)"PLEASE WAIT A MOMENT"G(146)...
:..2,8,2,"0:".FILE$.".PT".",S,R"...D..2,
PN.Z.I..ST.64. 2: .15,8,15:.15,X$: 15:.6
00...N. 2...X..:.PN.0. .G(18) ".FILE DOE
S NOT EXIST."G(146):.510.5.B..3,8,3,"0:"
.FILE$.",S,R".B.L.. PD(PN).P.V..J.1 . PN
.]....3,PD(J).D....J.K... 3.W....G(147).
....CD.5:.9000:."WANT TO REVIEW UNIT POP
ULATION DATA?":."."......8000.T.... YES$
."Y" . .7000...F..970...K..ST.64. 2: .15
,8,15:.15,X$: 15:.600...P.:.%.Z.."**--EN
TER DATA--**.*...:.A....G(147):CD.5:.900
0.O...."HOW MANY POLLS OR SAMPLING UNITS
?":."."...... PN:.PN.0..".":."REQUIRE NU
MBER - START OVER":....... PD(PN)...... 
J.1. PN... .."ENTER POPULATION OF UNIT "
;J...*.. PD(J)...4..J...>..G(147):CD.5:.
9000...H..KJ.1.200:.KJ.O.R.."WANT TO REV
IEW UNIT POPULATION DATA?":.".".Y.\..800
0.P.F.. YES$."Y" . .7000...P..B,6:.S,6:.
C,1...Z..G(147):CD.5:.9000......"DO YOU 
WANT TO SAVE THIS DATA".Z...."ON DISK?":
.".":.8000...... YES$."N" . . 970."...."
ENTER FILE NAME (MAXIMUM 12 CHARACTERS)"
:..?....FILE$:. FILE$."". . 940.H....:.G
(18)"PLEASE WAIT A MOMENT"G(146)......30
00: . FILE CREATION...J..B,6:.S,6:.G(147
):CD.5:.9000.L.T.."HOW MANY RANDOM NUMBE
RS FOR EACH"......"SAMPLE UNIT DO YOU WA
NT?":."."...... RN:..*...."DO YOU WANT A
 PRINTOUT OF THE RESULTS?".X...."IF NO, 
NUMBERS WILL DISPLAY ON SCREEN.".G....".
":.8000.{....YES$."N"..1700.....:...$.."
**--PRINT ROUTINE--**......"**--NAME,JOB
,DATE--**...8.:.V.B..G(147):CD.3:.9000..
.L..G(18)G(158).8)"PAGE HEADER INFORMATI
ON"G(5):.".".:.V.."TYPE IN YOUR NAME OR 
YOUR COMPANY NAME".^.`.."DO NOT USE COMM
AS OR COLONS.".G.J.. N$.M.T.....~.."ENTE
R TODAY'S DATE"......"MONTH";M$:."DAY";D
$:."YEAR";Y$............"ENTER THE NAME 
OF THIS JOB OR PROJECT"......J$......G(1
47).-....G(18);G(158);"YOUR NAME OR COMP
ANY NAME";G(146);G(5).3.D...=.N..N$:..L.
X..G(18);G(158);"TODAY'S DATE";G(146);G(
5):.......M$;" ";D$;" ";Y$:.......G(18);
G(158);"JOB NAME OR DESCRIPTION";G(146);
G(5).B.....L....J$:........5)"IS THIS IN
FORMATION CORRECT?":."."......8000......
 YES$."N". .1090...(.:.>.2.."**--PROMPT,
CALC,PRINT--**.D.<.:.[.F..G(147):CD.5:.9
000...P.."MAKE SURE PRINTER IS READY, TH
EN"...Z.."PRESS ANY KEY TO CONTINUE."...
D..Z$:.Z$."". .1380.A.N.:.Y.X..G(147):CD
.10:.9000.......16)G(18)"PRINTING":.".".
......14)"PLEASE WAIT"G(146).F....4,4,7:
.4,G(27)"L"G(10): 4:. SETS LEFT MARGIN.Q
. ..4,4,7.`....4,G(18)N$.N....4,G(146)..
....4,"JOB: ";J$...H..4,"DATE: ";M$." ".
D$." ".Y$.F.R..4,"RANDOM NUMBER LIST":.4
,G(10).M... 4...... J.1 . PN.....X.X.1..
....4,4,7:.4,"UNIT NO:";X;"   UNIT POP:"
;PD(J): 4.&....K.1. RN.<...R..(PD(J)..(1
)).1.P....4,4,7:.4,R;: 4.X.".. K.O.,..4,
4,7:.4,G(10): 4.W.6.. J...@..G(147):CD.1
8:.9000.A.J.."..":  ."PRESS ";G(18)"F1";
G(146);" AGAIN ";...T..G(18);"F3";G(146)
;" QUIT ";G(18)"F5";G(146);" RESTART"...
^..Z$:.Z$."". 1630.@.H..Z$..G(133).Z$..G
(134). Z$..G(135). .1630.B.R..Z$.G(133).
 X.0:.G(147):.1350.W.|..Z$.G(134). 1680.
.....Z$.G(135). .:.100......G(147):.....
.:......"--**PRINT TO SCREEN--**.F...:..
....G(147):."....":.:."NUMBERS WILL DISP
LAY IN A";.$.B.." FEW SECONDS.  WHEN SCR
EEN IS FULL".^.L.."..":. .6)"PRESS "G(18
)"SPACE BAR "G(146)"TO SCROLL"...V..KK.1
 .2500:.KK:.G(147):.198,0......J.1. PN:X
.X.1...... G(158)"UNIT NO:";X;G(5).Q....
K.1. RN:R..(PD(J)..(1)).1...... R;:. K..
....G(32)......B(1945)..32 .B(1906)..32 
 . .X$:.X$..G(32)..1810.&....J.V.0..".."
:."PRESS ";G(18)"F1";G(146);" AGAIN ";..
.:..G(18);"F3";G(146);" QUIT ";G(18)"F5"
;G(146);" RESTART"...D..Z$:.Z$."". 1860.
U.N..Z$..G(133+.Z$..G(134). Z$..G(135). 
.1860...X..Z$.G(133). X.0:.G(147):.1760.
..B..Z$.G(134). 1910.#.L..Z$.G(135). .:.
100.1.V..G(147):..7...:.[...."**--FILE C
REATION ROUTINE--**.A.B.:.|.L.."**--POIN
TER FILE--**. .V..2,8,2,"@0:".FILE$.".PT
".",S,W"......2,PN..... 2.I...."**--DATA
 FILE--**......3,8,3,"@0:".FILE$.",S,W".
..... J.1. PN......3,PD(J)......J...&. 3
...0.....:.:.6.X.."**--DATA REVIEW--**.<
.B.:.S.L..G(147):CD.9:.9000.A.V..B,8:.S,
8.P.... J.1 . PN.|....G(147)......".....
"...... .5)G(18)"UNIT ";J;G(146+;"  ";PD
(J).E....".........."......"PRESS ";G(18
)"SPACE";G(146);" NEXT ";.,....G(18);"F1
";G(146);" EXIT ";G(1:)"F3";G(146);" CHA
NGE".B.F..Z$:.Z$."". .7110.O.P..Z$..G(32
).Z$..G(133). Z$..G(134). .7110...Z..Z$.
G(32). J..PN . .J......Z$.G(32).J.PN . .
7020......Z$.G(133). .......".....":. .5
)G(18)"NEW DATA ";G(146);...... PD(J):.J
.PN . .7020...... J.....:.).@.."**--Y/N 
INPUT ROUTINE--**./.J.:.;.T.YES$."".G.^.
.G(158)...H...10)"TYPE A ";G(18);"Y";G(1
46);" OR ";G(18);"N";G(146)...R..G(5)...
|..198,0:. CLEAR BUFFER...... YES$.J....
 YES$.G(13). .8070...... H(YES$,1)."Y". 
H(YES$,1)."Y". YES$."Y":..(.... H(YES$,1
)."N". H(YES$,1)."N". YES$."N":........Z
....G(18)G(28)"INCORRECT CHOICE"G(146)G(
5).`.B...W.L..8000: . ASK AGAIN.}.V.:...
(#."**--CURSOR DOWN ROUTINE--**...2#:...
<#. I.1 . CD...F#.G(17);.H.P#. I.N.Z#..T
.D#:....'."**--INSTRUCTIONS--**....':...
$'.B,14:.S,14:.C,0./..'.G(147):..13)"INS
TRUCTIONS":.".".[.8'."THIS PROGRAM WILL 
HELP SELECT RANDOM"...B'."SAMPLES FOR OP
INION SURVEYS OR OTHER"...L'."KINDS OF R
ESEARCH.  YOU MUST SUPPLY THE"...V'."NUM
BER OF SAMPLING UNITS (E.G. VOTERS".. `'
."POLLS) AND THE POPULATION OF EACH UNIT
.".. J'..F T'."AFTER ENTERING THE DATA Y
OU MAY REVIEW".U ~'."AND/OR CHANGE IT.  
THE DATA MAY ALSO BE".. .'."SAVED TO DIS
K AND RETRIEVED FOR LATER".. .'."USE."..
 .'... .'."YOU WILL BE ASKED HOW MANY RA
NDOM"..!.'."NUMBERS ARE REQUIRED FOR EAC
H UNIT.".6!.'."RESULTS CAN BE DISPLAYED 
ON THE SCREEN".D!D'."OR SENT TO THE PRIN
TER.  IF YOU SELECT"..!N'."A PRINTOUT TH
E PROGRAM WILL REQUEST "..!X'."SOME ADDI
TIONAL INFORMATION."..!.'.12020.K!.'.G(1
47)..!.'."FOLLOWING THE DISPLAY/PRINT RO
UTINES".!".(."YOU MAY GENERATE A NEW SEQ
UENCE OF".K".(."RANDOM NUMBERS FROM THE 
SAME DATA,".O".(."RESTART THE PROGRAM, O
R QUIT"..".(."THE PROGRAM.  SIMPLY PRESS
 THE ".D"((."FUNCTION KEY WHICH IS INDIC
ATED AT THE".."2(."BOTTOM OF THE SCREEN.
".."<(.12020.."F(.G(147)..#P(..12)"SYSTE
M NOTES":.".".A#Z(."THIS PROGRAM WAS DES
IGNED FOR A C64,".N#D(."1541 DRIVE, AND 
EPSON RX PRINTER WITH"..#N(."A CARD? +G 
INTERFACE.  TO ADAPT FOR".F#X(."OTHER PR
INTERS ADJUST THE SETTINGS IN"..#.(."LIN
ES 1330 - 1680."..#.(.".":CD.21:.9000.&$
.(."PRESS ";G(18)"SPACE ";G(146);"NEXT P
AGE ";.C$ (.G(18)"F1"G(146);" EXIT".I$.(
.Z$:. Z$..G(32). Z$..G(133).10410.~$.(. 
Z$.G(32).10000..$.(.450..$H(:..$..."--**
NEXT PAGE**--..$..:..$...".":CD.21:.9000
..$..."PRESS ";G(18)"SPACE ";G(146);"NEX
T PAGE ";..%./.G(18);"F1";G(146);" EXIT 
".(%./.Z$:.Z$."". .12050.J%./.Z$..G(32).
Z$..G(133). .12050.[%&/.Z$.G(32). ..P%0/
.Z$.G(133). .450.V%D/:..%.:."--**SOUND S
UBROUTINE--**..%.::..%.:T.54272..%.:. T.
1,20..%.:. T.5,9.L%J:. T.6,9.Z%T:. T.24,
15..%.:. T.4,17..%.:. W.1 . 20: . W..&.:
. W.1 . 20: . W..&.:. T.4,16."&.:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL