home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib36b.dsk
/
DEMO.LM.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
856b
|
30 lines
10 REM *
20 REM * DEMO.LM
30 REM * BY DAVID HARRIS
40 REM * COPYRIGHT (C) 1989
50 REM * MICROSPARC, INC.
60 REM * CONCORD, MA 01742
70 REM *
80 HOME
90 MOVE = 32768:UNDO = 32861
100 PRINT CHR$(4);"BLOAD LINE.MAGICIAN"
110 PRINT "LINE MAGICIAN DEMO": PRINT "COPYRIGHT (C) 1989": PRINT "MICROSPARC, INC.": PRINT "CONCORD, MA 01742"
120 PRINT
130 PRINT "LIST 63232-"
140 LIST 63232 -
150 PRINT
160 PRINT "PRESS A KEY TO MOVE THE LINES";: POKE -16368,0: GET A$
170 CALL MOVE
180 PRINT
190 PRINT : PRINT "LIST 63232-"
200 LIST 63232 -
210 PRINT
220 PRINT "PRESS A KEY TO UNDO THE LINES";: POKE -16368,0: GET A$
230 CALL UNDO
240 PRINT
250 PRINT : PRINT "LIST 63232-"
260 LIST 63232 -: END
60000 REM 13 `'s, 15 *'s
63400 REM `````````````***************
63410 PRINT "NIBBLE"
63420 REM `````````````***************