home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib10.dsk / BOOTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  734b  |  23 lines
  1. 10  REM  **********************
  2. 20  REM  * BOOTER             *
  3. 30  REM  * BY PAUL IRWIN      *
  4. 40  REM  * COPYRIGHT (C) 1982 *
  5. 50  REM  * BY MICRO-SPARC INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80  TEXT : HOME 
  9. 90  PRINT "   *** AMP-L-SOFT ***"
  10. 100  PRINT "     BY PAUL IRWIN "
  11. 110  PRINT : PRINT "   COPYRIGHT (C) 1982"
  12. 120  PRINT "   BY MICRO-SPARC INC"
  13. 130  PRINT "   LINCOLN, MA. 01773"
  14. 140  PRINT "  ALL  RIGHTS RESERVED"
  15. 150  PRINT 
  16. 160  PRINT 
  17. 170  PRINT : PRINT 
  18. 180 : PRINT "       LOADING AMP-L-SOFT...."
  19. 190  DEF  FN AD(X) =  PEEK(X) +256 * PEEK(X +1)
  20. 200  PRINT  CHR$(4);"BLOADAMP-L-SOFT"
  21. 210  CALL  FN AD( FN AD(999) -79)
  22. 220  PRINT "           ... AMP-L-SOFT INSTALLED."
  23. 230  PRINT : PRINT