home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / multiscreen.ed (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  74 lines
  1. 5 ifll>0then60050
  2. 10 print"[146][147]       [158]multiscreen editor"
  3. 20 a=53280:pokea,0:pokea+1,0
  4. 30 print"general commands"
  5. 40 print"[159]save slot to disk"
  6. 50 print"[159]load slot from disk"
  7. 60 print"[159]edit a screen"
  8. 70 print"[159]menu
  9. 80 [153]"open1-5 recall a slot"
  10. 82 [153]"openquit"
  11. 90 [143] these are specific to the editor
  12. 100 [153]"editor commands"
  13. 110 [153]"openreturn to end drawing"
  14. 120 [153]"use opencursor keys to move"
  15. 130 [153]"opencolor, openinst/del, openclr/home"
  16. 140 [153]"and openreverse on/off"
  17. 150 [153]"keys all work normally "
  18. 160 [153]""
  19. 170 ad[178]51715:  [143] base address
  20. 180 pt[178]1
  21. 190 [151]198,0:[146]198,1:[161]a$:[143] main loop
  22. 192 [139]a$[178]"q"[167]60000
  23. 200 [139]a$[178]"s"[167]fl[178]0:[141]300: [143] save slot to disk
  24. 210 [139]a$[178]"m"[167] [138]: [143] instructions
  25. 220 [139]a$[178]"l"[167]fl[178]3:[141]300: [143] load slot from disk
  26. 230 [139]a$[178]"e"[167][141]440: [151]53280,0:  [143] editor
  27. 240 [139]rf[178]1[167]rf[178]0:a$[178]"i":[137]210
  28. 250 as[178][197](a$):[139]as[178][177]1[175]as[178][179]5[167][158]ad[170]6,1,as:pt[178]as
  29. 260 [137]190
  30. 270 [143] end of main loop
  31. 280 [143]
  32. 290 [143] load or save a screen to a slot
  33. 300 [153]"load"
  34. 305 nm$[178]""
  35. 310 [133]"what is the screen name";nm$
  36. 315 [139]nm$[178]""[167]300
  37. 320 [139]fl[178]3[167][153]"what slot should it be stored into ?";
  38. 330 [139]fl[178]0[167][153]"what slot should it be saved from ?";
  39. 340 [161]tp$
  40. 350 tp[178][197](tp$)
  41. 360 [139]tp$[178]"*"[167][142]: [143] abort
  42. 370 [139]tp[177][178]1[175]tp[179][178]5[167]pt[178]tp:[153]tp:[137]390
  43. 380 [137]340
  44. 390 [158]ad[170]fl,pt,""[170]nm$
  45. 400 [158]ad[170]6,1,pt
  46. 410 [142] : [143] return from load/save
  47. 420 [143]
  48. 430 [143] editor
  49. 440 [151]53280,5
  50. 450 [153]"loaddo you wish to edit a screen in memory?"
  51. 455 [153]"openywaites/opennwaito"
  52. 460 [161]d$
  53. 470 [139]d$[178]"n"[167]520
  54. 480 [139]d$[179][177]"y"[167]460
  55. 490 ef[178]1:[153]"which slot do you want";
  56. 500 [133]sn:[139]sn[177][178]1[175]sn[179][178]5[167]520
  57. 510 [137]500
  58. 520 [153]"loadwhich slot is this screen for? 1-5";
  59. 525 [133]sl$:sl[178][197](sl$):[153]"load";
  60. 530 [139]sl[179]1[176]sl[177]5[167]450
  61. 540 [139]ef[178]1[167]ef[178]0:[158]ad[170]6,1,sn
  62. 550 [153]"":[159]1,0:[132]1,a$:[160]1
  63. 560 [143] end of editor loop
  64. 570 [158]ad[170]6,0,sl:[142]
  65. 60000 [143]  quit
  66. 60010 [153]"loadare you sure you want to quit?"
  67. 60020 [151]198,0:[146]198,1:[161]a$
  68. 60030 [139]a$[179][177]"y"[175]a$[179][177]"n"[167][151]53280,[187](1)[172]255:[137]60010
  69. 60040 [139]a$[178]"n"[167][138]
  70. 60050 :
  71. 60060 [139]ll[178]0[167]ll[178]1:[147]"romusic",8,1
  72. 63000 [147]"payload connect",8
  73. 63010 [128]
  74.