SOUND PIANO
FILE INFORMATION
FILENAME(S): SOUND PIANO
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 21:27:54
APPEARS ON: 1 disk(s)
FILE HASH
eaf65d58a01e872f6e48bdf1ecd750885581207b9e08d307bbe9ded5475d6e8f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| H H SOFT 20 | SOUND PIANO | PRG | DuncanTwain | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 99 22 93 20 12 20 1D 20 1D 20 |..%.d..". . . . |
00000010: DD 20 1D 20 1D 20 1D 20 DD 20 1D 20 1D 20 DD 20 |. . . . . . . . |
00000020: 1D 20 1D 20 22 00 48 08 6E 00 99 22 20 12 20 1D |. . ".H.n.." . .|
00000030: 20 1D 20 DD 20 1D 20 1D 20 1D 20 DD 20 1D 20 1D | . . . . . . . .|
00000040: 20 DD 20 1D 20 1D 20 22 00 6B 08 78 00 99 22 20 | . . . ".k.x.." |
00000050: 12 20 1D 20 1D 20 DD 20 1D 20 1D 20 1D 20 DD 20 |. . . . . . . . |
00000060: 1D 20 1D 20 DD 20 1D 20 1D 20 22 00 8E 08 82 00 |. . . . . ".....|
00000070: 99 22 20 12 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD |." . . . . . . .|
00000080: 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 22 00 B1 | . . . . . . "..|
00000090: 08 8C 00 99 22 20 12 51 DD 57 DD 45 DD 52 DD 54 |...." .Q.W.E.R.T|
000000A0: DD 59 DD 55 DD 49 DD 4F DD 50 DD 40 DD 2A DD 5E |.Y.U.I.O.P.@.*.^|
000000B0: 22 00 D8 08 96 00 99 22 11 27 53 50 41 43 45 27 |"......".'SPACE'|
000000C0: 20 46 4F 52 20 53 4F 4C 4F 20 4F 52 20 50 4F 4C | FOR SOLO OR POL|
000000D0: 59 50 48 4F 4E 49 43 22 00 FF 08 A0 00 99 22 11 |YPHONIC"......".|
000000E0: 27 46 31 2C 46 33 2C 46 35 2C 46 37 27 20 4F 43 |'F1,F3,F5,F7' OC|
000000F0: 54 41 56 45 20 53 45 4C 45 43 54 49 4F 4E 22 00 |TAVE SELECTION".|
00000100: 1F 09 AA 00 99 22 11 27 46 32 2C 46 34 2C 46 36 |.....".'F2,F4,F6|
00000110: 2C 46 38 27 20 57 41 56 45 46 4F 52 4D 11 22 00 |,F8' WAVEFORM.".|
00000120: 6A 09 B4 00 99 22 20 20 20 20 20 20 20 20 20 54 |j...." T|
00000130: 59 50 45 20 27 3F 27 20 54 4F 20 45 4E 44 20 20 |YPE '?' TO END |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 53 45 54 54 49 4E 47 20 55 50 20 53 | SETTING UP S|
00000160: 4F 55 4E 44 20 44 45 4D 4F 22 00 8C 09 BE 00 53 |OUND DEMO".....S|
00000170: B2 31 33 AC 34 30 39 36 AA 31 30 32 34 3A 86 46 |.13.4096.1024:.F|
00000180: 28 32 36 29 3A 86 4B 28 32 35 35 29 00 A1 09 C8 |(26):.K(255)....|
00000190: 00 81 49 B2 30 A4 32 38 3A 97 53 AA 49 2C 30 3A |..I.0.28:.S.I,0:|
000001A0: 82 00 D8 09 D2 00 46 31 B2 37 30 34 30 3A 81 49 |......F1.7040:.I|
000001B0: B2 31 A4 32 36 3A 46 28 32 37 AB 49 29 B2 46 31 |.1.26:F(27.I).F1|
000001C0: AC 35 2E 38 AA 33 30 3A 46 31 B2 46 31 AD 32 AE |.5.8.30:F1.F1.2.|
000001D0: 28 31 AD 31 32 29 3A 82 00 F8 09 DC 00 4B 24 B2 |(1.12):......K$.|
000001E0: 22 51 32 57 33 45 52 35 54 36 59 37 55 49 39 4F |"Q2W3ER5T6Y7UI9O|
000001F0: 30 50 40 2D 2A 5C 5E 22 00 19 0A E6 00 81 49 B2 |0P@-*\^"......I.|
00000200: 31 A4 C3 28 4B 24 29 3A 4B 28 C6 28 CA 28 4B 24 |1..(K$):K(.(.(K$|
00000210: 2C 49 29 29 29 B2 49 3A 82 00 48 0A F0 00 99 22 |,I))).I:..H...."|
00000220: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 22 00 97 0A FA 00 41 54 B2 | ".....AT.|
00000250: 30 3A 44 45 B2 30 3A 53 55 B2 31 35 3A 52 45 B2 |0:DE.0:SU.15:RE.|
00000260: 39 3A 53 56 B2 53 55 AC 31 36 AA 52 45 3A 41 56 |9:SV.SU.16.RE:AV|
00000270: B2 41 54 AC 31 36 AA 44 45 3A 57 56 B2 31 36 3A |.AT.16.DE:WV.16:|
00000280: 57 B2 30 3A 4D B2 31 3A 4F 43 B2 34 3A 48 42 B2 |W.0:M.1:OC.4:HB.|
00000290: 32 35 36 3A 5A B2 30 00 C6 0A 04 01 81 49 B2 30 |256:Z.0......I.0|
000002A0: A4 32 3A 97 53 AA 35 AA 49 AC 37 2C 41 54 AC 31 |.2:.S.5.I.7,AT.1|
000002B0: 36 AA 44 45 3A 97 53 AA 36 AA 49 AC 37 2C 53 55 |6.DE:.S.6.I.7,SU|
000002C0: AC 31 36 AA 52 45 00 F0 0A 0E 01 97 53 AA 32 AA |.16.RE......S.2.|
000002D0: 49 AC 37 2C 34 30 30 30 AF 32 35 35 3A 97 53 AA |I.7,4000.255:.S.|
000002E0: 33 AA 49 AC 37 2C 34 30 30 30 AD 32 35 36 3A 82 |3.I.7,4000.256:.|
000002F0: 00 10 0B 18 01 97 53 AA 32 34 2C 31 35 3A 8F 2B |......S.24,15:.+|
00000300: 31 36 2B 36 34 3A 50 4F 4B 45 53 2B 32 33 2C 37 |16+64:POKES+23,7|
00000310: 00 23 0B 2C 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.#.,..A$:.A$."".|
00000320: 33 30 30 00 39 0B 31 01 8B 20 41 24 B2 22 3F 22 |300.9.1.. A$."?"|
00000330: 20 A7 20 89 20 31 30 30 30 00 67 0B 36 01 46 52 | . . 1000.g.6.FR|
00000340: B2 46 28 4B 28 C6 28 41 24 29 29 29 AD 4D 3A 54 |.F(K(.(A$))).M:T|
00000350: B2 56 AC 37 3A 43 52 B2 53 AA 54 AA 34 3A 8B 46 |.V.7:CR.S.T.4:.F|
00000360: 52 B2 5A A7 35 30 30 00 85 0B 40 01 97 53 AA 36 |R.Z.500...@..S.6|
00000370: AA 54 2C 5A 3A 8F 20 46 49 4E 49 53 48 20 44 45 |.T,Z:. FINISH DE|
00000380: 43 2F 53 55 53 00 A3 0B 45 01 97 53 AA 35 AA 54 |C/SUS...E..S.5.T|
00000390: 2C 5A 3A 8F 20 46 49 4E 49 53 48 20 41 54 54 2F |,Z:. FINISH ATT/|
000003A0: 52 45 4C 00 BD 0B 4A 01 97 43 52 2C 38 3A 97 43 |REL...J..CR,8:.C|
000003B0: 52 2C 30 3A 8F 20 46 49 58 20 4F 46 46 00 DE 0B |R,0:. FIX OFF...|
000003C0: 54 01 97 53 AA 54 2C 46 52 AB 48 42 AC B5 28 46 |T..S.T,FR.HB..(F|
000003D0: 52 AD 48 42 29 3A 8F 20 53 45 54 20 4C 4F 00 F8 |R.HB):. SET LO..|
000003E0: 0B 5E 01 97 53 AA 31 AA 54 2C 46 52 AD 48 42 3A |.^..S.1.T,FR.HB:|
000003F0: 8F 20 53 45 54 20 48 49 00 14 0C 68 01 97 53 AA |. SET HI...h..S.|
00000400: 36 AA 54 2C 53 56 3A 8F 20 53 45 54 20 44 45 43 |6.T,SV:. SET DEC|
00000410: 2F 53 55 53 00 30 0C 6D 01 97 53 AA 35 AA 54 2C |/SUS.0.m..S.5.T,|
00000420: 41 56 3A 8F 20 53 45 54 20 41 54 54 2F 52 45 4C |AV:. SET ATT/REL|
00000430: 00 4A 0C 72 01 97 43 52 2C 57 56 AA 31 3A 81 49 |.J.r..CR,WV.1:.I|
00000440: B2 31 A4 35 30 AC 41 54 3A 82 00 5D 0C 77 01 97 |.1.50.AT:..].w..|
00000450: 43 52 2C 57 56 3A 8F 20 50 55 4C 53 45 00 75 0C |CR,WV:. PULSE.u.|
00000460: 7C 01 8B 50 B2 31 A7 56 B2 56 AA 31 3A 8B 56 B2 ||..P.1.V.V.1:.V.|
00000470: 33 A7 56 B2 30 00 7E 0C 90 01 89 33 30 30 00 98 |3.V.0.~....300..|
00000480: 0C F4 01 8B 41 24 B2 22 85 22 A7 4D B2 31 3A 4F |....A$.".".M.1:O|
00000490: 43 B2 34 3A 89 33 30 30 00 B2 0C FE 01 8B 41 24 |C.4:.300......A$|
000004A0: B2 22 86 22 A7 4D B2 32 3A 4F 43 B2 33 3A 89 33 |.".".M.2:OC.3:.3|
000004B0: 30 30 00 CC 0C 08 02 8B 41 24 B2 22 87 22 A7 4D |00......A$.".".M|
000004C0: B2 34 3A 4F 43 B2 32 3A 89 33 30 30 00 E6 0C 12 |.4:OC.2:.300....|
000004D0: 02 8B 41 24 B2 22 88 22 A7 4D B2 38 3A 4F 43 B2 |..A$.".".M.8:OC.|
000004E0: 31 3A 89 33 30 30 00 01 0D 1C 02 8B 41 24 B2 22 |1:.300......A$."|
000004F0: 89 22 A7 57 B2 30 3A 57 56 B2 31 36 3A 89 33 30 |.".W.0:WV.16:.30|
00000500: 30 00 1C 0D 26 02 8B 41 24 B2 22 8A 22 A7 57 B2 |0...&..A$.".".W.|
00000510: 31 3A 57 56 B2 33 32 3A 89 33 30 30 00 37 0D 30 |1:WV.32:.300.7.0|
00000520: 02 8B 41 24 B2 22 8B 22 A7 57 B2 32 3A 57 56 B2 |..A$.".".W.2:WV.|
00000530: 36 34 3A 89 33 30 30 00 53 0D 3A 02 8B 41 24 B2 |64:.300.S.:..A$.|
00000540: 22 8C 22 A7 57 B2 33 3A 57 56 B2 31 32 38 3A 89 |".".W.3:WV.128:.|
00000550: 33 30 30 00 6A 0D 44 02 8B 41 24 B2 22 20 22 A7 |300.j.D..A$." ".|
00000560: 50 B2 31 AB 50 3A 89 33 30 30 00 7A 0D 4E 02 8B |P.1.P:.300.z.N..|
00000570: 41 24 B2 22 93 22 A7 32 30 30 00 83 0D 58 02 89 |A$.".".200...X..|
00000580: 33 30 30 00 94 0D 20 03 99 22 48 49 54 20 41 20 |300... .."HIT A |
00000590: 4B 45 59 22 00 B1 0D 2A 03 A1 41 24 3A 8B 41 24 |KEY"...*..A$:.A$|
000005A0: B2 22 22 A7 38 31 30 3A 92 20 81 20 41 20 4B 45 |."".810:. . A KE|
000005B0: 59 00 BB 0D 34 03 99 41 24 3A 8E 00 CE 0D E8 03 |Y...4..A$:......|
000005C0: 53 B2 31 33 AC 34 30 39 36 AA 31 30 32 34 00 E5 |S.13.4096.1024..|
000005D0: 0D F2 03 81 49 B2 30 A4 32 38 3A 97 53 AA 49 2C |....I.0.28:.S.I,|
000005E0: 30 3A 82 3A 9C 00 F5 0D FC 03 93 22 44 52 49 56 |0:.:......."DRIV|
000005F0: 45 40 22 6C 14 00 00 00 20 42 45 46 4F 52 45 22 |E@"l.... BEFORE"|
00000600: 00 2A 0E CE 04 99 20 22 42 55 59 49 4E 47 20 41 |.*.... "BUYING A|
00000610: 4E 44 20 53 45 4C 4C 49 4E 47 20 53 54 4F 43 4B |ND SELLING STOCK|
00000620: 53 20 28 31 2D 33 29 3F 22 3B 00 40 0E D8 04 8D |S (1-3)?";.@....|
00000630: 20 38 30 30 30 3A 20 4E 52 B2 C5 28 57 4B 24 29 | 8000: NR..(WK$)|
00000640: 00 66 0E E2 04 8B 20 4E 52 B3 31 20 B0 20 4E 52 |.f.... NR.1 . NR|
00000650: B1 33 20 A7 20 99 20 4D 31 24 3B 4D 34 24 3A 20 |.3 . . M1$;M4$: |
00000660: 89 20 31 32 32 30 00 8A 0E EC 04 4E 52 B2 4E 52 |. 1220.....NR.NR|
00000670: AC 28 31 AB 4E 31 AA 4E 32 29 3A 20 99 20 22 93 |.(1.N1.N2): . ".|
00000680: 22 3B 3A 20 8D 20 32 30 30 30 00 BC 0E F6 04 42 |";: . 2000.....B|
00000690: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 22 00 C2 0E 00 | "....|
000006C0: 05 8E 00 CE 0E D0 07 8F 2A 32 30 30 30 2A 00 E4 |........*2000*..|
000006D0: 0E EE 07 81 20 49 B2 31 39 30 20 A4 20 30 20 A9 |.... I.190 . 0 .|
000006E0: 20 AB 31 30 00 0A 0F F8 07 3A 47 4E 24 B2 22 20 | .10.....:GN$." |
000006F0: 20 20 22 AA C4 28 49 29 3A 20 47 4E 24 B2 22 1F | "..(I): GN$.".|
00000700: 22 AA C9 28 47 4E 24 2C 33 29 00 1D 0F 16 08 3A |"..(GN$,3).....:|
00000710: 47 4E 24 B2 47 4E 24 AA 22 C0 C0 C0 22 00 30 0F |GN$.GN$."...".0.|
00000720: 20 08 3A 81 20 4A B2 31 20 A4 20 36 3A 5A B2 30 | .:. J.1 . 6:Z.0|
00000730: 00 3F 0F 2A 08 3A 3A 57 4B 24 B2 22 C0 C0 22 00 |.?.*.::WK$."..".|
00000740: 61 0F 34 08 3A 3A 8B 20 53 41 28 4A 29 B1 49 20 |a.4.::. SA(J).I |
00000750: A7 20 5A B2 AB 31 3A 57 4B 24 B2 22 12 20 20 92 |. Z..1:WK$.". .|
00000760: 22 00 81 0F 3E 08 3A 3A 8B 20 53 41 28 4A 29 B2 |"...>.::. SA(J).|
00000770: 49 20 A7 20 5A B2 AB 31 3A 57 4B 24 B2 22 A2 A2 |I . Z..1:WK$."..|
00000780: 22 00 88 0F 48 08 3A 3A 00 A5 0F 62 08 8B 5A A7 |"...H.::...b..Z.|
00000790: 57 4B 24 B2 CA 28 5A 24 2C 4A 2C 31 29 AA 57 4B |WK$..(Z$,J,1).WK|
000007A0: 24 AA 22 1F 22 00 C1 0F 63 08 3A 3A 8B 20 4A B3 |$."."...c.::. J.|
000007B0: 36 20 A7 20 57 4B 24 B2 57 4B 24 AA 22 C0 C0 C0 |6 . WK$.WK$."...|
000007C0: 22 00 D5 0F 64 08 47 4E 24 B2 47 4E 24 AA 57 4B |"...d.GN$.GN$.WK|
000007D0: 24 AA 22 C3 22 00 DE 0F 66 08 3A 82 20 4A 00 E9 |$."."...f.:. J..|
000007E0: 0F 70 08 3A 99 20 47 4E 24 00 F1 0F 7A 08 82 20 |.p.:. GN$...z.. |
000007F0: 49 00 27 10 84 08 99 20 22 20 20 20 22 3B 53 4E |I.'.... " ";SN|
00000800: 24 28 31 29 3B 53 4E 24 28 32 29 3B 53 4E 24 28 |$(1);SN$(2);SN$(|
00000810: 33 29 3B 53 4E 24 28 34 29 3B 53 4E 24 28 35 29 |3);SN$(4);SN$(5)|
00000820: 3B 53 4E 24 28 36 29 00 2D 10 8E 08 8E 00 39 10 |;SN$(6).-.....9.|
00000830: B8 0B 8F 2A 33 30 30 30 2A 00 48 10 CC 0B 81 20 |...*3000*.H.... |
00000840: 49 B2 31 20 A4 20 4E 32 00 54 10 D6 0B 3A 8D 20 |I.1 . N2.T...:. |
00000850: 34 30 30 30 00 75 10 E0 0B 3A 99 20 22 59 4F 55 |4000.u...:. "YOU|
00000860: 20 4D 55 53 54 20 42 55 59 20 53 4F 4D 45 20 53 | MUST BUY SOME S|
00000870: 54 4F 43 4B 22 00 81 10 EA 0B 3A 8D 20 39 30 30 |TOCK".....:. 900|
00000880: 30 00 8D 10 1C 0C 3A 8D 20 34 34 30 30 00 BA 10 |0.....:. 4400...|
00000890: 26 0C 3A 8B 20 53 4E B2 37 20 A7 20 99 20 22 49 |&.:. SN.7 . . "I|
000008A0: 4E 53 55 46 46 49 43 49 45 4E 54 20 46 55 4E 44 |NSUFFICIENT FUND|
000008B0: 53 22 3A 20 89 20 33 30 35 30 00 C6 10 30 0C 3A |S": . 3050...0.:|
000008C0: 8D 20 33 33 30 30 00 DF 10 3A 0C 3A 8B 20 50 41 |. 3300...:.:. PA|
000008D0: 28 49 29 B2 35 30 30 30 20 89 20 33 30 33 30 00 |(I).5000 . 3030.|
000008E0: E7 10 44 0C 82 20 49 00 ED 10 4E 0C 8E 00 F9 10 |..D.. I...N.....|
000008F0: E4 0C 8F 2A 33 33 30 30 2A 00 04 11 F8 0C 8D 20 |...*3300*...... |
00000900: 34 30 30 30 00 32 11 02 0D 99 20 22 42 55 59 2C |4000.2.... "BUY,|
00000910: 20 53 45 4C 4C 20 4F 52 20 4E 4F 54 48 49 4E 47 | SELL OR NOTHING|
00000920: 20 42 2F 53 2F 4E 20 3F 22 3B 3A 20 8D 20 38 30 | B/S/N ?";: . 80|
00000930: 30 30 00 6B 11 0C 0D 8B 20 57 4B 24 B3 B1 22 4E |00.k.... WK$.."N|
00000940: 22 20 AF 20 57 4B 24 B3 B1 22 53 22 20 AF 20 57 |" . WK$.."S" . W|
00000950: 4B 24 B3 B1 22 42 22 20 A7 20 99 20 4D 31 24 3B |K$.."B" . . M1$;|
00000960: 4D 35 24 3A 20 89 20 33 33 33 30 00 7D 11 16 0D |M5$: . 3330.}...|
00000970: 8B 20 57 4B 24 B2 22 4E 22 20 A7 20 8E 00 89 11 |. WK$."N" . ....|
00000980: 20 0D 53 42 24 B2 57 4B 24 00 94 11 34 0D 8D 20 | .SB$.WK$...4.. |
00000990: 39 30 30 30 00 AB 11 66 0D 8B 20 53 42 24 B2 22 |9000...f.. SB$."|
000009A0: 53 22 20 A7 20 8D 20 34 36 30 30 00 C2 11 70 0D |S" . . 4600...p.|
000009B0: 8B 20 53 42 24 B2 22 42 22 20 A7 20 8D 20 34 34 |. SB$."B" . . 44|
000009C0: 30 30 00 D6 11 7A 0D 8B 20 53 4E B3 37 20 A7 20 |00...z.. SN.7 . |
000009D0: 89 20 33 33 30 30 00 05 12 84 0D 8B 20 53 42 24 |. 3300...... SB$|
000009E0: B2 22 53 22 20 A7 20 99 20 22 59 4F 55 20 44 4F |."S" . . "YOU DO|
000009F0: 4E 27 54 20 4F 57 4E 20 45 4E 4F 55 47 48 20 53 |N'T OWN ENOUGH S|
00000A00: 54 4F 43 4B 22 00 35 12 8E 0D 8B 20 53 42 24 B2 |TOCK".5.... SB$.|
00000A10: 22 42 22 20 A7 20 99 20 22 59 4F 55 20 44 4F 4E |"B" . . "YOU DON|
00000A20: 27 54 20 48 41 56 45 20 45 4E 4F 55 47 48 20 4D |'T HAVE ENOUGH M|
00000A30: 4F 4E 45 59 22 00 4B 12 98 0D 81 20 4B B2 31 20 |ONEY".K.... K.1 |
00000A40: A4 20 32 30 30 30 3A 20 82 20 4B 00 56 12 A2 0D |. 2000: . K.V...|
00000A50: 89 20 33 33 30 30 00 62 12 A0 0F 8F 2A 34 30 30 |. 3300.b....*400|
00000A60: 30 2A 00 83 12 B4 0F 99 20 22 93 20 20 20 20 50 |0*...... ". P|
00000A70: 4F 52 54 46 4F 4C 49 4F 20 2D 20 22 3B 50 4E 24 |ORTFOLIO - ";PN$|
00000A80: 28 49 29 00 A3 12 BE 0F 57 4B B2 C3 28 50 4E 24 |(I).....WK..(PN$|
00000A90: 28 49 29 29 AA 31 32 3A 20 57 4B 24 B2 22 20 20 |(I)).12: WK$." |
00000AA0: 20 20 22 00 C4 12 C8 0F 81 20 4B B2 31 20 A4 20 | "...... K.1 . |
00000AB0: 57 4B 3A 20 57 4B 24 B2 57 4B 24 AA 22 A3 22 3A |WK: WK$.WK$.".":|
00000AC0: 20 82 20 4B 00 CE 12 D2 0F 99 20 57 4B 24 00 F0 | . K...... WK$..|
00000AD0: 12 DC 0F 99 20 22 20 23 20 20 44 45 53 43 20 20 |.... " # DESC |
00000AE0: 56 41 4C 55 45 20 20 48 4F 4C 44 49 4E 47 53 22 |VALUE HOLDINGS"|
00000AF0: 00 12 13 E6 0F 99 20 22 20 A3 A0 A0 A3 A3 A3 A3 |...... " .......|
00000B00: A0 A0 A3 A3 A3 A3 A3 A0 A0 A3 A3 A3 A3 A3 A3 A3 |................|
00000B10: A3 22 00 20 13 FA 0F 81 20 4B B2 31 20 A4 20 36 |.". .... K.1 . 6|
00000B20: 00 44 13 04 10 3A 57 4B 24 B2 22 20 20 22 AA C4 |.D...:WK$." "..|
00000B30: 28 53 41 28 4B 29 29 3A 20 56 24 B2 C9 28 57 4B |(SA(K)): V$..(WK|
00000B40: 24 2C 33 29 00 68 13 22 10 3A 57 4B B2 50 53 28 |$,3).h.".:WK.PS(|
00000B50: 49 2C 4B 29 3A 20 57 4B 24 B2 22 20 20 20 20 20 |I,K): WK$." |
00000B60: 20 22 AA C4 28 57 4B 29 00 7A 13 2C 10 3A 57 4B | "..(WK).z.,.:WK|
00000B70: 24 B2 C9 28 57 4B 24 2C 37 29 00 96 13 36 10 3A |$..(WK$,7)...6.:|
00000B80: 8B 20 57 4B B3 31 30 30 30 20 A7 20 48 24 B2 22 |. WK.1000 . H$."|
00000B90: 20 22 AA 57 4B 24 00 C0 13 40 10 3A 8B 20 57 4B | ".WK$...@.:. WK|
00000BA0: B1 20 35 30 30 20 A7 20 48 24 B2 C8 28 57 4B 24 |. 500 . H$..(WK$|
00000BB0: 2C 34 29 AA 22 2C 22 AA C9 28 57 4B 24 2C 33 29 |,4).","..(WK$,3)|
00000BC0: 00 D6 13 4A 10 3A 57 4B 24 B2 22 20 22 AA C4 28 |...J.:WK$." "..(|
00000BD0: 4B 29 AA 22 20 22 00 F9 13 54 10 3A 99 20 57 4B |K)." "...T.:. WK|
00000BE0: 24 3B 53 4E 24 28 4B 29 3B 22 20 20 22 3B 56 24 |$;SN$(K);" ";V$|
00000BF0: 3B 22 20 20 20 22 3B 48 24 00 01 14 5E 10 82 20 |;" ";H$...^.. |
00000C00: 4B 00 27 14 68 10 99 3A 20 99 20 22 43 41 53 48 |K.'.h..: . "CASH|
00000C10: 20 4F 4E 20 48 41 4E 44 20 2D 2D 2D 20 22 3B 50 | ON HAND --- ";P|
00000C20: 41 28 49 29 3A 20 99 00 2D 14 72 10 8E 00 39 14 |A(I): ..-.r...9.|
00000C30: 30 11 8F 2A 34 34 30 30 2A 00 54 14 3A 11 57 4B |0..*4400*.T.:.WK|
00000C40: B2 53 41 28 53 4E 29 AC 53 51 AD 31 30 30 3A 20 |.SA(SN).SQ.100: |
00000C50: 50 54 B2 31 00 6D 14 44 11 8B 20 57 4B B1 50 41 |PT.1.m.D.. WK.PA|
00000C60: 28 49 29 20 A7 20 53 4E B2 37 3A 20 8E 00 80 14 |(I) . SN.7: ....|
00000C70: 4E 11 50 41 28 49 29 B2 50 41 28 49 29 AB 57 4B |N.PA(I).PA(I).WK|
00000C80: 00 99 14 58 11 50 53 28 49 2C 53 4E 29 B2 50 53 |...X.PS(I,SN).PS|
00000C90: 28 49 2C 53 4E 29 AA 53 51 00 9F 14 62 11 8E 00 |(I,SN).SQ...b...|
00000CA0: AB 14 F8 11 8F 2A 34 36 30 30 2A 00 B4 14 02 12 |.....*4600*.....|
00000CB0: 50 54 B2 31 00 D0 14 0C 12 8B 20 53 51 B1 50 53 |PT.1...... SQ.PS|
00000CC0: 28 49 2C 53 4E 29 20 A7 20 53 4E B2 37 3A 20 8E |(I,SN) . SN.7: .|
00000CD0: 00 EE 14 16 12 50 41 28 49 29 B2 50 41 28 49 29 |.....PA(I).PA(I)|
00000CE0: AA 53 41 28 53 4E 29 AC 53 51 AD 31 30 30 00 07 |.SA(SN).SQ.100..|
00000CF0: 15 20 12 50 53 28 49 2C 53 4E 29 B2 50 53 28 49 |. .PS(I,SN).PS(I|
00000D00: 2C 53 4E 29 AB 53 51 00 0D 15 2A 12 8E 00 19 15 |,SN).SQ...*.....|
00000D10: 88 13 8F 2A 35 30 30 30 2A 00 2E 15 92 13 53 41 |...*5000*.....SA|
00000D20: 28 44 31 29 B2 53 41 28 44 31 29 AA 44 33 00 43 |(D1).SA(D1).D3.C|
00000D30: 15 9C 13 8B 20 53 41 28 44 31 29 B3 32 30 30 20 |.... SA(D1).200 |
00000D40: A7 20 8E 00 52 15 A6 13 53 41 28 44 31 29 B2 31 |. ..R...SA(D1).1|
00000D50: 30 30 00 62 15 B0 13 81 20 49 B2 4E 31 20 A4 20 |00.b.... I.N1 . |
00000D60: 4E 32 00 7B 15 BA 13 3A 50 53 28 49 2C 44 31 29 |N2.{...:PS(I,D1)|
00000D70: B2 50 53 28 49 2C 44 31 29 AC 32 00 83 15 C4 13 |.PS(I,D1).2.....|
00000D80: 82 20 49 00 89 15 CE 13 8E 00 95 15 B4 14 8F 2A |. I............*|
00000D90: 35 33 30 30 2A 00 AA 15 BE 14 53 41 28 44 31 29 |5300*.....SA(D1)|
00000DA0: B2 53 41 28 44 31 29 AB 44 33 00 BD 15 C8 14 8B |.SA(D1).D3......|
00000DB0: 20 53 41 28 44 31 29 B1 30 20 A7 20 8E 00 CC 15 | SA(D1).0 . ....|
00000DC0: D2 14 53 41 28 44 31 29 B2 31 30 30 00 DC 15 DC |..SA(D1).100....|
00000DD0: 14 81 20 49 B2 4E 31 20 A4 20 4E 32 00 EC 15 E6 |.. I.N1 . N2....|
00000DE0: 14 3A 50 53 28 49 2C 44 31 29 B2 30 00 F4 15 F0 |.:PS(I,D1).0....|
00000DF0: 14 82 20 49 00 FA 15 FA 14 8E 00 06 16 E0 15 8F |.. I............|
00000E00: 2A 35 36 30 30 2A 00 1B 16 EA 15 8B 20 53 41 28 |*5600*...... SA(|
00000E10: 44 31 29 B3 31 30 30 20 A7 20 8E 00 2B 16 F4 15 |D1).100 . ..+...|
00000E20: 81 20 49 B2 4E 31 20 A4 20 4E 32 00 4C 16 FE 15 |. I.N1 . N2.L...|
00000E30: 3A 50 41 28 49 29 B2 50 41 28 49 29 AA 50 53 28 |:PA(I).PA(I).PS(|
00000E40: 49 2C 44 31 29 AC 44 33 AD 31 30 30 00 54 16 08 |I,D1).D3.100.T..|
00000E50: 16 82 20 49 00 5A 16 12 16 8E 00 66 16 70 17 8F |.. I.Z.....f.p..|
00000E60: 2A 36 30 30 30 2A 00 71 16 84 17 99 20 22 93 22 |*6000*.q.... "."|
00000E70: 3B 00 99 16 8E 17 99 20 22 50 4C 41 59 45 52 20 |;...... "PLAYER |
00000E80: 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 43 41 |NAME CA|
00000E90: 53 48 20 56 41 4C 55 45 22 00 C1 16 98 17 99 20 |SH VALUE"...... |
00000EA0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 20 20 20 20 |"........... |
00000EB0: 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | ..........|
00000EC0: 22 00 DC 16 A2 17 81 20 4B B2 4E 31 20 A4 20 4E |"...... K.N1 . N|
00000ED0: 32 3A 53 28 4B 29 B2 50 41 28 4B 29 00 EB 16 AC |2:S(K).PA(K)....|
00000EE0: 17 3A 81 20 4A B2 31 20 A4 20 36 00 0F 17 B6 17 |.:. J.1 . 6.....|
00000EF0: 3A 3A 50 41 28 4B 29 B2 50 41 28 4B 29 AA 53 41 |::PA(K).PA(K).SA|
00000F00: 28 4A 29 AC 50 53 28 4B 2C 4A 29 AD 31 30 30 00 |(J).PS(K,J).100.|
00000F10: 18 17 C0 17 3A 82 20 4A 00 20 17 C2 17 82 20 4B |....:. J. .... K|
00000F20: 00 30 17 C4 17 81 20 4B B2 4E 31 20 A4 20 4E 32 |.0.... K.N1 . N2|
00000F30: 00 3B 17 C6 17 3A 57 4B B2 AB 31 00 4C 17 C8 17 |.;...:WK..1.L...|
00000F40: 3A 81 20 4A B2 4E 31 20 A4 20 4E 32 00 6D 17 CA |:. J.N1 . N2.m..|
00000F50: 17 3A 3A 8B 20 50 41 28 4A 29 B1 57 4B 20 A7 20 |.::. PA(J).WK . |
00000F60: 57 4B B2 50 41 28 4A 29 3A 20 49 B2 4A 00 76 17 |WK.PA(J): I.J.v.|
00000F70: CC 17 3A 82 20 4A 00 94 17 D4 17 3A 57 4B 24 B2 |..:. J.....:WK$.|
00000F80: 22 20 20 20 20 20 20 20 20 20 22 AA C4 28 50 41 |" "..(PA|
00000F90: 28 49 29 29 00 B3 17 DE 17 3A 57 4B 24 B2 C9 28 |(I)).....:WK$..(|
00000FA0: 57 4B 24 2C 38 29 3A 20 56 24 B2 C8 28 57 4B 24 |WK$,8): V$..(WK$|
00000FB0: 2C 32 29 00 CF 17 E8 17 3A 8B 20 56 24 B3 B1 22 |,2).....:. V$.."|
00000FC0: 20 20 22 20 A7 20 56 24 B2 56 24 AA 22 2C 22 00 | " . V$.V$.",".|
00000FD0: EB 17 ED 17 3A 8B 20 56 24 B2 20 22 20 20 22 20 |....:. V$. " " |
00000FE0: A7 20 56 24 B2 56 24 AA 22 20 22 00 01 18 F2 17 |. V$.V$." ".....|
00000FF0: 3A 56 24 B2 56 24 AA CA 28 57 4B 24 2C 33 2C 33 |:V$.V$..(WK$,3,3|
00001000: 29 00 21 18 FC 17 3A 8B 20 C9 28 56 24 2C 31 29 |).!...:. .(V$,1)|
00001010: B3 B1 22 20 22 20 A7 20 56 24 B2 56 24 AA 22 2C |.." " . V$.V$.",|
00001020: 22 00 41 18 01 18 3A 8B 20 C9 28 56 24 2C 31 29 |".A...:. .(V$,1)|
00001030: B2 20 22 20 22 20 A7 20 56 24 B2 56 24 AA 22 20 |. " " . V$.V$." |
00001040: 22 00 55 18 06 18 3A 56 24 B2 56 24 AA C9 28 57 |".U...:V$.V$..(W|
00001050: 4B 24 2C 33 29 00 6E 18 10 18 3A 99 20 50 4E 24 |K$,3).n...:. PN$|
00001060: 28 49 29 3B A3 32 31 29 3B 56 24 3A 20 99 00 7C |(I);.21);V$: ..||
00001070: 18 15 18 3A 50 41 28 49 29 B2 AB 31 00 84 18 1A |...:PA(I)..1....|
00001080: 18 82 20 4B 00 9E 18 1F 18 81 4B B2 4E 31 A4 4E |.. K......K.N1.N|
00001090: 32 3A 50 41 28 4B 29 B2 53 28 4B 29 3A 82 00 A4 |2:PA(K).S(K):...|
000010A0: 18 24 18 8E 00 B0 18 58 1B 8F 2A 37 30 30 30 2A |.$.....X..*7000*|
000010B0: 00 C6 18 6C 1B 49 B2 30 3A 20 50 54 B2 30 3A 20 |...l.I.0: PT.0: |
000010C0: 8D 20 34 30 30 30 00 E2 18 76 1B 81 20 53 4E B2 |. 4000...v.. SN.|
000010D0: 31 20 A4 20 36 3A 20 53 51 B2 50 53 28 30 2C 53 |1 . 6: SQ.PS(0,S|
000010E0: 4E 29 00 18 19 8A 1B 3A 8B 20 53 41 28 53 4E 29 |N).....:. SA(SN)|
000010F0: B3 39 35 20 AF 20 53 51 B1 30 20 A7 20 99 20 22 |.95 . SQ.0 . . "|
00001100: 53 45 4C 4C 22 3B 53 51 3B 53 4E 24 28 53 4E 29 |SELL";SQ;SN$(SN)|
00001110: 3A 20 8D 20 34 36 30 30 00 21 19 94 1B 82 20 53 |: . 4600.!.... S|
00001120: 4E 00 37 19 99 1B 81 20 4B B2 31 20 A4 20 31 35 |N.7.... K.1 . 15|
00001130: 30 30 3A 20 82 20 4B 00 53 19 9E 1B 8B 20 50 41 |00: . K.S.... PA|
00001140: 28 30 29 B3 36 30 30 20 A7 20 8D 20 37 33 30 30 |(0).600 . . 7300|
00001150: 3A 20 8E 00 66 19 A8 1B 57 4B B2 30 3A 53 51 B2 |: ..f...WK.0:SQ.|
00001160: 39 39 39 39 39 39 00 74 19 B2 1B 81 20 4A B2 31 |999999.t.... J.1|
00001170: 20 A4 20 36 00 A4 19 BC 1B 3A 8B 20 53 41 28 4A | . 6.....:. SA(J|
00001180: 29 B1 31 30 35 20 AF 20 50 53 28 30 2C 4A 29 B3 |).105 . PS(0,J).|
00001190: 53 51 20 A7 20 57 4B B2 4A 3A 53 51 B2 50 53 28 |SQ . WK.J:SQ.PS(|
000011A0: 30 2C 4A 29 00 AC 19 C6 1B 82 20 4A 00 B6 19 CB |0,J)...... J....|
000011B0: 1B 53 4E B2 57 4B 00 CD 19 D0 1B 8B 20 57 4B B2 |.SN.WK...... WK.|
000011C0: 30 20 A7 20 8D 20 37 33 30 30 3A 20 8E 00 E0 19 |0 . . 7300: ....|
000011D0: DA 1B 53 51 B2 35 30 30 3A 20 8D 20 34 34 30 30 |..SQ.500: . 4400|
000011E0: 00 F7 19 E4 1B 8B 20 53 4E B2 37 20 A7 20 8D 20 |...... SN.7 . . |
000011F0: 37 33 30 30 3A 20 8E 00 10 1A EE 1B 99 22 42 55 |7300: ......."BU|
00001200: 59 20 20 35 30 30 20 22 3B 53 4E 24 28 53 4E 29 |Y 500 ";SN$(SN)|
00001210: 00 26 1A F3 1B 81 20 4B B2 31 20 A4 20 31 30 30 |.&.... K.1 . 100|
00001220: 30 3A 20 82 20 4B 00 31 1A F8 1B 89 20 37 30 38 |0: . K.1.... 708|
00001230: 30 00 3D 1A 84 1C 8F 2A 37 33 30 30 2A 00 53 1A |0.=....*7300*.S.|
00001240: 8E 1C 81 20 4B B2 31 20 A4 20 33 30 30 20 3A 20 |... K.1 . 300 : |
00001250: 82 20 4B 00 67 1A 98 1C 8B 20 50 54 B2 31 20 A7 |. K.g.... PT.1 .|
00001260: 20 8D 20 34 30 30 30 00 8B 1A 9D 1C 8B 20 50 54 | . 4000...... PT|
00001270: B2 30 20 A7 20 99 3A 20 99 20 22 4E 4F 20 54 52 |.0 . .: . "NO TR|
00001280: 41 4E 53 41 43 54 49 4F 4E 53 22 00 A1 1A A2 1C |ANSACTIONS".....|
00001290: 81 20 4B B2 31 20 A4 20 32 30 30 30 3A 20 82 20 |. K.1 . 2000: . |
000012A0: 4B 00 A7 1A AC 1C 8E 00 B3 1A 40 1F 8F 2A 38 30 |K.........@..*80|
000012B0: 30 30 2A 00 CE 1A 4A 1F A1 20 57 4B 24 3A 20 8B |00*...J.. WK$: .|
000012C0: 20 57 4B 24 B2 22 22 20 89 20 38 30 31 30 00 DC | WK$."" . 8010..|
000012D0: 1A 54 1F 99 22 20 20 22 3B 57 4B 24 00 E2 1A 5E |.T.." ";WK$...^|
000012E0: 1F 8E 00 EE 1A 34 21 8F 2A 38 35 30 30 2A 00 F9 |.....4!.*8500*..|
000012F0: 1A 3E 21 4E 41 24 B2 22 22 00 14 1B 48 21 A1 20 |.>!NA$.""...H!. |
00001300: 57 4B 24 3A 20 8B 20 57 4B 24 B2 22 22 20 89 20 |WK$: . WK$."" . |
00001310: 38 35 32 30 00 2B 1B 52 21 8B 20 57 4B 24 B2 C7 |8520.+.R!. WK$..|
00001320: 28 31 33 29 20 A7 20 99 3A 20 8E 00 36 1B 5C 21 |(13) . .: ..6.\!|
00001330: 99 20 57 4B 24 3B 00 46 1B 66 21 4E 41 24 B2 4E |. WK$;.F.f!NA$.N|
00001340: 41 24 AA 57 4B 24 00 5D 1B 70 21 8B 20 C3 28 4E |A$.WK$.].p!. .(N|
00001350: 41 24 29 B1 32 30 20 A7 20 99 3A 20 8E 00 68 1B |A$).20 . .: ..h.|
00001360: 7A 21 89 20 38 35 32 30 00 74 1B FC 21 8F 2A 38 |z!. 8520.t..!.*8|
00001370: 37 30 30 2A 00 7D 1B 06 22 53 51 B2 30 00 98 1B |700*.}.."SQ.0...|
00001380: 10 22 A1 20 57 4B 24 3A 20 8B 20 57 4B 24 B2 22 |.". WK$: . WK$."|
00001390: 22 20 89 20 38 37 32 30 00 AF 1B 1A 22 8B 20 57 |" . 8720....". W|
000013A0: 4B 24 B2 C7 28 31 33 29 20 A7 20 99 3A 20 8E 00 |K$..(13) . .: ..|
000013B0: CB 1B 24 22 99 20 57 4B 24 3B 3A 20 53 51 B2 53 |..$". WK$;: SQ.S|
000013C0: 51 AC 31 30 AA C5 28 57 4B 24 29 00 F0 1B 2E 22 |Q.10..(WK$)...."|
000013D0: 8B 20 57 4B 24 B3 22 30 22 20 B0 20 57 4B 24 B1 |. WK$."0" . WK$.|
000013E0: 22 39 22 20 A7 20 53 51 B2 30 3A 20 99 3A 20 8E |"9" . SQ.0: .: .|
000013F0: 00 07 1C 38 22 8B 20 53 51 B1 39 39 39 39 39 39 |...8". SQ.999999|
00001400: 20 A7 20 99 3A 20 8E 00 12 1C 42 22 89 20 38 37 | . .: ....B". 87|
00001410: 32 30 00 1E 1C 28 23 8F 2A 39 30 30 30 2A 00 42 |20...(#.*9000*.B|
00001420: 1C 32 23 99 20 22 53 54 4F 43 4B 23 3F 22 3B 3A |.2#. "STOCK#?";:|
00001430: 20 8D 20 38 30 30 30 3A 20 53 4E B2 C5 28 57 4B | . 8000: SN..(WK|
00001440: 24 29 00 68 1C 3C 23 8B 20 53 4E B3 31 20 B0 20 |$).h.<#. SN.1 . |
00001450: 53 4E B1 36 20 A7 20 99 20 4D 31 24 3B 4D 33 24 |SN.6 . . M1$;M3$|
00001460: 3A 20 89 20 39 30 31 30 00 84 1C 46 23 99 20 22 |: . 9010...F#. "|
00001470: 51 55 41 4E 54 49 54 59 3F 20 22 3B 3A 20 8D 20 |QUANTITY? ";: . |
00001480: 38 37 30 30 00 9C 1C 50 23 57 4B B2 53 51 AB B5 |8700...P#WK.SQ..|
00001490: 28 53 51 AD 35 30 30 29 AC 35 30 30 00 C2 1C 5A |(SQ.500).500...Z|
000014A0: 23 8B 20 53 51 B2 30 20 B0 20 57 4B B1 30 20 A7 |#. SQ.0 . WK.0 .|
000014B0: 20 99 20 4D 31 24 3B 4D 36 24 3A 20 89 20 39 30 | . M1$;M6$: . 90|
000014C0: 33 30 00 C8 1C 64 23 8E 00 D4 1C 1C 25 8F 2A 39 |30...d#.....%.*9|
000014D0: 35 30 30 2A 00 EE 1C 26 25 53 31 B2 33 32 37 36 |500*...&%S1.3276|
000014E0: 38 AA 37 36 36 AA 28 44 31 AB 31 29 AC 36 00 03 |8.766.(D1.1).6..|
000014F0: 1D 2B 25 81 20 4B B2 31 20 A4 20 33 30 30 3A 20 |.+%. K.1 . 300: |
00001500: 82 20 4B 00 18 1D 30 25 81 20 4B B2 30 20 A4 20 |. K...0%. K.0 . |
00001510: 31 39 30 20 A9 20 31 30 00 23 1D 3A 25 3A 57 4B |190 . 10.#.:%:WK|
00001520: B2 36 34 00 3C 1D 44 25 3A 8B 20 53 41 28 44 31 |.64.<.D%:. SA(D1|
00001530: 29 B1 4B 20 A7 20 57 4B B2 31 36 30 00 54 1D 4E |).K . WK.160.T.N|
00001540: 25 3A 8B 20 53 41 28 44 31 29 B2 4B 20 A7 20 57 |%:. SA(D1).K . W|
00001550: 4B B2 39 38 00 6C 1D 58 25 3A 97 20 53 31 2C 57 |K.98.l.X%:. S1,W|
00001560: 4B 3A 20 97 20 53 31 AA 31 2C 57 4B 00 7A 1D 62 |K: . S1.1,WK.z.b|
00001570: 25 3A 53 31 B2 53 31 AB 34 30 00 82 1D 6C 25 82 |%:S1.S1.40...l%.|
00001580: 20 4B 00 97 1D 76 25 81 20 4B B2 31 20 A4 20 33 | K...v%. K.1 . 3|
00001590: 30 30 3A 20 82 20 4B 00 9D 1D 80 25 8E 00 B7 1D |00: . K....%....|
000015A0: 30 75 8F 2A 33 30 30 30 30 2A 20 52 45 4E 55 4D |0u.*30000* RENUM|
000015B0: 42 45 52 20 52 54 4E 00 CC 1D 35 75 58 B2 31 30 |BER RTN...5uX.10|
000015C0: 32 35 3A 59 B2 31 30 3A 49 4E B2 35 00 E4 1D 3A |25:Y.10:IN.5...:|
000015D0: 75 58 31 B2 C2 28 58 AA 34 29 3A 58 32 B2 C2 28 |uX1..(X.4):X2..(|
000015E0: 58 AA 35 29 00 03 1E 44 75 8B 20 58 31 B3 B1 31 |X.5)...Du. X1..1|
000015F0: 34 33 20 B0 20 58 32 B3 B1 34 32 20 89 20 33 30 |43 . X2..42 . 30|
00001600: 31 30 30 00 13 1E 4E 75 58 31 B2 58 AA 36 3A 58 |100...NuX1.X.6:X|
00001610: 32 B2 30 00 20 1E 58 75 58 33 B2 C2 28 58 31 29 |2.0. .XuX3..(X1)|
00001620: 00 34 1E 62 75 8B 20 58 33 B2 34 32 20 A7 20 33 |.4.bu. X3.42 . 3|
00001630: 30 30 39 30 00 41 1E 6C 75 58 33 B2 58 33 AB 34 |0090.A.luX3.X3.4|
00001640: 38 00 66 1E 76 75 8B 20 58 33 B3 30 20 B0 20 58 |8.f.vu. X3.0 . X|
00001650: 33 B1 39 20 A7 20 99 20 22 45 52 52 31 22 3A 89 |3.9 . . "ERR1":.|
00001660: 20 33 30 31 30 30 00 86 1E 80 75 58 32 B2 58 32 | 30100....uX2.X2|
00001670: AC 31 30 AA 58 33 3A 58 31 B2 58 31 AA 31 3A 89 |.10.X3:X1.X1.1:.|
00001680: 20 33 30 30 34 30 00 9E 1E 8A 75 8B 20 59 B3 58 | 30040....u. Y.X|
00001690: 32 20 A7 20 59 B2 58 32 3A 49 4E B2 31 30 00 BA |2 . Y.X2:IN.10..|
000016A0: 1E 94 75 59 32 B2 B5 28 59 AD 32 35 36 29 3A 59 |..uY2..(Y.256):Y|
000016B0: 31 B2 59 AB 59 32 AC 32 35 36 00 D7 1E 9E 75 97 |1.Y.Y2.256....u.|
000016C0: 20 58 AA 32 2C 59 31 3A 97 20 58 AA 33 2C 59 32 | X.2,Y1:. X.3,Y2|
000016D0: 3A 59 B2 59 AA 49 4E 00 ED 1E A8 75 58 B2 C2 28 |:Y.Y.IN....uX..(|
000016E0: 58 29 AA 32 35 36 AC C2 28 58 AA 31 29 00 05 1F |X).256..(X.1)...|
000016F0: B2 75 5A B2 C2 28 58 AA 32 29 AA 32 35 36 AC C2 |.uZ..(X.2).256..|
00001700: 28 58 AA 33 29 00 1B 1F BC 75 8B 20 5A B3 33 30 |(X.3)....u. Z.30|
00001710: 30 30 30 20 A7 20 33 30 30 31 30 00 21 1F C6 75 |000 . 30010.!..u|
00001720: 80 00 30 1F 40 9C 81 20 41 B2 31 20 A4 32 35 35 |..0.@.. A.1 .255|
00001730: 00 3C 1F 4A 9C 99 41 2C C7 28 41 29 00 44 1F 54 |.<.J..A,.(A).D.T|
00001740: 9C 82 20 41 00 00 00 01 |.. A.... |
..%.D..". . . . . . . . . . . . . . ".H.
N.." . . . . . . . . . . . . . ".K.X.."
. . . . . . . . . . . . . "......" . . .
. . . . . . . . . . "......" .Q.W.E.R.T
.Y.U.I.O.P.@.*.^".X....".'SPACE' FOR SOL
O OR POLYPHONIC"... ..".'F1,F3,F5,F7' OC
TAVE SELECTION"......".'F2,F4,F6,F8' WAV
EFORM.".J...." TYPE '?' TO END
SETTING UP SOUND DEM
O".....S.13.4096.1024:.F(26):.K(255)...H
..I.0.28:.S.I,0:..X.R.F1.7040:.I.1.26:F(
27.I).F1.5.8.30:F1.F1.2.(1.12):......K$.
"Q2W3ER5T6Y7UI9O0P@-*\^"......I.1.C(K$):
K(F(J(K$,I))).I:..H....".
".....AT.0:DE.0:S
U.15:RE.9:SV.SU.16.RE:AV.AT.16.DE:WV.16:
W.0:M.1:OC.4:HB.256:Z.0.F....I.0.2:.S.5.
I.7,AT.16.DE:.S.6.I.7,SU.16.RE......S.2.
I.7,4000.255:.S.3.I.7,4000.256:.......S.
24,15:.+16+64:POKES+23,7.#.,..A$:.A$."".
300.9.1.. A$."?" . . 1000.G.6.FR.F(K(F(A
$))).M:T.V.7:CR.S.T.4:.FR.Z.500...@..S.6
.T,Z:. FINISH DEC/SUS...E..S.5.T,Z:. FIN
ISH ATT/REL...J..CR,8:.CR,0:. FIX OFF...
T..S.T,FR.HB..(FR.HB):. SET LO...^..S.1.
T,FR.HB:. SET HI...H..S.6.T,SV:. SET DEC
/SUS.0.M..S.5.T,AV:. SET ATT/REL.J.R..CR
,WV.1:.I.1.50.AT:..].W..CR,WV:. PULSE.U.
|..P.1.V.V.1:.V.3.V.0.~....300......A$."
.".M.1:OC.4:.300......A$.".".M.2:OC.3:.3
00.L....A$.".".M.4:OC.2:.300......A$."."
.M.8:OC.1:.300......A$.".".W.0:WV.16:.30
0...&..A$.".".W.1:WV.32:.300.7.0..A$."."
.W.2:WV.64:.300.S.:..A$.".".W.3:WV.128:.
300.J.D..A$." ".P.1.P:.300.Z.N..A$.".".2
00...X..300... .."HIT A KEY"...*..A$:.A$
."".810:. . A KEY...4..A$:..N...S.13.409
6.1024......I.0.28:.S.I,0:.:......."DRIV
E@"L.... BEFORE".*.N.. "BUYING AND SELLI
NG STOCKS (1-3)?";.@.X.. 8000: NR.E(WK$)
.F.... NR.1 . NR.3 . . M1$;M4$: . 1220..
...NR.NR.(1.N1.N2): . ".";: . 2000.....B
L$."
".B.....N.P..*2000*...... I.190 . 0 .
.10.....:GN$." ".D(I): GN$.".".I(GN$,
3).....:GN$.GN$."...".0. .:. J.1 . 6:Z.0
.?.*.::WK$."..".A.4.::. SA(J).I . Z..1:W
K$.". ."...>.::. SA(J).I . Z..1:WK$."..
"...H.::...B..Z.WK$.J(Z$,J,1).WK$.".".A.
C.::. J.6 . WK$.WK$."...".U.D.GN$.GN$.WK
$."C"...F.:. J...P.:. GN$...Z.. I.'....
" ";SN$(1);SN$(2);SN$(3);SN$(4);SN$(5)
;SN$(6).-.....9....*3000*.H.L.. I.1 . N2
.T.V.:. 4000.U...:. "YOU MUST BUY SOME S
TOCK".....:. 9000.....:. 4400...&.:. SN.
7 . . "INSUFFICIENT FUNDS": . 3050.F.0.:
. 3300...:.:. PA(I).5000 . 3030...D.. I.
..N........*3300*...... 4000.2.... "BUY,
SELL OR NOTHING B/S/N ?";: . 8000.K....
WK$.."N" . WK$.."S" . WK$.."B" . . M1$;
M5$: . 3330.}.... WK$."N" . .... .SB$.WK
$...4.. 9000...F.. SB$."S" . . 4600.B.P.
. SB$."B" . . 4400.V.Z.. SN.7 . . 3300..
.... SB$."S" . . "YOU DON'T OWN ENOUGH S
TOCK".5.... SB$."B" . . "YOU DON'T HAVE
ENOUGH MONEY".K.... K.1 . 2000: . K.V...
. 3300.B. ..*4000*...... ". PORTFOLIO
- ";PN$(I).....WK.C(PN$(I)).12: WK$."
".D.H.. K.1 . WK: WK$.WK$.".": . K.N.R
.. WK$...... " # DESC VALUE HOLDINGS"
...... " . .... ..... ........". ....
K.1 . 6.D...:WK$." ".D(SA(K)): V$.I(WK
$,3).H.".:WK.PS(I,K): WK$." ".D(WK)
.Z.,.:WK$.I(WK$,7)...6.:. WK.1000 . H$."
".WK$...@.:. WK. 500 . H$.H(WK$,4).",".
I(WK$,3).V.J.:WK$." ".D(K)." "...T.:. WK
$;SN$(K);" ";V$;" ";H$...^.. K.'.H..:
. "CASH ON HAND --- ";PA(I): ..-.R...9.
0..*4400*.T.:.WK.SA(SN).SQ.100: PT.1.M.D
.. WK.PA(I) . SN.7: ....N.PA(I).PA(I).WK
...X.PS(I,SN).PS(I,SN).SQ...B........*46
00*.....PT.1.P.... 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.C.... SA(D1).200 . ..R...
SA(D1).100.B.... I.N1 . N2.{...:PS(I,D1)
.PS(I,D1).2...D.. I...N........*5300*...
..SA(D1).SA(D1).D3...H.. SA(D1).0 . ..L.
R.SA(D1).100...... I.N1 . N2.....:PS(I,D
1).0...... I............*5600*...... SA(
D1).100 . ..+.... I.N1 . N2.L...:PA(I).P
A(I).PS(I,D1).D3.100.T.... I.Z.....F.P..
*6000*.Q.... ".";...... "PLAYER NAME
CASH VALUE".A.... "...........
.........."...... K.N1 . N2:S(K).P
A(K).....:. J.1 . 6.....::PA(K).PA(K).SA
(J).PS(K,J).100.....:. J. .B.. K.0.D.. K
.N1 . N2.;.F.:WK..1.L.H.:. J.N1 . N2.M.J
.::. PA(J).WK . WK.PA(J): I.J.V.L.:. J..
.T.:WK$." ".D(PA(I)).....:WK$.I(
WK$,8): V$.H(WK$,2).O...:. V$.." " . V$
.V$.",".....:. V$. " " . V$.V$." ".....
:V$.V$.J(WK$,3,3).!...:. I(V$,1).." " .
V$.V$.",".A...:. I(V$,1). " " . V$.V$."
".U...:V$.V$.I(WK$,3).N...:. PN$(I);.21)
;V$: ..|...:PA(I)..1...... K......K.N1.N
2:PA(K).S(K):....$.....X..*7000*.F.L.I.0
: PT.0: . 4000...V.. SN.1 . 6: SQ.PS(0,S
N).....:. SA(SN).95 . SQ.0 . . "SELL";SQ
;SN$(SN): . 4600.!.... SN.7.... K.1 . 15
00: . K.S.... PA(0).600 . . 7300: ..F...
WK.0:SQ.999999.T.... J.1 . 6.....:. SA(J
).105 . PS(0,J).SQ . WK.J:SQ.PS(0,J)...F
.. J...K.SN.WK.M.P.. WK.0 . . 7300: ....
Z.SQ.500: . 4400...... SN.7 . . 7300: ..
....."BUY 500 ";SN$(SN).&.... K.1 . 100
0: . K.1.... 7080.=....*7300*.S.... K.1
. 300 : . K.G.... PT.1 . . 4000...... PT
.0 . .: . "NO TRANSACTIONS"...... K.1 .
2000: . K.........@..*8000*.N.J.. WK$: .
WK$."" . 8010...T.." ";WK$...^.....4!.
*8500*...>!NA$.""...H!. WK$: . WK$."" .
8520.+.R!. WK$.G(13) . .: ..6.\!. WK$;.F
.F!NA$.NA$.WK$.].P!. C(NA$).20 . .: ..H.
Z!. 8520.T..!.*8700*.}.."SQ.0....". WK$:
. WK$."" . 8720....". WK$.G(13) . .: ..
K.$". WK$;: SQ.SQ.10.E(WK$)....". WK$."0
" . WK$."9" . SQ.0: .: ....8". SQ.999999
. .: ....B". 8720...(#.*9000*.B.2#. "ST
OCK#?";: . 8000: SN.E(WK$).H.<#. SN.1 .
SN.6 . . M1$;M3$: . 9010...F#. "QUANTITY
? ";: . 8700...P#WK.SQ..(SQ.500).500.B.Z
#. SQ.0 . WK.0 . . M1$;M6$: . 9030.H.D#.
.T..%.*9500*...&%S1.32768.766.(D1.1).6..
.+%. K.1 . 300: . K...0%. K.0 . 190 . 10
.#.:%:WK.64.<.D%:. SA(D1).K . WK.160.T.N
%:. SA(D1).K . WK.98.L.X%:. S1,WK: . S1.
1,WK.Z.B%:S1.S1.40...L%. K...V%. K.1 . 3
00: . K....%....0U.*30000* RENUMBER RTN.
L.5UX.1025:Y.10:IN.5...:UX1.B(X.4):X2.B(
X.5)...DU. X1..143 . X2..42 . 30100...NU
X1.X.6:X2.0. .XUX3.B(X1).4.BU. X3.42 . 3
0090.A.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.W..U. X.2,Y1:. X.3,Y2
:Y.Y.IN....UX.B(X).256.B(X.1)....UZ.B(X.
2).256.B(X.3)....U. Z.30000 . 30010.!.FU
..0.@.. A.1 .255.<.J..A,G(A).D.T.. A....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL