A bizarre little program that imitates several parakeets talking to one another.
Content
Image Gallery
Source Code
10 SOUND 7,62;8,16;9,0;10,0
20 FOR I=INT (RND*75)+25 TO INT (RND*75)+20 STEP INT (RND*4)*2-5
30 SOUND 0,I;11,32;12,100;13,2
40 NEXT I
50 SOUND 12,1;13,0
60 IF INT (RND*2)=1 THEN PAUSE INT ((RND*60)+1)
70 IF INT (RND*4)=1 THEN GO TO 90
80 RUN
90 FOR J=RND*1 TO RND*10
100 FOR K=0 TO INT (RND*4)
110 NEXT K
120 SOUND 6,16;7,7;8,16;9,16;10,16;11,300+INT (RND*10);12,INT (((RND*2)+.5)/2);13,INT (RND*2)*8
130 FOR K=0 TO INT (RND*10)
140 NEXT K
150 SOUND 7,63;8,0;9,0;10,0
160 NEXT J
170 RUN Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.