home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / AUDEX.DSK / AUDSUBS.txt < prev    next >
Text File  |  2014-09-09  |  815b  |  11 lines
  1.  
  2. 10001  GOTO 10009: REM   AUDSUBS BEGIN
  3. 10002  GOSUB 10008: POKE 254,PL: POKE 255,PH: POKE 253,NR: CALL 37889: RETURN : REM CALL SQUALK
  4. 10003  GOSUB 10008: POKE 254,PL: POKE 255,PH: CALL 37478: RETURN : REM CALL JABBER 
  5. 10004  GOSUB 10008: PRINT "TAPE WILL PLAY THROUGH SPEAKER.": PRINT "'T' KEY TRIGGERS DATA INPUT": PRINT "'A' KEY ABORTS WITHOUT DATA INPUT": POKE 255,145: POKE 253,117: CALL 37632: HOME : RETURN : REM CALL HEARTAPE
  6. 10005  POKE 255,145: POKE 253,117: CALL 37675: RETURN : REM CALL AUDIO IN
  7. 10006  POKE 255,145: POKE 253,117: CALL 37786: RETURN : REM CALL PLAYBACK
  8. 10007  POKE 254,ML: POKE 255,MH: POKE 252,NL: POKE 253,NH: CALL 37376: RETURN : REM CALL TONE
  9. 10008 PH =  INT (AD / 256):PL = AD - 256 * PH: RETURN : REM CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)
  10. 10009 : REM   AUDSUBS END
  11.