Here's a fascinating routine from David Hanney of Winchester that alters the error beep - that annoying sound your computer makes when it encounters an error The harsh beep can be changed to something more soothing, a rasping noise or even an explosion. Lines 60 to 130 hold the sound data. If you're not sure how to use ent or env have a look at the User Instructions - all is explained there. 1 ' Custom beep
2 ' by David Hanney
3 ' Amstrad Action May 88
10 PRINT CHR$(7) ' standard sound
20 FOR t=0 TO 28:READ a$
30 POKE &BE80+t,VAL("&"+a$):NEXT:CALL &BE80
40 DATA CD,B1,BB,11,16,00,19,36,8D,23
50 DATA 36,BE,C9,21,94,BE,CD,AA,BC,C9
60 ENV 1,15,-1,10:ENT -1,10,-2,1,10,2,1 ' envelopes
70 DATA 87 ' channels
80 DATA 01 ' volume envelope used
90 DATA 01 ' tone envelope to use
100 DATA 50,00 ' tone
110 DATA 00 ' noise
120 DATA 0F ' initial volume
130 DATA 96,00 ' duration
140 PRINT CHR$(7) ' new soundAA#32
| ★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|
