home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_27_1988_Transactor_Publishing.d64 / shellram.sda / CSTART (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  812b  |  34 lines
  1. 10 rem f$="cstart":open1,8,15,"s0:"+f$:close1:savef$,8
  2. 20 if s then end
  3. 30 if a then 210
  4. 70 :
  5. 80 gosub 360: if a=0 then 320
  6. 130 print "initialize ram disk         n[157][157][148]";: input a$
  7. 140 :  f=0: if left$(a$,1)="y"  then f=1
  8. 150 :
  9. 200 load "ramdos??????.bin",8,1
  10. 210 :
  11. 211 sys  25356 : rem print embedded copyright notice
  12. 213 :
  13. 220 sys 65418
  14. 230 :
  15. 240 rem  set ramdisk unit# (u) and interface page (p) (note 22=$1600)
  16. 250 poke 780,9: poke 781,22 : rem lda #9: ldx #$16
  17. 260 :
  18. 270 rem  install ramdisk to specified extent
  19. 280 sys 25350-3*(f=0)
  20. 290 :
  21. 300 if f=0 then d=9: print"  exec profile"
  22. 310 if f<>0 then d=8: print"  exec startup"
  23. 330 print"[145][145]";:poke 631,13: poke 632,13: poke 198,2
  24. 340 s=1:load"shellram",d,1
  25. 350 :
  26. 360 rem verify presence of ram card
  27. 370 r=57088:a=0
  28. 380 poke r,0:ifpeek(r)=0 then 420
  29. 390 forv=2to5:poker+v,v:next
  30. 400 a=1:forv=2to5:ifpeek(r+v)<>vthena=0
  31. 410 next
  32. 420 if a=0 then print" ram expander not present"
  33. 430 return
  34.