home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
TEST
/
TIMBRE.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2020-08-13
|
371b
|
16 lines
1 REM BLOAD TIMBRE.OBJ
5 N = 128
7 PB = 12 *4096 +6 *16 +1
8 BS = 6 *4096 +16 +14
9 POKE BS,N
10 HGR
11 HOME : VTAB 24: PRINT "DRAW WAVEFORM USING PDL 0 AND BUTTON 0"
15 FOR Y = 1 TO 128
17 IF PEEK(PB) <128 THEN 17
20 X = PDL(0)
30 HPLOT X,Y
40 POKE BS +Y,X
50 NEXT Y
52 PRINT : PRINT : PRINT : PRINT
55 PRINT "PRESS ANY KEY TO STOP SOUND"
60 CALL 24576