ZonX in Basic.

Anything Sinclair ZX Basic related; history, development, tips - differences between BASIC on the ZX80 and ZX81
Post Reply
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

ZonX in Basic.

Post by XavSnap »

Hi,

A little demo from this web page: http://www.muzines.co.uk/articles/micromusic/4456

Code: Select all

1 REM YY@D3@DFYY@D3@0F@C9
2 GOTO 7 
3 POKE A,D 
4 POKE B,C
5 LET X=USR E 
6 RETURN 
7 LET A=16515 
8 LET B=16519 
9 LET E=16514 
10 IF INKEY$="" THEN GOTO 10 
20 LET K$=INKEY$ 
25 IF K$="0" THEN LET K$="10" 
30 GOTO VAL K$*100 
40 LET Y=LEN A$ 
50 FOR N=1 TO Y-4 STEP 5 
60 LET D=VAL A$(N TO N+1) 
70 LET C=VAL A$(N+2 TO N+4)
80 GOSUB 3 
90 NEXT N 
95 RETURN 
100 LET A$="0603107007060160901610016"
110 GOSUB 40 
120 GOTO 10 
200 LET A$="0600507007080160901610016" 
210 GOSUB 40
220 GOTO 10 
300 LET A$="001320100107056080160900010000" 
310 GOSUB 40 
320 GOTO 10
400 LET A$="0013201001020520300107056080160901610000"
410 GOSUB 40 
420 GOTO 10 
500 LET A$="00132010010205203001040030500107056080160901610016" 
510 GOSUB 40 
520 GOTO 10
600 LET A$="1201013000" 
610 GOSUB 40 
620 GOTO 10 
700 LET A$="1205613000"
710 GOSUB 40 
720 GOTO 10
800 LET A$="1205613014" 
810 GOSUB 40 
820 GOTO 10 
900 LET A$="1200113008" 
910 GOSUB 40 
920 GOTO 10 
1000 LET A$="08000090001000013000"
1010 GOSUB 40
1020 GOTO 10 
9997 SAVE"ZONX"
9998 PRINT"KEY 0-9:"
9999 RUN
ZONX.P
(1.84 KiB) Downloaded 299 times
(VTR sound card is ZonX compatible hardware)
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Moggy
Posts: 3231
Joined: Wed Jun 18, 2008 2:00 pm

Re: ZonX in Basic.

Post by Moggy »

Good in theory just a shame it doesn't do anything. :lol:

In fairness after holding down the 6 key for half a day a strangled noise of some description came forth but as for the other keys, zilch.
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: ZonX in Basic.

Post by XavSnap »

:mrgreen:

Yes, a shame…
But, the REM may be useful for … :lol:

My old TV sound better on a random unused chanel… like a pink noisy sound in a snowing day.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
GCHarder
Posts: 427
Joined: Sat Dec 14, 2013 7:46 pm

Re: ZonX in Basic.

Post by GCHarder »

The program is rather confusing. It's a two step procedure to hear a sound. First select a sound 1-5 then an
envelope shape 6-9, or vice versa. Once an envelope is selected it will stay in force with any sound until changed.

I'm uploading an "updated" version which uses a nifty "Sound Command" routine to load the data rather than the string parser of the original.

Greg
Attachments
Sound Cmd.zip
Program
(24.16 KiB) Downloaded 101 times
User avatar
GCHarder
Posts: 427
Joined: Sat Dec 14, 2013 7:46 pm

Tunes On the ZX81

Post by GCHarder »

"Tunes On the 128" by Dick Sargent from Your Computer March 1987.

A Spectrum128 to ZX81 downgrade.

This uses the "Sound Cmd" routine to play a more complex tune using two channels.

I've also included the Spectrum version and scans for those interested.

Regards;

Greg
Attachments
ZX81Tunz.zip
(560.97 KiB) Downloaded 106 times
Post Reply