STOCK 80 COL

00000000: 01 08 0C 08 64 00 8F 2A  31 30 30 2A 00 19 08 6E  |....d..*100*...n|
00000010: 00 99 20 C7 28 31 34 32  29 00 47 08 78 00 86 20  |.. .(142).G.x.. |
00000020: 53 4E 24 28 36 29 2C 53  41 28 36 29 2C 50 4E 24  |SN$(6),SA(6),PN$|
00000030: 28 36 29 2C 50 53 28 36  2C 36 29 2C 50 41 28 36  |(6),PS(6,6),PA(6|
00000040: 29 2C 44 4E 28 33 29 00  52 08 82 00 8D 20 31 30  |),DN(3).R.... 10|
00000050: 30 30 00 61 08 8C 00 81  20 52 B2 31 20 A4 20 4E  |00.a.... R.1 . N|
00000060: 52 00 75 08 96 00 3A 44  31 B2 B5 28 36 AC BB 28  |R.u...:D1..(6..(|
00000070: 31 29 29 AA 31 00 89 08  A0 00 3A 44 32 B2 B5 28  |1)).1.....:D2..(|
00000080: 33 AC BB 28 31 29 29 AA  31 00 AC 08 AA 00 3A 44  |3..(1)).1.....:D|
00000090: 33 B2 B5 28 33 AC BB 28  31 29 29 AA 31 3A 20 44  |3..(3..(1)).1: D|
000000A0: 33 B2 35 AC 32 AE 28 44  33 AB 31 29 00 C9 08 B4  |3.5.2.(D3.1)....|
000000B0: 00 3A 99 3A 20 99 20 53  4E 24 28 44 31 29 3B 44  |.:.: . SN$(D1);D|
000000C0: 4E 24 28 44 32 29 3B 44  33 00 E4 08 BE 00 3A 91  |N$(D2);D3.....:.|
000000D0: 20 44 32 20 8D 20 35 30  30 30 2C 35 33 30 30 2C  | D2 . 5000,5300,|
000000E0: 35 36 30 30 00 F0 08 C8  00 3A 8D 20 39 35 30 30  |5600.....:. 9500|
000000F0: 00 FC 08 D3 00 3A 99 20  22 13 22 3B 00 1A 09 D4  |.....:. ".";....|
00000100: 00 3A 99 20 22 11 11 11  11 11 11 11 11 11 11 11  |.:. "...........|
00000110: 11 11 11 11 11 11 11 11  11 22 00 35 09 DC 00 3A  |.........".5...:|
00000120: 99 20 42 4C 24 3A 20 99  20 42 4C 24 3A 20 99 20  |. BL$: . BL$: . |
00000130: 22 91 91 91 22 00 3D 09  E6 00 82 20 52 00 66 09  |"...".=.... R.f.|
00000140: F0 00 99 3A 20 99 20 22  4F 4E 45 20 4D 4F 52 45  |...: . "ONE MORE|
00000150: 20 52 4F 55 4E 44 20 59  2F 4E 20 3F 22 3B 3A 20  | ROUND Y/N ?";: |
00000160: 8D 20 38 30 30 30 00 93  09 FA 00 8B 20 57 4B 24  |. 8000...... WK$|
00000170: B3 B1 22 4E 22 20 AF 20  57 4B 24 B3 B1 22 59 22  |.."N" . WK$.."Y"|
00000180: 20 A7 20 99 20 4D 31 24  3B 4D 32 24 3A 20 89 20  | . . M1$;M2$: . |
00000190: 32 34 30 00 B6 09 04 01  8B 20 57 4B 24 B2 22 4E  |240...... WK$."N|
000001A0: 22 20 A7 20 8D 20 36 30  30 30 3A 20 99 20 C7 28  |" . . 6000: . .(|
000001B0: 31 34 29 3A 20 80 00 D2  09 0E 01 81 20 49 B2 31  |14): ....... I.1|
000001C0: 20 A4 20 4E 32 3A 20 8D  20 33 33 30 30 3A 20 82  | . N2: . 3300: .|
000001D0: 20 49 00 E6 09 18 01 8B  20 4E 31 B2 30 20 A7 20  | I...... N1.0 . |
000001E0: 8D 20 37 30 30 30 00 F9  09 1D 01 99 20 22 93 22  |. 7000...... "."|
000001F0: 3B 3A 20 8D 20 32 30 30  30 00 03 0A 22 01 89 20  |;: . 2000...".. |
00000200: 31 34 30 00 0F 0A E8 03  8F 2A 31 30 30 30 2A 00  |140......*1000*.|
00000210: 4B 0A FC 03 83 20 22 53  49 4C 56 45 52 22 2C 22  |K.... "SILVER","|
00000220: 20 20 49 4E 44 20 22 2C  22 20 47 52 41 49 4E 22  |  IND "," GRAIN"|
00000230: 2C 22 20 20 4F 49 4C 20  22 2C 22 20 47 4F 4C 44  |,"  OIL "," GOLD|
00000240: 20 22 2C 22 20 42 4F 4E  44 53 22 00 73 0A 06 04  | "," BONDS".s...|
00000250: 81 20 49 B2 31 20 A4 20  36 3A 20 53 41 28 49 29  |. I.1 . 6: SA(I)|
00000260: B2 31 30 30 3A 20 87 20  53 4E 24 28 49 29 3A 20  |.100: . SN$(I): |
00000270: 82 20 49 00 93 0A 10 04  83 20 22 20 20 55 50 20  |. I...... "  UP |
00000280: 20 22 2C 22 20 44 4F 57  4E 22 2C 22 20 20 44 49  | "," DOWN","  DI|
00000290: 56 20 22 00 B0 0A 1A 04  81 20 49 B2 31 20 A4 20  |V "...... I.1 . |
000002A0: 33 3A 20 87 20 44 4E 24  28 49 29 3A 20 82 20 49  |3: . DN$(I): . I|
000002B0: 00 C5 0A 1B 04 4D 31 24  B2 22 49 4E 56 41 4C 49  |.....M1$."INVALI|
000002C0: 44 20 2D 20 22 00 DB 0A  1C 04 4D 32 24 B2 22 54  |D - ".....M2$."T|
000002D0: 59 50 45 20 59 20 4F 52  20 4E 22 00 F4 0A 1D 04  |YPE Y OR N".....|
000002E0: 4D 33 24 B2 22 4D 55 53  54 20 42 45 20 31 20 54  |M3$."MUST BE 1 T|
000002F0: 4F 20 36 22 00 10 0B 1E  04 4D 34 24 B2 22 4D 55  |O 6".....M4$."MU|
00000300: 53 54 20 42 45 20 31 2C  20 32 20 4F 52 20 33 22  |ST BE 1, 2 OR 3"|
00000310: 00 29 0B 1F 04 4D 35 24  B2 22 54 59 50 45 20 42  |.)...M5$."TYPE B|
00000320: 2C 20 53 20 4F 52 20 4E  22 00 4D 0B 20 04 4D 36  |, S OR N".M. .M6|
00000330: 24 B2 22 4D 55 53 54 20  42 45 20 41 20 4D 55 4C  |$."MUST BE A MUL|
00000340: 54 49 50 4C 45 20 4F 46  20 35 30 30 22 00 57 0B  |TIPLE OF 500".W.|
00000350: 21 04 99 20 22 93 22 00  85 0B 24 04 99 20 22 48  |!.. "."...$.. "H|
00000360: 4F 57 20 4D 41 4E 59 20  50 4C 41 59 45 52 53 3F  |OW MANY PLAYERS?|
00000370: 22 3B 3A 20 8D 20 38 30  30 30 3A 20 4E 32 B2 C5  |";: . 8000: N2..|
00000380: 28 57 4B 24 29 00 AB 0B  2E 04 8B 20 4E 32 B3 31  |(WK$)...... N2.1|
00000390: 20 B0 20 4E 32 B1 36 20  A7 20 99 20 4D 31 24 3B  | . N2.6 . . M1$;|
000003A0: 4D 33 24 3A 20 89 20 31  30 36 30 00 C5 0B 38 04  |M3$: . 1060...8.|
000003B0: 8B 20 4E 32 B2 31 20 A7  20 4E 31 B2 30 3A 20 89  |. N2.1 . N1.0: .|
000003C0: 20 31 31 32 30 00 F4 0B  42 04 99 20 22 4D 41 59  | 1120...B.. "MAY|
000003D0: 20 54 48 45 20 50 45 54  20 50 4C 41 59 20 41 4C  | THE PET PLAY AL|
000003E0: 53 4F 2E 2E 2E 20 59 2F  4E 3F 22 3B 3A 20 8D 20  |SO... Y/N?";: . |
000003F0: 38 30 30 30 00 22 0C 4C  04 8B 20 57 4B 24 B3 B1  |8000.".L.. WK$..|
00000400: 22 4E 22 20 AF 20 57 4B  24 B3 B1 22 59 22 20 A7  |"N" . WK$.."Y" .|
00000410: 20 99 20 4D 31 24 3B 4D  32 24 3A 20 89 20 31 30  | . M1$;M2$: . 10|
00000420: 39 30 00 3D 0C 56 04 4E  31 B2 30 3A 20 8B 20 57  |90.=.V.N1.0: . W|
00000430: 4B 24 B2 22 4E 22 20 A7  20 4E 31 B2 31 00 4C 0C  |K$."N" . N1.1.L.|
00000440: 60 04 81 20 49 B2 31 20  A4 20 4E 32 00 6B 0C 6A  |`.. I.1 . N2.k.j|
00000450: 04 3A 81 20 4A B2 31 20  A4 20 36 3A 20 50 53 28  |.:. J.1 . 6: PS(|
00000460: 49 2C 4A 29 B2 30 3A 20  82 20 4A 00 7B 0C 74 04  |I,J).0: . J.{.t.|
00000470: 3A 50 41 28 49 29 B2 35  30 30 30 00 AA 0C 7E 04  |:PA(I).5000...~.|
00000480: 3A 99 20 22 50 4C 41 59  45 52 22 3B 49 3B 22 57  |:. "PLAYER";I;"W|
00000490: 48 41 54 20 49 53 20 59  4F 55 52 20 4E 41 4D 45  |HAT IS YOUR NAME|
000004A0: 3F 22 3A 20 8D 20 38 35  30 30 00 BA 0C 83 04 3A  |?": . 8500.....:|
000004B0: 50 4E 24 28 49 29 B2 4E  41 24 00 E7 0C 88 04 3A  |PN$(I).NA$.....:|
000004C0: 8B 20 C3 28 4E 41 24 29  B1 32 30 20 A7 20 99 20  |. .(NA$).20 . . |
000004D0: 22 4E 41 4D 45 20 54 4F  4F 20 4C 4F 4E 47 22 3A  |"NAME TOO LONG":|
000004E0: 20 89 20 31 31 35 30 00  15 0D 8D 04 3A 8B 20 C3  | . 1150.....:. .|
000004F0: 28 4E 41 24 29 B3 20 31  20 A7 20 99 20 22 4D 55  |(NA$). 1 . . "MU|
00000500: 53 54 20 48 41 56 45 20  4E 41 4D 45 22 3A 20 89  |ST HAVE NAME": .|
00000510: 20 31 31 35 30 00 1D 0D  92 04 82 20 49 00 3F 0D  | 1150...... I.?.|
00000520: 9C 04 50 4E 24 28 30 29  B2 22 50 45 54 20 32 30  |..PN$(0)."PET 20|
00000530: 30 31 22 3A 20 50 41 28  30 29 B2 32 30 30 30 00  |01": PA(0).2000.|
00000540: 5F 0D A6 04 81 20 49 B2  31 20 A4 20 36 3A 20 50  |_.... I.1 . 6: P|
00000550: 53 28 30 2C 49 29 B2 35  30 30 3A 20 82 20 49 00  |S(0,I).500: . I.|
00000560: 6A 0D B0 04 8D 20 33 30  30 30 00 83 0D BA 04 8B  |j.... 3000......|
00000570: 20 4E 31 B2 30 20 A7 20  49 B2 30 3A 20 8D 20 34  | N1.0 . I.0: . 4|
00000580: 30 30 30 00 AB 0D C4 04  99 20 22 48 4F 57 20 4D  |000...... "HOW M|
00000590: 41 4E 59 20 43 4F 4D 50  4C 45 54 45 20 52 4F 55  |ANY COMPLETE ROU|
000005A0: 4E 44 53 20 42 45 46 4F  52 45 22 00 D5 0D CE 04  |NDS BEFORE".....|
000005B0: 99 20 22 42 55 59 49 4E  47 20 41 4E 44 20 53 45  |. "BUYING AND SE|
000005C0: 4C 4C 49 4E 47 20 53 54  4F 43 4B 53 20 28 31 2D  |LLING STOCKS (1-|
000005D0: 33 29 3F 22 3B 00 EB 0D  D8 04 8D 20 38 30 30 30  |3)?";...... 8000|
000005E0: 3A 20 4E 52 B2 C5 28 57  4B 24 29 00 11 0E E2 04  |: NR..(WK$).....|
000005F0: 8B 20 4E 52 B3 31 20 B0  20 4E 52 B1 33 20 A7 20  |. NR.1 . NR.3 . |
00000600: 99 20 4D 31 24 3B 4D 34  24 3A 20 89 20 31 32 32  |. M1$;M4$: . 122|
00000610: 30 00 35 0E EC 04 4E 52  B2 4E 52 AC 28 31 AB 4E  |0.5...NR.NR.(1.N|
00000620: 31 AA 4E 32 29 3A 20 99  20 22 93 22 3B 3A 20 8D  |1.N2): . ".";: .|
00000630: 20 32 30 30 30 00 67 0E  F6 04 42 4C 24 B2 22 20  | 2000.g...BL$." |
00000640: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000650: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000660: 20 20 20 20 20 20 22 00  6D 0E 00 05 8E 00 79 0E  |      ".m.....y.|
00000670: D0 07 8F 2A 32 30 30 30  2A 00 8F 0E EE 07 81 20  |...*2000*...... |
00000680: 49 B2 31 39 30 20 A4 20  30 20 A9 20 AB 31 30 00  |I.190 . 0 . .10.|
00000690: B0 0E F8 07 3A 47 4E 24  B2 22 20 20 22 AA C4 28  |....:GN$."  "..(|
000006A0: 49 29 3A 20 47 4E 24 B2  C9 28 47 4E 24 2C 33 29  |I): GN$..(GN$,3)|
000006B0: 00 C3 0E 16 08 3A 47 4E  24 B2 47 4E 24 AA 22 C0  |.....:GN$.GN$.".|
000006C0: C0 C0 22 00 D2 0E 20 08  3A 81 20 4A B2 31 20 A4  |.."... .:. J.1 .|
000006D0: 20 36 00 E1 0E 2A 08 3A  3A 57 4B 24 B2 22 C0 C0  | 6...*.::WK$."..|
000006E0: 22 00 FE 0E 34 08 3A 3A  8B 20 53 41 28 4A 29 B1  |"...4.::. SA(J).|
000006F0: 49 20 A7 20 57 4B 24 B2  22 12 20 20 92 22 00 19  |I . WK$.".  ."..|
00000700: 0F 3E 08 3A 3A 8B 20 53  41 28 4A 29 B2 49 20 A7  |.>.::. SA(J).I .|
00000710: 20 57 4B 24 B2 22 A2 A2  22 00 2B 0F 48 08 3A 3A  | WK$."..".+.H.::|
00000720: 57 4B 24 B2 57 4B 24 AA  22 C0 22 00 47 0F 52 08  |WK$.WK$.".".G.R.|
00000730: 3A 3A 8B 20 4A B3 36 20  A7 20 57 4B 24 B2 57 4B  |::. J.6 . WK$.WK|
00000740: 24 AA 22 C0 C0 C0 22 00  59 0F 5C 08 3A 3A 47 4E  |$."...".Y.\.::GN|
00000750: 24 B2 47 4E 24 AA 57 4B  24 00 62 0F 66 08 3A 82  |$.GN$.WK$.b.f.:.|
00000760: 20 4A 00 6D 0F 70 08 3A  99 20 47 4E 24 00 75 0F  | J.m.p.:. GN$.u.|
00000770: 7A 08 82 20 49 00 AB 0F  84 08 99 20 22 20 20 20  |z.. I...... "   |
00000780: 22 3B 53 4E 24 28 31 29  3B 53 4E 24 28 32 29 3B  |";SN$(1);SN$(2);|
00000790: 53 4E 24 28 33 29 3B 53  4E 24 28 34 29 3B 53 4E  |SN$(3);SN$(4);SN|
000007A0: 24 28 35 29 3B 53 4E 24  28 36 29 00 B1 0F 8E 08  |$(5);SN$(6).....|
000007B0: 8E 00 BD 0F B8 0B 8F 2A  33 30 30 30 2A 00 CC 0F  |.......*3000*...|
000007C0: CC 0B 81 20 49 B2 31 20  A4 20 4E 32 00 D8 0F D6  |... I.1 . N2....|
000007D0: 0B 3A 8D 20 34 30 30 30  00 F9 0F E0 0B 3A 99 20  |.:. 4000.....:. |
000007E0: 22 59 4F 55 20 4D 55 53  54 20 42 55 59 20 53 4F  |"YOU MUST BUY SO|
000007F0: 4D 45 20 53 54 4F 43 4B  22 00 05 10 EA 0B 3A 8D  |ME STOCK".....:.|
00000800: 20 39 30 30 30 00 11 10  1C 0C 3A 8D 20 34 34 30  | 9000.....:. 440|
00000810: 30 00 3E 10 26 0C 3A 8B  20 53 4E B2 37 20 A7 20  |0.>.&.:. SN.7 . |
00000820: 99 20 22 49 4E 53 55 46  46 49 43 49 45 4E 54 20  |. "INSUFFICIENT |
00000830: 46 55 4E 44 53 22 3A 20  89 20 33 30 35 30 00 4A  |FUNDS": . 3050.J|
00000840: 10 30 0C 3A 8D 20 33 33  30 30 00 63 10 3A 0C 3A  |.0.:. 3300.c.:.:|
00000850: 8B 20 50 41 28 49 29 B2  35 30 30 30 20 89 20 33  |. PA(I).5000 . 3|
00000860: 30 33 30 00 6B 10 44 0C  82 20 49 00 71 10 4E 0C  |030.k.D.. I.q.N.|
00000870: 8E 00 7D 10 E4 0C 8F 2A  33 33 30 30 2A 00 88 10  |..}....*3300*...|
00000880: F8 0C 8D 20 34 30 30 30  00 B6 10 02 0D 99 20 22  |... 4000...... "|
00000890: 42 55 59 2C 20 53 45 4C  4C 20 4F 52 20 4E 4F 54  |BUY, SELL OR NOT|
000008A0: 48 49 4E 47 20 42 2F 53  2F 4E 20 3F 22 3B 3A 20  |HING B/S/N ?";: |
000008B0: 8D 20 38 30 30 30 00 EF  10 0C 0D 8B 20 57 4B 24  |. 8000...... WK$|
000008C0: B3 B1 22 4E 22 20 AF 20  57 4B 24 B3 B1 22 53 22  |.."N" . WK$.."S"|
000008D0: 20 AF 20 57 4B 24 B3 B1  22 42 22 20 A7 20 99 20  | . WK$.."B" . . |
000008E0: 4D 31 24 3B 4D 35 24 3A  20 89 20 33 33 33 30 00  |M1$;M5$: . 3330.|
000008F0: 01 11 16 0D 8B 20 57 4B  24 B2 22 4E 22 20 A7 20  |..... WK$."N" . |
00000900: 8E 00 0D 11 20 0D 53 42  24 B2 57 4B 24 00 18 11  |.... .SB$.WK$...|
00000910: 34 0D 8D 20 39 30 30 30  00 2F 11 66 0D 8B 20 53  |4.. 9000./.f.. S|
00000920: 42 24 B2 22 53 22 20 A7  20 8D 20 34 36 30 30 00  |B$."S" . . 4600.|
00000930: 46 11 70 0D 8B 20 53 42  24 B2 22 42 22 20 A7 20  |F.p.. SB$."B" . |
00000940: 8D 20 34 34 30 30 00 5A  11 7A 0D 8B 20 53 4E B3  |. 4400.Z.z.. SN.|
00000950: 37 20 A7 20 89 20 33 33  30 30 00 89 11 84 0D 8B  |7 . . 3300......|
00000960: 20 53 42 24 B2 22 53 22  20 A7 20 99 20 22 59 4F  | SB$."S" . . "YO|
00000970: 55 20 44 4F 4E 27 54 20  4F 57 4E 20 45 4E 4F 55  |U DON'T OWN ENOU|
00000980: 47 48 20 53 54 4F 43 4B  22 00 B9 11 8E 0D 8B 20  |GH STOCK"...... |
00000990: 53 42 24 B2 22 42 22 20  A7 20 99 20 22 59 4F 55  |SB$."B" . . "YOU|
000009A0: 20 44 4F 4E 27 54 20 48  41 56 45 20 45 4E 4F 55  | DON'T HAVE ENOU|
000009B0: 47 48 20 4D 4F 4E 45 59  22 00 CF 11 98 0D 81 20  |GH MONEY"...... |
000009C0: 4B B2 31 20 A4 20 32 30  30 30 3A 20 82 20 4B 00  |K.1 . 2000: . K.|
000009D0: DA 11 A2 0D 89 20 33 33  30 30 00 E6 11 A0 0F 8F  |..... 3300......|
000009E0: 2A 34 30 30 30 2A 00 07  12 B4 0F 99 20 22 93 20  |*4000*...... ". |
000009F0: 20 20 20 50 4F 52 54 46  4F 4C 49 4F 20 2D 20 22  |   PORTFOLIO - "|
00000A00: 3B 50 4E 24 28 49 29 00  27 12 BE 0F 57 4B B2 C3  |;PN$(I).'...WK..|
00000A10: 28 50 4E 24 28 49 29 29  AA 31 32 3A 20 57 4B 24  |(PN$(I)).12: WK$|
00000A20: B2 22 20 20 20 20 22 00  48 12 C8 0F 81 20 4B B2  |."    ".H.... K.|
00000A30: 31 20 A4 20 57 4B 3A 20  57 4B 24 B2 57 4B 24 AA  |1 . WK: WK$.WK$.|
00000A40: 22 A3 22 3A 20 82 20 4B  00 52 12 D2 0F 99 20 57  |".": . K.R.... W|
00000A50: 4B 24 00 74 12 DC 0F 99  20 22 20 23 20 20 44 45  |K$.t.... " #  DE|
00000A60: 53 43 20 20 56 41 4C 55  45 20 20 48 4F 4C 44 49  |SC  VALUE  HOLDI|
00000A70: 4E 47 53 22 00 96 12 E6  0F 99 20 22 20 A3 A0 A0  |NGS"...... " ...|
00000A80: A3 A3 A3 A3 A0 A0 A3 A3  A3 A3 A3 A0 A0 A3 A3 A3  |................|
00000A90: A3 A3 A3 A3 A3 22 00 A4  12 FA 0F 81 20 4B B2 31  |....."...... K.1|
00000AA0: 20 A4 20 36 00 C8 12 04  10 3A 57 4B 24 B2 22 20  | . 6.....:WK$." |
00000AB0: 20 22 AA C4 28 53 41 28  4B 29 29 3A 20 56 24 B2  | "..(SA(K)): V$.|
00000AC0: C9 28 57 4B 24 2C 33 29  00 EC 12 22 10 3A 57 4B  |.(WK$,3)...".:WK|
00000AD0: B2 50 53 28 49 2C 4B 29  3A 20 57 4B 24 B2 22 20  |.PS(I,K): WK$." |
00000AE0: 20 20 20 20 20 22 AA C4  28 57 4B 29 00 FE 12 2C  |     "..(WK)...,|
00000AF0: 10 3A 57 4B 24 B2 C9 28  57 4B 24 2C 37 29 00 1A  |.:WK$..(WK$,7)..|
00000B00: 13 36 10 3A 8B 20 57 4B  B3 31 30 30 30 20 A7 20  |.6.:. WK.1000 . |
00000B10: 48 24 B2 22 20 22 AA 57  4B 24 00 44 13 40 10 3A  |H$." ".WK$.D.@.:|
00000B20: 8B 20 57 4B B1 20 35 30  30 20 A7 20 48 24 B2 C8  |. WK. 500 . H$..|
00000B30: 28 57 4B 24 2C 34 29 AA  22 2C 22 AA C9 28 57 4B  |(WK$,4).","..(WK|
00000B40: 24 2C 33 29 00 5A 13 4A  10 3A 57 4B 24 B2 22 20  |$,3).Z.J.:WK$." |
00000B50: 22 AA C4 28 4B 29 AA 22  20 22 00 7D 13 54 10 3A  |"..(K)." ".}.T.:|
00000B60: 99 20 57 4B 24 3B 53 4E  24 28 4B 29 3B 22 20 20  |. WK$;SN$(K);"  |
00000B70: 22 3B 56 24 3B 22 20 20  20 22 3B 48 24 00 85 13  |";V$;"   ";H$...|
00000B80: 5E 10 82 20 4B 00 AB 13  68 10 99 3A 20 99 20 22  |^.. K...h..: . "|
00000B90: 43 41 53 48 20 4F 4E 20  48 41 4E 44 20 2D 2D 2D  |CASH ON HAND ---|
00000BA0: 20 22 3B 50 41 28 49 29  3A 20 99 00 B1 13 72 10  | ";PA(I): ....r.|
00000BB0: 8E 00 BD 13 30 11 8F 2A  34 34 30 30 2A 00 D8 13  |....0..*4400*...|
00000BC0: 3A 11 57 4B B2 53 41 28  53 4E 29 AC 53 51 AD 31  |:.WK.SA(SN).SQ.1|
00000BD0: 30 30 3A 20 50 54 B2 31  00 F1 13 44 11 8B 20 57  |00: PT.1...D.. W|
00000BE0: 4B B1 50 41 28 49 29 20  A7 20 53 4E B2 37 3A 20  |K.PA(I) . SN.7: |
00000BF0: 8E 00 04 14 4E 11 50 41  28 49 29 B2 50 41 28 49  |....N.PA(I).PA(I|
00000C00: 29 AB 57 4B 00 1D 14 58  11 50 53 28 49 2C 53 4E  |).WK...X.PS(I,SN|
00000C10: 29 B2 50 53 28 49 2C 53  4E 29 AA 53 51 00 23 14  |).PS(I,SN).SQ.#.|
00000C20: 62 11 8E 00 2F 14 F8 11  8F 2A 34 36 30 30 2A 00  |b.../....*4600*.|
00000C30: 38 14 02 12 50 54 B2 31  00 54 14 0C 12 8B 20 53  |8...PT.1.T.... S|
00000C40: 51 B1 50 53 28 49 2C 53  4E 29 20 A7 20 53 4E B2  |Q.PS(I,SN) . SN.|
00000C50: 37 3A 20 8E 00 72 14 16  12 50 41 28 49 29 B2 50  |7: ..r...PA(I).P|
00000C60: 41 28 49 29 AA 53 41 28  53 4E 29 AC 53 51 AD 31  |A(I).SA(SN).SQ.1|
00000C70: 30 30 00 8B 14 20 12 50  53 28 49 2C 53 4E 29 B2  |00... .PS(I,SN).|
00000C80: 50 53 28 49 2C 53 4E 29  AB 53 51 00 91 14 2A 12  |PS(I,SN).SQ...*.|
00000C90: 8E 00 9D 14 88 13 8F 2A  35 30 30 30 2A 00 B2 14  |.......*5000*...|
00000CA0: 92 13 53 41 28 44 31 29  B2 53 41 28 44 31 29 AA  |..SA(D1).SA(D1).|
00000CB0: 44 33 00 C7 14 9C 13 8B  20 53 41 28 44 31 29 B3  |D3...... SA(D1).|
00000CC0: 32 30 30 20 A7 20 8E 00  D6 14 A6 13 53 41 28 44  |200 . ......SA(D|
00000CD0: 31 29 B2 31 30 30 00 E6  14 B0 13 81 20 49 B2 4E  |1).100...... I.N|
00000CE0: 31 20 A4 20 4E 32 00 FF  14 BA 13 3A 50 53 28 49  |1 . N2.....:PS(I|
00000CF0: 2C 44 31 29 B2 50 53 28  49 2C 44 31 29 AC 32 00  |,D1).PS(I,D1).2.|
00000D00: 07 15 C4 13 82 20 49 00  0D 15 CE 13 8E 00 19 15  |..... I.........|
00000D10: B4 14 8F 2A 35 33 30 30  2A 00 2E 15 BE 14 53 41  |...*5300*.....SA|
00000D20: 28 44 31 29 B2 53 41 28  44 31 29 AB 44 33 00 41  |(D1).SA(D1).D3.A|
00000D30: 15 C8 14 8B 20 53 41 28  44 31 29 B1 30 20 A7 20  |.... SA(D1).0 . |
00000D40: 8E 00 50 15 D2 14 53 41  28 44 31 29 B2 31 30 30  |..P...SA(D1).100|
00000D50: 00 60 15 DC 14 81 20 49  B2 4E 31 20 A4 20 4E 32  |.`.... I.N1 . N2|
00000D60: 00 70 15 E6 14 3A 50 53  28 49 2C 44 31 29 B2 30  |.p...:PS(I,D1).0|
00000D70: 00 78 15 F0 14 82 20 49  00 7E 15 FA 14 8E 00 8A  |.x.... I.~......|
00000D80: 15 E0 15 8F 2A 35 36 30  30 2A 00 9F 15 EA 15 8B  |....*5600*......|
00000D90: 20 53 41 28 44 31 29 B3  31 30 30 20 A7 20 8E 00  | SA(D1).100 . ..|
00000DA0: AF 15 F4 15 81 20 49 B2  4E 31 20 A4 20 4E 32 00  |..... I.N1 . N2.|
00000DB0: D0 15 FE 15 3A 50 41 28  49 29 B2 50 41 28 49 29  |....:PA(I).PA(I)|
00000DC0: AA 50 53 28 49 2C 44 31  29 AC 44 33 AD 31 30 30  |.PS(I,D1).D3.100|
00000DD0: 00 D8 15 08 16 82 20 49  00 DE 15 12 16 8E 00 EA  |...... I........|
00000DE0: 15 70 17 8F 2A 36 30 30  30 2A 00 F5 15 84 17 99  |.p..*6000*......|
00000DF0: 20 22 93 22 3B 00 1D 16  8E 17 99 20 22 50 4C 41  | ".";...... "PLA|
00000E00: 59 45 52 20 4E 41 4D 45  20 20 20 20 20 20 20 20  |YER NAME        |
00000E10: 20 20 43 41 53 48 20 56  41 4C 55 45 22 00 45 16  |  CASH VALUE".E.|
00000E20: 98 17 99 20 22 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |... "...........|
00000E30: 20 20 20 20 20 20 20 20  20 20 A3 A3 A3 A3 A3 A3  |          ......|
00000E40: A3 A3 A3 A3 22 00 55 16  A2 17 81 20 4B B2 4E 31  |....".U.... K.N1|
00000E50: 20 A4 20 4E 32 00 64 16  AC 17 3A 81 20 4A B2 31  | . N2.d...:. J.1|
00000E60: 20 A4 20 36 00 88 16 B6  17 3A 3A 50 41 28 4B 29  | . 6.....::PA(K)|
00000E70: B2 50 41 28 4B 29 AA 53  41 28 4A 29 AC 50 53 28  |.PA(K).SA(J).PS(|
00000E80: 4B 2C 4A 29 AD 31 30 30  00 91 16 C0 17 3A 82 20  |K,J).100.....:. |
00000E90: 4A 00 99 16 C2 17 82 20  4B 00 A9 16 C4 17 81 20  |J...... K...... |
00000EA0: 4B B2 4E 31 20 A4 20 4E  32 00 B4 16 C6 17 3A 57  |K.N1 . N2.....:W|
00000EB0: 4B B2 AB 31 00 C5 16 C8  17 3A 81 20 4A B2 4E 31  |K..1.....:. J.N1|
00000EC0: 20 A4 20 4E 32 00 E6 16  CA 17 3A 3A 8B 20 50 41  | . N2.....::. PA|
00000ED0: 28 4A 29 B1 57 4B 20 A7  20 57 4B B2 50 41 28 4A  |(J).WK . WK.PA(J|
00000EE0: 29 3A 20 49 B2 4A 00 EF  16 CC 17 3A 82 20 4A 00  |): I.J.....:. J.|
00000EF0: 0D 17 D4 17 3A 57 4B 24  B2 22 20 20 20 20 20 20  |....:WK$."      |
00000F00: 20 20 20 22 AA C4 28 50  41 28 49 29 29 00 2C 17  |   "..(PA(I)).,.|
00000F10: DE 17 3A 57 4B 24 B2 C9  28 57 4B 24 2C 38 29 3A  |..:WK$..(WK$,8):|
00000F20: 20 56 24 B2 C8 28 57 4B  24 2C 32 29 00 48 17 E8  | V$..(WK$,2).H..|
00000F30: 17 3A 8B 20 56 24 B3 B1  22 20 20 22 20 A7 20 56  |.:. V$.."  " . V|
00000F40: 24 B2 56 24 AA 22 2C 22  00 64 17 ED 17 3A 8B 20  |$.V$.",".d...:. |
00000F50: 56 24 B2 20 22 20 20 22  20 A7 20 56 24 B2 56 24  |V$. "  " . V$.V$|
00000F60: AA 22 20 22 00 7A 17 F2  17 3A 56 24 B2 56 24 AA  |." ".z...:V$.V$.|
00000F70: CA 28 57 4B 24 2C 33 2C  33 29 00 9A 17 FC 17 3A  |.(WK$,3,3).....:|
00000F80: 8B 20 C9 28 56 24 2C 31  29 B3 B1 22 20 22 20 A7  |. .(V$,1).." " .|
00000F90: 20 56 24 B2 56 24 AA 22  2C 22 00 BA 17 01 18 3A  | V$.V$.",".....:|
00000FA0: 8B 20 C9 28 56 24 2C 31  29 B2 20 22 20 22 20 A7  |. .(V$,1). " " .|
00000FB0: 20 56 24 B2 56 24 AA 22  20 22 00 CE 17 06 18 3A  | V$.V$." ".....:|
00000FC0: 56 24 B2 56 24 AA C9 28  57 4B 24 2C 33 29 00 E7  |V$.V$..(WK$,3)..|
00000FD0: 17 10 18 3A 99 20 50 4E  24 28 49 29 3B A3 32 31  |...:. PN$(I);.21|
00000FE0: 29 3B 56 24 3A 20 99 00  F5 17 15 18 3A 50 41 28  |);V$: ......:PA(|
00000FF0: 49 29 B2 AB 31 00 FD 17  1A 18 82 20 4B 00 03 18  |I)..1...... K...|
00001000: 24 18 8E 00 0F 18 58 1B  8F 2A 37 30 30 30 2A 00  |$.....X..*7000*.|
00001010: 25 18 6C 1B 49 B2 30 3A  20 50 54 B2 30 3A 20 8D  |%.l.I.0: PT.0: .|
00001020: 20 34 30 30 30 00 41 18  76 1B 81 20 53 4E B2 31  | 4000.A.v.. SN.1|
00001030: 20 A4 20 36 3A 20 53 51  B2 50 53 28 30 2C 53 4E  | . 6: SQ.PS(0,SN|
00001040: 29 00 77 18 8A 1B 3A 8B  20 53 41 28 53 4E 29 B3  |).w...:. SA(SN).|
00001050: 39 35 20 AF 20 53 51 B1  30 20 A7 20 99 20 22 53  |95 . SQ.0 . . "S|
00001060: 45 4C 4C 22 3B 53 51 3B  53 4E 24 28 53 4E 29 3A  |ELL";SQ;SN$(SN):|
00001070: 20 8D 20 34 36 30 30 00  80 18 94 1B 82 20 53 4E  | . 4600...... SN|
00001080: 00 96 18 99 1B 81 20 4B  B2 31 20 A4 20 31 35 30  |...... K.1 . 150|
00001090: 30 3A 20 82 20 4B 00 B2  18 9E 1B 8B 20 50 41 28  |0: . K...... PA(|
000010A0: 30 29 B3 36 30 30 20 A7  20 8D 20 37 33 30 30 3A  |0).600 . . 7300:|
000010B0: 20 8E 00 C5 18 A8 1B 57  4B B2 30 3A 53 51 B2 39  | ......WK.0:SQ.9|
000010C0: 39 39 39 39 39 00 D3 18  B2 1B 81 20 4A B2 31 20  |99999...... J.1 |
000010D0: A4 20 36 00 03 19 BC 1B  3A 8B 20 53 41 28 4A 29  |. 6.....:. SA(J)|
000010E0: B1 31 30 35 20 AF 20 50  53 28 30 2C 4A 29 B3 53  |.105 . PS(0,J).S|
000010F0: 51 20 A7 20 57 4B B2 4A  3A 53 51 B2 50 53 28 30  |Q . WK.J:SQ.PS(0|
00001100: 2C 4A 29 00 0B 19 C6 1B  82 20 4A 00 15 19 CB 1B  |,J)...... J.....|
00001110: 53 4E B2 57 4B 00 2C 19  D0 1B 8B 20 57 4B B2 30  |SN.WK.,.... WK.0|
00001120: 20 A7 20 8D 20 37 33 30  30 3A 20 8E 00 3F 19 DA  | . . 7300: ..?..|
00001130: 1B 53 51 B2 35 30 30 3A  20 8D 20 34 34 30 30 00  |.SQ.500: . 4400.|
00001140: 56 19 E4 1B 8B 20 53 4E  B2 37 20 A7 20 8D 20 37  |V.... SN.7 . . 7|
00001150: 33 30 30 3A 20 8E 00 6F  19 EE 1B 99 22 42 55 59  |300: ..o...."BUY|
00001160: 20 20 35 30 30 20 22 3B  53 4E 24 28 53 4E 29 00  |  500 ";SN$(SN).|
00001170: 85 19 F3 1B 81 20 4B B2  31 20 A4 20 31 30 30 30  |..... K.1 . 1000|
00001180: 3A 20 82 20 4B 00 90 19  F8 1B 89 20 37 30 38 30  |: . K...... 7080|
00001190: 00 9C 19 84 1C 8F 2A 37  33 30 30 2A 00 B2 19 8E  |......*7300*....|
000011A0: 1C 81 20 4B B2 31 20 A4  20 33 30 30 20 3A 20 82  |.. K.1 . 300 : .|
000011B0: 20 4B 00 C6 19 98 1C 8B  20 50 54 B2 31 20 A7 20  | K...... PT.1 . |
000011C0: 8D 20 34 30 30 30 00 EA  19 9D 1C 8B 20 50 54 B2  |. 4000...... PT.|
000011D0: 30 20 A7 20 99 3A 20 99  20 22 4E 4F 20 54 52 41  |0 . .: . "NO TRA|
000011E0: 4E 53 41 43 54 49 4F 4E  53 22 00 00 1A A2 1C 81  |NSACTIONS"......|
000011F0: 20 4B B2 31 20 A4 20 32  30 30 30 3A 20 82 20 4B  | K.1 . 2000: . K|
00001200: 00 06 1A AC 1C 8E 00 12  1A 40 1F 8F 2A 38 30 30  |.........@..*800|
00001210: 30 2A 00 2D 1A 4A 1F A1  20 57 4B 24 3A 20 8B 20  |0*.-.J.. WK$: . |
00001220: 57 4B 24 B2 22 22 20 89  20 38 30 31 30 00 3B 1A  |WK$."" . 8010.;.|
00001230: 54 1F 99 22 20 20 22 3B  57 4B 24 00 41 1A 5E 1F  |T.."  ";WK$.A.^.|
00001240: 8E 00 4D 1A 34 21 8F 2A  38 35 30 30 2A 00 58 1A  |..M.4!.*8500*.X.|
00001250: 3E 21 4E 41 24 B2 22 22  00 73 1A 48 21 A1 20 57  |>!NA$."".s.H!. W|
00001260: 4B 24 3A 20 8B 20 57 4B  24 B2 22 22 20 89 20 38  |K$: . WK$."" . 8|
00001270: 35 32 30 00 8A 1A 52 21  8B 20 57 4B 24 B2 C7 28  |520...R!. WK$..(|
00001280: 31 33 29 20 A7 20 99 3A  20 8E 00 95 1A 5C 21 99  |13) . .: ....\!.|
00001290: 20 57 4B 24 3B 00 A5 1A  66 21 4E 41 24 B2 4E 41  | WK$;...f!NA$.NA|
000012A0: 24 AA 57 4B 24 00 BC 1A  70 21 8B 20 C3 28 4E 41  |$.WK$...p!. .(NA|
000012B0: 24 29 B1 32 30 20 A7 20  99 3A 20 8E 00 C7 1A 7A  |$).20 . .: ....z|
000012C0: 21 89 20 38 35 32 30 00  D3 1A FC 21 8F 2A 38 37  |!. 8520....!.*87|
000012D0: 30 30 2A 00 DC 1A 06 22  53 51 B2 30 00 F7 1A 10  |00*...."SQ.0....|
000012E0: 22 A1 20 57 4B 24 3A 20  8B 20 57 4B 24 B2 22 22  |". WK$: . WK$.""|
000012F0: 20 89 20 38 37 32 30 00  0E 1B 1A 22 8B 20 57 4B  | . 8720....". WK|
00001300: 24 B2 C7 28 31 33 29 20  A7 20 99 3A 20 8E 00 2A  |$..(13) . .: ..*|
00001310: 1B 24 22 99 20 57 4B 24  3B 3A 20 53 51 B2 53 51  |.$". WK$;: SQ.SQ|
00001320: AC 31 30 AA C5 28 57 4B  24 29 00 4F 1B 2E 22 8B  |.10..(WK$).O..".|
00001330: 20 57 4B 24 B3 22 30 22  20 B0 20 57 4B 24 B1 22  | WK$."0" . WK$."|
00001340: 39 22 20 A7 20 53 51 B2  30 3A 20 99 3A 20 8E 00  |9" . SQ.0: .: ..|
00001350: 66 1B 38 22 8B 20 53 51  B1 39 39 39 39 39 39 20  |f.8". SQ.999999 |
00001360: A7 20 99 3A 20 8E 00 71  1B 42 22 89 20 38 37 32  |. .: ..q.B". 872|
00001370: 30 00 7D 1B 28 23 8F 2A  39 30 30 30 2A 00 A1 1B  |0.}.(#.*9000*...|
00001380: 32 23 99 20 22 53 54 4F  43 4B 23 3F 22 3B 3A 20  |2#. "STOCK#?";: |
00001390: 8D 20 38 30 30 30 3A 20  53 4E B2 C5 28 57 4B 24  |. 8000: SN..(WK$|
000013A0: 29 00 C7 1B 3C 23 8B 20  53 4E B3 31 20 B0 20 53  |)...<#. SN.1 . S|
000013B0: 4E B1 36 20 A7 20 99 20  4D 31 24 3B 4D 33 24 3A  |N.6 . . M1$;M3$:|
000013C0: 20 89 20 39 30 31 30 00  E3 1B 46 23 99 20 22 51  | . 9010...F#. "Q|
000013D0: 55 41 4E 54 49 54 59 3F  20 22 3B 3A 20 8D 20 38  |UANTITY? ";: . 8|
000013E0: 37 30 30 00 FB 1B 50 23  57 4B B2 53 51 AB B5 28  |700...P#WK.SQ..(|
000013F0: 53 51 AD 35 30 30 29 AC  35 30 30 00 21 1C 5A 23  |SQ.500).500.!.Z#|
00001400: 8B 20 53 51 B2 30 20 B0  20 57 4B B1 30 20 A7 20  |. SQ.0 . WK.0 . |
00001410: 99 20 4D 31 24 3B 4D 36  24 3A 20 89 20 39 30 33  |. M1$;M6$: . 903|
00001420: 30 00 27 1C 64 23 8E 00  33 1C 1C 25 8F 2A 39 35  |0.'.d#..3..%.*95|
00001430: 30 30 2A 00 4E 1C 26 25  53 31 B2 33 32 37 36 38  |00*.N.&%S1.32768|
00001440: AA 31 35 32 36 AA 28 44  31 AB 31 29 AC 36 00 63  |.1526.(D1.1).6.c|
00001450: 1C 2B 25 81 20 4B B2 31  20 A4 20 33 30 30 3A 20  |.+%. K.1 . 300: |
00001460: 82 20 4B 00 78 1C 30 25  81 20 4B B2 30 20 A4 20  |. K.x.0%. K.0 . |
00001470: 31 39 30 20 A9 20 31 30  00 83 1C 3A 25 3A 57 4B  |190 . 10...:%:WK|
00001480: B2 36 34 00 9C 1C 44 25  3A 8B 20 53 41 28 44 31  |.64...D%:. SA(D1|
00001490: 29 B1 4B 20 A7 20 57 4B  B2 31 36 30 00 B4 1C 4E  |).K . WK.160...N|
000014A0: 25 3A 8B 20 53 41 28 44  31 29 B2 4B 20 A7 20 57  |%:. SA(D1).K . W|
000014B0: 4B B2 39 38 00 CC 1C 58  25 3A 97 20 53 31 2C 57  |K.98...X%:. S1,W|
000014C0: 4B 3A 20 97 20 53 31 AA  31 2C 57 4B 00 DA 1C 62  |K: . S1.1,WK...b|
000014D0: 25 3A 53 31 B2 53 31 AB  38 30 00 E2 1C 6C 25 82  |%:S1.S1.80...l%.|
000014E0: 20 4B 00 F7 1C 76 25 81  20 4B B2 31 20 A4 20 33  | K...v%. K.1 . 3|
000014F0: 30 30 3A 20 82 20 4B 00  FD 1C 80 25 8E 00 17 1D  |00: . K....%....|
00001500: 30 75 8F 2A 33 30 30 30  30 2A 20 52 45 4E 55 4D  |0u.*30000* RENUM|
00001510: 42 45 52 20 52 54 4E 00  2C 1D 35 75 58 B2 31 30  |BER RTN.,.5uX.10|
00001520: 32 35 3A 59 B2 31 30 3A  49 4E B2 35 00 44 1D 3A  |25:Y.10:IN.5.D.:|
00001530: 75 58 31 B2 C2 28 58 AA  34 29 3A 58 32 B2 C2 28  |uX1..(X.4):X2..(|
00001540: 58 AA 35 29 00 63 1D 44  75 8B 20 58 31 B3 B1 31  |X.5).c.Du. X1..1|
00001550: 34 33 20 B0 20 58 32 B3  B1 34 32 20 89 20 33 30  |43 . X2..42 . 30|
00001560: 31 30 30 00 73 1D 4E 75  58 31 B2 58 AA 36 3A 58  |100.s.NuX1.X.6:X|
00001570: 32 B2 30 00 80 1D 58 75  58 33 B2 C2 28 58 31 29  |2.0...XuX3..(X1)|
00001580: 00 94 1D 62 75 8B 20 58  33 B2 34 32 20 A7 20 33  |...bu. X3.42 . 3|
00001590: 30 30 39 30 00 A1 1D 6C  75 58 33 B2 58 33 AB 34  |0090...luX3.X3.4|
000015A0: 38 00 C6 1D 76 75 8B 20  58 33 B3 30 20 B0 20 58  |8...vu. X3.0 . X|
000015B0: 33 B1 39 20 A7 20 99 20  22 45 52 52 31 22 3A 89  |3.9 . . "ERR1":.|
000015C0: 20 33 30 31 30 30 00 E6  1D 80 75 58 32 B2 58 32  | 30100....uX2.X2|
000015D0: AC 31 30 AA 58 33 3A 58  31 B2 58 31 AA 31 3A 89  |.10.X3:X1.X1.1:.|
000015E0: 20 33 30 30 34 30 00 FE  1D 8A 75 8B 20 59 B3 58  | 30040....u. Y.X|
000015F0: 32 20 A7 20 59 B2 58 32  3A 49 4E B2 31 30 00 1A  |2 . Y.X2:IN.10..|
00001600: 1E 94 75 59 32 B2 B5 28  59 AD 32 35 36 29 3A 59  |..uY2..(Y.256):Y|
00001610: 31 B2 59 AB 59 32 AC 32  35 36 00 37 1E 9E 75 97  |1.Y.Y2.256.7..u.|
00001620: 20 58 AA 32 2C 59 31 3A  97 20 58 AA 33 2C 59 32  | X.2,Y1:. X.3,Y2|
00001630: 3A 59 B2 59 AA 49 4E 00  4D 1E A8 75 58 B2 C2 28  |:Y.Y.IN.M..uX..(|
00001640: 58 29 AA 32 35 36 AC C2  28 58 AA 31 29 00 65 1E  |X).256..(X.1).e.|
00001650: B2 75 5A B2 C2 28 58 AA  32 29 AA 32 35 36 AC C2  |.uZ..(X.2).256..|
00001660: 28 58 AA 33 29 00 7B 1E  BC 75 8B 20 5A B3 33 30  |(X.3).{..u. Z.30|
00001670: 30 30 30 20 A7 20 33 30  30 31 30 00 81 1E C6 75  |000 . 30010....u|
00001680: 80 00 90 1E 40 9C 81 20  41 B2 31 20 A4 32 35 35  |....@.. A.1 .255|
00001690: 00 9C 1E 4A 9C 99 41 2C  C7 28 41 29 00 A4 1E 54  |...J..A,.(A)...T|
000016A0: 9C 82 20 41 00 00 00 01                           |.. A....        |

....D..*100*...N.. G(142).G.X.. SN$(6),S
A(6),PN$(6),PS(6,6),PA(6),DN(3).R.... 10
00.A.... R.1 . NR.U...:D1..(6..(1)).1...
 .:D2..(3..(1)).1.....:D3..(3..(1)).1: D
3.5.2.(D3.1).I...:.: . SN$(D1);DN$(D2);D
3.....:. D2 . 5000,5300,5600...H.:. 9500
...S.:. ".";...T.:. "...................
.".5...:. BL$: . BL$: . "...".=.... R.F.
...: . "ONE MORE ROUND Y/N ?";: . 8000..
.... WK$.."N" . WK$.."Y" . . M1$;M2$: . 
240...... WK$."N" . . 6000: . G(14): ..R
.... I.1 . N2: . 3300: . I...... N1.0 . 
. 7000...... ".";: . 2000...".. 140.....
.*1000*.K.... "SILVER","  IND "," GRAIN"
,"  OIL "," GOLD "," BONDS".S.... I.1 . 
6: SA(I).100: . SN$(I): . I...... "  UP 
 "," DOWN","  DIV "...... I.1 . 3: . DN$
(I): . I.E...M1$."INVALID - ".....M2$."T
YPE Y OR N".....M3$."MUST BE 1 TO 6"....
.M4$."MUST BE 1, 2 OR 3".)...M5$."TYPE B
, S OR N".M. .M6$."MUST BE A MULTIPLE OF
 500".W.!.. "."...$.. "HOW MANY PLAYERS?
";: . 8000: N2.E(WK$)...... N2.1 . N2.6 
. . M1$;M3$: . 1060.E.8.. N2.1 . N1.0: .
 1120...B.. "MAY THE PET PLAY ALSO... Y/
N?";: . 8000.".L.. WK$.."N" . WK$.."Y" .
 . M1$;M2$: . 1090.=.V.N1.0: . WK$."N" .
 N1.1.L.`.. I.1 . N2.K.J.:. J.1 . 6: PS(
I,J).0: . J.{.T.:PA(I).5000...~.:. "PLAY
ER";I;"WHAT IS YOUR NAME?": . 8500.....:
PN$(I).NA$.....:. C(NA$).20 . . "NAME TO
O LONG": . 1150.....:. C(NA$). 1 . . "MU
ST HAVE NAME": . 1150...... I.?...PN$(0)
."PET 2001": PA(0).2000._.... I.1 . 6: P
S(0,I).500: . I.J.... 3000...... N1.0 . 
I.0: . 4000...D.. "HOW MANY COMPLETE ROU
NDS BEFORE".U.N.. "BUYING AND SELLING ST
OCKS (1-3)?";...X.. 8000: NR.E(WK$).....
. NR.1 . NR.3 . . M1$;M4$: . 1220.5...NR
.NR.(1.N1.N2): . ".";: . 2000.G...BL$." 
                                      ".
M.....Y.P..*2000*...... I.190 . 0 . .10.
....:GN$."  ".D(I): GN$.I(GN$,3).C...:GN
$.GN$."...".R. .:. J.1 . 6...*.::WK$."..
"...4.::. SA(J).I . WK$.".  ."...>.::. S
A(J).I . WK$."..".+.H.::WK$.WK$.".".G.R.
::. J.6 . WK$.WK$."...".Y.\.::GN$.GN$.WK
$.B.F.:. J.M.P.:. GN$.U.Z.. I...... "   
";SN$(1);SN$(2);SN$(3);SN$(4);SN$(5);SN$
(6)............*3000*.L.L.. I.1 . N2.X.V
.:. 4000.....:. "YOU MUST BUY SOME STOCK
".....:. 9000.....:. 4400.>.&.:. SN.7 . 
. "INSUFFICIENT FUNDS": . 3050.J.0.:. 33
00.C.:.:. PA(I).5000 . 3030.K.D.. I.Q.N.
..}....*3300*...... 4000...... "BUY, SEL
L OR NOTHING B/S/N ?";: . 8000...... WK$
.."N" . WK$.."S" . WK$.."B" . . M1$;M5$:
 . 3330...... WK$."N" . .... .SB$.WK$...
4.. 9000./.F.. SB$."S" . . 4600.F.P.. SB
$."B" . . 4400.Z.Z.. SN.7 . . 3300......
 SB$."S" . . "YOU DON'T OWN ENOUGH STOCK
"...... SB$."B" . . "YOU DON'T HAVE ENOU
GH MONEY".O.... K.1 . 2000: . K.Z.... 33
00... ..*4000*...... ".    PORTFOLIO - "
;PN$(I).'...WK.C(PN$(I)).12: WK$."    ".
H.H.. K.1 . WK: WK$.WK$.".": . K.R.R.. W
K$.T.... " #  DESC  VALUE  HOLDINGS"....
.. " .  ....  .....  ........"...... K.1
 . 6.H...:WK$."  ".D(SA(K)): V$.I(WK$,3)
...".:WK.PS(I,K): WK$."      ".D(WK)...,
.:WK$.I(WK$,7)...6.:. WK.1000 . H$." ".W
K$.D.@.:. WK. 500 . H$.H(WK$,4).",".I(WK
$,3).Z.J.:WK$." ".D(K)." ".}.T.:. WK$;SN
$(K);"  ";V$;"   ";H$...^.. K...H..: . "
CASH ON HAND --- ";PA(I): ....R.....0..*
4400*.X.:.WK.SA(SN).SQ.100: PT.1...D.. W
K.PA(I) . SN.7: ....N.PA(I).PA(I).WK...X
.PS(I,SN).PS(I,SN).SQ.#.B.../....*4600*.
8...PT.1.T.... SQ.PS(I,SN) . SN.7: ..R..
.PA(I).PA(I).SA(SN).SQ.100... .PS(I,SN).
PS(I,SN).SQ...*........*5000*.....SA(D1)
.SA(D1).D3.G.... SA(D1).200 . ..V...SA(D
1).100...... I.N1 . N2.....:PS(I,D1).PS(
I,D1).2...D.. I...N........*5300*.....SA
(D1).SA(D1).D3.A.H.. SA(D1).0 . ..P.R.SA
(D1).100.`.... I.N1 . N2.P...:PS(I,D1).0
.X.... I.~..........*5600*...... SA(D1).
100 . ....... I.N1 . N2.P...:PA(I).PA(I)
.PS(I,D1).D3.100.X.... I.........P..*600
0*...... ".";...... "PLAYER NAME        
  CASH VALUE".E.... "...........        
  ..........".U.... K.N1 . N2.D...:. J.1
 . 6.....::PA(K).PA(K).SA(J).PS(K,J).100
.....:. J...B.. K...D.. K.N1 . N2...F.:W
K..1.E.H.:. J.N1 . N2...J.::. PA(J).WK .
 WK.PA(J): I.J...L.:. J...T.:WK$."      
   ".D(PA(I)).,...:WK$.I(WK$,8): V$.H(WK
$,2).H...:. V$.."  " . V$.V$.",".D...:. 
V$. "  " . V$.V$." ".Z...:V$.V$.J(WK$,3,
3).....:. I(V$,1).." " . V$.V$.",".....:
. I(V$,1). " " . V$.V$." ".N...:V$.V$.I(
WK$,3).....:. PN$(I);.21);V$: ......:PA(
I)..1...... K...$.....X..*7000*.%.L.I.0:
 PT.0: . 4000.A.V.. SN.1 . 6: SQ.PS(0,SN
).W...:. SA(SN).95 . SQ.0 . . "SELL";SQ;
SN$(SN): . 4600...... SN...... K.1 . 150
0: . K...... PA(0).600 . . 7300: ..E...W
K.0:SQ.999999.S.... J.1 . 6.....:. SA(J)
.105 . PS(0,J).SQ . WK.J:SQ.PS(0,J)...F.
. J...K.SN.WK.,.P.. WK.0 . . 7300: ..?.Z
.SQ.500: . 4400.V.... SN.7 . . 7300: ..O
...."BUY  500 ";SN$(SN)...... K.1 . 1000
: . K...... 7080......*7300*...... K.1 .
 300 : . K.F.... PT.1 . . 4000...... PT.
0 . .: . "NO TRANSACTIONS"...... K.1 . 2
000: . K.........@..*8000*.-.J.. WK$: . 
WK$."" . 8010.;.T.."  ";WK$.A.^...M.4!.*
8500*.X.>!NA$."".S.H!. WK$: . WK$."" . 8
520...R!. WK$.G(13) . .: ....\!. WK$;...
F!NA$.NA$.WK$...P!. C(NA$).20 . .: ..G.Z
!. 8520.S..!.*8700*...."SQ.0....". WK$: 
. WK$."" . 8720....". WK$.G(13) . .: ..*
.$". WK$;: SQ.SQ.10.E(WK$).O..". WK$."0"
 . WK$."9" . SQ.0: .: ..F.8". SQ.999999 
. .: ..Q.B". 8720.}.(#.*9000*...2#. "STO
CK#?";: . 8000: SN.E(WK$).G.<#. SN.1 . S
N.6 . . M1$;M3$: . 9010...F#. "QUANTITY?
 ";: . 8700...P#WK.SQ..(SQ.500).500.!.Z#
. SQ.0 . WK.0 . . M1$;M6$: . 9030.'.D#..
3..%.*9500*.N.&%S1.32768.1526.(D1.1).6.C
.+%. K.1 . 300: . K.X.0%. K.0 . 190 . 10
...:%:WK.64...D%:. SA(D1).K . WK.160...N
%:. SA(D1).K . WK.98.L.X%:. S1,WK: . S1.
1,WK.Z.B%:S1.S1.80...L%. K...V%. K.1 . 3
00: . K....%....0U.*30000* RENUMBER RTN.
,.5UX.1025:Y.10:IN.5.D.:UX1.B(X.4):X2.B(
X.5).C.DU. X1..143 . X2..42 . 30100.S.NU
X1.X.6:X2.0...XUX3.B(X1)...BU. X3.42 . 3
0090...LUX3.X3.48.F.VU. X3.0 . X3.9 . . 
"ERR1":. 30100....UX2.X2.10.X3:X1.X1.1:.
 30040....U. Y.X2 . Y.X2:IN.10....UY2..(
Y.256):Y1.Y.Y2.256.7..U. X.2,Y1:. X.3,Y2
:Y.Y.IN.M..UX.B(X).256.B(X.1).E..UZ.B(X.
2).256.B(X.3).{..U. Z.30000 . 30010...FU
....@.. A.1 .255...J..A,G(A)...T.. A....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL