home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / multiscreen (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  71 lines
  1. 10 rem multiscreen
  2. 20 forz=51712to52058:ready:pokez,y:next
  3. 30 goto63000: rem  end and load next prg
  4. 40 ad=12*4096+10*256+3
  5. 50 :
  6. 60 sysad,slot #,"name"  :rem save slot to disk
  7. 70 sysad+3,slot #,"name":rem load slot from disk
  8. 80 :
  9. 90 sysad+6,0,slot # :rem   save screen to slot in memory
  10. 100 sysad+6,1,slot # :rem recall screen from slot in memory
  11. 110 :
  12. 120 rem slot # is from 1 to 5
  13. 130 :
  14. 140 rem the program exists
  15. 150 rem from $ca00 to $cbff (51712-52223)
  16. 160 :
  17. 170 rem this will not interfere with dos 5.1
  18. 180 :
  19. 190 rem it will use all memory from
  20. 200 rem $a000 - $c800 (40960-51200)
  21. 210 rem
  22. 220 rem
  23. 230 data76,168,202,76,182,202,76,243
  24. 240 data202,32,253,174,32,235,183,165
  25. 250 data20,133,2,224,0,240,38,224
  26. 260 data6,176,34,202,188,80,203,189
  27. 270 data75,203,170,165,2,208,23,134
  28. 280 data253,132,254,169,0,133,251,169
  29. 290 data216,133,252,32,90,202,169,4
  30. 300 data133,252,32,90,202,96,32,35
  31. 310 data203,134,251,132,252,169,216,133
  32. 320 data254,169,0,133,253,32,90,202
  33. 330 data169,4,133,254,32,90,202,76
  34. 340 data48,203,160,0,162,3,177,251
  35. 350 data145,253,200,208,249,230,252,230
  36. 360 data254,202,208,242,177,251,145,253
  37. 370 data200,192,232,208,247,230,252,230
  38. 380 data254,96,147,13,13,67,79,80
  39. 390 data89,82,73,71,72,84,32,49
  40. 400 data57,56,52,13,76,79,85,73
  41. 410 data83,32,87,65,76,76,65,67
  42. 420 data69,32,38,13,75,69,78,32
  43. 430 data70,82,69,78,67,72,13,0
  44. 440 data162,0,189,122,202,240,6,32
  45. 450 data210,255,232,208,245,96,32,253
  46. 460 data174,32,158,183,224,0,240,48
  47. 470 data224,6,176,44,202,188,80,203
  48. 480 data132,252,188,75,203,132,251,188
  49. 490 data85,203,132,254,169,232,133,253
  50. 500 data32,61,203,32,189,255,32,35
  51. 510 data203,169,8,170,32,186,255,169
  52. 520 data251,166,253,164,254,32,216,255
  53. 530 data76,48,203,32,253,174,32,158
  54. 540 data183,224,0,240,37,224,6,176
  55. 550 data33,142,90,203,169,8,170,160
  56. 560 data0,32,186,255,32,61,203,32
  57. 570 data189,255,174,90,203,202,188,80
  58. 580 data203,189,75,203,170,169,0,32
  59. 590 data213,255,96,165,0,9,1,133
  60. 600 data0,165,1,41,254,133,1,96
  61. 610 data165,0,9,1,133,0,165,1
  62. 620 data9,1,133,1,96,32,253,174
  63. 630 data32,158,173,32,130,183,166,34
  64. 640 data164,35,96,0,0,0,0,0
  65. 650 data160,168,176,184,192,167,175,183
  66. 660 data191,199,0
  67. 63000 rem  load the screen editor
  68. 63010 print"[147]load"chr$(34)"multiscreen.ed"chr$(34)",8":print"run"
  69. 63020 poke631,13:poke632,13:poke198,2
  70. 63030 end
  71.