Your Commodore - Commodore Is Awesome
Your Commodore - Commodore Is Awesome
Your Commodore - Commodore Is Awesome
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Playing all sounds in<br />
memory<br />
Doing this saves quite a lot of time.<br />
What it does is play the sounds zero<br />
through to seven in order, without<br />
going to the OPTIONS function eight<br />
times!<br />
Test<br />
You can use this function to get a<br />
sample ready or play the tape just to<br />
listen to it.<br />
To get to this, go to the TEST function<br />
and press RETURN<br />
Loading and saving sounds<br />
Keep note of the starting blocks<br />
and the ending blocks of the sounds<br />
that you want to save.<br />
If you have a datasette it's not<br />
really worth saving your sample<br />
(unless you think its brilliant!) its just<br />
like loading a commercial program!<br />
You cannot save or load a sample<br />
in the program so you'll have to exit to<br />
TEDMON.<br />
To get to TEDMON, you have to<br />
PROGRAM: RELOCATE<br />
10P0RE44,25:POKE6400,0:CLR:NEW<br />
20<br />
30 REM*************** ***** ******<br />
*******<br />
40 REM* RUN THIS PROGRAM BEFORE<br />
YOU *<br />
50 REM* RUN EITHER OF THE LOADER<br />
S. *<br />
60 REM* IF YOU DO NOT THE PROGRA<br />
MS *<br />
70 REM* WILL NOT WORK CORRECTLY<br />
80 REM<br />
*******<br />
I<br />
P10PRINT"[CLEARNORKING<br />
HARD....<br />
R":L-100:AD-4096<br />
O2OCK-0:FORK-0T07:READM$:M-DEC(M<br />
$):POKEADA-X,MCK-CKtM<br />
G<br />
10NEXTX:READCH$:IFDEC(CH$)()CKT<br />
RHENPRINT"DATA<br />
ERROR 'ATLINE:"L:E<br />
AND<br />
40AD-AD.8:L-L.5:IFL-1085 THENPR<br />
M<br />
INT"DATA ENTERED CORRECTLEY.":GO<br />
: T060<br />
S50GOTO<br />
20<br />
60FORM-1T01000:NEXTM:SCNCLR<br />
A<br />
65TD$-"01":INPUT"ARE YOU USING<br />
MTAPE<br />
OR DISC? (T/D1";TX$:IFTX$-"<br />
PD"THENTD$-"08"<br />
L 70SCNCLR:CHAR1,0,3,"M[SW:CHAR<br />
1,0,9,"S"4-CHR$(34).0SAMPLER"1-CHR<br />
E<br />
$(1404-","+TD$<br />
R 80PRINT",1001,1630(HOMEI":POKE1<br />
F319,13:POKE1320,13:POKE1321,88P<br />
0KE1322,13:P0KE239,4<br />
1<br />
85P0KE4115,VAL(TD$)<br />
190END<br />
1000ATA 00,011,10,0A,00,9E,34,31<br />
,0128<br />
105DATA 31,32,00,00,00,53,43,00<br />
,00F9<br />
110DATA A9,00,A2,08,A0,01,20,BA<br />
,02CE<br />
115DATA FF,A9,04,A2,2A,A0,10,20<br />
C16 &PLUS/4<br />
HOLD DOWN RUN/STOP and<br />
press RESET on the side of the computer,<br />
let go of the RESET button<br />
while still holding down RUN/STOP.<br />
The computer will now exit to<br />
TEDMON (you can let go of<br />
RUN/STOP now!)<br />
If you want to save sound zero<br />
type:<br />
M 0060 0060<br />
The computer should now say:<br />
0060 17 30 xx xx xx xx xx xx .0<br />
or something! Please ignore the xx's<br />
they mean other sounds.<br />
Now type:<br />
S"sample name",08,1700.3000<br />
Or to tape:<br />
S"sample name",01,1700,3000<br />
Here is a table for saving each sound<br />
number:<br />
,0348<br />
1200ATA BD,FF,A9,00,20,D5,FF,4C<br />
,04A5<br />
125DATA 35,15,53,43,52,4E,A9,92<br />
,02BB<br />
130DATA 85,D8,A9,0C,85,D9,A2,00<br />
,0412<br />
135DATA A0,08,81,D8,49,80,91,D8<br />
,0466<br />
1400ATA 88,D0,F7,20,91,10,C9,91<br />
,046A<br />
145DATA F0,08,C9,11,F0,1F,C9,0D<br />
,03BA<br />
150DATA F0,47,4C,43,10,E400,F0<br />
,03A6<br />
155DATA EA,20,85,10,38,A5,D8,E9<br />
,043D<br />
160DATA 28,85,08,A5,119,E9,00,85<br />
,0471<br />
165DATA 09,CA,4C,38,10,E0,09,F0<br />
,0410<br />
1700ATA 02,20,85,10,18,A5,D8,69<br />
,0385<br />
175DATA 28,85,D8,A5,D9,69,00,85<br />
,03F1<br />
1800ATA 09,E8,4C,38,10,A0,08,B1<br />
,0381<br />
185DATA 1)8,49,80,91,08,88,DO,F7<br />
,0559<br />
190DATA 60,86,FF,20,E4,FF,A6,FF<br />
,058D<br />
195DATA 60,86,DB,18,8A,65,DR,65<br />
,0408<br />
200DATA D8,69,A9,81),A7,10,4L,1L<br />
,0438<br />
205DATA 10,4C,76,11,4C,8E,11,4C<br />
,021A<br />
210DA1'A CD,11,4C,EA,11,4C,06,12<br />
,0289<br />
215DATA 4C,OF,12,4C,FD,12,4C,98<br />
,02AC<br />
2200ATA 15,4C,A9,12,4C,76,12,A9<br />
,0299<br />
225DATA C7,80,12,FF,A9,FE,80,OE<br />
,04A7<br />
2300A1A FF,60,A0,08,81,D8,49,80<br />
,045C<br />
235DATA 91,D8,88,00,F7,A2,25,A9<br />
,0528<br />
2400ATA 20,9D,20,0F,CA,00,FA,A0<br />
,0420<br />
245DATA 08,81,D8,99,20,0F,88,D0<br />
,03B4<br />
YOUR COMMODORE november 1986:27<br />
SOUND NUMBER<br />
0<br />
2<br />
3<br />
4<br />
5<br />
6<br />
7<br />
Loading<br />
YOU TYPE<br />
M 0060 0060<br />
M 0062 0062<br />
M 0064 0064<br />
M 0066 0066<br />
M 0068 0068<br />
M 006A 006A<br />
M 006C 006C<br />
M 006E 006E<br />
Load the SAMPLER (from basic)<br />
Load the samples that you wish by<br />
typing:<br />
LOAD "sample name",8,I (for disk)<br />
LOAD "sample name",1,1 (for<br />
cassette)<br />
When you have loaded all the<br />
samples type:<br />
RUN<br />
The screen will now load and off<br />
you go!<br />
2500A1A F8,60,A5,DA,18,20,C2,11<br />
,03E2<br />
255DATA 115,60,85,09,A9,00,85,D8<br />
,O479<br />
260DATA 115,61,85,DC,60,A5,D9,48<br />
265DA1A A5,DC,85,D9,68,85,DC,60<br />
,0508<br />
270DATA F0,04,A9,15,D0.02,A9,00<br />
,032D<br />
275DA1'A 8D,11,FF,60,20,90,12,20<br />
,02DF<br />
2800A1A C7,10,A0,00,61,D8,A6,DD<br />
,O483<br />
285DATA 48,29,80,20,10,11,68,2A<br />
,O1C4<br />
2900ATA CA,D0,F5,20,FA,15,C8,D0<br />
,0556<br />
295DATA Eg,20,53,15,C5,DC,90,E4<br />
)<br />
0<br />
3000ATA 60,EA,EA,EA,20,E4,FF,F0<br />
,0611<br />
4305DATA<br />
F13,18,C9,30,90,F6,C5,DE<br />
8,0535<br />
8310DATA<br />
110,F2,60,A2,00,A9,17,95<br />
,03F9<br />
315DATA 60,A9,3E,95,61,E8,E8,E0<br />
,O4ED<br />
3200A1A 11,90,F2,A9,00,85,DA,A9<br />
,04/44<br />
325DATA 01,85,DF,A9.3F,85,DC,A9<br />
,O457<br />
3300A1A 09,85,DD,4C,BC,11,20,D2<br />
,0376<br />
335DA1A 10,20,F2,10,A9,3A,85,DE.<br />
,0378<br />
3400ATA 20,44,11,60,3E,OC,38,E9<br />
,026D<br />
345DATA 30,85,DD,4C,98,12,20,D2.<br />
,037D<br />
350DATA 10,20,90,12,20,05,11,A0<br />
,01A8<br />
355DATA FF,A6,D0,111,D8,48,29,01<br />
,01.17D<br />
360DATA 20,10,11,68,6A,CA,DO,F5<br />
,03A2<br />
365DATA 88,DO,EE,38,A5,D9,E9,01<br />
,O4E6<br />
370DATA 85,D9,18,C5,DC,110,E2,4C<br />
,O4F5<br />
375DATA 913,12,EA,EA,20,C7,10,4C<br />
,O3C4<br />
380DATA 913,12,65,DA,AA,C9,11,130