Anything Sinclair ZX Basic related; history, development, tips - differences between BASIC on the ZX80 and ZX81
XavSnap
Posts: 1950 Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.
Post
by XavSnap » Sat Jun 06, 2020 1:58 am
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 309 times
(VTR sound card is ZonX compatible hardware)
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Moggy
Posts: 3314 Joined: Wed Jun 18, 2008 2:00 pm
Post
by Moggy » Sat Jun 06, 2020 10:48 pm
Good in theory just a shame it doesn't do anything.
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.
XavSnap
Posts: 1950 Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.
Post
by XavSnap » Sun Jun 07, 2020 7:14 am
Yes, a shame…
But, the REM may be useful for …
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)
GCHarder
Posts: 436 Joined: Sat Dec 14, 2013 7:46 pm
Post
by GCHarder » Sat Feb 26, 2022 7:19 pm
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 111 times
GCHarder
Posts: 436 Joined: Sat Dec 14, 2013 7:46 pm
Post
by GCHarder » Sat Mar 05, 2022 6:55 pm
"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 115 times