home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / RAM.DISK.ON.bas < prev    next >
BASIC Source File  |  2023-02-26  |  955b  |  24 lines

  1. 10  REM  ***********************
  2. 20  REM  *     RAM.DISK.ON     *
  3. 30  REM  * BY DOUGLAS PETERSON *
  4. 40  REM  * COPYRIGHT (C)  1984 *
  5. 50  REM  * BY MICROSPARC, INC. *
  6. 60  REM  * LINCOLN, MA.  01773 *
  7. 70  REM  ***********************
  8. 80  REM  RAM DISK 64 STARTUP PROGRAM
  9. 90  HOME : VTAB 22: PRINT "** COPYRIGHT 1984 MY MICROSPARC, INC. **": VTAB 5
  10. 100  PRINT "A RAM DISK FOR THE EXTENDED 80 COLUMN"
  11. 110  PRINT "CARD IS AVAILABLE ON THIS DISK"
  12. 120  PRINT "IF YOU SELECT IT THEN THE INIT COMMAND"
  13. 130  PRINT "WILL NOT FUNCTION"
  14. 140  PRINT : INPUT "LOAD RAM DISK 64?";A$
  15. 150  IF  LEN(A$) < >1  THEN 140
  16. 160  IF A$ = "N"  THEN  END 
  17. 170  IF A$ < >"Y"  THEN 140
  18. 180  PRINT  CHR$(4);"BRUN NEWRAM"
  19. 190  PRINT  CHR$(4);"BLOAD RAM.DISK.64"
  20. 200  POKE ( -17148),76: POKE ( -17147),175: POKE ( -17146),190: REM  TURN IT ON
  21. 210  POKE ( -22396),0: REM  DISABLE INIT
  22. 220  PRINT : PRINT "RAM DISK 64 ENABLED IN SLOT 3"
  23. 230  PRINT "USE ANY COMMAND WITH ',S3' SUFFIX
  24. 240  END