This file is part of Byte Power November 1986
. Download the collection to get this file.
Content
Image Gallery
Source Code
10 REM FALSE ECHO WRITTEN BY KRISTIAN BOISVERT ©1986 BYTE POWER
15 REM DATA FOR MUSIC
20 DATA 4,92,1,254,0,1,3,117,1,2,232,1,254,0,1,3,117,1,3,68,1,254,0,1,3,117,1,3,226,1,254,0,2,3,226,1,254,0,1,3,68,1,3,68,1,254,0,1,3,226,1,3,117,1,254,0,1,3,226,1,4,92,1,254,0,2
25 DATA 4,92,1,254,0,1,3,117,1,2,232,1,254,0,1,3,117,1,3,68,1,254,0,1,3,117,1,3,226,1,254,0,2,2,232,1,254,0,1,2,232,1,2,232,1,254,0,1,3,68,1,3,117,1,254,0,1,3,226,1,4,92,4,255,0,0
26 REM READ NOTES
30 READ a,b,c
35 REM A=255 THEN MUSIC STOPS!
40 IF a=255 THEN STOP
45 REM PAUSE?,LOWER VOLUME AND GOTO LINE 80 (DURATION)
50 IF A=254 THEN SOUND 8,10: GO TO 80
55 REM PLAY NOTE!
60 SOUND 7,62;8,15;1,A;0,B
65 REM LOWER VOLUME FOR SMOOTHER DELIVERY
70 IF A<>254 THEN SOUND 8,13
75 REM DURATION OF NOTE
80 PAUSE C*10
85 REM COMPLETE LOOP
90 GO TO 30Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.