home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c128 / utils / ramdos.arc / RAMDOS.BAS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  62 lines

  1. 10 REM F$="RAMDOS.BAS":OPEN1,8,15,"S0:"+F$:CLOSE1:SAVEF$,8
  2. 15 IF P THEN 320
  3. 20 PRINT"[147]";
  4. 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][174]
  5. 40 [153]"(null) RAM DISK INSTALLATION - V080787 (null)
  6. 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][189]":PRINT
  7. 60 :
  8. 100 GOSUB 9000: IF A=0 THEN 360
  9. 110 U=9: INPUT "INSTALL RAM DISK AS UNIT     9[157][157][157]";U
  10. 120 : U=INT(U): IF U<4 OR U>30 THEN 110
  11. 125 IF F=0 THEN P=207: L=6: ML=25344: RE=780: F$="RAMDOS64.BIN*"
  12. 126 IF F=1 THEN P=14:  L=5: ML=8960:  RE=6:   F$="RAMDOS128.BIN*"
  13. 130 PRINT "RAM DISK INTERFACE PAGE IS  ";P;LEFT$("[157][157][157][157][157][157]",L);:INPUT P
  14. 140 : IF F=0 AND (P<2 OR P>207) THEN 125
  15. 145 : IF F=1 AND (P<2 OR P>32)  THEN 125
  16. 150 A$="Y": INPUT "INITIALIZE RAM DISK          Y[157][157][157]";A$
  17. 160 : M=3: IF LEFT$(A$,1)="Y" THEN M=0
  18. 170 :
  19. 180 IF (F=0 AND P=207) OR (F=1 AND P=14) THEN 280
  20. 190 : A$="N": INPUT "CHECK INTERFACE PAGE: ARE YOU SURE  N[157][157][157]";A$
  21. 200 : IF LEFT$(A$,1)<>"Y" THEN 20
  22. 210 :
  23. 215 REM  C128  C64      WHAT IT DO
  24. 220 REM $2300 $6300 --> INSTALL    RAM DISK
  25. 230 REM     3     3 --> RE-INSTALL RAM DISK
  26. 240 REM     6     6 --> INSTALL    RAM DISK W/ ARG: UNIT=.A PAGE=.X
  27. 250 REM     9     9 --> RE-INSTALL RAM DISK W/ ARG: UNIT=.A PAGE=.X
  28. 260 REM     C     C --> DISPLAY COPYRIGHT NOTICE
  29. 270 :
  30. 280 PRINT " * RESTORING SYSTEM VECTORS": SYS 65418
  31. 285 : IF F=0 THEN 300
  32. 290 PRINT " * ALLOCATING GRAPHIC AREA FOR RAM DISK": (null)1,1
  33. 295 : IF PEEK((null)("D7"))=0 THEN (null)0
  34. 300 PRINT " * LOADING RAMDISK DRIVER"
  35. 305 : IF F=0 THEN LOAD F$,8,1
  36. 306 : IF F=1 THEN (null) (F$)
  37. 310 :
  38. 320 SYS ML+12              :REM  PRINT EMBEDDED COPYRIGHT NOTICE
  39. 325 POKE RE,U: POKE RE+1,P :REM  LDA UNIT: LDX PAGE
  40. 330 SYS ML+6+M             :REM  (RE)INSTALL RAMDISK, USING UNIT# & PAGE
  41. 340 :
  42. 350 PRINT: END
  43. 360 PRINT "PRESS ANY KEY TO RETURN TO MENU"
  44. 370 GETA$:IFA$=""THEN370
  45. 380 LOAD "STARTUP.*",8     :REM  GOODBYE
  46. 390 :
  47. 9000 REM VERIFY PRESENCE OF RAM CARD
  48. 9005 :
  49. 9010 R=57088: A=1
  50. 9020 FORI=2TO5:POKER+I,I:NEXT
  51. 9030 FORI=2TO5:IFPEEK(R+I)<>ITHEN9050
  52. 9040 NEXT: GOTO9080
  53. 9050 A=0: PRINT " RAM EXPANDER NOT PRESENT ": RETURN
  54. 9060 :
  55. 9070 REM DETERMINE IF C64 OR C128
  56. 9075 :
  57. 9080 F=ABS(PEEK(65533)=255) :REM F=0 IF C64, F=1 IF C128
  58. 9090 IF F THEN (null) 15      :REM SELECT 128 SYSTEM BANK
  59. 9100 RETURN
  60. 9110 :
  61. 9999 REM F.BOWEN 08/07/87 COPYRIGHT 1987 COMMODORE BUSINESS MACHINES, INC.
  62.