STOCK BROKER

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

.. .W.Z$.".".".".".".".".".".".".>.Z.G.1
3.4096:.G.32,1:.G.33,1.I.D..*100*.O.N...
}.X.. SN$(6),SA(6),PN$(6),PS(6,6),PA(6),
DN(3)...... 1000...... R.1 . NR.....:D1.
.(6..(1)).1... .:D2..(3..(1)).1.....:D3.
.(3..(1)).1: D3.5.2.(D3.1).....:.: . SN$
(D1);DN$(D2);D3.....:. D2 . 5000,5300,56
00.&.H.:. 9500.2.S.:. ".";.P.T.:. ".....
...............".K...:. BL$: . BL$: . ".
..".S.... R......T.1.1500:.......6000:.:
 . "ONE MORE ROUND Y/N ?";: . 8000......
 WK$.."N" . WK$.."Y" . . M1$;M2$: . 240.
..... WK$."N" . ....... I.1 . N2: . 3300
: . I.!.... N1.0 . . 7000.4.... ".";: . 
2000.>.".. 140.J....*1000*...... "SILVER
","  IND "," GRAIN","  OIL "," GOLD "," 
BONDS"...... I.1 . 6: SA(I).100: . SN$(I
): . I.N.... "  UP  "," DOWN","  DIV "..
.... I.1 . 3: . DN$(I): . I.....M1$."INV
ALID - ".....M2$."TYPE Y OR N"./...M3$."
MUST BE 1 TO 6".K...M4$."MUST BE 1, 2 OR
 3".D...M5$."TYPE B, S OR N"... .M6$."MU
ST BE A MULTIPLE OF 500"...!.. "."...$..
 "HOW MANY PLAYERS?";: . 8000: N2.E(WK$)
...... N2.1 . N2.6 . . M1$;M3$: . 1060..
.8.. N2.1 . N1.0: . 1120.4.B.. "MAY THE 
COMPUTER PLAY ALSO... Y/N?";: . 8000.B.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...T.
:PA(I).5000...~.:. "PLAYER";I;"WHAT IS Y
OUR NAME?": . 8500.....:PN$(I).NA$.'...:
. C(NA$).20 . . "NAME TOO LONG": . 1150.
U...:. C(NA$). 1 . . "MUST HAVE NAME": .
 1150.].... I.....PN$(0)."COMMODORE 64 C
OMPUTER": PA(0).2000...... I.1 . 6: PS(0
,I).500: . I...... 3000.P.... N1.0 . I.0
: . 4000...D.. "HOW MANY COMPLETE ROUNDS
 BEFORE".".N.. "BUYING AND SELLING STOCK
S (1-3)?";.8.X.. 8000: NR.E(WK$).^.... N
R.1 . NR.3 . . M1$;M4$: . 1220.....NR.NR
.(1.N1.N2): . ".";: . 2000.....BL$."    
                                   "....
...F.P..*2000*...... I.190 . 0 . .10....
.:GN$."   ".D(I): GN$.".".I(GN$,3).....:
GN$.GN$."...".(. .:. J.1 . 6:Z.0.7.*.::W
K$."..".Y.4.::. SA(J).I . Z..1:WK$.".  .
".Y.>.::. SA(J).I . Z..1:WK$.".."...H.::
...B..Z.WK$.J(Z$,J,1).WK$."."...C.::. J.
6 . WK$.WK$."...".M.D.GN$.GN$.WK$."C".V.
F.:. J...P.:. GN$...Z.. I...... "   ";SN
$(1);SN$(2);SN$(3);SN$(4);SN$(5);SN$(6).
%.....1....*3000*.@.L.. I.1 . N2.L.V.:. 
4000.M...:. "YOU MUST BUY SOME STOCK".Y.
..:. 9000.....:. 4400...&.:. SN.7 . . "I
NSUFFICIENT FUNDS": . 3050...0.:. 3300.W
.:.:. PA(I).5000 . 3030...D.. I...N.....
...*3300*...... 4000.*.... "BUY, SELL OR
 NOTHING B/S/N ?";: . 8000.C.... WK$.."N
" . WK$.."S" . WK$.."B" . . M1$;M5$: . 3
330.U.... WK$."N" . .... .SB$.WK$...4.. 
9000...F.. SB$."S" . . 4600...P.. SB$."B
" . . 4400.N.Z.. SN.7 . . 3300...... SB$
."S" . . "YOU DON'T OWN ENOUGH STOCK".-.
... SB$."B" . . "YOU DON'T HAVE ENOUGH M
ONEY".C.... K.1 . 2000: . K.N.... 3300.Z
. ..*4000*.{.... ".    PORTFOLIO - ";PN$
(I).....WK.C(PN$(I)).12: WK$."    "...H.
. K.1 . WK: WK$.WK$.".": . K.F.R.. WK$..
.... " #  DESC  VALUE  HOLDINGS"...... "
 .  ....  .....  ........"...... K.1 . 6
.<...:WK$."  ".D(SA(K)): V$.I(WK$,3).`."
.:WK.PS(I,K): WK$."      ".D(WK).R.,.:WK
$.I(WK$,7)...6.:. WK.1000 . H$." ".WK$..
.@.:. WK. 500 . H$.H(WK$,4).",".I(WK$,3)
.N.J.:WK$." ".D(K)." "...T.:. WK$;SN$(K)
;"  ";V$;"   ";H$...^.. K...H..: . "CASH
 ON HAND --- ";PA(I): ..%.R...1.0..*4400
*.L.:.WK.SA(SN).SQ.100: PT.1.E.D.. WK.PA
(I) . SN.7: ..X.N.PA(I).PA(I).WK...X.PS(
I,SN).PS(I,SN).SQ...B........*4600*.....
PT.1.H.... SQ.PS(I,SN) . SN.7: ......PA(
I).PA(I).SA(SN).SQ.100... .PS(I,SN).PS(I
,SN).SQ...*........*5000*.&...SA(D1).SA(
D1).D3.;.... SA(D1).200 . ..J...SA(D1).1
00.Z.... I.N1 . N2.S...:PS(I,D1).PS(I,D1
).2.{.D.. I...N........*5300*.....SA(D1)
.SA(D1).D3...H.. SA(D1).0 . ..D.R.SA(D1)
.100.T.... I.N1 . N2.....:PS(I,D1).0....
.. I............*5600*...... SA(D1).100 
. ..#.... I.N1 . N2.D...:PA(I).PA(I).PS(
I,D1).D3.100.L.... I.R.....^.P..*6000*.I
.... ".";...... "PLAYER NAME          CA
SH VALUE"...... "...........          ..
........".T.... K.N1 . N2:S(K).PA(K)....
.:. J.1 . 6.....::PA(K).PA(K).SA(J).PS(K
,J).100.....:. J...B.. K.(.D.. K.N1 . N2
.3.F.:WK..1.D.H.:. J.N1 . N2.E.J.::. PA(
J).WK . WK.PA(J): I.J.N.L.:. J...T.:WK$.
"         ".D(PA(I)).....:WK$.I(WK$,8): 
V$.H(WK$,2).G...:. V$.."  " . V$.V$.",".
....:. V$. "  " . V$.V$." ".....:V$.V$.J
(WK$,3,3).....:. I(V$,1).." " . V$.V$.",
".9...:. I(V$,1). " " . V$.V$." ".M...:V
$.V$.I(WK$,3).F...:. PN$(I);.21);V$: ..T
...:PA(I)..1.|.... K......K.N1.N2:PA(K).
S(K):....$.....X..*7000*...L.I.0: PT.0: 
. 4000.Z.V.. SN.1 . 6: SQ.PS(0,SN).....:
. SA(SN).95 . SQ.0 . . "SELL";SQ;SN$(SN)
: . 4600...... SN./.... K.1 . 1500: . K.
K.... PA(0).600 . . 7300: ..^...WK.0:SQ.
999999.L.... J.1 . 6.....:. SA(J).105 . 
PS(0,J).SQ . WK.J:SQ.PS(0,J)...F.. J...K
.SN.WK.E.P.. WK.0 . . 7300: ..X.Z.SQ.500
: . 4400...... SN.7 . . 7300: ......."BU
Y  500 ";SN$(SN)...... K.1 . 1000: . K.)
.... 7080.5....*7300*.K.... K.1 . 300 : 
. K._.... PT.1 . . 4000...... PT.0 . .: 
. "NO TRANSACTIONS"...... K.1 . 2000: . 
K.........@..*8000*.F.J.. WK$: . WK$."" 
. 8010.T.T.."  ";WK$.Z.^.....4!.*8500*..
.>!NA$.""...H!. WK$: . WK$."" . 8520.#.R
!. WK$.G(13) . .: ....\!. WK$;.>.F!NA$.N
A$.WK$.U.P!. C(NA$).20 . .: ..`.Z!. 8520
.L..!.*8700*.U.."SQ.0....". WK$: . WK$."
" . 8720....". WK$.G(13) . .: ..C.$". WK
$;: SQ.SQ.10.E(WK$)....". WK$."0" . WK$.
"9" . SQ.0: .: ....8". SQ.999999 . .: ..
..B". 8720...(#.*9000*.:.2#. "STOCK#?";:
 . 8000: SN.E(WK$).`.<#. SN.1 . SN.6 . .
 M1$;M3$: . 9010.|.F#. "QUANTITY? ";: . 
8700...P#WK.SQ..(SQ.500).500...Z#. SQ.0 
. WK.0 . . M1$;M6$: . 9030...D#..L..%.*9
500*...&%S1.32768.766.(D1.1).6...+%. K.1
 . 300: . K...0%. K.0 . 190 . 10...:%:WK
.64.4.D%:. SA(D1).K . WK.160.L.N%:. SA(D
1).K . WK.98.D.X%:. S1,WK: . S1.1,WK.R.B
%:S1.S1.40.Z.L%. K...V%. K.1 . 300: . K.
...%.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL