home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07b.d64 / mutate! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  14.6 KB  |  417 lines
  1. 1 poke53265,11:print"[147]":goto158
  2. 2 fori=1to(950*ts):next:return
  3. 3 pokepo,11:print"[147]            [153]#$%()*,/;*,[219][220][221]"
  4. 4 print"[155][192][192][192][192][192][192][192][192][192][192][192] [255][223][187][188][189][190]?[219][220][146][190]?[221][255][223][146] [155][192][192][192][192][192][192][192][192][192][192][192][192]":return
  5. 5 ifsc=-1thenreturn
  6. 6 ifsc=8thengosub47:return
  7. 7 sc=sc+1:fort=0to11:sc$(sc,t)=" ":next:tr=0:goto11
  8. 8 ifsc=-1thenreturn
  9. 9 ifsc=0thengosub47:return
  10. 10 sc=sc-1
  11. 11 pokeq,20:print:printr$"[158]"sc+1"screens in file"
  12. 12 iftrthenprintr$"[150]translated":return
  13. 13 printr$"[150]not translated":return
  14. 14 pokeq,x+y:print:print"[155][192][146] [158]"m$(y)" [155][191][146][145]":gosub43
  15. 15 print"^[159] "m$(y)" [155]_":ifg$=""theny=y+1:ify>wtheny=v
  16. 16 ifg$="[145]"theny=y-1:ify<vtheny=w
  17. 17 ifg$="[166]"thengosub5
  18. 18 ifg$="[220]"thengosub8
  19. 19 ifg$=chr$(13)theny=y-v+1:return
  20. 20 ifg$="[136]"org$=""thenreturn
  21. 21 goto14
  22. 22 q$="":poke198,0
  23. 23 getg$:print"@[157][146]";:ifg$=""then23
  24. 24 ifg$=chr$(13)thenprint" ":return
  25. 25 if(g$=chr$(20)andlen(q$))thenq$=left$(q$,len(q$)-1):goto31
  26. 26 iflen(q$)=l%then23
  27. 27 if(g$>"/"andg$<";")or(g$>"@"andg$<"[")org$=chr$(32)org$=chr$(160)then30
  28. 28 ifg$="!"org$="&"org$="'"org$="."org$="?"org$="[192]"then30
  29. 29 goto23
  30. 30 q$=q$+g$
  31. 31 printg$;:goto23
  32. 32 b=18:e=24
  33. 33 fori=btoe:gosub34:next:return
  34. 34 poke781,i:sys59903:return
  35. 35 poke781,23-i:sys59903:return
  36. 36 forl=1to50:next:return
  37. 37 open15,dv,15,"i0:":print#15,"r0:"+na$+"="+na$:input#15,er,er$:close15:return
  38. 38 open15,dv,15:input#15,er,er$:close15:return
  39. 39 printr$"   are you sure?":gosub47:x=25
  40. 40 printtab(x)"<y-n>":goto43
  41. 41 gosub64:print
  42. 42 printr$"   [158]<press a key>"
  43. 43 poke198,0
  44. 44 getg$:ifg$=""then44
  45. 45 return
  46. 46 pokez+1,70:pokez+6,249:pokez+24,15:pokez+4,17:pokez+4,16:return
  47. 47 pokez+24,15:pokez+5,45:pokez+6,165:pokez+4,33:pokez+1,6:pokez,5
  48. 48 fori=1to200:next:pokez+4,32:pokez+1,0:pokez,0:return
  49. 49 gosub44:ifg$="[133]"thenbo=bo+1:goto57
  50. 50 ifg$="[137]"thenbo=bo-1:goto57
  51. 51 ifg$="[134]"thenba=ba+1:goto59
  52. 52 ifg$="[138]"thenba=ba-1:goto59
  53. 53 ifg$="[135]"thenco=co+1:goto61
  54. 54 ifg$="[139]"thenco=co-1:goto61
  55. 55 ifg$="_"thenco=1:bo=0:ba=0:return
  56. 56 return
  57. 57 ifbo<0orbo>15thenbo=-15*(bo<0)
  58. 58 pokebr,bo:return
  59. 59 ifba<0orba>15thenba=-15*(ba<0)
  60. 60 pokebk,ba:return
  61. 61 ifco<0orco>15thenco=-15*(co<0)
  62. 62 return
  63. 63 pokeq,y:print:return
  64. 64 b=13:e=4
  65. 65 pokeq,b:print:fori=1toe:printr$em$:next
  66. 66 pokeq,b:print:return
  67. 67 ifsc=-1then69
  68. 68 gosub64:printr$" [150][191]+ [158]adds screens":printr$" [150][191]- [158]deletes screens":return
  69. 69 gosub64:printr$" [158]<crsr> keys select":printr$" <return> executes"
  70. 70 printr$"   <f7> or <stop>":printr$"   exits program":return
  71. 71 gosub64:printr$"    [158]select drive:":printr$"     <8> or <9>":gosub46
  72. 72 gosub43:ifg$="9"thendv=9:return
  73. 73 dv=8:return
  74. 74 y=21:gosub63:print"[150]status: "er": "er$:ifer$<>"ok"thengosub47:goto41
  75. 75 gosub46:goto41
  76. 76 y=21:gosub63:printbl$:b=23:e=24:goto33
  77. 77 b=19:e=24:gosub33:y=19:gosub63:gosub64:printr$"   [158]enter filename"
  78. 78 printtab(24)"to "f$:y=19:gosub63:print"[158]filename: [159]"fi$;:l%=14:q$=fi$:goto23
  79. 79 gosub64:printtab(25)f$:printtab(28-len(q$)/2)"[159]"q$:return
  80. 80 gosub64:printr$"  [158]there is nothing":printtab(24)f$:gosub47:goto42
  81. 81 gosub64:printr$"[158]this clears memory!":goto39
  82. 82 y=2:gosub63:printl1$"[192][192][192][192][[192][192][192][192] [153]miniscreen [155][192][192][192][192]]"
  83. 83 fori=1to12:printtab(17)"^"em$"_":next:printtab(17)"@[192]"l2$"[192]\":y=3:gosub63
  84. 84 print"[158]"tab(9)"line:":gosub63:fori=1to12:printtab(14)i:next:y=21:gosub63
  85. 85 printbl$:return
  86. 86 y=3:gosub63:forl=1to12:printr$em$:next:return
  87. 87 y=7:gosub63:print"[155][[192][192][192][192][192][192][192][192][192][192][192][192]]":print"^[150]current text[155]_"
  88. 88 print"^[150]for screen  [155]_":print"[155]@[192][192][192][192][192][192][192][192][192][192][192][192]\[159]":y=9:gosub63
  89. 89 printtab(11)s+1:return
  90. 90 ifq$=" "or(len(q$)=18andleft$(q$,1)<>" ")thenreturn
  91. 91 gosub76:y=21:gosub63:printtab(10)" [153]justify commands "
  92. 92 print" [153]<l>eft        [153]<r>ight        [153]<c>enter"
  93. 93 print" [153]<lf> crsr    [153]<rt> crsr   [153]<return> done"
  94. 94 pokeq,x+1:print:printr$em$:printr$"[145][150]"q$
  95. 95 gosub43:ifg$="l"then102
  96. 96 ifg$="r"then104
  97. 97 ifg$="c"then106
  98. 98 ifg$=""then107
  99. 99 ifg$="[157]"then109
  100. 100 ifg$=chr$(13)thenreturn
  101. 101 goto95
  102. 102 fori=1tolen(q$):z$=left$(q$,1):ifz$=" "thenz$="":q$=right$(q$,len(q$)-1)
  103. 103 next:return
  104. 104 fori=1tolen(q$):z$=right$(q$,1):ifz$=" "thenz$="":q$=left$(q$,len(q$)-1)
  105. 105 next:q$=right$(em$+q$,18):return
  106. 106 gosub102:q$=left$(em$,(len(em$)-len(q$)-2)/2)+q$:return
  107. 107 iflen(q$)<18thenq$=" "+q$
  108. 108 goto94
  109. 109 ifleft$(q$,1)=" "thenq$=right$(q$,len(q$)-1)
  110. 110 goto94
  111. 111 pokeq,x:print:printtab(24)"[158]"m$(y+v-1):return
  112. 112 y=3:gosub63:forl=0to11:printr$"[159]"sc$(s,l):next:return
  113. 113 gosub63:printtab(19)"[158]collecting garbage":printtab(20)by$:fr=fre(0):return
  114. 114 oncgoto115,116,117,118,119,120,121
  115. 115 print"";:fori=1to38:printw$;:goto123
  116. 116 print""tab(38);:fori=1to38:printw$"[157][157]";:goto123
  117. 117 fori=0to23:gosub34:gosub36:goto123
  118. 118 fori=23to0step-1:gosub34:gosub36:goto123
  119. 119 fori=1to19:print""tab(i)w$;:print""tab(38-i)w$"[157][157]";:goto123
  120. 120 fori=0to12:gosub34:gosub35:gosub36:goto123
  121. 121 fori=0to12:gosub34:gosub35
  122. 122 print""tab(1+i)w$;:print""tab(38-i)w$"[157][157]";
  123. 123 next:fori=1to250:next:return
  124. 124 forb=0to8:fore=0to11:ve$(b,e)="":next:next:tr=0:return
  125. 125 print"  "ve$(s,t)"":return
  126. 126 printr$" [158]reading font index":printr$"     from disk!":printr$"  "by$
  127. 127 na$="mutate!index":dv=8:gosub37:ifer=63then129
  128. 128 return
  129. 129 fori=0to29:fo$(i)="":mu$(i)="":next:lm=0:open2,dv,2,na$+",s,r":input#2,lm
  130. 130 lm=lm-1:fori=0tolm:input#2,fo$(i):next:close2:x=lm:gosub38
  131. 131 fori=0tox:mu$(i)=mid$(fo$(i)+em$,3,14):next:lm=x+7
  132. 132 fori=x+1tolm:mu$(i)=left$(em$,14):next:return
  133. 133 printr$"  [150]no font index on":printr$"     this disk!":gosub47:goto42
  134. 134 gosub64:gosub126:ifer$<>"ok"thengosub64:goto133
  135. 135 gosub46:return
  136. 136 b=4:e=8:gosub65:y=6:gosub63:gosub126:ifer$<>"ok"thengosub65:goto133
  137. 137 gosub65:y=7:gosub113:goto46
  138. 138 pokepo,11:pokea,128:print"[147]"len(fo$)tab(6)fo$:poke679,bo:poke680,ba
  139. 139 poke681,co:return
  140. 140 open3,3,3:print"";:input#3,fo$:x=val(left$(fo$,4)):fo$=mid$(fo$,6,x)
  141. 141 bo=peek(679):ba=peek(680):co=peek(681):pokea,192:return
  142. 142 gosub3:print"[155][192][192][192][192][192][192][192][192][192][192][192][192] video titler [155][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  143. 143 print"[155][[192][192][192][192] [153]main [155][192][192][192][192]] [[192][192] [150]copyright 1992 [155][192][192]]"
  144. 144 print"^ [159]"m$(0)" [155]_ ^[153]compute publications[155]_"
  145. 145 print"^ [159]"m$(1)" [155]_ ^[153] international ltd. [155]_"
  146. 146 print"^ [159]"m$(2)" [155]_ ^[153]all rights reserved.[155]_"
  147. 147 print"^ [159]"m$(3)" [155]_ ^[153]author: gary noakes [155]_":print"^ [159]"m$(4)" [155]_ @"l3$"\"
  148. 148 print"^ [159]"m$(5)" [155]_ [[192][192][192][192][192][192][192] [153]font [155][192][192][192][192][192][192][192]]":print"@"l1$"[192]\ ^"em$"_"
  149. 149 print"[[192][192][192] [153]design [155][192][192][192]] ^"em$"_":print"^ [159]"m$(6)" [155]_ @"l3$"\"
  150. 150 print"^ [159]"m$(7)" [155]_ [[192][192][192][192][192][192] [150]prompt [155][192][192][192][192][192][192]]"
  151. 151 print"^ [159]"m$(8)" [155]_ ^"em$"_":print"^ [159]"m$(9)" [155]_ ^"em$"_"
  152. 152 print"^ [159]"m$(10)" [155]_ ^"em$"_":print"^ [159]"m$(11)" [155]_ ^"em$"_"
  153. 153 print"@"l1$"[192]\ @"l3$"\":print"[[192][192][192][192][192][192][192][192][192][192] [153]current status [155][192][192][192][192][192][192][192][192][192][192][192]]"
  154. 154 print"^        [159]filename:[155]"em$"_":print"^    [158]screen count:[155]"em$"_"
  155. 155 print"^   [150]text to video:[155]"em$"_":print"^        fontname:[155]"em$"_"
  156. 156 print"@"l2$l2$"[192]\":y=9:gosub63:printr$sa$:y=19:gosub63:printr$"[159]"fi$
  157. 157 gosub11:printr$""fo$:pokepo,27:return
  158. 158 bl$="[155][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][192]":fo$="mutate!":co=1
  159. 159 l1$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192]":l2$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":l3$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  160. 160 w$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157]"
  161. 161 w$=w$+" [157] [145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":f1$="[150]f1 [159]& [150]f2[159]-border    ":br=53280
  162. 162 f3$="[150]f3 [159]& [150]f4[159]-background":f5$="[150]f5 [159]& [150]f6[159]-character ":a=646:q=214:sc=-1
  163. 163 f7$="     [150]f7[159]-main menu ":by$="please stand by!":fl=53272:z=54272
  164. 164 sa$="+,[157][157]9:[145]+,[157][157]9:[146][145][211][179][157][157][211][179][146][145][193][161][157][157][193][161][146][145][205][173][157][157][205][173][146][145][208][176][157][157][208][176][146][145]"
  165. 165 sa$=sa$+"[204][172][157][157][204][172][146][145][197][165][157][157][197][165][145]+,[157][157]9:[145]+,[157][157]9:[146][145]":po=53265:bk=53281
  166. 166 em$="                    ":r$="":fi$="no file"
  167. 167 t$="                   "+em$:m$="[158]              [155]     "+em$
  168. 168 b$=" [153]                        [153]              [155]"
  169. 169 dimer$,f$,fi$,fo$,g$,h$,na$,q$,v$,w$,x$,y$,z$,b,ba,bo,c,d,e,ed,er,fr,i,j,l
  170. 170 diml%,lm,me,s,t,tr,ts,v,w,x,y,fo$(29),m$(25),mu$(36),sc$(8,11),ve$(8,11)
  171. 171 fori=0to25:readm$(i):next:ifcythenreturn
  172. 172 pokepo,11:print"[147]":pokebr,0:pokebk,0:pokefl,12:gosub142
  173. 173 iflm=0thengosub134
  174. 174 ifmethen177
  175. 175 gosub67:me=0:v=0:w=5:x=3-v:y=v:gosub14:ifg$="[136]"org$=""then408
  176. 176 onygoto177,226,264,381,397,408
  177. 177 gosub67:me=1:v=6:w=11:x=11-v:y=v:gosub14:ifg$="[136]"org$=""then408
  178. 178 onygoto179,194,212,219,397,175
  179. 179 ifsc>-1thengosub81:ifg$<>"y"then177
  180. 180 ifsc>-1thengosub138:clr:cy=1:gosub158:cy=0:me=1:gosub140
  181. 181 gosub3:printl1$"[192] type text [155][192]"l1$:gosub82:pokepo,27
  182. 182 y=22:gosub63:print"      number of screens needed:    [157][157][157][153]";
  183. 183 l%=1:gosub22:ifq$=""then172
  184. 184 sc=val(q$)-1:ifsc<0orsc>8then182
  185. 185 x=2:fors=0tosc:gosub87:fort=0to11:gosub76:y=22:gosub63
  186. 186 print"    enter line[153]"t+1"for screen[153]"s+1"of[153]"sc+1:y=17:gosub63
  187. 187 printtab(13)"[158]text: [159]"em$"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:l%=18:gosub22
  188. 188 ifq$=""thenq$=" "
  189. 189 gosub90:sc$(s,t)=q$:x=x+1:y=x:gosub63:printr$em$:printr$"[145][159]"sc$(s,t)
  190. 190 next:gosub86:x=2:next
  191. 191 y=22:gosub63:print"    name of file? "em$"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][153]";
  192. 192 l%=14:gosub22:ifq$=""then191
  193. 193 fi$=q$:goto172
  194. 194 ifsc=-1thenf$="to edit!":gosub80:goto177
  195. 195 gosub3:printl1$"[192] edit text [155][192]"l1$:gosub82:pokepo,27:ed=0
  196. 196 fors=0tosc:gosub87:gosub112
  197. 197 y=22:gosub63:print"        edit this screen? <[153]y-n>       "
  198. 198 gosub43:ifg$="n"then210
  199. 199 ifg$<>"y"then198
  200. 200 gosub63:printtab(8)"line number to edit?    [157][157][157][153]";:l%=2
  201. 201 gosub22:ifq$=""then197
  202. 202 t=val(q$)-1:x=t+2:ed=1:ift<0ort>11then200
  203. 203 y=17:gosub63:print"  [158]current line is: [159]"sc$(s,t)
  204. 204 y=22:gosub63:print"  [153]<e>nter new line     [153]<j>ustify line  "
  205. 205 gosub43:ifg$="j"thenq$=sc$(s,t):goto209
  206. 206 ifg$<>"e"then204
  207. 207 gosub76:y=18:gosub63
  208. 208 print"   [158]enter new line: [159]";:l%=18:gosub22:ifq$=""thenq$=" "
  209. 209 gosub90:gosub76:sc$(s,t)=q$:gosub86:b=18:e=19:gosub33:gosub112:goto197
  210. 210 gosub86:next:ifedthengosub124:y=8:gosub113
  211. 211 goto172
  212. 212 ifsc>-1thengosub81:ifg$<>"y"then177
  213. 213 ifsc>-1thengosub138:clr:cy=1:gosub158:cy=0:me=1:gosub140:gosub142
  214. 214 f$="load":fi$="":gosub77:ifq$=""thenfi$="no file":gosub143:goto173
  215. 215 na$="t!"+q$:dv=peek(251):gosub37:ifer<>63then225
  216. 216 f$="[158]loading":gosub79:open2,dv,2,na$+",s,r":input#2,sc:ifsc>8thensc=8
  217. 217 fors=0tosc:fort=0to11:input#2,sc$(s,t):next:next:close2:gosub38
  218. 218 gosub64:fi$=mid$(na$,3,14):goto225
  219. 219 ifsc=-1thenf$="to save!":gosub80:goto177
  220. 220 f$="save":gosub77:ifq$=""thengosub143:goto173
  221. 221 na$="t!"+q$:dv=peek(251):gosub37:ifer<>62then225
  222. 222 f$="[158]saving":gosub79:open2,dv,2,na$+",s,w":print#2,sc:fors=0tosc
  223. 223 fort=0to11:print#2,chr$(34)sc$(s,t):next:next:close2
  224. 224 gosub38:fi$=mid$(na$,3,14)
  225. 225 gosub74:gosub143:goto173
  226. 226 iflm=0thengosub134:iflm=0then175
  227. 227 gosub3
  228. 228 b=0:e=7:print"[155][192][192][192][192][192][192][192][192][192][192][192][192] select  font "l1$
  229. 229 print"[[192][192][192] [153]fonts [155][192][192][192][192]] [[192][192][192][192][192] [153]commands [155][192][192][192][192][192]]"
  230. 230 print"[192][146]"spc(14)"[191][146] ^[150]crsr <up>[159]-menu up   [155]_"
  231. 231 print"^"spc(14)"_ ^[150]crsr <dn>[159]-menu down [155]_"
  232. 232 print"^"spc(14)"_ ^ [150]<return>[159]-selects   [155]_"
  233. 233 print"^"spc(14)"_ ^    [150]<clr>[159]-new index [155]_"
  234. 234 print"^"spc(14)"_ ^  "f1$"[155]_":print"^"spc(14)"_ ^  "f3$"[155]_"
  235. 235 print"^"spc(14)"_ ^  "f5$"[155]_":print"^"spc(14)"_ ^  "f7$"[155]_"
  236. 236 print"@"l1$"[192]\ @"l3$"\"
  237. 237 y=3:gosub63:print"[158]":fori=btoe:print""mu$(i)"[159]":next:ifl=1then250
  238. 238 y=13:gosub63:printtab(9)"[158]available characters:":printbl$
  239. 239 poke646,co:y=15:gosub63
  240. 240 print" [193][161][157][157][193][161][146][145][194][162][157][157][194][162][146][145][195][163][157][157][195][163][146][145][196][164][157][157][196][164][146][145][197][165][157][157][197][165][146][145][198][166][157][157][198][166][146][145]";
  241. 241 print"[199][167][157][157][199][167][146][145][200][168][157][157][200][168][146][145][201][169][157][157][201][169][146][145][202][170][157][157][202][170][146][145][203][171][157][157][203][171][146][145][204][172][157][157][204][172][146][145]";
  242. 242 print"[205][173][157][157][205][173][146][145][206][174][157][157][206][174][146][145][207][175][157][157][207][175][146][145][208][176][157][157][208][176][146][145][209][177][157][157][209][177][146][145][210][178][157][157][210][178][146][145]":print
  243. 243 print" [211][179][157][157][211][179][146][145][212][180][157][157][212][180][146][145][213][181][157][157][213][181][146][145][214][182][157][157][214][182][146][145][215][183][157][157][215][183][146][145][216][184][157][157][216][184][146][145]";
  244. 244 print"[217][185][157][157][217][185][146][145][218][186][157][157][218][186][146][145]  [157][157]  [145];<[157][157]=>[145]34[157][157]56[145]78[157][157]9:[145]+,[157][157]-.[145]";
  245. 245 print"'([157][157])*[145]ab[157][157]cd[145]ef[157][157]gh[145]ij[157][157]kl[145]mn[157][157]op[145]":print
  246. 246 print" qr[157][157]st[145]uv[157][157]wx[145]yz[157][157][\[145]]^[157][157]_![145]#$[157][157]%&[145][187][188][157][157][189][190][145]/0[157][157]12[145]";
  247. 247 print"  [157][157][160][160][145]+,[157][157]9:[146][145]":print:printbl$
  248. 248 i=23:gosub34:y=22:gosub63:printtab(14-len(fo$)/2)"fontname: "fo$""
  249. 249 pokepo,27:l=0:pokebr,bo:pokebk,ba
  250. 250 gosub49:ifg$="[135]"org$="[139]"org$="_"then239
  251. 251 ifg$="[136]"org$=""thenl=0:goto172
  252. 252 ifg$=""thengosub136:goto228
  253. 253 ifg$=""then260
  254. 254 ifg$="[145]"then262
  255. 255 ifg$<>chr$(13)then250
  256. 256 iffo$(b)="m!"+fo$thengosub47:goto250
  257. 257 na$=fo$(b):dv=8:gosub37:ifer<>63thengosub47:goto250
  258. 258 sys57812na$,8,0:poke780,0:poke781,0:poke782,240:sys65493
  259. 259 fo$=mid$(fo$(b),3,14):goto248
  260. 260 b=b+1:e=e+1:ife>lmthene=lm:b=lm-7
  261. 261 l=1:goto237
  262. 262 b=b-1:e=e-1:ifb<0thenb=0:e=7
  263. 263 l=1:goto237
  264. 264 ifsc=-1thenf$="to view!":gosub80:goto175
  265. 265 iftr=1then321
  266. 266 gosub3:print"[155][192][192][192][192][192][192][192][192][192][192] video translator [155][192][192][192][192][192][192][192][192][192][192][192]":gosub82
  267. 267 printtab(7)"[158]translating text to video":printtab(12)by$"":pokepo,27
  268. 268 gosub124:gosub86:fors=0tosc:b=49291:gosub87:gosub112
  269. 269 fort=0to11:b=b+40:e=b+len(sc$(s,t))-1:forv=btoe:ifpeek(v)>53then311
  270. 270 ifpeek(v)>39then304
  271. 271 ifpeek(v)>22then296
  272. 272 ifpeek(v)>15then289
  273. 273 ifpeek(v)>7then281
  274. 274 ifpeek(v)=1theng$="[193][161][157][157][193][161][146][145]":goto319
  275. 275 ifpeek(v)=2theng$="[194][162][157][157][194][162][146][145]":goto319
  276. 276 ifpeek(v)=3theng$="[195][163][157][157][195][163][146][145]":goto319
  277. 277 ifpeek(v)=4theng$="[196][164][157][157][196][164][146][145]":goto319
  278. 278 ifpeek(v)=5theng$="[197][165][157][157][197][165][146][145]":goto319
  279. 279 ifpeek(v)=6theng$="[198][166][157][157][198][166][146][145]":goto319
  280. 280 ifpeek(v)=7theng$="[199][167][157][157][199][167][146][145]":goto319
  281. 281 ifpeek(v)=8theng$="[200][168][157][157][200][168][146][145]":goto319
  282. 282 ifpeek(v)=9theng$="[201][169][157][157][201][169][146][145]":goto319
  283. 283 ifpeek(v)=10theng$="[202][170][157][157][202][170][146][145]":goto319
  284. 284 ifpeek(v)=11theng$="[203][171][157][157][203][171][146][145]":goto319
  285. 285 ifpeek(v)=12theng$="[204][172][157][157][204][172][146][145]":goto319
  286. 286 ifpeek(v)=13theng$="[205][173][157][157][205][173][146][145]":goto319
  287. 287 ifpeek(v)=14theng$="[206][174][157][157][206][174][146][145]":goto319
  288. 288 ifpeek(v)=15theng$="[207][175][157][157][207][175][146][145]":goto319
  289. 289 ifpeek(v)=16theng$="[208][176][157][157][208][176][146][145]":goto319
  290. 290 ifpeek(v)=17theng$="[209][177][157][157][209][177][146][145]":goto319
  291. 291 ifpeek(v)=18theng$="[210][178][157][157][210][178][146][145]":goto319
  292. 292 ifpeek(v)=19theng$="[211][179][157][157][211][179][146][145]":goto319
  293. 293 ifpeek(v)=20theng$="[212][180][157][157][212][180][146][145]":goto319
  294. 294 ifpeek(v)=21theng$="[213][181][157][157][213][181][146][145]":goto319
  295. 295 ifpeek(v)=22theng$="[214][182][157][157][214][182][146][145]":goto319
  296. 296 ifpeek(v)=23theng$="[215][183][157][157][215][183][146][145]":goto319
  297. 297 ifpeek(v)=24theng$="[216][184][157][157][216][184][146][145]":goto319
  298. 298 ifpeek(v)=25theng$="[217][185][157][157][217][185][146][145]":goto319
  299. 299 ifpeek(v)=26theng$="[218][186][157][157][218][186][146][145]":goto319
  300. 300 ifpeek(v)=32theng$="  [157][157]  [145]":goto319
  301. 301 ifpeek(v)=33theng$=";<[157][157]=>[146][145]":goto319
  302. 302 ifpeek(v)=38theng$="34[157][157]56[146][145]":goto319
  303. 303 ifpeek(v)=39theng$="78[157][157]9:[146][145]":goto319
  304. 304 ifpeek(v)=46theng$="+,[157][157]-.[146][145]":goto319
  305. 305 ifpeek(v)=48theng$="'([157][157])*[146][145]":goto319
  306. 306 ifpeek(v)=49theng$="ab[157][157]cd[146][145]":goto319
  307. 307 ifpeek(v)=50theng$="ef[157][157]gh[146][145]":goto319
  308. 308 ifpeek(v)=51theng$="ij[157][157]kl[146][145]":goto319
  309. 309 ifpeek(v)=52theng$="mn[157][157]op[146][145]":goto319
  310. 310 ifpeek(v)=53theng$="qr[157][157]st[146][145]":goto319
  311. 311 ifpeek(v)=54theng$="uv[157][157]wx[146][145]":goto319
  312. 312 ifpeek(v)=55theng$="yz[157][157][\[146][145]":goto319
  313. 313 ifpeek(v)=56theng$="]^[157][157]_![146][145]":goto319
  314. 314 ifpeek(v)=57theng$="#$[157][157]%&[146][145]":goto319
  315. 315 ifpeek(v)=58theng$="[187][188][157][157][189][190][146][145]":goto319
  316. 316 ifpeek(v)=63theng$="/0[157][157]12[146][145]":goto319
  317. 317 ifpeek(v)=64theng$="  [157][157][160][160][146][145]":goto319
  318. 318 ifpeek(v)=96theng$="+,[157][157]9:[146][145]"
  319. 319 ve$(s,t)=ve$(s,t)+g$:pokev,45:next:next:gosub86:next:tr=1
  320. 320 y=8:gosub113:gosub46
  321. 321 gosub3:print"[155][192][192][192][192][192][192][192][192][192][192][192][192] view display "l1$:print"[155][[192][192][192] [153]display [155][192][192][192]]"
  322. 322 fori=12to16:print"^ [159]"m$(i)" [155]_":next:print"@"l1$"[192][192]\"
  323. 323 print"[155][[192][192][192][192] [153]wipe [155][192][192][192][192][192]]":fori=17to23:print"^ [159]"m$(i)" [155]_":next
  324. 324 print"@"l1$"[192][192]\":print"[155][[192][192][192][192] [153]mode [155][192][192][192][192][192]]"
  325. 325 fori=24to25:print"^ [159]"m$(i)" [155]_":next:print"@"l1$"[192][192]\":y=3:gosub63
  326. 326 printr$" [[192][192][192][192] [153]sequence [155][192][192][192][192]]"
  327. 327 fori=1to3:printr$" ^[150]"i"[157]: [155]------------- [155]_":next:printr$" @"l2$"\"
  328. 328 printr$" [155][[192][192][192][192][192] [153]color [155][192][192][192][192][192][192]]":printr$" ^"f1$"[155]_":printr$" ^"f3$"[155]_"
  329. 329 printr$" ^"f5$"[155]_":printr$" ^"f7$"[155]_":printr$" @"l2$"\"
  330. 330 pokepo,27:v=12:w=16:x=4-v:y=v:gosub14:ifg$="[136]"org$=""then172
  331. 331 c=0:d=0:cy=0:x=4:gosub111:onygoto332,333,334,335,336
  332. 332 d=1:goto346
  333. 333 d=1:goto337
  334. 334 d=2:goto346
  335. 335 d=2:goto337
  336. 336 d=3:goto346
  337. 337 v=17:w=23:x=11-v:y=v:gosub14:ifg$="[136]"org$=""then172
  338. 338 x=5:gosub111:onygoto339,340,341,342,343,344,345
  339. 339 c=1:goto346
  340. 340 c=2:goto346
  341. 341 c=3:goto346
  342. 342 c=4:goto346
  343. 343 c=5:goto346
  344. 344 c=6:goto346
  345. 345 c=7
  346. 346 v=24:w=25:x=20-v:y=v:gosub14:ifg$="[136]"org$=""then172
  347. 347 x=6:gosub111:onygoto348,349
  348. 348 cy=0:goto350
  349. 349 cy=1
  350. 350 pokebr,bo:pokebk,ba:poke646,co:y=16:gosub63:printr$" "sa$
  351. 351 y=19:gosub63:printr$"  adjust the colors"
  352. 352 printr$"  or press <return>":gosub49
  353. 353 ifg$="[135]"org$="[139]"org$="_"then350
  354. 354 ifg$="[136]"org$=""then172
  355. 355 ifg$<>chr$(13)then350
  356. 356 ifd=3then364
  357. 357 y=16:gosub63:fori=1to5:printr$" "em$:next:y=17:gosub63
  358. 358 printr$"  set display time?  ":printr$"        <y-n>        "
  359. 359 gosub43:ifg$="n"thents=10:goto364
  360. 360 ifg$="[136]"org$=""then172
  361. 361 ifg$<>"y"then359
  362. 362 y=17:gosub63:printr$" seconds per screen? ":printr$" "em$
  363. 363 print"[145]"tab(27)": ";:l%=2:gosub22:ts=val(q$):ifts=0thents=10
  364. 364 y=16:gosub63:printr$" "em$:printr$"   press any key to  "
  365. 365 printr$"   clear the screen  ":printr$"   press any key to  "
  366. 366 printr$"   begin the display ":gosub43:ifg$="[136]"org$=""then172
  367. 367 print"[147]";:gosub43
  368. 368 ondgoto369,372,376
  369. 369 fors=0tosc:pokepo,11:fort=0to11:gosub125:next:pokepo,27:gosub2
  370. 370 ifcthengosub114
  371. 371 print"[147]":next:pokepo,11:goto378
  372. 372 pokepo,27:y=23:gosub63:fors=0tosc:fort=0to11:poke646,co:gosub125
  373. 373 next:gosub2:ifcthengosub114
  374. 374 printem$:printem$:gosub63:next:gosub63:poke646,ba:s=0:fort=0to11
  375. 375 gosub125:next:goto378
  376. 376 pokepo,27:y=23:gosub63:fors=0tosc:fort=0to11:gosub125:ts=.35:gosub2
  377. 377 next:next:poke646,ba:s=0:fort=0to11:gosub125:gosub2:next
  378. 378 getg$:ifcyandpeek(653)<>1then368
  379. 379 cy=0:poke198,0:gosub46:fori=1to2000:getg$:ifg$=""thennext
  380. 380 goto172
  381. 381 ifpeek(251)=9thengosub71
  382. 382 open15,dv,15,"i0:":input#15,er,er$:close15
  383. 383 ifer<>0thengosub64:printr$" [150]no disk in drive"dv"":gosub42:goto173
  384. 384 pokepo,11:pokefl,10:print"[147]   [205][213][212][193][212][197]! [198][201][204][197][211] [207][206] [196][201][211][203]: [196][197][214][201][195][197] #     "
  385. 385 print"[145]"tab(34)dv:print" [164][164][164][164][164][164][164][164][164][164]     [164][164][164][164][164][164][164][164][164]     [164][164][164][164][164][164][164][164] "
  386. 386 print" [153][165]<[210][197][212][213][210][206]>[167]     [153][165]<[211][200][201][198][212]>[167]     [153][165]<[195][205][196][210]>[167] "
  387. 387 print"[162][153][165] [194]egins [167][162][162][162][162][162][153][165][208]auses [167][162][162][162][162][162][153][165][193]borts[167][162][155]":pokepo,27
  388. 388 getg$:ifpeek(653)=2then172
  389. 389 ifg$<>chr$(13)then388
  390. 390 x=12:y=13:open1,dv,0,"$0:?!*":get#1,x$
  391. 391 get#1,x$,x$,x$,x$,y$,z$:printasc(y$+chr$(0))*256+asc(x$+chr$(0))z$;
  392. 392 fori=1tox:get#1,x$,y$:printx$y$;:next:print:ify$<>""thenx=y:wait654,1,1
  393. 393 ifpeek(653)=2then395
  394. 394 ify$<>""thenpoke198,0:goto391
  395. 395 close1:print"       [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]       "
  396. 396 print"[162][162][162][162][162][162][162][153][165] [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [197][216][201][212] [167][162][162][162][162][162][162][162]":gosub43:goto172
  397. 397 pokepo,11:pokefl,10:b=196:e=16:print"[147]":x=11:gosub406:x=8
  398. 398 gosub406:gosub407
  399. 399 pokea,b:pokefl,(peek(fl)and15)ore:pokepo,27
  400. 400 gosub43:ifg$=chr$(13)then403
  401. 401 if(g$<>"[136]"andg$<>"")then400
  402. 402 pokepo,11:goto172
  403. 403 b=b+4:e=e+16:ifb=208then402
  404. 404 ifb=200thenx=3:gosub406:x=16:gosub406:gosub407:goto399
  405. 405 x=21:gosub406:gosub407:goto399
  406. 406 pokepo,11:pokea,192:printt$:printb$:fori=1tox:printm$:next:return
  407. 407 printt$:printb$"":return
  408. 408 gosub64:printr$"   [158]exit program!":gosub39:ifg$<>"y"then173
  409. 409 pokepo,11:sys64738
  410. 410 data"design menu ","select font ","view display","directory   "
  411. 411 data"help screens","exit program","enter text  ","edit text   "
  412. 412 data"load file   ","save file   ","help screens","main menu   "
  413. 413 data"blank screen ","blank & wipe ","scroll screen","scroll & wipe"
  414. 414 data"line scroll  ","left to right","right to left","top to bottom"
  415. 415 data"bottom to top","left & right ","top & bottom "
  416. 416 data"four sides in","video tape   ","billboard    "
  417.