home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27a.dsk / MARCH.1986 / STARTUP.DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  645b  |  16 lines
  1. 10  REM  ***********************
  2. 20  REM  *    STARTUP.DEMO     *
  3. 30  REM  *    BY J.R. VOKEY    *
  4. 40  REM  * COPYRIGHT (C) 1986  *
  5. 50  REM  * BY MICROSPARC, INC. *
  6. 60  REM  *  CONCORD, MA  01742 *
  7. 70  REM  ***********************
  8. 80  TEXT : HOME 
  9. 90  PRINT  CHR$(4)"BRUN PROCOMREC"
  10. 100 HMEM =  PEEK(116) *256: REM  Get new HIMEM
  11. 110  HIMEM: HMEM
  12. 120 STRTBUF = HMEM +5 *256 -1: REM  Buffer address-1
  13. 130 USER = HMEM +4 *256 +215: REM  USER vector
  14. 140  POKE USER +1,STRTBUF/256: POKE USER,STRTBUF - INT(STRTBUF/256) *256
  15. 150  PRINT  CHR$(4)"BLOAD COMREC.USER,A"STRTBUF +1: REM  Load USER List
  16. 160  PRINT : PRINT "COMMAND RECOGNITION IS AVAILABLE"