newbie questions

[yerzmyey]

i've already written a little procedural landscape generator that i've attached below.

Dude, it looks goooooood.

PS: Nice to see You here.

[XavSnap]

thanks everybody for the support!

@RWAP now that looks elegant! i totally forgot about STEP command. will use this.

@XavSnap merci beaucoup! i tried your XuR kit but i still don't know how to insert the code from zx81 Music Interpreter

Download the last XuR release ...
(About window to check the release day/month/year)

I use to create a Text file from a "P" file.
SAVE"myprog.TXT"
(created in the same directory)

I edit the text file...
And i add a REM line to enter datas. (a blank line or Datas)

(note : It load a binary beatween the disassembler bloc... at star address to the upper address! If the binary is too big, it will trimmed ! 8-( ... just modify the upper address to the end of REM line.>>select a REM line caption !)

If the Datas is a binary file, in XuR, just diassemble the blank REM, and click on the little scare icon at the right/lower window side.(near the REM selector!)...
Try to click evrywhere ... too!

[utz]

ok, added a REM line caption and moved the the BASIC block a bit, now everything is working! thanks a ton!!!

now i just have to make some decent monophonic music... i'll let y'all know when it's finished.

@yerz it seems you have sent me to the right place

[yerzmyey]

Of course.

[utz]

hi everybody... it's been a while... but now i've almost finished my little music demo.

i just have one (hopefully small) problem now. it seems that either the d_file, array S or the random number sequence is getting in the way of the music routine - in any case i'm running out of memory when trying to load the music. already tried clearing the screen before loading the music - that doesn't help, so i guess the d_file is not the problem. the array should be killed of by the CLEAR statement in line 765, right? but if i comment out everything up to 810 everything works as it's supposed to. can anybody pin down what exactly is the problem here?

Code: Select all

# REM ZX81 MUSIC INTERPRETER          
#     (C)2005 KELLY A. MURTA
    0  REM [HEX:\
BF,BD,A4,9D,80,B2,BA,B8,\
AE,A8,80,AE,B3,B9,AA,B7,\
B5,B7,AA,B9,AA,B7,00,00,\
00,00,00,00,00,00,00,00,\
90,A8,91,9E,9C,9C,A1,80,\
B0,AA,B1,B1,BE,80,A6,9B,\
80,B2,BA,B7,B9,A6,76,76,\
CD,23,0F,01,00,00,0A,FE,\
FF,C8,6F,CB,3D,03,0A,67,\
03,0A,5F,03,0A,57,03,C5,\
7C,B5,28,2F,D3,FF,44,4D,\
04,0C,0D,20,FD,0E,7E,05,\
C2,DC,40,1B,C3,E9,40,00,\
DB,FE,44,4D,04,0C,0D,20,\
FD,0E,7E,05,C2,F0,40,7A,\
B3,20,D9,C1,CD,46,0F,38,\
BD,CF,0C,06,00,10,FE,1B,\
7A,B3,20,F7,18,ED,CD,23,\
0F,DD,2A,1C,40,11,00,01,\
DD,19,DD,22,BE,40,3E,78,\
32,D6,42,3E,04,32,D7,42,\
32,D8,42,E7,01,04,00,DD,\
E5,E1,CD,C8,0E,E7,FE,0B,\
20,0F,DD,36,00,FF,CD,BA,\
40,ED,7B,02,40,CD,2B,0F,\
C9,FE,76,20,06,E1,22,16,\
40,18,D9,FE,39,28,16,FE,\
34,28,1E,FE,31,28,26,FE,\
35,28,3F,FE,3D,28,2A,FE,\
25,30,5D,CF,0B,CD,63,42,\
7B,A7,28,F7,32,D6,42,18,\
B3,CD,63,42,7B,A7,28,EB,\
32,D7,42,18,A7,CD,63,42,\
7B,A7,28,DF,32,D8,42,18,\
9B,CD,63,42,E5,EB,CD,D8,\
09,11,04,00,19,22,16,40,\
18,8A,CD,63,42,7B,A7,28,\
C2,CD,1D,15,3A,D6,42,CD,\
1D,15,EF,04,30,40,42,35,\
9C,01,05,34,CD,8A,15,50,\
59,21,00,00,E5,C3,3A,42,\
FE,2D,30,9F,57,D6,25,87,\
5F,E7,FE,15,28,15,FE,16,\
28,05,CD,86,42,18,0B,1D,\
7A,FE,28,28,04,FE,2B,20,\
01,1D,1D,16,00,21,8B,42,\
19,7E,5F,21,9A,42,19,ED,\
5B,1C,40,D5,CD,F6,19,E1,\
ED,53,1C,40,3A,D7,42,3D,\
86,77,EF,2D,30,80,42,46,\
5D,40,01,05,30,34,08,03,\
34,CD,8A,15,C5,3E,F0,CD,\
1D,15,3A,D6,42,CD,1D,15,\
3A,D8,42,CD,1D,15,EF,04,\
05,04,34,CD,8A,15,50,59,\
E7,FE,1B,28,05,CD,86,42,\
18,0A,62,6B,CB,3A,CB,1B,\
19,EB,18,EC,E1,DD,75,00,\
DD,74,01,DD,73,02,DD,72,\
03,11,04,00,DD,19,C3,2E,\
41,11,00,00,E7,FE,1C,38,\
1B,FE,26,30,17,21,00,00,\
06,0A,19,38,0D,10,FB,D6,\
1C,5F,16,00,19,38,03,EB,\
18,E2,CF,0A,2B,22,16,40,\
C9,28,2D,32,37,00,00,05,\
0A,0F,14,19,19,1E,23,28,\
86,02,D0,12,86,86,0A,97,\
60,75,86,12,D5,17,1F,86,\
1B,90,41,02,86,24,D0,53,\
CA,86,2E,9D,36,B1,86,38,\
FF,49,3E,86,43,FF,6A,73,\
86,4F,A7,00,54,86,5C,00,\
00,00,86,69,14,F6,24,86,\
76,F1,10,05,78,04,04 ]


590 FAST 
600 LET A=16 
602 DIM S(66)
604 CLS
610 PRINT AT 4,0;"ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ                                ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ                                ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ"
615 RAND
620 FOR N=0 TO 63
630 LET B=INT (10*RND)-4
640 IF A+B>0 THEN LET A=A+B
650 IF A>20 THEN LET A=A-10
660 FOR C=8 TO A
670 PLOT N,C
680 NEXT C
690 LET S(N+1)=A
700 NEXT N
710 LET S(66)=S(64)
720 PRINT AT 18,0;"žžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžž"
730 FOR I=1 TO 32
740 IF S(I*2)>7 THEN PRINT AT 18,I-1;CHR$ 137
750 IF S((I*2)+2)>12 THEN PRINT AT 19,I-1;CHR$ 137
760 NEXT I
765 CLEAR
770 PRINT AT 0,0;CHR$ 5+CHR$ 5+CHR$ 132+CHR$ 1+CHR$ 3+CHR$ 5+CHR$ 132+CHR$ 1+CHR$ 6+CHR$ 4+CHR$ 7+CHR$ 4+CHR$ 7+CHR$ 1+CHR$ 7+CHR$ 5+CHR$ 132+CHR$ 0+CHR$ 0
780 PRINT CHR$ 5+CHR$ 5+CHR$ 133+CHR$ 0+CHR$ 6+CHR$ 0+CHR$ 133+CHR$ 0+CHR$ 7+CHR$ 5+CHR$ 7+CHR$ 0+CHR$ 7+CHR$ 0+CHR$ 6+CHR$ 4+CHR$ 133+CHR$ 0+CHR$ 0
790 PRINT CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 1+CHR$ 1+CHR$ 1+CHR$ 0+CHR$ 3+CHR$ 1+CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 0
800 PRINT "BY IRRLICHT PROJECT"
810 PRINT AT 21,0;"««««««««««««««««««««««««««««««««"
820 SLOW 
840 LET A$="«««««««««««««««««««««««««««««««scroll«text«goes«here«««««««press«M«for«music"
850 LET A$=A$(2 TO )+A$(1)
860 PRINT AT 21,1;A$(1 TO 30)
870 LET B$=INKEY$
880 IF B$="" THEN GOTO 850

890 FAST
895 LET A$=""
900 IF B$="M" THEN PRINT USR 16656,"T160O3L64X901X903X904X906X904X906X908X910X911X912X913X910X911X914X916X918X916X920X921X922X923X924X925X925X926X926X927"
901 REM GX909A+X909O4DX909FO3X909GX909A+X909O4DX909FO3X909GX909A+X909O4DX909FO3X909GX909A+X909O4DX909FO3X909GP32.A+P32.O4DP32.FO3P32.GP32.A+P32.O4DP32.FO3P32.GP32.A+P32.O4DP32.FO3P32.GP32.A+P32.O4DP32.FO3P32.
902 REM X931X931X931
903 REM GP64A+P64O4DP64FO3P64GP64A+P64O4DP64FO3P64GP64A+P64O4DP64FO3P64GP64A+P64O4DP64FO3P64GA+O4DFO3GA+O4DFO3GA+O4DFO3GA+O4DFED+DC+CO3BA+AG+GF+FED+DC+
904 REM X905GO2GO3L64GX931X931O4C+X933X905L64GP64L32GO2L16GO3L64GX931X931O4C+X933
905 REM O1L16GO2GO3L64GX931O4DO2L16GX928X928X928X928X928X928O1
906 REM O1L16D+O2D+O3L64D+A+O4DO3A+O2L16D+X907X929O1FO2FO3L64FA+FA+FAFAO1L16FO2FO3L64FA+FA+FAFAO1L16D+O2D+O3L64D+AD+AD+O4DO3D+O4DO1L16D+O2D+O3D+O2D+X907O1DO2DO3DO2DO1DO2DO3L64L64DFAO4CD+GA+O5D
907 REM X929X929X929X929

908 REM O4L64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902P64GO4DO3P32GO4DO3P32L32GL64G+AA+BO4CC+
909 REM P64P16.
910 REM O4L64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64
911 REM C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GP64GO4C+O3P32GO4C+O3P32L32GO4L64C+CO3BA+AG+
912 REM O4L64CO3GO4P32CO3GP32GO4CX932X932O3GO4P64CO3GO4P32CO3GP32GO4CX932X932O3GO4P64CO3GO4P32CO3GP32GO4CX932X932O3GO4P64CO3GO4P32CO3GP32GO4CX932X932O3GO4P64CO3GO4P32CO3GP32GO4CX932X932O3GO4P64
913 REM CO3GO4P32CO3GP32GO4CX932X932O3GO4P64CO3GO4P32CO3GP32GO4CX932X932O3GP64GO4CO3P32GO4CO3P32L32GO4L64C+CO3BA+AG+

914 REM O2L64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64GF+O1L32GO3L64GO4DO2P32GF+O1L32GO3L64A+BO4CC+
915 REM GF+O1L32GO4L64
916 REM O2L64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GP64GO4C+O3P32GO4C+O2P32GF+O1L32GO3L64BA+AG+
918 REM O2L64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64GF+O1GO2P64GF+O1GO2P64GF+O1GO2P64GF+O1GP64

920 REM O2L64GF+O1L32GO3L64GO4DO1L32GO3L64GX931O4DO2L32G.P64L64GF+O1L32GO3L64GO4DO1L32GO3L64GX931O4DO2L32G.P64L64GF+O1L32GO2L16GO3L64GX931O4DO2L16GO1GO2GO3L64GX931O4DO2L32G.P64L64GF+O1L32GO2L16GO3L64GX931O4DO2L16GO1GO2L32G.P64L64GF+O1GO2P64L32G.P64
921 REM L64GF+O1GO2P64GF+O1L32GO3L64GX931O4DO2L16GO1GO2GO3L64GX931X931O4C+X933
922 REM O2L64GF+O1L16G.O3L64GX931O4DO2L32G.P64L64GF+O1L16G.O3GO2L32G.P64L64GF+O1L16G.O3GO2L32G.P64L64GF+O1L16G.O3GO2L32G.P64L64GF+O1L16G.O3GO2GX928O1L64GP64L32GO2L16GO3GO2GO1L64GP64L32GO2L16GO3L64GX931X931O4C+X933
923 REM O2L64D+DO1D+O2P64D+DO1L32D+O3L64D+A+O4DO3A+O2L32D+.P64L64D+DO1L16D+.O3D+O2D+X929O1D+O2D+O3D+O2L32D+.P64L64D+DO1L32D+O2L16D+O3D+O2L32D+.P64L64D+DO1L32D+O2L16D+O3D+O2L32D+.P64L64D+DO1L16D+.O3L64FA+FA+FAFAO1L16FO2FO3L64FA+FA+FAFA
924 REM O1L16D+O2D+O3L64D+AD+AD+O4DO3D+O4DO1L16D+O2D+O3D+O2D+X907O1DO2DO3DO2L64DP64DP64O1DP64DO2P64DO3P64DP64DFAO4CD+GA+O5D

925 REM O2L64GF+FC+O1AL32G.O4X930O2GF+FC+O1L16GO4L64DA+DA+CA+CA+O2GF+C+O1GL16GO4L64DO5CO4DO5CO4CO5CO4CO5CO2GF+C+O1GL16GO5L32DO4L64DO5DO4CO5DO4CO5DO2GF+FC+O1AL32G.O4L64DO5CO4DO5CO4CA+CA+O1GG+AA+BO2L32C.P32O4X930O1GG+AA+BO2L32C.P32O4X930O1GG+AA+O2L16CP32O4L64DFDFCFCF
926 REM O2L64D+DC+O1D+L16D+O4X930O2D+DC+O1D+L16D+O4L64DA+DA+CA+CA+O2D+DC+O1D+L16D+O4L64DO5CO4DO5CO4CO5CO4CO5CO2D+DO1F+D+L16D+O5L32DO4L64DO5DO4CO5DO4CO5DO2D+DC+O1F+L16D+O4L64DO5CO4DO5CO4CA+CA+O3DCO2A+DL16DO4X930O3DCO2A+DL16DO4X930O3DO2A+GD+L16DO4L64DFDFCFCF

927 REM O5L16F+P64L64CO4P64BP64A+P64AP64G+P64GP64F+P64FP64EP64D+P64DP64C+P64CO3P64BP64A+P64AP64G+P64L4GO2P8L8GO1P4L4G

928 REM O1GO2GO3GO2G
929 REM O1D+O2D+O3D+O2D+
930 REM L64DGDGCGCG
931 REM O4DO3G
932 REM O3GO4C
933 REM O3GO4C+

940 LET B$=""
950 SLOW 
960 GOTO 840

[sirmorris]

Hi Utz,

I can't do anything this evening but I'll have a look tomorrow and see if I can spot anything.

How is this program compiled into a P? Is it Xav's txt to basic converter?

C

[utz]

yes, this compiles with ZxToken.

[yerzmyey]

hi everybody... it's been a while... but now i've almost finished my little music demo.

The beeper one, I presume (not the AY)?
Hm. Supposedly the beeper is hugely... silent on ZX81 (heh). So I don't even know if the recording is possible.
However - I bought the mixer You have seen last times being in PL, with us. I could try to bump up the signal and we will see what kind of recording will come out from this. If I have the *.p file.

[sirmorris]

Nice to see you again Yerz!

I've tried the program in EightyOne and it works OK. How is this supposed to work on a real zx81? Does it need extra hardware or will the sound come from the ear socket??

C

[utz]

as far as i understand the best way would be to record sound from a (real) TV, as the routine uses the VSYNC signal to make the music. anyway there will be only one short song in the demo, despite a lot of optimization i wasn't able to fit more in the BASIC section. (Unless somebody has an idea how to squeeze more in- note though that the routine needs approx. 8k free memory to compile the music.)

@sirmorris hmmm... i'm running it on EightyOne as well and it crashes with Error 4 when i try to play the music. Using EightyOne version 1.0 with 16k RAMpack. (1.0a doesn't work for me.)

edit - ok, the problem can be solved by cutting the scroller short. that's why the version i posted above does in fact work. I'd love to include some greeting though. so here's an updated version - if anybody has any idea how to make this work please let me know.

Code: Select all

# REM ZX81 MUSIC INTERPRETER          
#     (C)2005 KELLY A. MURTA
    0  REM [HEX:\
BF,BD,A4,9D,80,B2,BA,B8,\
AE,A8,80,AE,B3,B9,AA,B7,\
B5,B7,AA,B9,AA,B7,00,00,\
00,00,00,00,00,00,00,00,\
90,A8,91,9E,9C,9C,A1,80,\
B0,AA,B1,B1,BE,80,A6,9B,\
80,B2,BA,B7,B9,A6,76,76,\
CD,23,0F,01,00,00,0A,FE,\
FF,C8,6F,CB,3D,03,0A,67,\
03,0A,5F,03,0A,57,03,C5,\
7C,B5,28,2F,D3,FF,44,4D,\
04,0C,0D,20,FD,0E,7E,05,\
C2,DC,40,1B,C3,E9,40,00,\
DB,FE,44,4D,04,0C,0D,20,\
FD,0E,7E,05,C2,F0,40,7A,\
B3,20,D9,C1,CD,46,0F,38,\
BD,CF,0C,06,00,10,FE,1B,\
7A,B3,20,F7,18,ED,CD,23,\
0F,DD,2A,1C,40,11,00,01,\
DD,19,DD,22,BE,40,3E,78,\
32,D6,42,3E,04,32,D7,42,\
32,D8,42,E7,01,04,00,DD,\
E5,E1,CD,C8,0E,E7,FE,0B,\
20,0F,DD,36,00,FF,CD,BA,\
40,ED,7B,02,40,CD,2B,0F,\
C9,FE,76,20,06,E1,22,16,\
40,18,D9,FE,39,28,16,FE,\
34,28,1E,FE,31,28,26,FE,\
35,28,3F,FE,3D,28,2A,FE,\
25,30,5D,CF,0B,CD,63,42,\
7B,A7,28,F7,32,D6,42,18,\
B3,CD,63,42,7B,A7,28,EB,\
32,D7,42,18,A7,CD,63,42,\
7B,A7,28,DF,32,D8,42,18,\
9B,CD,63,42,E5,EB,CD,D8,\
09,11,04,00,19,22,16,40,\
18,8A,CD,63,42,7B,A7,28,\
C2,CD,1D,15,3A,D6,42,CD,\
1D,15,EF,04,30,40,42,35,\
9C,01,05,34,CD,8A,15,50,\
59,21,00,00,E5,C3,3A,42,\
FE,2D,30,9F,57,D6,25,87,\
5F,E7,FE,15,28,15,FE,16,\
28,05,CD,86,42,18,0B,1D,\
7A,FE,28,28,04,FE,2B,20,\
01,1D,1D,16,00,21,8B,42,\
19,7E,5F,21,9A,42,19,ED,\
5B,1C,40,D5,CD,F6,19,E1,\
ED,53,1C,40,3A,D7,42,3D,\
86,77,EF,2D,30,80,42,46,\
5D,40,01,05,30,34,08,03,\
34,CD,8A,15,C5,3E,F0,CD,\
1D,15,3A,D6,42,CD,1D,15,\
3A,D8,42,CD,1D,15,EF,04,\
05,04,34,CD,8A,15,50,59,\
E7,FE,1B,28,05,CD,86,42,\
18,0A,62,6B,CB,3A,CB,1B,\
19,EB,18,EC,E1,DD,75,00,\
DD,74,01,DD,73,02,DD,72,\
03,11,04,00,DD,19,C3,2E,\
41,11,00,00,E7,FE,1C,38,\
1B,FE,26,30,17,21,00,00,\
06,0A,19,38,0D,10,FB,D6,\
1C,5F,16,00,19,38,03,EB,\
18,E2,CF,0A,2B,22,16,40,\
C9,28,2D,32,37,00,00,05,\
0A,0F,14,19,19,1E,23,28,\
86,02,D0,12,86,86,0A,97,\
60,75,86,12,D5,17,1F,86,\
1B,90,41,02,86,24,D0,53,\
CA,86,2E,9D,36,B1,86,38,\
FF,49,3E,86,43,FF,6A,73,\
86,4F,A7,00,54,86,5C,00,\
00,00,86,69,14,F6,24,86,\
76,F1,10,05,78,04,04 ]


590 FAST 
600 LET A=16 
602 DIM S(66)
604 CLS
610 PRINT AT 4,0;"ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ                                ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ                                ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ"
615 RAND
620 FOR N=0 TO 63
630 LET B=INT (10*RND)-4
640 IF A+B>0 THEN LET A=A+B
650 IF A>20 THEN LET A=A-10
660 FOR C=8 TO A
670 PLOT N,C
680 NEXT C
690 LET S(N+1)=A
700 NEXT N
710 LET S(66)=S(64)
720 PRINT AT 18,0;"žžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžž"
730 FOR I=1 TO 32
740 IF S(I*2)>7 THEN PRINT AT 18,I-1;CHR$ 137
750 IF S((I*2)+2)>12 THEN PRINT AT 19,I-1;CHR$ 137
760 NEXT I
770 PRINT AT 0,0;CHR$ 5+CHR$ 5+CHR$ 132+CHR$ 1+CHR$ 3+CHR$ 5+CHR$ 132+CHR$ 1+CHR$ 6+CHR$ 4+CHR$ 7+CHR$ 4+CHR$ 7+CHR$ 1+CHR$ 7+CHR$ 5+CHR$ 132+CHR$ 0+CHR$ 0
780 PRINT CHR$ 5+CHR$ 5+CHR$ 133+CHR$ 0+CHR$ 6+CHR$ 0+CHR$ 133+CHR$ 0+CHR$ 7+CHR$ 5+CHR$ 7+CHR$ 0+CHR$ 7+CHR$ 0+CHR$ 6+CHR$ 4+CHR$ 133+CHR$ 0+CHR$ 0
790 PRINT CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 1+CHR$ 1+CHR$ 1+CHR$ 0+CHR$ 3+CHR$ 1+CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 0
800 PRINT "BY IRRLICHT PROJECT"
810 PRINT AT 21,0;"««««««««««««««««««««««««««««««««"
820 SLOW 
840 LET A$="«««««««««««««««««««««««««««««««welcome«to«my«little«sound«demo««««««press«any«key«for«music««««««greetz«to"+CHR$ 142+"««armagon««bikecore««bobs««ccowley««factor"+CHR$ 162+"««flashbob««fluidvolt««gasman««hellboj««jredd««kelly«m"+CHR$ 155+"««lcd««low«bit«revolte««lukasz««midi«man««mister«beep««motone««paul««pulselooper««rwap««sascha"+CHR$ 158+CHR$ 156+CHR$ 156+CHR$ 156+"««shiru««siggi««sirmorris««sorgenfreu««tdm««xavsnap««yerzmyey««and«all«zx"+CHR$ 164+CHR$ 157+"«fans«out«there"
850 LET A$=A$(2 TO )+A$(1)
860 PRINT AT 21,1;A$(1 TO 30)
870 LET B$=INKEY$
880 IF B$="" THEN GOTO 850

890 FAST
895 CLEAR
900 PRINT USR 16656,"T160O3L64X901X903X904X906X904X906X908X910X911X912X913X910X911X914X916X918X916X920X921X922X923X924X925X925X926X926X927"
901 REM GX909A+X909O4DX909FO3X909GX909A+X909O4DX909FO3X909GX909A+X909O4DX909FO3X909GX909A+X909O4DX909FO3X909GP32.A+P32.O4DP32.FO3P32.GP32.A+P32.O4DP32.FO3P32.GP32.A+P32.O4DP32.FO3P32.GP32.A+P32.O4DP32.FO3P32.
902 REM X931X931X931
903 REM GP64A+P64O4DP64FO3P64GP64A+P64O4DP64FO3P64GP64A+P64O4DP64FO3P64GP64A+P64O4DP64FO3P64GA+O4DFO3GA+O4DFO3GA+O4DFO3GA+O4DFED+DC+CO3BA+AG+GF+FED+DC+
904 REM X905GO2GO3L64GX931X931O4C+X933X905L64GP64L32GO2L16GO3L64GX931X931O4C+X933
905 REM O1L16GO2GO3L64GX931O4DO2L16GX928X928X928X928X928X928O1
906 REM O1L16D+O2D+O3L64D+A+O4DO3A+O2L16D+X907X929O1FO2FO3L64FA+FA+FAFAO1L16FO2FO3L64FA+FA+FAFAO1L16D+O2D+O3L64D+AD+AD+O4DO3D+O4DO1L16D+O2D+O3D+O2D+X907O1DO2DO3DO2DO1DO2DO3L64L64DFAO4CD+GA+O5D
907 REM X929X929X929X929

908 REM O4L64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902O4P64DO3GO4P32DO3GP32GX902P64GO4DO3P32GO4DO3P32L32GL64G+AA+BO4CC+
909 REM P64P16.
910 REM O4L64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64
911 REM C+O3GO4P32C+O3GP32GO4C+X933X933O3GO4P64C+O3GO4P32C+O3GP32GO4C+X933X933O3GP64GO4C+O3P32GO4C+O3P32L32GO4L64C+CO3BA+AG+
912 REM O4L64X917CO3GP32GO4CX932X932O3GO4P64X917CO3GP32GO4CX932X932O3GO4P64X917CO3GP32GO4CX932X932O3GO4P64X917CO3GP32GO4CX932X932O3GO4P64X917CO3GP32GO4CX932X932O3GO4P64
913 REM X917CO3GP32GO4CX932X932O3GO4P64X917CO3GP32GO4CX932X932O3GP64GO4CO3P32GO4CO3P32L32GO4L64C+CO3BA+AG+

914 REM O2L64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64X915DO3GP32GX902O2P64GF+O1L32GO3L64GO4DO2P32GF+O1L32GO3L64A+BO4CC+
915 REM GF+O1L32GO4L64
916 REM O2L64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GO2P64X915C+O3GP32GO4C+X933X933O3GP64GO4C+O3P32GO4C+O2P32GF+O1L32GO3L64BA+AG+
917 REM CO3GO4P32
918 REM O2L64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64X915CO3GP32GO4CX932X932O3GO2P64GF+O1GO2P64GF+O1GO2P64GF+O1GO2P64GF+O1GP64

920 REM O2L64GF+O1L32GO3L64GO4DO1L32GO3L64GX931O4DO2L32G.P64L64GF+O1L32GO3L64GO4DO1L32GO3L64GX931O4DO2L32G.P64L64GF+O1L32GO2L16GO3L64GX931O4DO2L16GO1GO2GO3L64GX931O4DO2L32G.P64L64GF+O1L32GO2L16GO3L64GX931O4DO2L16GO1GO2L32G.P64L64GF+O1GO2P64L32G.P64
921 REM L64GF+O1GO2P64GF+O1L32GO3L64GX931O4DO2L16GO1GO2GO3L64GX931X931O4C+X933
922 REM O2L64GF+O1L16G.O3L64GX931O4DO2L32G.P64L64GF+O1L16G.O3GO2L32G.P64L64GF+O1L16G.O3GO2L32G.P64L64GF+O1L16G.O3GO2L32G.P64L64GF+O1L16G.O3GO2GX928O1L64GP64L32GO2L16GO3GO2GO1L64GP64L32GO2L16GO3L64GX931X931O4C+X933
923 REM O2L64D+DO1D+O2P64D+DO1L32D+O3L64D+A+O4DO3A+O2L32D+.P64L64D+DO1L16D+.O3D+O2D+X929O1D+O2D+O3D+O2L32D+.P64L64D+DO1L32D+O2L16D+O3D+O2L32D+.P64L64D+DO1L32D+O2L16D+O3D+O2L32D+.P64L64D+DO1L16D+.O3L64FA+FA+FAFAO1L16FO2FO3L64FA+FA+FAFA
924 REM O1L16D+O2D+O3L64D+AD+AD+O4DO3D+O4DO1L16D+O2D+O3D+O2D+X907O1DO2DO3DO2L64DP64DP64O1DP64DO2P64DO3P64DP64DFAO4CD+GA+O5D

925 REM O2L64GF+FC+O1AL32G.O4X930O2GF+FC+O1L16GO4L64DA+DA+CA+CA+O2GF+C+O1GL16GO4L64DO5CO4DO5CO4CO5CO4CO5CO2GF+C+O1GL16GO5L32DO4L64DO5DO4CO5DO4CO5DO2GF+FC+O1AL32G.O4L64DO5CO4DO5CO4CA+CA+O1GG+AA+BO2L32C.P32O4X930O1GG+AA+BO2L32C.P32O4X930O1GG+AA+O2L16CP32O4L64DFDFCFCF
926 REM O2L64D+DC+O1D+L16D+O4X930O2D+DC+O1D+L16D+O4L64DA+DA+CA+CA+O2D+DC+O1D+L16D+O4L64DO5CO4DO5CO4CO5CO4CO5CO2D+DO1F+D+L16D+O5L32DO4L64DO5DO4CO5DO4CO5DO2D+DC+O1F+L16D+O4L64DO5CO4DO5CO4CA+CA+O3DCO2A+DL16DO4X930O3DCO2A+DL16DO4X930O3DO2A+GD+L16DO4L64DFDFCFCF

927 REM O5L16F+P64L64CO4P64BP64A+P64AP64G+P64GP64F+P64FP64EP64D+P64DP64C+P64CO3P64BP64A+P64AP64G+P64L4GO2P8L8GO1P4L4G

928 REM O1GO2GO3GO2G
929 REM O1D+O2D+O3D+O2D+
930 REM L64DGDGCGCG
931 REM O4DO3G
932 REM O3GO4C
933 REM O3GO4C+

950 SLOW 
960 GOTO 840