home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Productivity Pak 2 / rerun-productivity-pak-ii.d64 / rs64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  70 lines
  1. 10 rem ********************************
  2. 20 rem         boot program           *
  3. 30 rem             for                *
  4. 40 rem  commodore 64  runscript 2.40  *
  5. 50 rem         june 16, 1986          *
  6. 60 rem      by robert rockefeller     *
  7. 70 rem ********************************
  8. 80 :
  9. 90 dev=8 : rem set dev equal to load device number
  10. 100 hlp$="": rem make hlp$ equal filename of help file
  11. 110 :
  12. 120 a=780: x=781: y=782: rem register saves for sys
  13. 130 dim ps$(6): rem holds filenames of print sets
  14. 140 :
  15. 150 ps$(1)="": rem name of print set 1
  16. 160 ps$(2)="": rem name of print set 2
  17. 170 ps$(3)="": rem name of print set 3
  18. 180 ps$(4)="": rem name of print set 4
  19. 190 ps$(5)="": rem name of print set 5
  20. 200 ps$(6)="": rem name of print set 6
  21. 210 :
  22. 220 if hlp$="" then 260
  23. 230 for j=1 to len(hlp$)
  24. 240 poke 743+j,asc(mid$(hlp$,j,1))
  25. 250 next j
  26. 260 poke 743,len(hlp$)
  27. 270 :
  28. 280 adr=57344: rem load address of print set 1
  29. 290 rem load print sets, if any
  30. 300 for j=1 to 6
  31. 310 if ps$(j)<>"" then prog$=ps$(j): gosub 420
  32. 320 adr=adr+1024
  33. 330 next j
  34. 340 :
  35. 350 prog$="ob.rs64 2.40": gosub 480
  36. 360 gosub 640: sys900: rem start
  37. 370 end
  38. 380 :
  39. 390 :
  40. 400 :
  41. 410 rem load program file
  42. 420 gosub 480: rem setup name & logical file
  43. 430 poke a,0 : poke x,(adr/256-int(adr/256))*256 : poke y,adr/256
  44. 440 sys 65493 : rem load
  45. 450 return
  46. 460 :
  47. 470 :
  48. 480 rem use the kernal setlfs
  49. 490 poke a,0 : poke x,dev : poke y,0
  50. 500 sys 65466
  51. 510 :
  52. 520 rem setup filename
  53. 530 for loop=1 to len(prog$)
  54. 540 poke 849+loop,asc(mid$(prog$,loop,1))
  55. 550 next loop
  56. 560 :
  57. 570 rem use kernal setnam
  58. 580 poke a,len(prog$) : poke x,850and255 : poke y,850/256
  59. 590 sys 65469
  60. 600 :
  61. 610 return
  62. 620 :
  63. 630 :
  64. 640 for loop=900 to 910
  65. 650 read byte : poke loop,byte
  66. 660 next loop
  67. 670 return
  68. 680 :
  69. 690 data 169,0,170,160,8,32,213,255,76,0,16
  70.