home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36b.dsk / DEMO.LM.bas < prev    next >
BASIC Source File  |  2023-02-26  |  856b  |  30 lines

  1. 10  REM  *
  2. 20  REM  * DEMO.LM
  3. 30  REM  * BY DAVID HARRIS
  4. 40  REM  * COPYRIGHT (C) 1989
  5. 50  REM  * MICROSPARC, INC.
  6. 60  REM  * CONCORD, MA 01742
  7. 70  REM  *
  8. 80  HOME 
  9. 90 MOVE = 32768:UNDO = 32861
  10. 100  PRINT  CHR$(4);"BLOAD LINE.MAGICIAN"
  11. 110  PRINT "LINE MAGICIAN DEMO": PRINT "COPYRIGHT (C) 1989": PRINT "MICROSPARC, INC.": PRINT "CONCORD, MA 01742"
  12. 120  PRINT 
  13. 130  PRINT "LIST 63232-"
  14. 140  LIST 63232 -
  15. 150  PRINT 
  16. 160  PRINT "PRESS A KEY TO MOVE THE LINES";: POKE  -16368,0: GET A$
  17. 170  CALL MOVE
  18. 180  PRINT 
  19. 190  PRINT : PRINT "LIST 63232-"
  20. 200  LIST 63232 -
  21. 210  PRINT 
  22. 220  PRINT "PRESS A KEY TO UNDO THE LINES";: POKE  -16368,0: GET A$
  23. 230  CALL UNDO
  24. 240  PRINT 
  25. 250  PRINT : PRINT "LIST 63232-"
  26. 260  LIST 63232 -: END 
  27. 60000  REM  13 `'s, 15 *'s
  28. 63400  REM  `````````````***************
  29. 63410  PRINT "NIBBLE"
  30. 63420  REM  `````````````***************