home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #4 / Commodore_Disk_User_Vol.2_4_1989_-.d64 / ed (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  123 lines
  1. 5 print"[147]loading data files......"
  2. 10 ifpeek(832)<>255 thenprint"1";:load"boxes",8,1
  3. 15 ifpeek (51500)<>76 thenprint"2";:load"object",8,1
  4. 20 ifpeek (52000)<>32 or peek(52001)<>212thenprint"3";:load"s.obj",8,1
  5. 30 ifpeek (679)<>32 or peek(680)<>253thenprint"4";:load"l.obj",8,1
  6. 50 poke 53287,1: poke 650,128
  7. 70 ctab=51200: xb=51005: yb=51006
  8. 85 for i=0to39: poke 46960+i,0:next
  9. 90 poke 53280,0:poke53281,0:poke 646,15: printchr$(147)
  10. 100 print"          screen/block editor"
  11. 110 print"            allen webb 1989"
  12. 120 print"            e[146]dit blocks"
  13. 130 print"            d[146]esign screens"
  14. 140 print"            s[146]ave files"
  15. 150 print"            l[146]oad files"
  16. 155 print"            ex[146]it"
  17. 160 print"         press highlighted key[155]"
  18. 170 geti$:ifi$=""then170
  19. 180 ifi$="e" then 10000
  20. 190 ifi$="d" then 20000
  21. 200 ifi$="x" then print"[147]":end
  22. 210 ifi$="s"then40000
  23. 220 ifi$="l"then50000
  24. 500 goto 170
  25. 10000 printchr$(147);:block=1: char=0: x0=223:y0=129: xc=0: yc=0
  26. 10010 col=peek(ctab) and 15
  27. 10071 print""tab(14)"[158]edit blocks"
  28. 10072 print"
  29. 10073 [153]"sysnext block     +sys"
  30. 10074 [153]"syslast block     -sys"
  31. 10075 [153]"syserase block    esys"
  32. 10076 [153]"sysnext character nsys"
  33. 10077 [153]"syslast character psys"
  34. 10078 [153]"sysset colour     _sys"
  35. 10079 [153]"sysnext colour    f1sys"
  36. 10080 [153]"syslast colour    f3sys"
  37. 10081 [153]"sysput character  *sys"
  38. 10082 [153]"sysmain menu      m sys"
  39. 10090 [151] 2040,14
  40. 10091 [151] 53276,0: [151] 53277,0: [151]53271,0
  41. 10092 [151] 53269,1
  42. 10110 [151] 46981,block: [158] 51500,151
  43. 10120 [153]"  block:       cmdcmdcmdsys";block
  44. 10130 [153]"  character:  ": [151]1157,char: [151] 55429,7
  45. 10140 [153]"  colour   ":[129]i[178]0[164]5:[151]55458[170]i,col:[130]
  46. 10150 [153]"  character no:    cmdcmdcmdcmd";char
  47. 10200 [151] 53249,y0[170]8[172]yc
  48. 10210 xp[178]x0[170]8[172]xc: [151] 53264,xp[173]256:[151]53248,xp[171][194](53264)[172]256
  49. 11000 [161]i$:[139]i$[178]""[167]11000
  50. 11010 [139] i$[178]"+" [175] block [179]150 [167] block[178]block[170]1:[137]10110
  51. 11020 [139] i$[178]"-" [175] block [177]1 [167] block[178]block[171]1:[137]10110
  52. 11030 [139] i$[178]"n" [175] char [179]255 [167] char[178]char[170]1:col[178][194](ctab[170]char): [137]10110
  53. 11040 [139] i$[178]"p" [175] char [177]0 [167] char [178]char[171]1:col[178][194](ctab[170]char):[137]10110
  54. 11050 [139] i$[178]"input" [167] col[178](col[170]1)[175] 15:[137]10110
  55. 11060 [139] i$[178]"dim" [175] col [177]0 [167] col[178]col[171]1:[137]10110
  56. 11070 [139] i$[178]""[175]xc[179]4 [167] xc[178]xc[170]1:[137]10200
  57. 11080 [139] i$[178]"cmd"[175]xc[177]0 [167] xc[178]xc[171]1:[137]10200
  58. 11090 [139] i$[178]""[175]yc[179]4 [167] yc[178]yc[170]1:[137]10200
  59. 11120 [139] i$[178]"on"[175]yc[177]0 [167] yc[178]yc[171]1:[137]10200
  60. 11130 [139] i$[178]"_" [167] [151] ctab[170]char,col:[137]10110
  61. 11140 [139]i$[178]"*"[167] 12000
  62. 11150 [139]i$[178]"m"[167] [151] 53269,0:[153]"load";:[137]100
  63. 11160 [139]i$[178]"e"[167]12100
  64. 11500 [137]10110
  65. 12000 ba[178](block[171]1)[172]25[170]47104
  66. 12010 [151] ba[170]yc[172]5[170]xc,char
  67. 12020 [151]46981 ,block: [158]51500,151:[137]11000
  68. 12100 ba[178](block[171]1)[172]25[170]47104
  69. 12110 [129]i[178]0[164]25:[151]ba[170]i,32:[130]
  70. 12120 [137]10110
  71. 12200 [143]
  72. 20000 [153][199](147): screen[178]1: x0[178]24: y0[178]49: xc[178]0:yc[178]0:block[178]1
  73. 20010 [158] 51500,screen
  74. 20020 [151] 2040,13
  75. 20021 [151] 53276,0: [151] 53277,1: [151]53271,1
  76. 20022 [151] 53269,1
  77. 20500 [151] 53249,y0[170]40[172]yc
  78. 20510 xp[178]x0[170]40[172]xc: [151] 53264,xp[173]256:[151]53248,xp[171][194](53264)[172]256
  79. 21000 [161]i$:[139]i$[178]""[167]21000
  80. 21010 [139] i$[178]"+"[175] screen[179]150 [167] screen[178]screen[170]1:[141] 25000:[137]21000
  81. 21020 [139] i$[178]"-"[175] screen[177]1 [167] screen[178]screen[171]1:[141] 25000:[137]21000
  82. 21030 [139]i$[178]"e"[167]24000
  83. 21040 [139] i$[178]""[175]xc[179]7 [167] xc[178]xc[170]1:[137]20500
  84. 21050 [139] i$[178]"cmd"[175]xc[177]0 [167] xc[178]xc[171]1:[137]20500
  85. 21060 [139] i$[178]""[175]yc[179]4 [167] yc[178]yc[170]1:[137]20500
  86. 21170 [139] i$[178]"on"[175]yc[177]0 [167] yc[178]yc[171]1:[137]20500
  87. 21180 [139]i$[178]"*"[167]26000
  88. 21190 [139]i$[178]"m"[167] [151] 53269,0:[153]"load";:[137]100
  89. 21200 [139] i$[178]"x" [167] 30000
  90. 22000 [137] 21000
  91. 24000 sa[178](screen[171]1)[172]40[170]40960: [129]i[178]0[164]40:[151] sa[170]i,0:[130]
  92. 24010 [141] 25000:[137]21000
  93. 25000 [153][199](147):[158]51500,screen:[142]
  94. 26000 sa[178](screen[171]1)[172]40[170]40960
  95. 26010 [151] sa[170]yc[172]8[170]xc,block:[141]25000:[137]21000
  96. 30000 [153]"load";:[151]53269,0
  97. 30010 [151] 46981,block: [158] 51500,151
  98. 30020 [153]"syscurrent screen     cmdcmdcmdcmd";screen
  99. 30030 [153]"syscurrent block      cmdcmdcmdcmd";block
  100. 30040 [153]"next block       sys+"
  101. 30050 [153]"previous block   sys-"
  102. 30060 [153]"next screen      sysn"
  103. 30070 [153]"previous screen  sysp"
  104. 30080 [153]"design screen    sysxlist"
  105. 31000 [161]i$:[139]i$[178]""[167]31000
  106. 31010 [139]i$[178]"+"[175]block[179]150[167]block[178]block[170]1:[137]30010
  107. 31020 [139]i$[178]"-"[175]block[177]1  [167]block[178]block[171]1:[137]30010
  108. 31030 [139]i$[178]"x" [167] [153]"load":[137]20010
  109. 31032 [139]i$[178]"n"[175]screen[179]150[167]screen[178]screen[170]1:[137]30010
  110. 31034 [139]i$[178]"p"[175]screen[177]1[167]screen[178]screen[171]1:[137]30010
  111. 31040 [137]31000
  112. 40000 [153]"load              save data"
  113. 40010 [133]"file name";fi$
  114. 40020 [153]"saving....."
  115. 40030 [158] 52000 fi$,8,2,40960,51456
  116. 40040 [153]"load";:[137]100
  117. 50000 [153]"load              load data"
  118. 50010 [133]"file name";fi$
  119. 50020 [153]"loading....."
  120. 50030 [158] 679,fi$,8,40960
  121. 50035 [158] 679,"boxes",8,832
  122. 50040 [153]"load";:[137]100
  123.