10 REM F$="CSTART":OPEN1,8,15,"S0:"+F$:CLOSE1:SAVEF$,8
20 IF S THEN END
30 IF A THEN 210
70 :
80 GOSUB 360: IF A=0 THEN 320
130 PRINT "INITIALIZE RAM DISK         N[157][157][148]";: INPUT A$
140 :  F=0: IF LEFT$(A$,1)="Y"  THEN F=1
150 :
200 LOAD "RAMDOS??????.BIN",8,1
210 :
211 SYS  25356 : REM PRINT EMBEDDED COPYRIGHT NOTICE
213 :
220 SYS 65418
230 :
240 REM  SET RAMDISK UNIT# (U) AND INTERFACE PAGE (P) (NOTE 22=$1600)
250 POKE 780,9: POKE 781,22 : REM LDA #9: LDX #$16
260 :
270 REM  INSTALL RAMDISK TO SPECIFIED EXTENT
280 SYS 25350-3*(F=0)
290 :
300 IF F=0 THEN D=9: PRINT"  EXEC PROFILE"
310 IF F<>0 THEN D=8: PRINT"  EXEC STARTUP"
330 PRINT"[145][145]";:POKE 631,13: POKE 632,13: POKE 198,2
340 S=1:LOAD"SHELLRAM",D,1
350 :
360 REM VERIFY PRESENCE OF RAM CARD
370 R=57088:A=0
380 POKE R,0:IFPEEK(R)=0 THEN 420
390 FORV=2TO5:POKER+V,V:NEXT
400 A=1:FORV=2TO5:IFPEEK(R+V)<>VTHENA=0
410 NEXT
420 IF A=0 THEN PRINT" RAM EXPANDER NOT PRESENT"
430 RETURN