home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / pro-titler (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  338 lines
  1. 1 goto17
  2. 2 g$="":poke198,0:u=53280
  3. 3 geta$:print"[164]"+chr$(157);
  4. 4 ifa$=""then3
  5. 5 ifa$=chr$(13)thenprintchr$(32):return
  6. 6 if(a$=chr$(20)andlen(g$))theng$=left$(g$,len(g$)-1):goto15
  7. 7 iflen(g$)>=ln%thent%=peek(u):pokeu,1:pokeu,t%:goto3
  8. 8 if((ty%and2)=2)and(a$>="[193]")and(a$<"[218]")then14
  9. 9 if((ty%and2)=2)and(a$>="a")and(a$<="z")then14
  10. 10 if((ty%and4)=4)and(a$>="0")and(a$<="9")then14
  11. 11 if((ty%and8)=8)and(a$>=chr$(32))and(a$<=chr$(127))then14
  12. 12 ifa$=chr$(32)then14
  13. 13 goto3
  14. 14 g$=g$+a$
  15. 15 printa$;:ifa$=chr$(34)thenpoke212,0
  16. 16 goto3
  17. 17 poke53281,.:poke53280,.:print"[147][154]"
  18. 18 poke56,63:poke55,253:clr
  19. 19 v=13*16*256:open2,0
  20. 20 pokev+17,peek(v+17)and239
  21. 21 fort=1to6: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]"
  22. 22 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]":next
  23. 23 print"[154][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  24. 24 print"[180] video pro-titler[154] [167]"
  25. 25 print"[180] [155]video pro-titler[154] [167]"
  26. 26 print"[180] [152]video pro-titler[154] [167]"
  27. 27 print"[180] [151]video pro-titler[154] [167]"
  28. 30 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  29. 31 gosub61000
  30. 32 pokev+17,(peek(v+17)and239)or16
  31. 34 fori=217to242:pokei,peek(i)or128:next
  32. 36 dim mt%(210),tm%(62),nb%(62),co$(7)
  33. 37 poke147,.:sys57812"pro-titler.ml",8,1:sys62631
  34. 38 a=49152
  35. 39 fort=0to210:mt%(t)=peek(a):a=a+1:next
  36. 40 fort=0to62:tm%(t)=peek(a):a=a+1:next
  37. 41 fort=0to62:nb%(t)=peek(a):a=a+1:next
  38. 42 fort=828to887:poket,peek(a):a=a+1:next
  39. 43 fort=49152to49673:poket,peek(a):a=a+1:next
  40. 44 fort=0to7:readco$(t):next
  41. 45 poke147,0:sys57812"nofrills",8,1:sys62631
  42. 46 fi=16384:la=fi:ma=32768:cu=la:nx=ca:cn=1
  43. 47 cf$="nofrills":tc=14:bc=0:sc=0:mc=7
  44. 48 sp$="                                        "
  45. 49 data"end of sequence","","","clear screen"
  46. 50 data"enter scroll mode","enter fixed mode","pause for","go to line"
  47. 51 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]"
  48. 52 print"[221]  [158]v[154]ideo [158]p[154]ro-[158]t[154]itler  [152][221]"
  49. 53 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  50. 54 print"[158]press"
  51. 55 print"1  [154]add to current sequence"
  52. 56 print"[158]2  [154]edit current sequence"
  53. 57 print"[158]3  [154]clear current sequence"
  54. 58 print"[158]4  [154]load a sequence"
  55. 59 print"[158]5  [154]save a sequence"
  56. 60 print"[158]6  [154]view current sequence"
  57. 61 print"[158]7  [154]load a font"
  58. 62 print"[158]8  [154]change screen colors"
  59. 63 print"[158]9  [154]exit to loadstar"
  60. 64 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]"
  61. 65 print"[154]current font: "+cf$
  62. 66 print"[154]memory free:";max-la;"[154] bytes"
  63. 67 print "memory used:";la-fi;"[154] bytes"
  64. 68 print "[145][145][145][145][145][145][145][158]-->[154] ";
  65. 69 gosub 274
  66. 70 ifg$<"1"org$>"9"thenprint"[157]";:goto69
  67. 71 g=val(g$)
  68. 72 onggoto73,74,193,197,202,211,245,250,264
  69. 73 cu=la:g$="[158]add to current sequence[154]":goto75
  70. 74 cu=fi:g$="[158]edit current sequence[154]"
  71. 75 print"[147]"+g$
  72. 76 print"ctrl-c: clear screen":print"ctrl-g: goto line [210][210]"
  73. 77 print"ctrl-p: pause for [210][210] seconds"
  74. 78 print"ctrl-s: enter scroll mode":print"ctrl-f: enter fixed mode"
  75. 79 print"ctrl-b: [210][210] blank lines":print"ctrl-l: enter a line of text"
  76. 80 print"ctrl-1/2/3: left/center/right justify"
  77. 81 print"ctrl-u: underline the above line"
  78. 82 print"ctrl-x: return to main menu"
  79. 83 print"return: go to next command"
  80. 84 print"inst/del: insert or delete a command"
  81. 85 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]"
  82. 86 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]"
  83. 87 gosub291
  84. 88 poke1983,32:getg$:ifg$=""then88
  85. 89 poke1983,42:poke56255,14
  86. 90 ifg$<>""then92
  87. 91 nn=1:gosub314:pokecu,4:goto87
  88. 92 ifg$<>""then 94
  89. 93 nn=1:gosub314:pokecu,5:goto87
  90. 94 ifg$<>""then96
  91. 95 nn=1:gosub314:pokecu,3:goto87
  92. 96 ifg$<>""then105
  93. 97 print"goto what line (1-23)? ";:ty%=4:ln%=2:gosub2
  94. 98 print"";
  95. 99 ifval(g$)>23orval(g$)<1thenprintsp$;"[145]";:goto97
  96. 100 nn=3:gosub314
  97. 101 pokecu,7:g=(val(g$)-1)*40
  98. 102 pokecu+1,(g/256-int(g/256))*256
  99. 103 pokecu+2,g/256
  100. 104 printsp$;"[145]";:goto87
  101. 105 ifg$<>""then115
  102. 106 print"how many seconds (.1-60)? ";:ty%=8:ln%=2:gosub2:sd=val(g$)
  103. 107 print"";
  104. 108 ifsd<0orsd>60thenprintsp$;"[145]";:goto106
  105. 109 gosub326
  106. 110 nn=3:gosub314
  107. 111 pokecu,6:g=val(g$)*120
  108. 112 pokecu+1,(g/256-int(g/256))*256
  109. 113 pokecu+2,g/256
  110. 114 printsp$;"[145]";:goto87
  111. 115 ifg$<>""then122
  112. 116 print"how many blank lines? ";:ty%=4:ln%=3:gosub2
  113. 117 print"";
  114. 118 ifval(g$)<1thenprintsp$;"[145]";:goto116
  115. 119 nn=val(g$):gosub314
  116. 120 fort=1toval(g$):pokecu+t-1,1:next
  117. 121 printsp$;"[145]";:goto87
  118. 122 ifg$=""then51
  119. 123 ifg$<>chr$(13)then126
  120. 124 ifcu=lathen87
  121. 125 cu=nxt:goto87
  122. 126 ifg$<>"[148]"then130
  123. 127 fort=latocustep-1
  124. 128 poket+cn,peek(t):next
  125. 129 la=la+cn:goto87
  126. 130 ifg$<>chr$(20)then134
  127. 131 for t=cu to la-cn
  128. 132 poke t,peek(t+cn):next
  129. 133 la=la-cn:goto 87
  130. 134 ifg$<>""then149
  131. 135 print"enter line":ty%=8:ln%=39:gosub2:ifg$=""theng$=" "
  132. 136 print"           ":printsp$
  133. 137 nn=82:gosub314:poke cu,2:poke cu+41,2:n=1:m=1
  134. 138 ca=asc(mid$(g$,n,1))-32:ifca>62thenca=0
  135. 139 pokecu+m,tm%(ca):pokecu+m+41,tm%(ca)
  136. 140 ifnb%(ca)>1thenpokecu+m+41,tm%(ca)+1
  137. 141 ifnb%(ca)=4thenpokecu+m+1,tm%(ca)+2:pokecu+m+42,tm%(ca)+3
  138. 142 n=n+1:m=m+1:ifnb%(ca)>2thenm=m+1
  139. 143 ifn>len(g$)then146
  140. 144 ifm<40then138
  141. 145 goto87
  142. 146 pokecu+m,0:pokecu+m+41,0
  143. 147 m=m+1:ifm<41then146
  144. 148 goto87
  145. 149 ifg$<>"[144]"then160
  146. 150 ifpeek(cu)<>2then87
  147. 151 x$="":fort=1to40:x$=x$+chr$(peek(cu+t)):next
  148. 152 t=0
  149. 153 ifleft$(x$,1)=chr$(0)thenx$=right$(x$,39)+chr$(0):t=t+1:ift<41then153
  150. 154 fort=1to40:pokecu+t,asc(mid$(x$,t,1)):next
  151. 155 x$="":fort=1to40:x$=x$+chr$(peek(cu+t+41)):next
  152. 156 t=0
  153. 157 ifleft$(x$,1)=chr$(0)thenx$=right$(x$,39)+chr$(0):t=t+1:ift<41then157
  154. 158 fort=1to40:pokecu+t+41,asc(mid$(x$,t,1)):next
  155. 159 goto87
  156. 160 ifg$<>""then172
  157. 161 ifpeek(cu)<>2then87
  158. 162 t=40
  159. 163 ifpeek(cu+t)=0thent=t-1:ift>1then163
  160. 164 x=int((40-t)/2):ifx=0then87
  161. 165 x$="":fort=1to40:x$=x$+chr$(peek(cu+t)):next
  162. 166 fort=1tox:x$=chr$(0)+x$:next:x$=left$(x$,40)
  163. 167 fort=1to40:pokecu+t,asc(mid$(x$,t,1)):next
  164. 168 x$="":fort=1to40:x$=x$+chr$(peek(cu+t+41)):next
  165. 169 fort=1tox:x$=chr$(0)+x$:next:x$=left$(x$,40)
  166. 170 fort=1to40:pokecu+t+41,asc(mid$(x$,t,1)):next
  167. 171 goto87
  168. 172 ifg$<>""then183
  169. 173 ifpeek(cu)<>2then87
  170. 174 x$="":fort=1to40:x$=x$+chr$(peek(cu+t)):next
  171. 175 t=0
  172. 176 ifright$(x$,1)=chr$(0)thenx$=chr$(0)+left$(x$,39):t=t+1:ift<41then176
  173. 177 fort=1to40:pokecu+t,asc(mid$(x$,t,1)):next
  174. 178 x$="":fort=1to40:x$=x$+chr$(peek(cu+t+41)):next
  175. 179 t=0
  176. 180 ifright$(x$,1)=chr$(0)thenx$=chr$(0)+left$(x$,39):t=t+1:ift<41then180
  177. 181 fort=1to40:pokecu+t+41,asc(mid$(x$,t,1)):next
  178. 182 goto87
  179. 183 ifg$<>""then88
  180. 184 ifpeek(cu-82)<>2then87
  181. 185 nn=41:gosub314
  182. 186 s=1:fort=1to40
  183. 187 ifpeek(cu-82+t)=0then191
  184. 188 ifs=0then pokecu+t,173
  185. 189 ifs=1thenpokecu+t,193:s=0
  186. 190 goto192
  187. 191 pokecu+t,32:s=1
  188. 192 next:pokecu,2:goto87
  189. 193 print"[147][158]clear current sequence[154]"
  190. 194 print"are you sure? (y/n) ";:gosub274
  191. 195 ifg$="y"thenla=fi
  192. 196 goto51
  193. 197 print"[147][158]load a sequence[154]"
  194. 198 gosub279
  195. 19