home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / editor_scroller (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.6 KB  |  185 lines
  1. 10 IF ZZ=0THENZZ=1:LOAD"MC CODE",8,1
  2. 100 IFDV<>0THEN231
  3. 101 POKE52,31:POKE56,31:CLR
  4. 102 POKE53281,6:PRINT"[147]";:POKE53280,1:POKE53281,1:PRINT"";:H=14736:C1=0:C2=0
  5. 103 FORI=0TO7:POKE10240+(I*3),255:POKE10241+(3*I),0:POKE10242+(3*I),0:NEXT
  6. 104 FORI=10263TO10303:POKEI,0:NEXT:POKE53287,0:POKE53275,1
  7. 105 POKE53249,50:POKE53248,24
  8. 106 SP=1:FR=1:BR=0:FORI=0TO7:POKE13680+I,0:POKE13808+I,0:POKE12656+I,0
  9. 107 POKE12784+I,0:NEXT:FORI=0TO3:POKE13682+I,3:POKE13810+I,192:NEXT
  10. 108 POKE53269,1:SYS8192:POKE2040,160
  11. 109 POKE53248,24+(8*C2):POKE53249,50+(8*C1)
  12. 110 GETA$:IFA$=""THEN110
  13. 111 K=0:IFA$="*"THEN125
  14. 112 IFA$="_"THEN182
  15. 113 IFA$=""THENC2=C2+1:IFC2>16THENC2=16
  16. 114 IFA$=CHR$(20)THENC2=C2-1:IFC2<0THENC2=0
  17. 115 IFA$=""THENGOSUB163
  18. 116 IFA$="[145]"THENGOSUB169
  19. 117 IFA$=CHR$(13)THENGOSUB175
  20. 118 IFA$="."ORA$=" "ORA$="-"THENK=1
  21. 119 IF(A$>="0"ANDA$<="9")THENK=1
  22. 120 IF(A$>="A"ANDA$<="Z")THENK=1
  23. 121 IFK=0THEN109
  24. 122 A=ASC(A$)AND191:POKE1024+(C1*40)+C2,A:POKE55296+(C1*40)+C2,6
  25. 123 C2=C2+1:IFC2>16THENC2=16
  26. 124 GOTO109
  27. 125 REM
  28. 126 SYS8204:POKE53269,0
  29. 127 PRINT"[147]":PRINTTAB(13);"DISPLAY  TITLE":PRINTTAB(12);"----------------"
  30. 128 PRINT:PRINT"SPEED [144]02":POKE198,0
  31. 129 POKE1191,SP+49
  32. 130 GETA$:IFA$=CHR$(13)THEN133
  33. 131 IFA$=""THENPOKE198,0:SP=(SP+1)AND1:POKE1191,SP+49
  34. 132 GOTO130
  35. 133 PRINT:PRINT"FOREGROUND COLOUR (INK) [144]01"
  36. 134 POKE198,0
  37. 135 IFFR<10THENPOKE1288,48:POKE1289,FR+48
  38. 136 IFFR>10THENPOKE1288,49:POKE1289,FR+38
  39. 137 GETA$:IFA$=CHR$(13)THEN142
  40. 138 IFA$<>""THEN137
  41. 139 POKE198,0:FR=(FR+1)AND15:IFFR<10THENPOKE1288,48:POKE1289,FR+48
  42. 140 IFFR>9THENPOKE1288,49:POKE1289,FR+38
  43. 141 GOTO137
  44. 142 PRINT:PRINT"BACKGROUND COLOUR (PAPER) [144]00"
  45. 143 POKE198,0
  46. 144 IFBR<10THENPOKE1370,48:POKE1371,BR+48
  47. 145 IFBR>10THENPOKE1370,49:POKE1371,BR+38
  48. 146 GETA$:IFA$=CHR$(13)THEN151
  49. 147 IFA$<>""THEN146
  50. 148 POKE198,0:BR=(BR+1)AND15:IFBR<10THENPOKE1370,48:POKE1371,BR+48
  51. 149 IFBR>9THENPOKE1370,49:POKE1371,BR+38
  52. 150 GOTO146
  53. 151 POKE254,SP:POKE8211,FR:POKE8225,BR
  54. 152 POKE53272,28:SYS8201:POKE53272,21
  55. 153 POKE53280,1:POKE53281,1
  56. 154 PRINT"[147]A] RE-ENTER TITLES"
  57. 155 PRINT"B] RE-ROLL  TITLES"
  58. 156 PRINT"CHOOSE [A/B]":POKE198,0
  59. 157 GETA$:IFA$=""THEN157
  60. 158 IFA$="B"THEN127
  61. 159 IFA$<>"A"THEN157
  62. 160 POKE53281,6:PRINT"[147]";:POKE53281,1:PRINT"";
  63. 161 SYS8207:POKE53280,1:SYS8198
  64. 162 POKE53269,1:GOTO109
  65. 163 REM
  66. 164 C2=0:C1=C1+1:IFC1<25THENRETURN
  67. 165 C1=24:IFH>39976THENRETURN
  68. 166 SYS59626:A=20-PEEK(H+1000):FORI=1TOA
  69. 167 POKE1983+I,PEEK(H+1000+(2*I)):NEXT:SYS8198
  70. 168 H=H+40:RETURN
  71. 169 REM
  72. 170 C2=0:C1=C1-1:IFC1>=0THENRETURN
  73. 171 C1=0:IFH-40<14736THENRETURN
  74. 172 SYS8195:H=H-40:A=PEEK(H)
  75. 173 FORI=0TO16:POKE1024+I,32:NEXT
  76. 174 FORI=1TO(20-A):POKE1023+I,PEEK(H+(I*2)):NEXT:SYS8198:RETURN
  77. 175 REM
  78. 176 B=H+(C1*40):POKEB,20-C2:IFC2=0THENPOKEB,19:POKEB+2,32:GOTO181
  79. 177 FORI=1TOC2:A=PEEK(1023+(C1*40)+I)
  80. 178 POKEH+(C1*40)+(I*2),A:NEXT
  81. 179 FORI=C2TO16:POKE1024+I+(C1*40),32:NEXT
  82. 180 GOTO163
  83. 181 FORI=0TO16:POKE1024+(C1*40)+I,32:NEXT:GOTO163
  84. 182 SYS8204:POKE53269,0:POKE198,0
  85. 183 PRINT"[147]INPUT/OUTPUT"
  86. 184 PRINT"------------"
  87. 185 PRINT:PRINT"1] LOAD TITLE DATA"
  88. 186 PRINT:PRINT"2] SAVE TITLE DATA"
  89. 187 PRINT:PRINT"3] CREATE A DEMO TITLE"
  90. 188 PRINT:PRINT"_] ABORT I/O AND RETURN TO EDIT SCREEN"
  91. 189 PRINT:PRINT:PRINT"MAKE YOUR CHOICE PLEASE"
  92. 190 GETA$:IFA$=""THEN190
  93. 191 IFA$="_"ANDH2=26THENPOKE198,0:GOTO231
  94. 192 IFA$="_"THENPOKE53269,1:PRINT"[147]";:SYS8198:SYS8207:POKE198,0:GOTO109
  95. 193 IFA$="1"THEN215
  96. 194 IFA$="2"THEN197
  97. 195 IFA$="3"THEN235
  98. 196 GOTO190
  99. 197 POKE198,0:IFDV>7THENDV=0
  100. 198 PRINT"[147]SAVE TITLE DATA"
  101. 199 PRINT"---------------"
  102. 200 H1=H+(C1*40):H2=INT(H1/256):H1=H1-(H2*256)
  103. 201 GOSUB251
  104. 202 GOSUB266
  105. 203 PRINT
  106. 204 PRINT"SET YOUR ";:IFDV=1THENPRINT"[144]TAPE"
  107. 205 IFDV<>1THENPRINT"[144]DISK DRIVE"
  108. 206 PRINT:PRINT"AND PRESS 'RETURN'"
  109. 207 PRINT:PRINT"TO SAVE YOUR TITLE DATA"
  110. 208 PRINT:PRINT"WITH THE NAME - [144]";FL$
  111. 209 POKE198,0
  112. 210 GETA$:IFA$<>CHR$(13)THEN210
  113. 211 POKE198,0:SYS57812FL$,DV,1
  114. 212 POKE251,0:POKE252,57
  115. 213 POKE780,251:POKE781,H1:POKE782,H2:SYS65496
  116. 214 GOTO183
  117. 215 POKE198,0:IFDV>7THENDV=0
  118. 216 PRINT"[147]LOAD TITLE DATA"
  119. 217 PRINT"---------------"
  120. 218 GOSUB251
  121. 219 GOSUB266
  122. 220 PRINT
  123. 221 PRINT"SET YOUR ";:IFDV=1THENPRINT"[144]TAPE"
  124. 222 IFDV<>1THENPRINT"[144]DISK DRIVE"
  125. 223 PRINT:PRINT"AND PRESS 'RETURN'"
  126. 224 PRINT:PRINT"TO LOAD YOUR TITLE DATA"
  127. 225 PRINT:PRINT"WITH THE NAME - [144]";FL$
  128. 226 POKE198,0
  129. 227 GETA$:IFA$<>CHR$(13)THEN227
  130. 228 POKE198,0:SYS8192
  131. 229 LOADFL$,DV,1
  132. 230 H2=26:GOTO183
  133. 231 PRINT"[147]":SYS8198:H=14736:FORI=0TO24
  134. 232 H1=20-PEEK(H+(I*40)):FORJ=1TOH1
  135. 233 POKE1023+(I*40)+J,PEEK(H+(I*40)+(J*2)):NEXTJ,I
  136. 234 POKE53269,1:C1=0:C2=0:GOTO109
  137. 235 PRINT"[147][129]CREATE DEMO"
  138. 236 PRINT"-----------"
  139. 237 IFDV>7THENDV=0
  140. 238 GOSUB251:GOSUB266
  141. 239 H1=H+(C1*40):H2=INT(H1/256):H1=H1-(H2*256):POKE8709,H1:POKE8713,H2
  142. 240 PRINT:PRINT"[129]SET YOUR ";:IFDV=1THENPRINT"[144]TAPE"
  143. 241 IFDV<>1THENPRINT"[144]DISK DRIVE"
  144. 242 PRINT:PRINT"[129]AND PRESS 'RETURN'"
  145. 243 PRINT:PRINT"TO SAVE YOUR TITLE DEMO"
  146. 244 PRINT:PRINT"WITH THE NAME - [144]";FL$
  147. 245 POKE198,0:POKE8734,H2
  148. 246 GETA$:IFA$<>CHR$(13)THEN246
  149. 247 POKE198,0:SYS57812FL$,DV,0
  150. 248 POKE251,1:POKE252,31:POKE780,251:POKE781,H1:POKE782,H2:POKE12287,SP
  151. 249 SYS65496:POKE8709,0:POKE8713,56:POKE8734,56
  152. 250 GOTO183
  153. 251 PRINT"WHICH DEVICE ? ";
  154. 252 IFDV=1THENPRINT"[144]TAPE"
  155. 253 IFDV=0THENPRINT"[144]DISK"
  156. 254 GETA$:IFA$=CHR$(13)THEN257
  157. 255 IFA$<>""THEN254
  158. 256 POKE198,0:DV=(DV+1)AND1:GOTO251
  159. 257 IFDV=1THEN265
  160. 258 PRINT"WHICH DEVICE NUMBER ? ";:POKE198,0
  161. 259 IFDN=0THENPRINT"[144]8"
  162. 260 IFDN=1THENPRINT"[144]9"
  163. 261 GETA$:IFA$=CHR$(13)THEN264
  164. 262 IFA$<>""THEN261
  165. 263 POKE198,0:DN=(DN+1)AND1:GOTO258
  166. 264 DV=8+DN
  167. 265 RETURN
  168. 266 FL$="":POKE53248,160:POKE53249,114:POKE53269,1
  169. 267 PRINT"                                     "
  170. 268 PRINT"ENTER FILENAME - [144]";FL$:POKE53248,160+(LEN(FL$)*8)
  171. 269 ER=1
  172. 270 GETA$:IFA$=""THEN270
  173. 271 IF(A$>="A")AND(A$<="Z")THENER=0
  174. 272 IF(A$>="0")AND(A$<="Z")THENER=0
  175. 273 IFA$=CHR$(13)THEN281
  176. 274 IFA$=CHR$(20)THEN278
  177. 275 IFERTHEN270
  178. 276 IFLEN(FL$)<11THENFL$=FL$+A$:GOTO267
  179. 277 IFLEN(FL$)=11THEN269
  180. 278 IFLEN(FL$)=0THEN269
  181. 279 IFLEN(FL$)=1THENFL$="":GOTO267
  182. 280 FL$=LEFT$(FL$,(LEN(FL$)-1)):GOTO267
  183. 281 IFLEN(FL$)=0THEN269
  184. 282 POKE53269,0:RETURN
  185.