home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32a.dsk / SEPTEMBER.1987 / SELECTOR.INST.bas < prev    next >
BASIC Source File  |  2023-02-26  |  540b  |  16 lines
  1. 10  REM   **********************
  2. 20  REM   * SELECTOR.INST      *
  3. 30  REM   * BY SANDY MOSSBERG  *
  4. 40  REM   * COPYRIGHT (C) 1987 *
  5. 50  REM   * BY MICROSPARC, INC *
  6. 60  REM   * CONCORD, MA  01742 *
  7. 70  REM   **********************
  8. 80 D$ =  CHR$(4)
  9. 90 VERS =  PEEK(49151)
  10. 100  IF   NOT VERS  THEN  PRINT "PRODOS not supported": END 
  11. 110  IF VERS = 1  THEN START = 5700: GOTO 130
  12. 120 START = 5900
  13. 130  PRINT D$"BLOAD PRODOS,TSYS,A$2000"
  14. 140  PRINT D$"BLOAD SELECTOR.CODE,A$"START
  15. 150  PRINT D$"BSAVE PRODOS,TSYS,A$2000"
  16. 160  PRINT D$"-PRODOS"