PIANO

FILE INFORMATION

FILENAME(S): PIANO

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-12-01 01:06:20

APPEARS ON: 1 disk(s)

FILE HASH

6d785de53a33d2fdb707fe10a75be37fc60a04ccb6516084e608862b321b8d1d

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
NYTTOPROGRAM 1	PIANO	PRG	hedning, groth	27	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 16 08 64 00 8F 20  50 49 41 4E 4F 20 4B 45  |....d.. PIANO KE|
00000010: 59 42 4F 41 52 44 00 3D  08 6E 00 99 22 11 27 53  |YBOARD.=.n..".'S|
00000020: 50 41 43 45 27 20 46 4F  52 20 53 4F 4C 4F 20 4F  |PACE' FOR SOLO O|
00000030: 52 20 50 4F 4C 59 50 48  4F 4E 49 43 22 00 64 08  |R POLYPHONIC".d.|
00000040: 78 00 99 22 11 27 46 31  2C 46 33 2C 46 35 2C 46  |x..".'F1,F3,F5,F|
00000050: 37 27 20 4F 43 54 41 56  45 20 53 45 4C 45 43 54  |7' OCTAVE SELECT|
00000060: 49 4F 4E 22 00 84 08 82  00 99 22 11 27 46 32 2C  |ION"......".'F2,|
00000070: 46 34 2C 46 36 2C 46 38  27 20 57 41 56 45 46 4F  |F4,F6,F8' WAVEFO|
00000080: 52 4D 11 22 00 B2 08 8C  00 99 22 48 41 4E 47 20  |RM."......"HANG |
00000090: 4F 4E 2C 20 53 45 54 54  49 4E 47 20 55 50 20 46  |ON, SETTING UP F|
000000A0: 52 45 51 55 45 4E 43 59  20 54 41 42 4C 45 2E 2E  |REQUENCY TABLE..|
000000B0: 2E 22 00 D4 08 96 00 53  B2 31 33 AC 34 30 39 36  |.".....S.13.4096|
000000C0: AA 31 30 32 34 3A 86 46  28 32 36 29 3A 86 4B 28  |.1024:.F(26):.K(|
000000D0: 32 35 35 29 00 E9 08 A0  00 81 49 B2 31 A4 32 38  |255)......I.1.28|
000000E0: 3A 97 53 AA 49 2C 30 3A  82 00 F6 08 AA 00 97 53  |:.S.I,0:.......S|
000000F0: AA 32 34 2C 31 35 00 2D  09 B4 00 46 31 B2 37 30  |.24,15.-...F1.70|
00000100: 34 30 3A 81 49 B2 31 A4  32 36 3A 46 28 32 37 AB  |40:.I.1.26:F(27.|
00000110: 49 29 B2 46 31 AC 35 2E  38 AA 33 30 3A 46 31 B2  |I).F1.5.8.30:F1.|
00000120: 46 31 AD 32 AE 28 31 AD  31 32 29 3A 82 00 4D 09  |F1.2.(1.12):..M.|
00000130: BE 00 4B 24 B2 22 51 32  57 33 45 52 35 54 36 59  |..K$."Q2W3ER5T6Y|
00000140: 37 55 49 39 4F 30 50 40  2D 2A 5C 5E 22 00 6E 09  |7UI9O0P@-*\^".n.|
00000150: C8 00 81 49 B2 31 A4 C3  28 4B 24 29 3A 4B 28 C6  |...I.1..(K$):K(.|
00000160: 28 CA 28 4B 24 2C 49 29  29 29 B2 49 3A 82 00 76  |(.(K$,I))).I:..v|
00000170: 09 D2 00 99 22 91 00 C5  09 FA 00 41 54 B2 30 3A  |...."......AT.0:|
00000180: 44 45 B2 30 3A 53 55 B2  31 35 3A 52 45 B2 39 3A  |DE.0:SU.15:RE.9:|
00000190: 53 56 B2 53 55 AC 31 36  AA 52 45 3A 41 56 B2 41  |SV.SU.16.RE:AV.A|
000001A0: 54 AC 31 36 AA 44 45 3A  57 56 B2 31 36 3A 57 B2  |T.16.DE:WV.16:W.|
000001B0: 30 3A 4D B2 31 3A 4F 43  B2 34 3A 48 42 B2 32 35  |0:M.1:OC.4:HB.25|
000001C0: 36 3A 5A B2 30 00 F4 09  04 01 81 49 B2 31 A4 32  |6:Z.0......I.1.2|
000001D0: 3A 97 53 AA 35 AA 49 AC  37 2C 41 54 AC 31 36 AA  |:.S.5.I.7,AT.16.|
000001E0: 44 45 3A 97 53 AA 36 AA  49 AC 37 2C 53 55 AC 31  |DE:.S.6.I.7,SU.1|
000001F0: 36 AA 52 45 00 1E 0A 0E  01 97 53 AA 32 AA 49 AC  |6.RE......S.2.I.|
00000200: 37 2C 34 30 30 30 AF 32  35 35 3A 97 53 AA 33 AA  |7,4000.255:.S.3.|
00000210: 49 AC 37 2C 34 30 30 30  AD 32 35 36 3A 82 00 31  |I.7,4000.256:..1|
00000220: 0A 18 01 A1 41 24 3A 8B  41 24 B2 22 22 A7 32 38  |....A$:.A$."".28|
00000230: 30 00 5F 0A 22 01 46 52  B2 46 28 4B 28 C6 28 41  |0._.".FR.F(K(.(A|
00000240: 24 29 29 29 AD 4D 3A 54  B2 56 AC 37 3A 43 52 B2  |$))).M:T.V.7:CR.|
00000250: 53 AA 54 AA 34 3A 8B 46  52 B2 5A A7 35 30 30 00  |S.T.4:.FR.Z.500.|
00000260: 72 0A 2C 01 A1 41 24 3A  8B 41 24 B2 22 22 A7 32  |r.,..A$:.A$."".2|
00000270: 38 30 00 90 0A 40 01 97  53 AA 36 AA 49 2C 5A 3A  |80...@..S.6.I,Z:|
00000280: 8F 20 46 49 4E 49 53 48  20 44 45 43 2F 53 55 53  |. FINISH DEC/SUS|
00000290: 00 AE 0A 45 01 97 53 AA  35 AA 54 2C 5A 3A 8F 20  |...E..S.5.T,Z:. |
000002A0: 46 49 4E 49 53 48 20 41  54 54 2F 52 45 4C 00 C8  |FINISH ATT/REL..|
000002B0: 0A 4A 01 97 43 52 2C 38  3A 97 43 52 2C 30 3A 8F  |.J..CR,8:.CR,0:.|
000002C0: 20 46 49 58 20 4F 46 46  00 E9 0A 54 01 97 53 AA  | FIX OFF...T..S.|
000002D0: 54 2C 46 52 AB 48 42 AC  B5 28 46 52 AD 48 42 29  |T,FR.HB..(FR.HB)|
000002E0: 3A 8F 20 53 45 54 20 4C  4F 00 03 0B 5E 01 97 53  |:. SET LO...^..S|
000002F0: AA 31 AA 54 2C 46 52 AD  48 42 3A 8F 20 53 45 54  |.1.T,FR.HB:. SET|
00000300: 20 48 49 00 1F 0B 68 01  97 53 AA 36 AA 54 2C 53  | HI...h..S.6.T,S|
00000310: 56 3A 8F 20 53 45 54 20  44 45 43 2F 53 55 53 00  |V:. SET DEC/SUS.|
00000320: 3B 0B 72 01 97 53 AA 35  AA 54 2C 41 56 3A 8F 20  |;.r..S.5.T,AV:. |
00000330: 53 45 54 20 41 54 54 2F  52 45 4C 00 55 0B 7C 01  |SET ATT/REL.U.|.|
00000340: 97 43 52 2C 57 56 AA 31  3A 81 49 B2 31 A4 35 30  |.CR,WV.1:.I.1.50|
00000350: AC 41 54 3A 82 00 68 0B  86 01 97 43 52 2C 57 56  |.AT:..h....CR,WV|
00000360: 3A 8F 20 50 55 4C 53 45  00 80 0B 90 01 8B 50 B2  |:. PULSE......P.|
00000370: 31 A7 56 B2 56 AA 31 3A  8B 56 B2 33 A7 56 B2 30  |1.V.V.1:.V.3.V.0|
00000380: 00 89 0B 9A 01 89 33 30  30 00 A4 0B F4 01 8B 41  |......300......A|
00000390: 24 B2 22 85 22 A7 4E 4D  B2 31 3A 4F 43 B2 34 3A  |$.".".NM.1:OC.4:|
000003A0: 89 33 30 30 00 BF 0B FE  01 8B 41 24 B2 22 86 22  |.300......A$."."|
000003B0: A7 4E 4D B2 32 3A 4F 43  B2 33 3A 89 33 30 30 00  |.NM.2:OC.3:.300.|
000003C0: DA 0B 08 02 8B 41 24 B2  22 87 22 A7 4E 4D B2 34  |.....A$.".".NM.4|
000003D0: 3A 4F 43 B2 32 3A 89 33  30 30 00 F8 0B 12 02 8B  |:OC.2:.300......|
000003E0: 41 24 B2 22 88 22 54 45  48 4E 4E 4D B2 38 3A 4F  |A$."."TEHNNM.8:O|
000003F0: 43 B2 31 3A 89 33 30 30  00 14 0C 1C 02 8B 41 24  |C.1:.300......A$|
00000400: B2 22 89 22 A7 4E 57 B2  30 3A 57 56 B2 31 36 3A  |.".".NW.0:WV.16:|
00000410: 89 33 30 30 00 30 0C 26  02 8B 41 24 B2 22 8A 22  |.300.0.&..A$."."|
00000420: A7 4E 57 B2 31 3A 57 56  B2 33 32 3A 89 33 30 30  |.NW.1:WV.32:.300|
00000430: 00 4C 0C 30 02 8B 41 24  B2 22 8B 22 A7 4E 57 B2  |.L.0..A$.".".NW.|
00000440: 32 3A 57 56 B2 36 34 3A  89 33 30 30 00 69 0C 3A  |2:WV.64:.300.i.:|
00000450: 02 8B 41 24 B2 22 8C 22  A7 4E 57 B2 33 3A 57 56  |..A$.".".NW.3:WV|
00000460: B2 31 32 38 3A 89 33 30  30 00 81 0C 44 02 8B 41  |.128:.300...D..A|
00000470: 24 B2 22 20 22 A7 4E 50  B2 31 AB 50 3A 89 33 30  |$." ".NP.1.P:.30|
00000480: 30 00 91 0C 4E 02 8B 41  24 B2 22 93 22 A7 32 30  |0...N..A$.".".20|
00000490: 30 00 9A 0C 58 02 89 33  30 30 00 AB 0C 20 03 99  |0...X..300... ..|
000004A0: 22 48 49 54 20 41 20 4B  45 59 22 00 CB 0C 2A 03  |"HIT A KEY"...*.|
000004B0: A1 41 24 3A 8B 41 24 B2  22 22 A7 38 31 30 3A 57  |.A$:.A$."".810:W|
000004C0: 45 49 54 20 81 20 41 20  4B 45 59 00 D5 0C 34 03  |EIT . A KEY...4.|
000004D0: 99 41 24 3A 8E 00 00 00                           |.A$:....        |

....D.. PIANO KEYBOARD.=.N..".'SPACE' FO
R SOLO OR POLYPHONIC".D.X..".'F1,F3,F5,F
7' OCTAVE SELECTION"......".'F2,F4,F6,F8
' WAVEFORM."......"HANG ON, SETTING UP F
REQUENCY TABLE...".T...S.13.4096.1024:.F
(26):.K(255)... ..I.1.28:.S.I,0:.......S
.24,15.-...F1.7040:.I.1.26:F(27.I).F1.5.
8.30:F1.F1.2.(1.12):..M...K$."Q2W3ER5T6Y
7UI9O0P@-*\^".N.H..I.1.C(K$):K(F(J(K$,I)
)).I:..V.R.."..E...AT.0:DE.0:SU.15:RE.9:
SV.SU.16.RE:AV.AT.16.DE:WV.16:W.0:M.1:OC
.4:HB.256:Z.0......I.1.2:.S.5.I.7,AT.16.
DE:.S.6.I.7,SU.16.RE......S.2.I.7,4000.2
55:.S.3.I.7,4000.256:..1....A$:.A$."".28
0._.".FR.F(K(F(A$))).M:T.V.7:CR.S.T.4:.F
R.Z.500.R.,..A$:.A$."".280...@..S.6.I,Z:
. FINISH DEC/SUS...E..S.5.T,Z:. FINISH A
TT/REL.H.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.
;.R..S.5.T,AV:. SET ATT/REL.U.|..CR,WV.1
:.I.1.50.AT:..H....CR,WV:. PULSE......P.
1.V.V.1:.V.3.V.0......300......A$.".".NM
.1:OC.4:.300......A$.".".NM.2:OC.3:.300.
Z....A$.".".NM.4:OC.2:.300......A$."."TE
HNNM.8:OC.1:.300......A$.".".NW.0:WV.16:
.300.0.&..A$.".".NW.1:WV.32:.300.L.0..A$
.".".NW.2:WV.64:.300.I.:..A$.".".NW.3:WV
.128:.300...D..A$." ".NP.1.P:.300...N..A
$.".".200...X..300... .."HIT A KEY".K.*.
.A$:.A$."".810:WEIT . A KEY.U.4..A$:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL