LIGHT PEN PIANO

FILE INFORMATION

FILENAME(S): LIGHT PEN PIANO

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-11-30 21:05:44

APPEARS ON: 4 disk(s)

FILE HASH

df55d1c0ae7eb5475f13e616bcb979573aa078b3b9536db8a88f03133ce46bd2

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LICHTPEN PROG	LIGHT PEN PIANO	PRG	DuncanTwain	22	0	DOWNLOAD FILE
NR 50	LIGHT PEN PIANO	PRG	DuncanTwain	21	2	DOWNLOAD FILE
C64 HULP 30 2	LIGHT PEN PIANO	PRG	DuncanTwain	21	2	DOWNLOAD FILE
FLEXIDRAW 3 0	LIGHT PEN PIANO	PRG	DuncanTwain	21	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 25 08 01 00 8F 20  4C 49 47 48 54 20 50 45  |..%.... LIGHT PE|
00000010: 4E 20 44 45 56 45 4C 4F  50 4D 45 4E 54 20 50 52  |N DEVELOPMENT PR|
00000020: 4F 47 52 41 4D 00 3F 08  02 00 8F 20 42 59 20 4D  |OGRAM.?.... BY M|
00000030: 49 43 48 41 45 4C 20 41  2E 20 45 53 4B 49 4E 00  |ICHAEL A. ESKIN.|
00000040: 55 08 03 00 8F 20 4C 49  47 48 54 20 50 45 4E 20  |U.... LIGHT PEN |
00000050: 50 49 41 4E 4F 00 64 08  05 00 86 20 46 52 28 31  |PIANO.d.... FR(1|
00000060: 35 2C 32 29 00 74 08 0A  00 99 20 22 93 22 C7 28  |5,2).t.... ".".(|
00000070: 31 34 32 29 00 81 08 0C  00 99 20 C7 28 31 34 34  |142)...... .(144|
00000080: 29 00 99 08 0E 00 97 20  35 33 32 38 31 2C 31 3A  |)...... 53281,1:|
00000090: 97 20 35 33 32 38 30 2C  36 00 BB 08 0F 00 99 20  |. 53280,6...... |
000000A0: A6 31 32 29 3B 22 90 12  49 4E 4B 57 45 4C 4C 20  |.12);"..INKWELL |
000000B0: 53 59 53 54 45 4D 53 92  22 3A 99 00 E0 08 14 00  |SYSTEMS.":......|
000000C0: 99 3A 99 20 22 20 50 4C  45 41 53 45 20 43 48 4F  |.:. " PLEASE CHO|
000000D0: 4F 53 45 20 41 20 57 41  56 45 46 4F 52 4D 3A 22  |OSE A WAVEFORM:"|
000000E0: 00 08 09 16 00 99 20 22  20 31 2D 54 52 49 20 20  |...... " 1-TRI  |
000000F0: 32 2D 53 41 57 20 20 33  2D 50 55 4C 53 45 20 20  |2-SAW  3-PULSE  |
00000100: 34 2D 4E 4F 49 53 45 22  00 17 09 17 00 99 20 22  |4-NOISE"...... "|
00000110: 20 30 2D 45 4E 44 22 00  4C 09 18 00 99 3A 85 20  | 0-END".L....:. |
00000120: 22 20 59 4F 55 52 20 53  45 4C 45 43 54 49 4F 4E  |" YOUR SELECTION|
00000130: 3A 22 3B 57 41 56 45 3A  99 3A 8B 20 57 41 56 45  |:";WAVE:.:. WAVE|
00000140: B2 30 20 A7 20 99 20 22  93 22 3A 80 00 65 09 19  |.0 . . ".":..e..|
00000150: 00 57 41 56 45 B2 B5 28  32 AE 28 57 41 56 45 AA  |.WAVE..(2.(WAVE.|
00000160: 33 29 29 AA 31 00 7B 09  1A 00 8B 20 57 41 56 45  |3)).1.{.... WAVE|
00000170: 20 B3 B1 20 36 35 20 A7  20 34 30 00 BA 09 1B 00  | .. 65 . 40.....|
00000180: 85 20 22 20 50 4C 45 41  53 45 20 45 4E 54 45 52  |. " PLEASE ENTER|
00000190: 20 50 55 4C 53 45 20 52  41 54 45 20 28 30 2D 31  | PULSE RATE (0-1|
000001A0: 35 29 3A 22 3B 50 52 3A  97 20 35 34 32 37 35 2C  |5):";PR:. 54275,|
000001B0: 50 52 20 AF 20 31 35 20  3A 99 00 F8 09 28 00 85  |PR . 15 :....(..|
000001C0: 20 22 20 45 4E 54 45 52  20 41 54 54 41 43 4B 20  | " ENTER ATTACK |
000001D0: 20 28 30 2D 31 35 29 22  3B 41 54 3A 85 20 22 20  | (0-15)";AT:. " |
000001E0: 20 20 20 20 20 20 44 45  43 41 59 20 20 20 28 30  |      DECAY   (0|
000001F0: 2D 31 35 29 22 3B 44 45  00 1B 0A 2A 00 97 20 35  |-15)";DE...*.. 5|
00000200: 34 32 37 37 2C 28 41 54  20 AF 20 31 35 29 AC 31  |4277,(AT . 15).1|
00000210: 36 AA 28 44 45 20 AF 20  31 35 29 00 58 0A 2B 00  |6.(DE . 15).X.+.|
00000220: 85 20 22 20 20 20 20 20  20 20 53 55 53 54 41 49  |. "       SUSTAI|
00000230: 4E 20 28 30 2D 31 35 29  22 3B 53 55 3A 85 22 20  |N (0-15)";SU:." |
00000240: 20 20 20 20 20 20 52 45  4C 45 41 53 45 20 28 30  |      RELEASE (0|
00000250: 2D 31 35 29 22 3B 52 45  00 74 0A 2C 00 97 20 35  |-15)";RE.t.,.. 5|
00000260: 34 32 37 38 2C 28 53 55  20 AF 20 31 35 29 AC 31  |4278,(SU . 15).1|
00000270: 36 AA 52 45 00 81 0A 32  00 8C 3A 8D 20 36 30 30  |6.RE...2..:. 600|
00000280: 30 00 A4 0A 3C 00 97 20  35 34 32 39 36 2C 31 35  |0...<.. 54296,15|
00000290: 3A 8F 20 53 45 54 20 56  4F 4C 55 4D 45 20 54 4F  |:. SET VOLUME TO|
000002A0: 20 4D 41 58 00 BD 0A 64  00 A1 20 41 24 3A 8B 20  | MAX...d.. A$:. |
000002B0: 41 24 B2 22 20 22 20 A7  20 89 20 31 30 00 F1 0A  |A$." " . . 10...|
000002C0: 68 00 8B 20 28 C2 28 35  36 33 32 31 29 20 AF 20  |h.. (.(56321) . |
000002D0: 34 29 B3 B1 30 20 A7 20  20 97 20 35 34 32 37 36  |4)..0 .  . 54276|
000002E0: 2C 57 41 56 45 20 AF 20  32 35 34 3A 89 20 31 30  |,WAVE . 254:. 10|
000002F0: 30 00 18 0B 69 00 58 25  B2 B5 28 C2 28 35 33 32  |0...i.X%..(.(532|
00000300: 36 37 29 AC 32 29 AB 33  34 3A 59 25 B2 C2 28 35  |67).2).34:Y%..(5|
00000310: 33 32 36 38 29 AB 35 30  00 44 0B 6A 00 8B 20 58  |3268).50.D.j.. X|
00000320: 25 B1 33 31 39 20 B0 20  59 25 B1 32 35 35 20 B0  |%.319 . Y%.255 .|
00000330: 20 58 25 B3 30 20 B0 20  59 25 B3 30 20 A7 20 89  | X%.0 . Y%.0 . .|
00000340: 20 31 30 30 00 50 0B 6E  00 52 25 B2 59 25 AD 38  | 100.P.n.R%.Y%.8|
00000350: 00 5C 0B 78 00 43 25 B2  58 25 AD 38 00 78 0B 82  |.\.x.C%.X%.8.x..|
00000360: 00 8D 20 37 30 30 30 3A  8F 20 47 45 54 20 4B 45  |.. 7000:. GET KE|
00000370: 59 20 4E 55 4D 42 45 52  00 8B 0B 84 00 8B 20 4E  |Y NUMBER...... N|
00000380: 25 B2 30 20 A7 20 89 20  31 30 30 00 A4 0B 87 00  |%.0 . . 100.....|
00000390: 8F 20 4E 4F 57 20 4C 4F  41 44 20 46 52 45 51 55  |. NOW LOAD FREQU|
000003A0: 45 4E 43 59 00 CA 0B 8C  00 97 20 35 34 32 37 33  |ENCY...... 54273|
000003B0: 2C 46 52 28 4E 25 2C 31  29 3A 97 20 35 34 32 37  |,FR(N%,1):. 5427|
000003C0: 32 2C 46 52 28 4E 25 2C  32 29 00 DB 0B 96 00 97  |2,FR(N%,2)......|
000003D0: 20 35 34 32 37 36 2C 57  41 56 45 00 E5 0B B4 00  | 54276,WAVE.....|
000003E0: 89 20 31 30 30 00 F8 0B  88 13 8F 20 44 49 53 50  |. 100...... DISP|
000003F0: 4C 41 59 20 44 41 54 41  00 0D 0C 8A 13 99 20 22  |LAY DATA...... "|
00000400: 93 11 11 11 11 22 C7 28  31 35 32 29 3B 00 40 0C  |.....".(152);.@.|
00000410: 92 13 99 20 22 20 20 20  20 20 20 20 20 CF B7 12  |... "        ...|
00000420: 20 20 92 B7 12 20 20 92  B7 D0 CF B7 12 20 20 92  |  ...  ......  .|
00000430: B7 12 20 20 92 B7 12 20  20 92 B7 D0 CF B7 D0 22  |..  ...  ......"|
00000440: 00 73 0C 9C 13 99 20 22  20 20 20 20 20 20 20 20  |.s.... "        |
00000450: B4 20 12 20 20 92 20 12  20 20 92 20 AA B4 20 12  |. .  . .  . .. .|
00000460: 20 20 92 20 12 20 20 92  20 12 20 20 92 20 AA B4  |  . .  . .  . ..|
00000470: 20 AA 22 00 A6 0C A6 13  99 20 22 20 20 20 20 20  | ."...... "     |
00000480: 20 20 20 B4 20 12 20 20  92 20 12 20 20 92 20 AA  |   . .  . .  . .|
00000490: B4 20 12 20 20 92 20 12  20 20 92 20 12 20 20 92  |. .  . .  . .  .|
000004A0: 20 AA B4 20 AA 22 00 D9  0C B0 13 99 20 22 20 20  | .. ."...... "  |
000004B0: 20 20 20 20 20 20 B4 20  12 20 20 92 20 12 20 20  |      . .  . .  |
000004C0: 92 20 AA B4 20 12 20 20  92 20 12 20 20 92 20 12  |. .. .  . .  . .|
000004D0: 20 20 92 20 AA B4 20 AA  22 00 0C 0D BA 13 99 20  |  . .. ."...... |
000004E0: 22 20 20 20 20 20 20 20  20 B4 20 12 20 20 92 20  |"        . .  . |
000004F0: 12 20 20 92 20 AA B4 20  12 20 20 92 20 12 20 20  |.  . .. .  . .  |
00000500: 92 20 12 20 20 92 20 AA  B4 20 AA 22 00 3F 0D C4  |. .  . .. .".?..|
00000510: 13 99 20 22 20 20 20 20  20 20 20 20 B4 20 12 20  |.. "        . . |
00000520: 20 92 20 12 20 20 92 20  AA B4 20 12 20 20 92 20  | . .  . .. .  . |
00000530: 12 20 20 92 20 12 20 20  92 20 AA B4 20 AA 22 00  |.  . .  . .. .".|
00000540: 68 0D CE 13 99 20 22 20  20 20 20 20 20 20 20 B4  |h.... "        .|
00000550: 20 AA B4 20 AA B4 20 AA  B4 20 AA B4 20 AA B4 20  | .. .. .. .. .. |
00000560: AA B4 20 AA B4 20 AA 22  00 91 0D D8 13 99 20 22  |.. .. ."...... "|
00000570: 20 20 20 20 20 20 20 20  B4 20 AA B4 20 AA B4 20  |        . .. .. |
00000580: AA B4 20 AA B4 20 AA B4  20 AA B4 20 AA B4 20 AA  |.. .. .. .. .. .|
00000590: 22 00 BA 0D E2 13 99 20  22 20 20 20 20 20 20 20  |"...... "       |
000005A0: 20 B4 20 AA B4 20 AA B4  20 AA B4 20 AA B4 20 AA  | . .. .. .. .. .|
000005B0: B4 20 AA B4 20 AA B4 20  AA 22 00 E3 0D EC 13 99  |. .. .. ."......|
000005C0: 20 22 20 20 20 20 20 20  20 20 CC AF BA CC AF BA  | "        ......|
000005D0: CC AF BA CC AF BA CC AF  BA CC AF BA CC AF BA CC  |................|
000005E0: AF BA 22 00 E9 0D F6 13  8E 00 FE 0D 7C 15 8F 20  |..".........|.. |
000005F0: 44 41 54 41 20 46 4F 52  20 53 43 41 4C 45 00 09  |DATA FOR SCALE..|
00000600: 0E 86 15 83 20 38 2C 39  37 00 15 0E 90 15 83 20  |.... 8,97...... |
00000610: 39 2C 31 30 34 00 22 0E  9A 15 83 20 31 30 2C 31  |9,104.".... 10,1|
00000620: 34 33 00 2E 0E A4 15 83  20 31 31 2C 34 38 00 3B  |43...... 11,48.;|
00000630: 0E AE 15 83 20 31 32 2C  31 34 33 00 47 0E B8 15  |.... 12,143.G...|
00000640: 83 20 31 34 2C 32 34 00  54 0E C2 15 83 20 31 35  |. 14,24.T.... 15|
00000650: 2C 32 31 30 00 61 0E CC  15 83 20 31 36 2C 31 39  |,210.a.... 16,19|
00000660: 35 00 6D 0E D6 15 83 20  38 2C 32 32 35 00 79 0E  |5.m.... 8,225.y.|
00000670: E0 15 83 20 39 2C 32 34  37 00 86 0E EA 15 83 20  |... 9,247...... |
00000680: 31 31 2C 32 31 38 00 92  0E F4 15 83 20 31 33 2C  |11,218...... 13,|
00000690: 37 38 00 9F 0E FE 15 83  20 31 34 2C 32 33 39 00  |78...... 14,239.|
000006A0: BF 0E 70 17 8F 20 53 55  42 52 4F 55 54 49 4E 45  |..p.. SUBROUTINE|
000006B0: 20 54 4F 20 50 52 49 4E  54 20 50 49 41 4E 4F 00  | TO PRINT PIANO.|
000006C0: CA 0E 7A 17 8D 20 35 30  30 30 00 E9 0E AC 17 8F  |..z.. 5000......|
000006D0: 20 4E 4F 57 20 4C 4F 41  44 20 46 52 45 51 55 45  | NOW LOAD FREQUE|
000006E0: 4E 43 59 20 54 41 42 4C  45 00 F8 0E B6 17 81 20  |NCY TABLE...... |
000006F0: 49 B2 31 20 A4 20 31 33  00 0E 0F C0 17 87 20 46  |I.1 . 13...... F|
00000700: 52 28 49 2C 31 29 2C 46  52 28 49 2C 32 29 00 16  |R(I,1),FR(I,2)..|
00000710: 0F CA 17 82 20 49 00 39  0F D4 17 99 20 22 13 22  |.... I.9.... "."|
00000720: 3B A6 31 32 29 3B 22 90  12 49 4E 4B 57 45 4C 4C  |;.12);"..INKWELL|
00000730: 20 53 59 53 54 45 4D 53  22 00 53 0F DE 17 81 20  | SYSTEMS".S.... |
00000740: 49 B2 31 20 A4 20 31 38  3A 99 20 22 11 22 3B 3A  |I.1 . 18:. ".";:|
00000750: 82 20 49 00 80 0F E3 17  99 20 A6 34 29 3B 22 50  |. I...... .4);"P|
00000760: 52 45 53 53 20 53 50 41  43 45 20 42 41 52 20 54  |RESS SPACE BAR T|
00000770: 4F 20 43 48 41 4E 47 45  20 50 41 54 43 48 22 3B  |O CHANGE PATCH";|
00000780: 00 86 0F E8 17 8E 00 A1  0F 58 1B 8F 20 43 41 4C  |.........X.. CAL|
00000790: 43 55 4C 41 54 45 20 4B  45 59 20 4E 55 4D 42 45  |CULATE KEY NUMBE|
000007A0: 52 00 C6 0F 62 1B 8F 20  4F 4E 20 45 4E 54 52 59  |R...b.. ON ENTRY|
000007B0: 20 52 25 2C 43 25 20 3D  20 53 43 52 45 45 4E 20  | R%,C% = SCREEN |
000007C0: 43 4F 4F 52 44 53 00 F1  0F 6C 1B 8B 20 52 25 B3  |COORDS...l.. R%.|
000007D0: 34 20 B0 20 52 25 B1 31  32 20 B0 20 43 25 B3 37  |4 . R%.12 . C%.7|
000007E0: 20 B0 20 43 25 B1 33 31  20 A7 20 4E 25 B2 30 3A  | . C%.31 . N%.0:|
000007F0: 8E 00 0F 10 76 1B 8B 20  52 25 B1 38 20 A7 20 4E  |....v.. R%.8 . N|
00000800: 25 B2 B5 28 28 43 25 AB  36 29 AD 33 29 3A 8E 00  |%..((C%.6).3):..|
00000810: 25 10 80 1B 4E 25 B2 B5  28 28 43 25 AB 31 30 29  |%...N%..((C%.10)|
00000820: AD 33 29 AA 39 00 47 10  8A 1B 8B 20 4E 25 B2 38  |.3).9.G.... N%.8|
00000830: 20 B0 20 4E 25 B2 31 31  20 B0 20 4E 25 B2 31 35  | . N%.11 . N%.15|
00000840: 20 A7 20 4E 25 B2 30 00  5D 10 94 1B 8B 20 4E 25  | . N%.0.].... N%|
00000850: B1 31 31 20 A7 20 4E 25  B2 4E 25 AB 31 00 63 10  |.11 . N%.N%.1.c.|
00000860: 9E 1B 8E 00 00 00                                 |......          |

..%.... LIGHT PEN DEVELOPMENT PROGRAM.?.
... BY MICHAEL A. ESKIN.U.... LIGHT PEN 
PIANO.D.... FR(15,2).T.... "."G(142)....
.. G(144)...... 53281,1:. 53280,6...... 
.12);"..INKWELL SYSTEMS.":.......:. " PL
EASE CHOOSE A WAVEFORM:"...... " 1-TRI  
2-SAW  3-PULSE  4-NOISE"...... " 0-END".
L....:. " YOUR SELECTION:";WAVE:.:. WAVE
.0 . . ".":..E...WAVE..(2.(WAVE.3)).1.{.
... WAVE .. 65 . 40...... " PLEASE ENTER
 PULSE RATE (0-15):";PR:. 54275,PR . 15 
:....(.. " ENTER ATTACK  (0-15)";AT:. " 
      DECAY   (0-15)";DE...*.. 54277,(AT
 . 15).16.(DE . 15).X.+.. "       SUSTAI
N (0-15)";SU:."       RELEASE (0-15)";RE
.T.,.. 54278,(SU . 15).16.RE...2..:. 600
0...<.. 54296,15:. SET VOLUME TO MAX...D
.. A$:. A$." " . . 10...H.. (B(56321) . 
4)..0 .  . 54276,WAVE . 254:. 100...I.X%
..(B(53267).2).34:Y%.B(53268).50.D.J.. X
%.319 . Y%.255 . X%.0 . Y%.0 . . 100.P.N
.R%.Y%.8.\.X.C%.X%.8.X.... 7000:. GET KE
Y NUMBER...... N%.0 . . 100...... NOW LO
AD FREQUENCY.J.... 54273,FR(N%,1):. 5427
2,FR(N%,2)...... 54276,WAVE...... 100...
... DISPLAY DATA...... "....."G(152);.@.
... "        O..  ...  ..PO..  ...  ... 
 ..PO.P".S.... "        . .  . .  . .. .
  . .  . .  . .. ."...... "        . .  
. .  . .. .  . .  . .  . .. .".Y.... "  
      . .  . .  . .. .  . .  . .  . .. .
"...... "        . .  . .  . .. .  . .  
. .  . .. .".?.D.. "        . .  . .  . 
.. .  . .  . .  . .. .".H.N.. "        .
 .. .. .. .. .. .. .. ."...X.. "        
. .. .. .. .. .. .. .. ."...... "       
 . .. .. .. .. .. .. .. ."...... "      
  L..L..L..L..L..L..L..L..".........|.. 
DATA FOR SCALE...... 8,97...... 9,104.".
... 10,143...... 11,48.;.... 12,143.G...
. 14,24.T.B.. 15,210.A.L.. 16,195.M.V.. 
8,225.Y.... 9,247...... 11,218...... 13,
78...... 14,239...P.. SUBROUTINE TO PRIN
T PIANO.J.Z.. 5000...... NOW LOAD FREQUE
NCY TABLE...... I.1 . 13...... FR(I,1),F
R(I,2)...J.. I.9.T.. ".";.12);"..INKWELL
 SYSTEMS".S.... I.1 . 18:. ".";:. I.....
. .4);"PRESS SPACE BAR TO CHANGE PATCH";
.........X.. CALCULATE KEY NUMBER.F.B.. 
ON ENTRY R%,C% = SCREEN COORDS...L.. R%.
4 . R%.12 . C%.7 . C%.31 . N%.0:....V.. 
R%.8 . N%..((C%.6).3):..%...N%..((C%.10)
.3).9.G.... N%.8 . N%.11 . N%.15 . N%.0.
].... N%.11 . N%.N%.1.C.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL