5 D=PEEK(186)
6 POKE53280,6:POKE53281,6
10 REM F$="RAMDOS.BAS":OPEN1,D,15,"S0:"+F$:CLOSE1:SAVEF$,D
15 IF P THEN 320
20 PRINT"[147]";
30 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
40 PRINT"[221] [158]RAMDISK ][ [159]INSTALLATION - [153]VERSION 1[221]"
50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT
60 :
100 GOSUB9000:IF A=0 THEN 350
110 U=9:PRINT"INSTALL RAM DISK AS UNIT     10[157][157][157][157]";:INPUTU
120 : U=INT(U): IF U<4 OR U>30 THEN 110
125 IF F=0 THEN P=207: L=6: ML=25344: RE=780: F$="RAMDOS64.BIN*"
126 IF F=1 THEN P=14:  L=5: ML=8960:  RE=6:   F$="RAMDOS128.BIN*"
130 PRINT "RAM DISK INTERFACE PAGE IS  ";P;LEFT$("[157][157][157][157][157][157]",L);:INPUT P
140 : IF F=0 AND (P<2 OR P>207) THEN 125
145 : IF F=1 AND (P<2 OR P>32)  THEN 125
150 A$="N": INPUT "INITIALIZE RAM DISK          N[157][157][157]";A$
160 : M=3: IF LEFT$(A$,1)="Y" THEN M=0
170 :
180 IF (F=0 AND P=207) OR (F=1 AND P=14) THEN 280
190 : A$="N": INPUT "CHECK INTERFACE PAGE: ARE YOU SURE  N[157][157][157]";A$
200 : IF LEFT$(A$,1)<>"Y" THEN 20
210 :
215 REM  C128  C64      WHAT IT DO
220 REM $2300 $6300 --> INSTALL    RAM DISK
230 REM     3     3 --> RE-INSTALL RAM DISK
240 REM     6     6 --> INSTALL    RAM DISK W/ ARG: UNIT=.A PAGE=.X
250 REM     9     9 --> RE-INSTALL RAM DISK W/ ARG: UNIT=.A PAGE=.X
260 REM     C     C --> DISPLAY COPYRIGHT NOTICE
270 :
280 A$="Y":INPUT"RESTORE I/O VECTORS          Y[157][157][157]";A$
281 IFA$="N"THEN285
282 PRINT " * RESTORING SYSTEM VECTORS": SYS 65418
285 : IF F=0 THEN 300
290 PRINT " * ALLOCATING GRAPHIC AREA FOR RAM DISK": (null)1,1
295 : IF PEEK((null)("D7"))=0 THEN (null)0
300 PRINT " * LOADING RAMDISK DRIVER"
305 : IF F=0 THEN LOAD F$,D,1
306 : IF F=1 THEN (null) (F$)
310 :
320 SYS ML+12              :REM  PRINT EMBEDDED COPYRIGHT NOTICE
325 POKE RE,U: POKE RE+1,P :REM  LDA UNIT: LDX PAGE
330 SYS ML+6+M             :REM  (RE)INSTALL RAMDISK, USING UNIT# & PAGE
340 :
350 PRINT: END
360 END
370 END
380 END                   :REM  GOODBYE
390 :
9000 REM VERIFY PRESENCE OF RAM CARD
9005 :
9010 R=57088: A=1
9020 FORI=2TO5:POKER+I,I:NEXT
9030 FORI=2TO5:IFPEEK(R+I)<>ITHEN9050
9040 NEXT: GOTO9080
9050 A=0: PRINT " RAM EXPANDER NOT PRESENT ": RETURN
9060 :
9070 REM DETERMINE IF C64 OR C128
9075 :
9080 F=ABS(PEEK(65533)=255) :REM F=0 IF C64, F=1 IF C128
9090 IF F THEN (null) 15      :REM SELECT 128 SYSTEM BANK
9100 RETURN
9110 :
9995 REM F.BOWEN 08/07/87 COPYRIGHT 1987 COMMODORE BUSINESS MACHINES, INC.
9996 :
9997 REM   2MB PATCHES 01/03/91
9998 REM   BY ANDREW E. MILESKI
9999 REM     ALIAS 'RECURSION'