home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / LAM.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  36 lines
  1. 1  REM  **********************
  2. 2  REM  *     LAM.DEMO2      *
  3. 3  REM  *   BY MARK CRAVEN   *
  4. 4  REM  * COPYRIGHT (C) 1986 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * CONCORD, MA  01742 *
  7. 7  REM  **********************
  8. 8  REM  MODIFIED TO WORK ON IIGS
  9. 9  REM  BY S. KARATSORIDIS
  10. 10  REM  USING METHOD FOUND AT
  11. 11  REM  HTTP://WWW.LLX.COM/~NPARKER/A2/SHLAM.HTML
  12. 50  REM  DEFINE MONITOR INPUT STRING
  13. 60 I$ = "300:A2 20 AD 30 C0 A4 08 88 D0 FD CA D0 F5 C6 08 D0 EF 60 N F328G"
  14. 70  REM 
  15. 80  REM  LOADS IN A SHORT
  16. 90  REM  TONE ROUTINE THEN
  17. 100  REM  RETURNS TO BASIC
  18. 110  REM 
  19. 120  HOME 
  20. 130  VTAB 10: HTAB 1
  21. 140  PRINT "PRESS <RETURN> TO EXECUTE TONE ROUTINE": PRINT "PRESS <ESC> TO QUIT"
  22. 150  VTAB 15: POKE  -16368,0: GET X$: IF X$ =  CHR$(13)  THEN 220
  23. 160  IF X$ =  CHR$(27)  THEN  TEXT : HOME : END 
  24. 170  GOTO 130
  25. 180  REM 
  26. 190  REM  INPUT MONITOR COMMANDS
  27. 200  REM  INTO KEYBOARD BUFFER
  28. 210  REM 
  29. 220  FOR I = 1 TO  LEN(I$)
  30. 230  POKE 511 +I, ASC( MID$ (I$,I)) +128
  31. 240  NEXT 
  32. 250  POKE 72,0: POKE 223, PEEK(248): REM  ZERO STATUS REGISTER TO AVOID 'HANG'; ALSO SAVE STACK POINTER FOR RESUME HANDLER
  33. 260  CALL 65392: REM  $FF70,-144-->SCAN THE KEYBOARD INPUT BUFFER
  34. 270  CALL 768: REM  EXECUTE TONE
  35. 280  HOME : VTAB 23: HTAB 1: PRINT "PRESS <RETURN>";: POKE  -16368,0: GET X$
  36. 290  GOTO 120: REM  DO IT AGAIN