home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib21b.dsk
/
RAM.DISK.ON.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
955b
|
24 lines
10 REM ***********************
20 REM * RAM.DISK.ON *
30 REM * BY DOUGLAS PETERSON *
40 REM * COPYRIGHT (C) 1984 *
50 REM * BY MICROSPARC, INC. *
60 REM * LINCOLN, MA. 01773 *
70 REM ***********************
80 REM RAM DISK 64 STARTUP PROGRAM
90 HOME : VTAB 22: PRINT "** COPYRIGHT 1984 MY MICROSPARC, INC. **": VTAB 5
100 PRINT "A RAM DISK FOR THE EXTENDED 80 COLUMN"
110 PRINT "CARD IS AVAILABLE ON THIS DISK"
120 PRINT "IF YOU SELECT IT THEN THE INIT COMMAND"
130 PRINT "WILL NOT FUNCTION"
140 PRINT : INPUT "LOAD RAM DISK 64?";A$
150 IF LEN(A$) < >1 THEN 140
160 IF A$ = "N" THEN END
170 IF A$ < >"Y" THEN 140
180 PRINT CHR$(4);"BRUN NEWRAM"
190 PRINT CHR$(4);"BLOAD RAM.DISK.64"
200 POKE ( -17148),76: POKE ( -17147),175: POKE ( -17146),190: REM TURN IT ON
210 POKE ( -22396),0: REM DISABLE INIT
220 PRINT : PRINT "RAM DISK 64 ENABLED IN SLOT 3"
230 PRINT "USE ANY COMMAND WITH ',S3' SUFFIX
240 END