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