SNDWEDGE.DEMO
FILE INFORMATION
FILENAME(S): SNDWEDGE.DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 18:13:09
APPEARS ON: 1 disk(s)
FILE HASH
a57a5df787a5bebbc8d3d7473a19b66a54b808aa9221da8a57a9957d25710d64
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FEBRUARY GAZETTE | SNDWEDGE.DEMO | PRG | Sailor, Ganheden | 13 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 0A 00 8F 20 43 4F 50 59 52 49 47 48 |..H.... COPYRIGH| 00000010: 54 20 31 39 38 39 20 43 4F 4D 50 55 54 45 21 20 |T 1989 COMPUTE! | 00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 4E |PUBLICATIONS, IN| 00000030: 43 2E 20 2D 20 41 4C 4C 20 52 49 47 48 54 53 20 |C. - ALL RIGHTS | 00000040: 52 45 53 45 52 56 45 44 00 8B 08 14 00 97 35 33 |RESERVED......53| 00000050: 32 38 30 2C 31 31 3A 97 35 33 32 38 31 2C 31 31 |280,11:.53281,11| 00000060: 3A 99 22 93 90 20 20 20 43 4F 50 59 52 49 47 48 |:.".. COPYRIGH| 00000070: 54 20 31 39 38 39 20 43 4F 4D 50 55 54 45 21 20 |T 1989 COMPUTE! | 00000080: 50 55 42 2E 2C 20 49 4E 43 2E 22 00 B7 08 1E 00 |PUB., INC.".....| 00000090: 99 A3 31 31 29 22 41 4C 4C 20 52 49 47 48 54 53 |..11)"ALL RIGHTS| 000000A0: 20 52 45 53 45 52 56 45 44 22 3A 81 49 B2 31 A4 | RESERVED":.I.1.| 000000B0: 31 37 35 30 3A 82 49 00 C6 08 28 00 99 22 1A 05 |1750:.I...(.."..| 000000C0: 18 93 16 31 35 22 00 DE 08 32 00 8F 20 44 45 46 |...15"...2.. DEF| 000000D0: 49 4E 45 20 42 45 4C 4C 20 53 4F 55 4E 44 00 09 |INE BELL SOUND..| 000000E0: 09 3C 00 42 24 B2 22 85 05 17 32 20 1C 32 35 35 |.<.B$."...2 .255| 000000F0: 20 06 31 30 32 30 37 20 01 30 20 04 39 20 13 30 | .10207 .0 .9 .0| 00000100: 20 12 30 20 0C 35 20 10 22 00 1E 09 46 00 8F 20 | .0 .5 ."...F.. | 00000110: 44 45 46 49 4E 45 20 47 55 4E 53 48 4F 54 00 46 |DEFINE GUNSHOT.F| 00000120: 09 50 00 47 24 B2 22 86 05 17 34 20 06 32 34 32 |.P.G$."...4 .242| 00000130: 37 38 20 01 30 20 04 30 20 13 31 35 20 12 31 30 |78 .0 .0 .15 .10| 00000140: 20 0C 31 20 10 22 00 5D 09 5A 00 8F 20 44 45 46 | .1 .".].Z.. DEF| 00000150: 49 4E 45 20 45 58 50 4C 4F 53 49 4F 4E 00 84 09 |INE EXPLOSION...| 00000160: 64 00 45 24 B2 22 87 05 17 34 20 06 35 33 36 20 |d.E$."...4 .536 | 00000170: 01 31 20 04 30 20 13 31 35 20 12 31 32 20 0C 31 |.1 .0 .15 .12 .1| 00000180: 30 20 10 22 00 96 09 6E 00 8F 20 44 45 46 49 4E |0 ."...n.. DEFIN| 00000190: 45 20 48 41 52 50 00 B3 09 78 00 48 31 24 B2 22 |E HARP...x.H1$."| 000001A0: 85 05 17 32 20 01 39 20 04 30 20 13 31 35 20 12 |...2 .9 .0 .15 .| 000001B0: 37 20 22 00 CF 09 82 00 48 32 24 B2 22 86 05 17 |7 ".....H2$."...| 000001C0: 32 20 01 39 20 04 37 20 13 30 20 12 30 20 22 00 |2 .9 .7 .0 .0 ".| 000001D0: 04 0A 8C 00 8F 20 4E 4F 54 45 20 54 48 41 54 20 |..... NOTE THAT | 000001E0: 46 52 45 51 55 45 4E 43 59 20 49 53 4E 27 54 20 |FREQUENCY ISN'T | 000001F0: 49 4E 43 4C 55 44 45 44 20 49 4E 20 54 48 45 20 |INCLUDED IN THE | 00000200: 48 41 52 50 00 4A 0A 96 00 8F 20 44 45 46 49 4E |HARP.J.... DEFIN| 00000210: 49 54 49 4F 4E 2E 20 49 54 27 53 20 41 44 44 45 |ITION. IT'S ADDE| 00000220: 44 20 4C 41 54 45 52 2C 20 41 4E 44 20 43 48 41 |D LATER, AND CHA| 00000230: 4E 47 45 53 20 41 4C 4F 4E 47 20 57 49 54 48 20 |NGES ALONG WITH | 00000240: 54 48 45 20 4C 45 4E 47 54 48 00 70 0A A0 00 99 |THE LENGTH.p....| 00000250: 22 50 52 49 4E 54 49 4E 47 20 42 24 20 52 49 4E |"PRINTING B$ RIN| 00000260: 47 53 20 41 20 42 45 4C 4C 2E 2E 2E 22 3B 42 24 |GS A BELL...";B$| 00000270: 00 8D 0A AA 00 99 22 47 24 20 49 53 20 41 20 47 |......"G$ IS A G| 00000280: 55 4E 53 48 4F 54 2E 2E 2E 22 3B 47 24 00 9E 0A |UNSHOT...";G$...| 00000290: B4 00 81 49 B2 31 A4 31 30 30 30 3A 82 49 00 BC |...I.1.1000:.I..| 000002A0: 0A BE 00 99 22 45 24 20 49 53 20 41 4E 20 45 58 |...."E$ IS AN EX| 000002B0: 50 4C 4F 53 49 4F 4E 21 22 3B 45 24 00 CD 0A C8 |PLOSION!";E$....| 000002C0: 00 81 49 B2 31 A4 32 30 30 30 3A 82 49 00 D3 0A |..I.1.2000:.I...| 000002D0: D2 00 8C 00 01 0B DC 00 99 20 22 03 22 3B 48 31 |......... ".";H1| 000002E0: 24 3B 22 0C 30 20 02 31 20 22 3B 48 32 24 3B 3A |$;".0 .1 ";H2$;:| 000002F0: 8F 20 53 45 54 20 55 50 20 54 48 45 20 48 41 52 |. SET UP THE HAR| 00000300: 50 00 15 0B E6 00 87 41 2C 42 2C 4C 3A 8B 41 B3 |P......A,B,L:.A.| 00000310: 30 A7 32 36 30 00 45 0B F0 00 99 22 85 06 22 3B |0.260.E...."..";| 00000320: 41 3B 22 86 06 22 3B 42 3B 22 0C 22 3B 4C 3B 22 |A;"..";B;".";L;"| 00000330: 86 10 22 3B 3A 8F 20 50 4C 41 59 20 54 48 45 20 |..";:. PLAY THE | 00000340: 48 41 52 50 53 00 4E 0B FA 00 89 32 33 30 00 66 |HARPS.N....230.f| 00000350: 0B 04 01 99 22 85 02 31 22 3A 81 49 B2 31 A4 31 |...."..1":.I.1.1| 00000360: 30 30 30 3A 82 49 00 91 0B 0E 01 42 24 B2 22 03 |000:.I.....B$.".| 00000370: 16 31 35 20 22 3A 8F 20 43 4C 45 41 52 20 52 45 |.15 ":. CLEAR RE| 00000380: 47 49 53 54 45 52 53 2D 56 4F 4C 55 4D 45 20 55 |GISTERS-VOLUME U| 00000390: 50 00 BE 0B 18 01 42 24 B2 42 24 AA 22 85 05 22 |P.....B$.B$.".."| 000003A0: 3A 8F 20 53 45 4C 45 43 54 20 56 4F 49 43 45 20 |:. SELECT VOICE | 000003B0: 31 20 41 4E 44 20 43 4C 45 41 52 20 49 54 00 E6 |1 AND CLEAR IT..| 000003C0: 0B 22 01 42 24 B2 42 24 AA 22 01 30 20 04 39 20 |.".B$.B$.".0 .9 | 000003D0: 13 30 20 12 30 20 22 3A 8F 20 53 45 54 20 45 4E |.0 .0 ":. SET EN| 000003E0: 56 45 4C 4F 50 45 00 1B 0C 2C 01 42 24 B2 42 24 |VELOPE...,.B$.B$| 000003F0: AA 22 17 33 20 1C 32 35 35 20 22 3A 8F 20 50 55 |.".3 .255 ":. PU| 00000400: 4C 53 45 20 57 41 56 45 46 4F 52 4D 2D 50 55 4C |LSE WAVEFORM-PUL| 00000410: 53 45 20 52 41 54 45 20 32 35 35 00 39 0C 36 01 |SE RATE 255.9.6.| 00000420: 42 24 B2 42 24 AA 22 0C 35 20 22 3A 8F 20 48 41 |B$.B$.".5 ":. HA| 00000430: 4C 46 2D 53 45 43 4F 4E 44 00 62 0C 40 01 42 24 |LF-SECOND.b.@.B$| 00000440: B2 42 24 AA 22 06 31 38 31 38 38 20 22 3A 8F 20 |.B$.".18188 ":. | 00000450: 43 23 20 49 4E 20 46 49 46 54 48 20 4F 43 54 41 |C# IN FIFTH OCTA| 00000460: 56 45 00 80 0C 4A 01 42 24 B2 42 24 AA 22 10 22 |VE...J.B$.B$."."| 00000470: 3A 8F 20 50 4C 41 59 20 54 48 45 20 4E 4F 54 45 |:. PLAY THE NOTE| 00000480: 00 A5 0C 54 01 8F 20 4E 4F 57 20 50 52 49 4E 54 |...T.. NOW PRINT| 00000490: 49 4E 47 20 42 24 20 50 4C 41 59 53 20 54 48 45 |ING B$ PLAYS THE| 000004A0: 20 4E 4F 54 45 00 E5 0C 5E 01 99 22 1A 05 18 22 | NOTE...^.."..."| 000004B0: 3B 3A 8F 20 4D 4F 4D 45 4E 54 41 52 49 4C 59 20 |;:. MOMENTARILY | 000004C0: 44 45 41 43 54 49 56 41 54 45 20 54 48 45 20 57 |DEACTIVATE THE W| 000004D0: 45 44 47 45 20 54 4F 20 43 48 41 4E 47 45 20 43 |EDGE TO CHANGE C| 000004E0: 4F 4C 4F 52 53 00 F6 0C 68 01 99 22 93 90 11 11 |OLORS...h.."....| 000004F0: 22 3A 8D 35 31 30 00 37 0D 72 01 99 22 93 86 05 |":.510.7.r.."...| 00000500: 17 32 20 01 30 20 04 30 20 13 31 35 20 12 30 20 |.2 .0 .0 .15 .0 | 00000510: 0C 30 20 02 31 22 3A 8F 20 20 53 45 54 20 55 50 |.0 .1":. SET UP| 00000520: 20 56 4F 49 43 45 20 32 20 41 4E 44 20 54 55 52 | VOICE 2 AND TUR| 00000530: 4E 20 49 54 20 4F 4E 00 4A 0D 7C 01 81 42 B2 30 |N IT ON.J.|..B.0| 00000540: A4 32 AC FF A9 FF AD 31 30 30 00 77 0D 86 01 58 |.2.....100.w...X| 00000550: B2 BF 28 42 29 AC 38 31 39 31 AA 31 36 33 38 34 |..(B).8191.16384| 00000560: 3A 8F 20 47 45 4E 45 52 41 54 45 20 41 20 53 49 |:. GENERATE A SI| 00000570: 4E 45 20 57 41 56 45 00 B2 0D 90 01 99 22 06 22 |NE WAVE......"."| 00000580: B5 28 58 29 3B 22 2A 22 3B 3A 8F 20 43 48 41 4E |.(X);"*";:. CHAN| 00000590: 47 45 20 46 52 45 51 55 45 4E 43 59 20 41 4E 44 |GE FREQUENCY AND| 000005A0: 20 50 52 49 4E 54 20 41 4E 20 41 53 54 45 52 49 | PRINT AN ASTERI| 000005B0: 53 4B 00 B9 0D 9A 01 82 42 00 D8 0D A4 01 99 3A |SK......B......:| 000005C0: 99 22 02 31 22 3A 8F 20 54 55 52 4E 20 4F 46 46 |.".1":. TURN OFF| 000005D0: 20 56 4F 49 43 45 20 32 00 E1 0D AE 01 8D 35 31 | VOICE 2......51| 000005E0: 30 00 17 0E B8 01 43 24 B2 22 85 05 17 31 20 01 |0.....C$."...1 .| 000005F0: 33 20 04 30 20 13 31 35 20 12 31 35 20 06 32 31 |3 .0 .15 .15 .21| 00000600: 34 35 20 0C 31 30 20 22 3A 8F 20 33 52 44 20 4F |45 .10 ":. 3RD O| 00000610: 43 54 41 56 45 20 43 00 4D 0E C2 01 45 24 B2 22 |CTAVE C.M...E$."| 00000620: 86 05 17 31 20 01 33 20 04 30 20 13 31 35 20 12 |...1 .3 .0 .15 .| 00000630: 31 35 20 06 32 37 30 33 20 0C 31 30 20 22 3A 8F |15 .2703 .10 ":.| 00000640: 20 33 52 44 20 4F 43 54 41 56 45 20 45 00 83 0E | 3RD OCTAVE E...| 00000650: CC 01 47 24 B2 22 87 05 17 31 20 01 33 20 04 30 |..G$."...1 .3 .0| 00000660: 20 13 31 35 20 12 31 35 20 06 33 32 31 35 20 0C | .15 .15 .3215 .| 00000670: 31 30 20 22 3A 8F 20 33 52 44 20 4F 43 54 41 56 |10 ":. 3RD OCTAV| 00000680: 45 20 47 00 BD 0E D6 01 99 43 24 22 10 22 45 24 |E G......C$"."E$| 00000690: 22 10 22 47 24 22 10 22 3B 3A 8F 20 50 4C 41 59 |"."G$".";:. PLAY| 000006A0: 20 45 41 43 48 20 4E 4F 54 45 20 57 49 54 48 20 | EACH NOTE WITH | 000006B0: 41 20 31 20 53 45 43 20 44 45 4C 41 59 00 D9 0E |A 1 SEC DELAY...| 000006C0: E0 01 99 22 85 06 34 31 39 30 20 86 06 35 34 30 |..."..4190 ..540| 000006D0: 36 20 87 06 36 34 33 30 22 00 07 0F EA 01 99 43 |6 ..6430"......C| 000006E0: 24 22 88 10 22 3B 3A 8F 20 50 4C 41 59 20 41 4C |$"..";:. PLAY AL| 000006F0: 4C 20 54 48 52 45 45 20 56 4F 49 43 45 53 20 54 |L THREE VOICES T| 00000700: 4F 47 45 54 48 45 52 00 3A 0F F4 01 81 49 B2 31 |OGETHER.:....I.1| 00000710: A4 35 30 30 30 3A 82 49 3A 99 22 1A 54 48 41 54 |.5000:.I:.".THAT| 00000720: 27 53 20 49 54 21 22 3A 80 3A 8F 20 54 55 52 4E |'S IT!":.:. TURN| 00000730: 20 4F 46 46 20 57 45 44 47 45 00 54 0F FE 01 99 | OFF WEDGE.T....| 00000740: 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 2E |"PRESS ANY KEY..| 00000750: 2E 22 42 24 00 67 0F 08 02 A1 41 24 3A 8B 41 24 |."B$.g....A$:.A$| 00000760: B2 22 22 A7 35 32 30 00 6D 0F 12 02 8E 00 7F 0F |."".520.m.......| 00000770: 1C 02 83 20 34 30 35 30 2C 34 38 31 37 2C 34 00 |... 4050,4817,4.| 00000780: 91 0F 26 02 83 20 34 30 35 30 2C 34 38 31 37 2C |..&.. 4050,4817,| 00000790: 34 00 A3 0F 30 02 83 20 34 30 35 30 2C 34 38 31 |4...0.. 4050,481| 000007A0: 37 2C 34 00 B5 0F 3A 02 83 20 33 32 31 35 2C 35 |7,4...:.. 3215,5| 000007B0: 34 30 37 2C 38 00 C7 0F 44 02 83 20 33 32 31 35 |407,8...D.. 3215| 000007C0: 2C 35 34 30 37 2C 34 00 D9 0F 4E 02 83 20 33 36 |,5407,4...N.. 36| 000007D0: 30 38 2C 35 37 32 38 2C 34 00 EB 0F 58 02 83 20 |08,5728,4...X.. | 000007E0: 33 36 30 38 2C 35 34 30 37 2C 34 00 FD 0F 62 02 |3608,5407,4...b.| 000007F0: 83 20 33 36 30 38 2C 34 38 31 37 2C 34 00 0F 10 |. 3608,4817,4...| 00000800: 6C 02 83 20 32 38 36 34 2C 34 32 34 31 2C 34 00 |l.. 2864,4241,4.| 00000810: 21 10 76 02 83 20 32 38 36 34 2C 34 38 31 37 2C |!.v.. 2864,4817,| 00000820: 34 00 33 10 80 02 83 20 32 38 36 34 2C 35 34 30 |4.3.... 2864,540| 00000830: 37 2C 34 00 40 10 8A 02 83 20 2D 31 2C 30 2C 30 |7,4.@.... -1,0,0| 00000840: 00 00 00 |... |
..H.... COPYRIGHT 1989 COMPUTE! PUBLICAT IONS, INC. - ALL RIGHTS RESERVED......53 280,11:.53281,11:.".. COPYRIGHT 1989 C OMPUTE! PUB., INC.".......11)"ALL RIGHTS RESERVED":.I.1.1750:.I.F.(..".....15".. .2.. DEFINE BELL SOUND...<.B$."...2 .255 .10207 .0 .9 .0 .0 .5 ."...F.. DEFINE G UNSHOT.F.P.G$."...4 .24278 .0 .0 .15 .10 .1 .".].Z.. DEFINE EXPLOSION...D.E$.".. .4 .536 .1 .0 .15 .12 .10 ."...N.. DEFIN E HARP...X.H1$."...2 .9 .0 .15 .7 ".O... H2$."...2 .9 .7 .0 .0 "...... NOTE THAT FREQUENCY ISN'T INCLUDED IN THE HARP.J.. .. DEFINITION. IT'S ADDED LATER, AND CHA NGES ALONG WITH THE LENGTH.P. .."PRINTIN G B$ RINGS A BELL...";B$......"G$ IS A G UNSHOT...";G$......I.1.1000:.I......"E$ IS AN EXPLOSION!";E$.M.H..I.1.2000:.I.S. R........ ".";H1$;".0 .1 ";H2$;:. SET UP THE HARP......A,B,L:.A.0.260.E....".."; A;"..";B;".";L;"..";:. PLAY THE HARPS.N. ...230.F...."..1":.I.1.1000:.I.....B$.". .15 ":. CLEAR REGISTERS-VOLUME UP.....B$ .B$."..":. SELECT VOICE 1 AND CLEAR IT.. .".B$.B$.".0 .9 .0 .0 ":. SET ENVELOPE.. .,.B$.B$.".3 .255 ":. PULSE WAVEFORM-PUL SE RATE 255.9.6.B$.B$.".5 ":. HALF-SECON D.B.@.B$.B$.".18188 ":. C# IN FIFTH OCTA VE...J.B$.B$.".":. PLAY THE NOTE...T.. N OW PRINTING B$ PLAYS THE NOTE...^.."..." ;:. MOMENTARILY DEACTIVATE THE WEDGE TO CHANGE COLORS...H.."....":.510.7.R.."... .2 .0 .0 .15 .0 .0 .1":. SET UP VOICE 2 AND TURN IT ON.J.|..B.0.2.....100.W...X ..(B).8191.16384:. GENERATE A SINE WAVE. .....".".(X);"*";:. CHANGE FREQUENCY AND PRINT AN ASTERISK......B.X....:.".1":. TURN OFF VOICE 2......510.....C$."...1 . 3 .0 .15 .15 .2145 .10 ":. 3RD OCTAVE C. M.B.E$."...1 .3 .0 .15 .15 .2703 .10 ":. 3RD OCTAVE E...L.G$."...1 .3 .0 .15 .15 .3215 .10 ":. 3RD OCTAVE G...V..C$"."E$ "."G$".";:. PLAY EACH NOTE WITH A 1 SEC DELAY.Y...."..4190 ..5406 ..6430"......C $"..";:. PLAY ALL THREE VOICES TOGETHER. :....I.1.5000:.I:.".THAT'S IT!":.:. TURN OFF WEDGE.T...."PRESS ANY KEY..."B$.G.. ..A$:.A$."".520.M......... 4050,4817,4. ..&.. 4050,4817,4...0.. 4050,4817,4...:. . 3215,5407,8.G.D.. 3215,5407,4.Y.N.. 36 08,5728,4...X.. 3608,5407,4...B.. 3608,4 817,4...L.. 2864,4241,4.!.V.. 2864,4817, 4.3.... 2864,5407,4.@.... -1,0,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL