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