home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / pro-titler (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  13KB  |  423 lines
  1. 2 goto36
  2. 4 g$="":poke198,0:u=53280
  3. 6 geta$:print" "+chr$(157);
  4. 8 ifa$=""then6
  5. 10 ifa$=chr$(13)thenprintchr$(32):return
  6. 12 if(a$=chr$(20)andlen(g$))theng$=left$(g$,len(g$)-1):goto32
  7. 14 iflen(g$)>=ln%thent%=peek(u):pokeu,1:pokeu,t%:goto6
  8. 16 if((ty%and2)=2)and(a$>="[193]")and(a$<="[218]")then30
  9. 18 if((ty%and2)=2)and(a$>="a")and(a$<="z")then30
  10. 20 if((ty%and4)=4)and(a$>="0")and(a$<="9")then30
  11. 22 if((ty%and8)=8)and(a$>=chr$(32))and(a$<=chr$(127))then30
  12. 24 ifa$=chr$(32)then30
  13. 28 goto6
  14. 30 g$=g$+a$
  15. 32 printa$;:ifa$=chr$(34)thenpoke212,0
  16. 34 goto6
  17. 36 poke53281,0:poke53280,0:print"[147][154]"
  18. 38 poke56,63:poke55,253:clr
  19. 40 v=13*16*256:open 2,0
  20. 42 pokev+17,peek(v+17)and239
  21. 44 fort=1to12:print"[207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208]";
  22. 46 print"[204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186]";:next
  23. 48 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  24. 50 print"[145][180] [158]video pro-titler[154] [167]"
  25. 52 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  26. 54 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  27. 56 print"[145][165]     copyright 1988 by   [154] [167]"
  28. 58 print"";
  29. 60 fort=1to10
  30. 62 print"    [157][157][157][157]";
  31. 64 next
  32. 66 pokev+17,(peek(v+17)and239)or16
  33. 68 print""
  34. 70 print"[165] john allen and bill wind[154][160][167]";
  35. 72 print"[165]                       [160][160][160][167]";
  36. 74 dim mt%(210),tm%(62),nb%(62),co$(7)
  37. 76 fort=0to210:readmt%(t):next
  38. 78 fort=0to62:readtm%(t):next
  39. 80 fort=0to62:readnb%(t):next
  40. 82 fort=0to7:readco$(t):next
  41. 84 poke147,0:sys57812"nofrills",8,1:sys62631
  42. 86 fi=16384:la=fi:ma=32768:cu=la:nx=ca:cn=1
  43. 88 cf$="nofrills":tc=14:bc=0:sc=0:mc=7
  44. 90 sp$="                                        "
  45. 92 fort=828to887:readx:poket,x:next
  46. 94 fort=49152to49673:readx:poket,x:next
  47. 96 data32,65,0,0,0,66,0,0,0
  48. 98 data67,0,0,0,68,0,0,0,69,0,0,0
  49. 100 data70,0,0,0,71,0,0,0,33,0,34,32
  50. 102 data72,0,0,0,73,0,49,0,74,0,0,0
  51. 104 data75,0,0,0,76,0,0,0,77,0,0,0
  52. 106 data78,0,0,0,79,0,0,0,80,0,0,0
  53. 108 data81,0,0,0,82,0,0,0,83,0,0,0
  54. 110 data84,0,0,0,85,0,0,0,86,0,0,0
  55. 112 data87,0,0,0,88,0,0,0,89,0,0,0
  56. 114 data90,0,0,0,48,0,0,0,50,0,0,0
  57. 116 data51,0,0,0,52,0,0,0,53,0,0,0
  58. 118 data54,0,0,0,55,0,0,0,56,0,0,0
  59. 120 data57,0,0,0,64,0,0,0,36,0,0,0
  60. 122 data37,0,0,0,38,0,0,0,39,0,40,0
  61. 124 data41,0,44,0,42,0,0,0,43,0,61,0
  62. 126 data45,0,0,0,46,0,47,0,58,0,59,0
  63. 128 data91,0,93,0,46,0,0,0,92,0
  64. 130 data63,0,0,0,62,0,60,0,35,0,0,0
  65. 132 data0,29,31,207,149,153,157,161
  66. 134 data163,165,169,173,167,177,181
  67. 136 data183,109,39,113,117,121,125
  68. 138 data129,133,137,141,185,187,205
  69. 140 data175,203,199,145,1,5,9,13,17
  70. 142 data21,25,33,37,41,45,49,53,57
  71. 144 data61,65,69,73,77,81,85,89,93
  72. 146 data97,101,105,189,197,191,31
  73. 148 data1,2,2,4,4,4,4,2,2,2
  74. 150 data4,2,2,4,2,2,4,2,4,4
  75. 152 data4,4,4,4,4,4,2,2,2,2
  76. 154 data2,4,4,4,4,4,4,4,4,4
  77. 156 data4,2,4,4,4,4,4,4,4,4
  78. 158 data4,4,4,4,4,4,4,4,4,2
  79. 160 data2,2,2
  80. 162 data"end of sequence","","","clear screen"
  81. 164 data"enter scroll mode","enter fixed mode","pause for","go to line"
  82. 166 data169,2,162,8,160,97,32,186,255,169,5,162
  83. 168 data52,160,3,32,189,255,169,254,133,251
  84. 170 data169,63,133,252,169,251,162,255,160,127
  85. 172 data32,216,255,96
  86. 174 data169,2,162,8,160,97
  87. 176 data32,186,255,169,5,162,52,160,3,32
  88. 178 data189,255,169,0,32,213,255,96
  89. 180 print"[147][152][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  90. 182 print"[221]  [158]v[154]ideo [158]p[154]ro-[158]t[154]itler  [152][221]"
  91. 184 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  92. 186 print"[158]press"
  93. 188 print"1  [154]add to current sequence"
  94. 190 print"[158]2  [154]edit current sequence"
  95. 192 print"[158]3  [154]clear current sequence"
  96. 194 print"[158]4  [154]load a sequence"
  97. 196 print"[158]5  [154]save a sequence"
  98. 198 print"[158]6  [154]view current sequence"
  99. 200 print"[158]7  [154]load a font"
  100. 202 print"[158]8  [154]change screen colors"
  101. 204 print"[158]9  [154]exit to loadstar"
  102. 206 print"[152][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  103. 208 print"[154]current font: "+cf$
  104. 210 print"[154]memory free:";max-la;"[154] bytes"
  105. 212 print "memory used:";la-fi;"[154] bytes"
  106. 214 print "[145][145][145][145][145][145][145][158]-->[154] ";
  107. 216 gosub 626
  108. 218 ifg$<"1"org$>"9"thenprint"[157]";:goto216
  109. 220 g=val(g$)
  110. 222 onggoto224,226,464,472,482,500,568,578,606
  111. 224 cu=la:g$="[158]add to current sequence[154]":goto228
  112. 226 cu=fi:g$="[158]edit current sequence[154]"
  113. 228 print"[147]"+g$
  114. 230 print"ctrl-c: clear screen":print"ctrl-g: goto line [210][210]"
  115. 232 print"ctrl-p: pause for [210][210] seconds"
  116. 234 print"ctrl-s: enter scroll mode":print"ctrl-f: enter fixed mode"
  117. 236 print"ctrl-b: [210][210] blank lines":print"ctrl-l: enter a line of text"
  118. 238 print"ctrl-1/2/3: left/center/right justify"
  119. 240 print"ctrl-u: underline the above line"
  120. 242 print"ctrl-x: return to main menu"
  121. 244 print"return: go to next command"
  122. 246 print"inst/del: insert or delete a command"
  123. 248 print"[152][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][154]"
  124. 250 print"[152] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] [154]"
  125. 252 gosub660
  126. 254 poke1983,32:getg$:ifg$=""then254
  127. 256 poke1983,42:poke56255,14
  128. 258 ifg$<>""then262
  129. 260 nn=1:gosub706:pokecu,4:goto252
  130. 262 ifg$<>""then 266
  131. 264 nn=1:gosub706:pokecu,5:goto252
  132. 266 ifg$<>""then270
  133. 268 nn=1:gosub706:pokecu,3:goto252
  134. 270 ifg$<>""then288
  135. 272 print"goto what line (1-23)? ";:ty%=4:ln%=2:gosub4
  136. 274 print"";
  137. 276 ifval(g$)>23orval(g$)<1thenprintsp$;"[145]";:goto272
  138. 278 nn=3:gosub706
  139. 280 pokecu,7:g=(val(g$)-1)*40
  140. 282 pokecu+1,(g/256-int(g/256))*256
  141. 284 pokecu+2,g/256
  142. 286 printsp$;"[145]";:goto252
  143. 288 ifg$<>""then308
  144. 290 print"how many seconds (.1-60)? ";:ty%=8:ln%=2:gosub4:sd=val(g$)
  145. 292 print"";
  146. 294 ifsd<0orsd>60thenprintsp$;"[145]";:goto290
  147. 296 gosub730
  148. 298 nn=3:gosub706
  149. 300 pokecu,6:g=val(g$)*120
  150. 302 pokecu+1,(g/256-int(g/256))*256
  151. 304 pokecu+2,g/256
  152. 306 printsp$;"[145]";:goto252
  153. 308 ifg$<>""then322
  154. 310 print"how many blank lines? ";:ty%=4:ln%=3:gosub4
  155. 312 print"";
  156. 314 ifval(g$)<1thenprintsp$;"[145]";:goto310
  157. 316 nn=val(g$):gosub706
  158. 318 fort=1toval(g$):pokecu+t-1,1:next
  159. 320 printsp$;"[145]";:goto252
  160. 322 ifg$=""then180
  161. 324 ifg$<>chr$(13)then330
  162. 326 ifcu=lathen252
  163. 328 cu=nxt:goto252
  164. 330 ifg$<>"[148]"then338
  165. 332 fort=latocustep-1
  166. 334 poket+cn,peek(t):next
  167. 336 la=la+cn:goto252
  168. 338 ifg$<>chr$(20)then346
  169. 340 for t=cu to la-cn
  170. 342 poke t,peek(t+cn):next
  171. 344 la=la-cn:goto 252
  172. 346 ifg$<>""then376
  173. 348 print"enter line":ty%=8:ln%=39:gosub4:ifg$=""theng$=" "
  174. 350 print"           ":printsp$
  175. 352 nn=82:gosub706:poke cu,2:poke cu+41,2:n=1:m=1
  176. 354 ca=asc(mid$(g$,n,1))-32:ifca>62thenca=0
  177. 356 pokecu+m,tm%(ca):pokecu+m+41,tm%(ca)
  178. 358 ifnb%(ca)>1thenpokecu+m+41,tm%(ca)+1
  179. 360 ifnb%(ca)=4thenpokecu+m+1,tm%(ca)+2:pokecu+m+42,tm%(ca)+3
  180. 362 n=n+1:m=m+1:ifnb%(ca)>2thenm=m+1
  181. 364 ifn>len(g$)then370
  182. 366 ifm<40then354
  183. 368 goto252
  184. 370 pokecu+m,0:pokecu+m+41,0
  185. 372 m=m+1:ifm<41then370
  186. 374 goto252
  187. 376 ifg$<>"[144]"then398
  188. 378 ifpeek(cu)<>2then252
  189. 380 x$="":fort=1to40:x$=x$+chr$(