STOCK MARKET GM

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

....D..*100*...N...@.X.. SN$(6),SA(6),PN
$(6),PS(6,6),PA(6),DN(3).K.... 1000.Z...
. R.1 . NR.N...:D1..(6..(1)).1... .:D2..
(3..(1)).1.....:D3..(3..(1)).1: D3.5.2.(
D3.1).B...:.: . SN$(D1);DN$(D2);D3.....:
. D2 . 5000,5300,5600...H.:. 9500...S.:.
 ".";...T.:. "....................".....
:. BL$: . BL$: . "...".6.... R._....: . 
"ONE MORE ROUND Y/N ?";: . 8000...... WK
$.."N" . WK$.."Y" . . M1$;M2$: . 240....
.. WK$."N" . . 6000: ..B.... I.1 . N2: .
 3300: . I.V.... N1.0 . . 7000...... "."
;: . 2000...".. 140......*1000*.;.... "S
ILVER","  IND "," GRAIN","  OIL "," GOLD
 "," BONDS".C.... I.1 . 6: SA(I).100: . 
SN$(I): . I...... "  UP  "," DOWN","  DI
V ". .... I.1 . 3: . DN$(I): . I.....M1$
."INVALID - ".K...M2$."TYPE Y OR N".....
M3$."MUST BE 1 TO 6".....M4$."MUST BE 1,
 2 OR 3".....M5$."TYPE B, S OR N".=. .M6
$."MUST BE A MULTIPLE OF 500".G.!.. ".".
U.$.. "HOW MANY PLAYERS?";: . 8000: N2.E
(WK$)...... N2.1 . N2.6 . . M1$;M3$: . 1
060...8.. N2.1 . N1.0: . 1120...B.. "MAY
 THE PET PLAY ALSO... Y/N?";: . 8000...L
.. WK$.."N" . WK$.."Y" . . M1$;M2$: . 10
90.-.V.N1.0: . WK$."N" . N1.1.<.`.. I.1 
. N2.[.J.:. J.1 . 6: PS(I,J).0: . J.K.T.
:PA(I).5000...~.:. "PLAYER";I;"WHAT IS Y
OUR NAME?": . 8500.....:PN$(I).NA$.W...:
. C(NA$).20 . . "NAME TOO LONG": . 1150.
....:. C(NA$). 1 . . "MUST HAVE NAME": .
 1150...... I./...PN$(0)."PET 2001": PA(
0).2000.O.... I.1 . 6: PS(0,I).500: . I.
Z.... 3000.S.... N1.0 . I.0: . 4000...D.
. "HOW MANY COMPLETE ROUNDS BEFORE".E.N.
. "BUYING AND SELLING STOCKS (1-3)?";...
X.. 8000: NR.E(WK$)...... NR.1 . NR.3 . 
. M1$;M4$: . 1220.%...NR.NR.(1.N1.N2): .
 ".";: . 2000.W...BL$."                 
                      ".].....I.P..*2000
*..... I.190 . 0 . .10. ...:GN$."  ".D(
I): GN$.I(GN$,3).....:GN$.GN$."...".B. .
:. J.1 . 6.Q.*.::WK$.".."...4.::. SA(J).
I . WK$.".  ."...>.::. SA(J).I . WK$."..
"...H.::WK$.WK$.".".7.R.::. J.6 . WK$.WK
$."...".I.\.::GN$.GN$.WK$.R.F.:. J.].P.:
. GN$.E.Z.. I...... "   ";SN$(1);SN$(2);
SN$(3);SN$(4);SN$(5);SN$(6)............*
3000*...L.. I.1 . N2.H.V.:. 4000.....:. 
"YOU MUST BUY SOME STOCK".....:. 9000...
..:. 4400...&.:. SN.7 . . "INSUFFICIENT 
FUNDS": . 3050.:.0.:. 3300.S.:.:. PA(I).
5000 . 3030.[.D.. I.A.N...M....*3300*.X.
... 4000...... "BUY, SELL OR NOTHING B/S
/N ?";: . 8000...... WK$.."N" . WK$.."S"
 . WK$.."B" . . M1$;M5$: . 3330...... WK
$."N" . .... .SB$.WK$...4.. 9000...F.. S
B$."S" . . 4600.6.P.. SB$."B" . . 4400.J
.Z.. SN.7 . . 3300.Y.... SB$."S" . . "YO
U DON'T OWN ENOUGH STOCK"...... SB$."B" 
. . "YOU DON'T HAVE ENOUGH MONEY"...... 
K.1 . 2000: . K.J.... 3300.V. ..*4000*..
.... ".    PORTFOLIO - ";PN$(I).....WK.C
(PN$(I)).12: WK$."    ".8.H.. K.1 . WK: 
WK$.WK$.".": . K.B.R.. WK$.D.... " #  DE
SC  VALUE  HOLDINGS"...... " .  ....  ..
...  ........"...... K.1 . 6.....:WK$." 
 ".D(SA(K)): V$.I(WK$,3)...".:WK.PS(I,K)
: WK$."      ".D(WK)...,.:WK$.I(WK$,7)..
.6.:. WK.1000 . H$." ".WK$.4.@.:. WK. 50
0 . H$.H(WK$,4).",".I(WK$,3).J.J.:WK$." 
".D(K)." ".M.T.:. WK$;SN$(K);"  ";V$;"  
 ";H$.U.^.. K...H..: . "CASH ON HAND ---
 ";PA(I): ....R.....0..*4400*.H.:.WK.SA(
SN).SQ.100: PT.1...D.. WK.PA(I) . SN.7: 
....N.PA(I).PA(I).WK...X.PS(I,SN).PS(I,S
N).SQ...B........*4600*.(...PT.1.D.... S
Q.PS(I,SN) . SN.7: ..B...PA(I).PA(I).SA(
SN).SQ.100.{. .PS(I,SN).PS(I,SN).SQ...*.
.......*5000*.....SA(D1).SA(D1).D3......
 SA(D1).200 . ..F...SA(D1).100.V.... I.N
1 . N2.....:PS(I,D1).PS(I,D1).2...D.. I.
..N........*5300*.....SA(D1).SA(D1).D3.1
.H.. SA(D1).0 . ..@.R.SA(D1).100.P.... I
.N1 . N2.`...:PS(I,D1).0.H.... I.N.....Z
....*5600*...... SA(D1).100 . ....... I.
N1 . N2.....:PA(I).PA(I).PS(I,D1).D3.100
.H.... I.N.....Z.P..*6000*...... ".";...
... "PLAYER NAME          CASH VALUE".5.
... "...........          ..........".E.
... K.N1 . N2.T...:. J.1 . 6.X...::PA(K)
.PA(K).SA(J).PS(K,J).100.....:. J...B.. 
K...D.. K.N1 . N2...F.:WK..1...H.:. J.N1
 . N2.V.J.::. PA(J).WK . WK.PA(J): I.J..
.L.:. J...T.:WK$."         ".D(PA(I))...
..:WK$.I(WK$,8): V$.H(WK$,2).8...:. V$..
"  " . V$.V$.",".T...:. V$. "  " . V$.V$
." ".J...:V$.V$.J(WK$,3,3).....:. I(V$,1
).." " . V$.V$.",".....:. I(V$,1). " " .
 V$.V$." ".....:V$.V$.I(WK$,3).W...:. PN
$(I);.21);V$: ......:PA(I)..1...... K...
$.....X..*7000*...L.I.0: PT.0: . 4000.1.
V.. SN.1 . 6: SQ.PS(0,SN).G...:. SA(SN).
95 . SQ.0 . . "SELL";SQ;SN$(SN): . 4600.
P.... SN...... K.1 . 1500: . K...... PA(
0).600 . . 7300: ......WK.0:SQ.999999.C.
... J.1 . 6.....:. SA(J).105 . PS(0,J).S
Q . WK.J:SQ.PS(0,J)...F.. J...K.SN.WK...
P.. WK.0 . . 7300: ../.Z.SQ.500: . 4400.
F.... SN.7 . . 7300: .._...."BUY  500 ";
SN$(SN).U.... K.1 . 1000: . K...... 7080
......*7300*...... K.1 . 300 : . K......
 PT.1 . . 4000.Z.... PT.0 . .: . "NO TRA
NSACTIONS"...... K.1 . 2000: . K........
.@..*8000*...J.. WK$: . WK$."" . 8010.+.
T.."  ";WK$.1.^...=.4!.*8500*.H.>!NA$.""
.C.H!. WK$: . WK$."" . 8520.Z.R!. WK$.G(
13) . .: ....\!. WK$;...F!NA$.NA$.WK$...
P!. C(NA$).20 . .: ....Z!. 8520.C..!.*87
00*.L.."SQ.0....". WK$: . WK$."" . 8720.
...". WK$.G(13) . .: ....$". WK$;: SQ.SQ
.10.E(WK$).?..". WK$."0" . WK$."9" . SQ.
0: .: ..V.8". SQ.999999 . .: ..A.B". 872
0.M.(#.*9000*...2#. "STOCK#?";: . 8000: 
SN.E(WK$)...<#. SN.1 . SN.6 . . M1$;M3$:
 . 9010.S.F#. "QUANTITY? ";: . 8700...P#
WK.SQ..(SQ.500).500...Z#. SQ.0 . WK.0 . 
. M1$;M6$: . 9030...D#..#..%.*9500*.=.&%
S1.32768.766.(D1.1).6.R.+%. K.1 . 300: .
 K.G.0%. K.0 . 190 . 10.R.:%:WK.64...D%:
. SA(D1).K . WK.160...N%:. SA(D1).K . WK
.98...X%:. S1,WK: . S1.1,WK.I.B%:S1.S1.4
0.Q.L%. K...V%. K.1 . 300: . K....%....0
U.*30000* RENUMBER RTN...5UX.1025:Y.10:I
N.5.3.:UX1.B(X.4):X2.B(X.5).R.DU. X1..14
3 . X2..42 . 30100.B.NUX1.X.6:X2.0.O.XUX
3.B(X1)...BU. X3.42 . 30090...LUX3.X3.48
...VU. X3.0 . X3.9 . . "ERR1":. 30100.U.
.UX2.X2.10.X3:X1.X1.1:. 30040....U. Y.X2
 . Y.X2:IN.10....UY2..(Y.256):Y1.Y.Y2.25
6.&..U. X.2,Y1:. X.3,Y2:Y.Y.IN.<..UX.B(X
).256.B(X.1).T..UZ.B(X.2).256.B(X.3).J..
U. Z.30000 . 30010.P.FU...@.. A.1 .255.
..J..A,G(A)...T.. A....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL