home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / formatter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  328 lines
  1. 10 rem *** formatter ***
  2. 15 if peek(686)then386
  3. 20 goto1000
  4. 95 rem ***flip screens***
  5. 100 x=peek(t):ifp<>ethen125
  6. 102 sys49391
  7. 105 p=i:pokea,49:poket+b,p:poke4,76:s=h
  8. 106 poke56333,127:poke788,196:poke789,194:pokea+b,129:rem start raster
  9. 107 print"[147][146][144]type character to":print"reprogram on lower
  10. 109 [153]"portion of screen and":[153]"press f4. press any f
  11. 111 print"key to input changes.":print"press f6 to return
  12. 113 [153]"to screen 1":[151]t,x:[142]
  13. 124 [143] screen @ bank 2, 34816($8800)and chars @ $8000 or $9000
  14. 125 [151]a[170]b,240:[151]788,49:[151]789,234:[151]56333,129:[143] raster off
  15. 126 p[178]e:[158]49424:[151]r[170]h,sc:[151]r,bc:[151]a,cs:s[178].
  16. 127 [151]t[170]b,p:[151]4,80:[151]t,x:[153]"":[142]
  17. 149 [143] **reprogram***
  18. 150 g[178][194](3):x[178][194](t)
  19. 151 [129]j[178].[164]5:[151]218[170]j,136:[151]224[170]j,137:[130]
  20. 152 m[178]32768[170]g[172]c:[153]""[163]27)"           "
  21. 153 [129]j[178].[164]7:z[178]128:g[178][194](m[170]j):[153][163]27)"   ";
  22. 154 [129]k[178]h[164]c:[153]"open0";:[139]g[177][178]z[167]g[178]g[171]z:[153]"cmd*";
  23. 155 z[178]z[173]b:[130]:[153]" ":[130]:[153][163]27)"             "
  24. 156 [153]""[163]30);
  25. 157 [151]w,.:[158]50222:[151]t,x:[142]
  26. 200 sc[178][171]sc[172](sc[179]n)[170]h:[151]r[170]h,sc:[151]254,sc:[142]:[143] screen color
  27. 225 bc[178][171]bc[172](bc[179]n)[170]h:[151]r,bc:[142]:[143] border color
  28. 250 b1[178][171]b1[172](b1[179]n)[170]h:r1[178]b1[171]h:[151]r[170]b,r1:[142]:[143] register 1
  29. 275 b2[178][171]b2[172](b2[179]n)[170]h:r2[178]b2[171]h:[151]r[170]3,r2:[142]:[143] register 2
  30. 300 b3[178][171]b3[172](b3[179]n)[170]h:r3[178]b3[171]h:[151]r[170]4,r3:[142]:[143] register 3
  31. 325 eb[178].:[151]53265,[194](53265)[176]64:[143] extended background on
  32. 326 [158]49980:f[178][194](253)[171]132:[145]f[141]200,250,275,300,350,380,100
  33. 328 [139]f[178]5[167][142]
  34. 329 [139]f[178]c[167]eb[178]h:[137]400
  35. 330 [137]326
  36. 350 [151]53265,[194](53265)[175]191:[142]:[143] extended background off
  37. 365 mc[178].:[151]a[171]b,[194](a[171]b)[176]n:[143] multicolor on
  38. 367 [158]49980:f[178][194](253)[171]132:[145]f[141]200,250,275,375,328,380,100
  39. 370 [139]f[178]4[167][142]
  40. 372 [139]f[178]c[167]mc[178]h:[137]400
  41. 373 [137]367
  42. 375 [151]53270,[194](53270)[175]239:[142]:[143]multicolor off
  43. 380 [139]s[167][141]150:[142]:[143] character set switch
  44. 381 o[178][182](o[171]cn):cs[178]33[170]o:[151]a,cs:[142]:[143] flip character sets
  45. 385 [143] ***menu***
  46. 386 p[178]140:e[178]136:i[178]p:r[178]53280:h[178]1:bc[178]h:sc[178]15:a[178]53272:cs[178]33:t[178]646:b[178]2
  47. 388 x[178]11:w[178]198:c[178]8:n[178]16:cn[178]4:bl[178]53265:[151]254,sc
  48. 390 d[178]3002
  49. 395 [151]56576,5:[139][194](684)[178].[167][141]126:[153]"load";:[151]684,h
  50. 400 x[178][194](t):[139]p[178]e[167][158]49391:cs[178][194](a)
  51. 401 [139]s[167][151]a[170]b,240:[151]788,49:[151]789,234:[151]56333,129:[143]turn off raster
  52. 402 [139]mc[167][141]375:mc[178]h
  53. 403 [139]eb[167][141]350:eb[178]h
  54. 408 [151]56576,7:[151]t[170]b,4:[143] default screen
  55. 410 [151]bl,[194](bl)[175]239:[151]a,21:[151]r[170]h,15:[151]r,h:[151]t,0
  56. 411 [153]"load"[163]57)"menu":[153]"1 instruction screens
  57. 413 print"2 formatting screen
  58. 414 [153]"3 character reprogramming screen
  59. 415 print"4 make basic print statements
  60. 416 [153]"5 display new screen(s)
  61. 417 print"6 delete program lines
  62. 418 [153]"7 make character data statements
  63. 419 print"8 switch custom character set":print"9 stop program
  64. 420 [153][163]50)"your choice [1-9]close?":[151]bl,27
  65. 421 [146]w,h:g[178][194](631)[171]48:[151]w,.:[139]g[179]h[176]g[177]9[167]421
  66. 422 [145]g[137]600,430,435,485,1600,720,800,950,428
  67. 428 [151]828,.:[158]828
  68. 430 [151]56576,5:[141]126:[137]438
  69. 435 [151]56576,5:[151]r,bc:[141]105
  70. 438 [139]mc[167][141]365
  71. 440 [139]eb[167][141]325
  72. 445 [158]49980:f[178][194](253)[171]132
  73. 450 [145]f[141]200,225,275,365,325,380,100
  74. 455 [139]f[178]c[167]400
  75. 460 [137]445
  76. 480 [143] ***screen scan***
  77. 485 [153]"load"[163]92)"new print lines
  78. 490 printtab(205)". . .space to continue"spc(58)". . . any other for menu
  79. 495 [151]w,.:[146]198,h:[139][194](631)[179][177]32[167]410
  80. 500 [153]"load"d"gosub60002:printchr$(19)tab(140)peek(58)*256+peek(57)";
  81. 501 [153]":waitw,h:pokew,.":[151]679,x
  82. 502 d[178]d[170]b:[153]d"poker+h,"sc"cmd:poker,"bc"cmd:pokea,"cs"cmd:sc="sc"cmd:bc="bc;
  83. 503 [153]"cmd:poket,"x"cmd:printchr$(147);":[158]49457:d[178]d[170]b:m[178]4
  84. 504 [139]mc[167][153]d"poke53270,peek(53270)or16:poker+2,"r1"cmd:poker+3,"r2;
  85. 505 [139]mc[167][153]"cmd:mc=h":d[178]d[170]b
  86. 506 [139]eb[167][153]d"poke53265,peek(53265)or64:poker+2,"r1"cmd:poker+3,"r2;
  87. 507 [139]eb[167][153]"cmd:poker+4,"r3"cmd:eb=h":d[178]d[170]b
  88. 508 [153]"515 d="d"cmd:eb="eb"cmd:mc="mc"cmd:x="x
  89. 509 [139]eb[176]mc[167][153]"printchr$(147):poke218,4:run515":m[178]5:[137]560
  90. 510 [153]"run515":[137]560
  91. 517 [139][194](2)[167][153]"load";:[151]218,4
  92. 520 [153]d"?"[199](34):d[178]d[170]2
  93. 525 [158]49482:[139][194](2)[178].[167]m[178]5:[137]540
  94. 530 [153]"515 d="d"cmd:eb="eb"cmd:mc="mc"cmd:x="x
  95. 535 [153]"run515":m[178]6:[137]560
  96. 540 [153]d"waitw,h:g=pval(631):p(NULL)w,.:ifg=82thenp(NULL)t,"x;
  97. 541 [153]"cmd:p(NULL)254,sc:goto438":d[178]d[170]2
  98. 545 [139]mc[167][153]d"poke53270,peek(53270)and239:mc=.":d[178]d[170]2:m[178]m[170]1
  99. 550 [139]eb[167][153]d"poke53265,peek(53265)and191:eb=.":d[178]d[170]2:m[178]m[170]1
  100. 552 [153]d"ifg<>32thensc=m:bc=z:?chr$(147):goto408":d[178]d[170]2
  101. 555 [153]"390 d="d:[153]"515":[153]"run386":[139][194](681)[167]m[178]m[170]1
  102. 560 f[178]631:g[178]13:[151]f,19:[129]j[178]1[164]m:[151]f[170]j,g:[130]:[151]198,m[170]1:[128]
  103. 595 [143] ***instructions***
  104. 600 [151]bl,[194](bl)[175]239:[151]r[170]h,h:[151]r,6:[151]a,23
  105. 602 [153]"load   (NULL)(NULL)closeasc(NULL)(NULL)(NULL)atn(NULL)closeatn(NULL)str$close(NULL)val(NULL)(NULL)(NULL)chr$(NULL)atn(NULL)close(NULL)len(NULL)valval(NULL)(NULL)close-
  106. 604 printtab(41)"f1 = [211]creen color
  107. 606 [153][163]41)"f2 = valxtended background color on/off
  108. 608 printtab(41)"f3 = [194]order color or color register #1
  109. 610 [153][163]6)"with multicolor ((NULL)len) or extended"[166]8)"background color (valpeek)
  110. 614 printtab(41)"f4 = [211]witch between custom and regular
  111. 616 [153][163]6)"characters on format screen or
  112. 618 printtab(6)"enable custom characters on"spc(13)"reprogramming screen
  113. 620 [153][163]41)"f5 = lenolor register #2 with (NULL)len or valpeek"
  114. 622 [153][163]41)"f6 = (NULL)witch between formatting and"[166]11)"reprogramming screen
  115. 624 printtab(41)"f7 = [205]ulticolor on/off or color
  116. 626 [153][163]6)"register #3 with valpeek":[151]bl,27
  117. 628 [153]"":[129]j[178].[164]10:[153]"onf8 = (NULL)enu"
  118. 630 [129]g[178]h[164]60:[130]:[153]"onf8 = (NULL)enu":[129]g[178]h[164]60:[130]:[130]
  119. 632 [153]" ((NULL)(NULL)atnlenval for more: atnny other for menu)";
  120. 634 [146]w,h:[151]w,.:[139][194](631)[178]32[167]656
  121. 636 [137]410
  122. 656 [151]bl,[194](bl)[175]239:[153]"load"[163]86)"asc(NULL)(NULL)(NULL)atn(NULL)close(NULL)len(NULL)valval(NULL)closelen(NULL)(NULL)(NULL)(NULL)closelenleft$atn(NULL)chr$val(NULL)"
  123. 658 [153][163]83)"(NULL)o change all of a certain color
  124. 660 printtab(3)"to another color:
  125. 662 [153][163]45)"a. (NULL)et cursor to color you wish"[166]12)"to change.
  126. 664 printtab(45)"b. [208]ress [195][212][210][204] and c keys
  127. 666 [153][163]8)"together.  ((NULL)he cursor will"[166]13)"disappear.)
  128. 668 printtab(45)"c. [208]ress [195][212][210][204] or [195][207][205][205][207][196][207][210][197]
  129. 670 [153][163]8)"key and the new color key"[166]15)"together.
  130. 672 printtab(50)"([193]ny key for menu.)":pokebl,27
  131. 674 waitw,h:pokew,.:goto410
  132. 719 rem ***delete***
  133. 720 poker+h,3 :poker,b:pokea,23:pokebl,peek(bl)and239
  134. 722 print"[147]"tab(207)"[196][197][204][197][212][197] [208][210][207][199][210][193][205][160][208][210][201][206][212] [204][201][206][197][211]
  135. 724 [153][163]86)"1 atnll new print lines
  136. 726 printtab(46)"2 [211]elect from to end
  137. 728 [153][163]46)"3 (NULL)elect from to select end
  138. 729 printtab(46)"4 [196]elete all [194][213][212] new lines
  139. 730 [153][163]46)"5 (NULL)eturn to menu
  140. 732 printtab(49)"([208]ress number desired)":pokebl,27
  141. 734 waitw,h:g=peek(631)-48:pokew,.:ifg<horg>5then734
  142. 736 ifd=3002thenifg<4thenprinttab(81)"[206]o lines to delete.  [193]ny key for menu.":goto685
  143. 738 poket,x:m=.:f=d:z=3002:l=z:onggoto773,740,740,900,410
  144. 740 print"[147][197]nter starting line number";
  145. 745 inputl:ifland1orl<3002thenprint"# uneven or too small:";:goto745
  146. 750 ifg=2thenz=l:goto765
  147. 755 z=d:print"[197]nter ending line number";
  148. 760 inputd:ifdand1ord>zthenprint"# uneven or too big:";:goto760
  149. 765 ifl>=dthenprint"[147][211]tarting # too big. [211]tart over.[146][151]":d=f:goto722
  150. 773 f=d-l:print"[147]";:iff<11then785
  151. 775 forj=ltol+12step2:printj:next:
  152. 776 print"772 l="j"[157]:d="d"[157]:z="z:print"run772":m=9:goto560
  153. 785 iff=.then787
  154. 786 forj=ltodstep2:printj:m=m+1:next
  155. 787 print"772":print"390 d="z:print"run386":m=m+3:goto560
  156. 795 rem***character data***
  157. 800 sys49280:ifpeek(b)then820
  158. 805 print"[147]"tab(203)"[151]no characters reprogrammed as yet
  159. 810 [153]"poke(press any key to return to menu)
  160. 815 waitw,h:pokew,.:poke254,sc:goto410
  161. 820 print"[147]60006 forj=1to"peek(2):print"run825":print"  60010":m=3:goto560
  162. 825 inputz
  163. 830 sc=peek(50432+peek(2)-1):ch=32768+8*sc
  164. 835 forj=.to7:c$=c$+str$(peek(ch+j)):next
  165. 840 fork=2tolen(c$):q$=mid$(c$,k,1):ifq$=" "thenq$=","
  166. 845 d$=d$+q$:next
  167. 850 print"[147]"z"data"sc"[157],"d$
  168. 855 z=z+2:poke2,peek(2)-1:ifpeek(2)=.thenprint"run386":m=2:goto560
  169. 860 print"run825":print"  "z:m=3:goto560
  170. 895 rem ***delete old***
  171. 900 poker+h,3:poker,b:print"[147]"tab(170)"[144][196][197][204][197][212][197][160][207][204][196][160][208][210][207][199][210][193][205]
  172. 904 [153][163]42)"atns written, new screens will display
  173. 906 print"on screen at 34816 with [210][207][205] image at
  174. 908 [153]"36864 and programmable characters at"[166]4)"32768.
  175. 914 printtab(42)"[212]o display &/or save on default
  176. 916 [153]"screen, delete line 3000 and delete
  177. 918 print"or revise [208]oke 53272 values to point
  178. 920 [153]"to your (NULL)atn(NULL) character set.
  179. 924 printtab(47)"([200]it any key to proceed)
  180. 926 [153][163]7)"('(NULL)' to return to menu.)
  181. 928 waitw,h:g=peek(631):pokew,.:ifg=82then410
  182. 930 sys49152:poker+h,10:printtab"[147]"tab(250)" old program gone! "
  183. 935 printtab(124)"[212]o recover old program, enter in"spc(48)"direct mode:
  184. 940 [153]"stoppoke43,1:poke641,1:poke44,8:poke642,8:run":[128]
  185. 945 [143] ***switch custom sets***
  186. 950 [151]r[170]h,7:[151]r,1:[151]a,23:[151]bl,[194](bl)[175]239
  187. 952 [153]"loadpoke"[163]251)"(NULL)(NULL)right$(NULL)lenleft$closelen(NULL)(NULL)(NULL)(NULL)(NULL)close(NULL)val(NULL)"
  188. 954 [153][163]86)"1. (NULL)valchr$(NULL)(NULL)atn(NULL)closelenleft$atn(NULL)atnlen(NULL)val(NULL)close(NULL)val(NULL)"
  189. 956 [153][163]46)"2. (NULL)(NULL)(NULL)val(NULL)closeatn(NULL)str$ lower lenatn(NULL)valclose(NULL)val(NULL)"[166]53)"3. (NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)val(NULL)(NULL)
  190. 960 printtab(87)"([208][210][197][211][211][160][206][213][205][194][197][210][160][198][207][210][160][195][200][207][201][195][197])":pokebl,27
  191. 962 waitw,h:g=peek(631)-48:pokew,.:ifg<horg>3then962
  192. 963 onggoto965,966
  193. 964 goto410
  194. 965 poke685,208:sys49213:cn=4:goto968
  195. 966 poke685,216:sys49213:cn=6
  196. 968 print"[147]"tab(242)". . . [207][203], sets switched":fortt=.to1000:next
  197. 970 o=.:gosub381:goto410
  198. 999 rem ***machine language***
  199. 1000 poke53281,7:poke53280,9:print"[147]";
  200. 1004 print"[147]"spc(162)"[149]    ":print"[149] [146]  [169]  [223]"
  201. 1006 print"    [146]      [223]"
  202. 1008 print" [146]   [146]    [146]   [223][146]  [169]"
  203. 1010 print" [146]   [146]      [146][169] [223][169] [169]  [223]"
  204. 1012 printtab(5)"[223]  [146][169] [146]  [223] [146][223][169]  [146]        "
  205. 1014 printtab(9)" [146]    [146]       [146]        "
  206. 1016 printtab(13)" [146]  [160] [146]   [146]   [146]   [146]      "
  207. 1018 printtab(17)" [146]   [146]  [160][146]   [146]   [146]      [223]"
  208. 1020 printtab(23)"[160][146]   [146]     [146]  [146]   "
  209. 1022 printtab(26)" [146]   [146]      [146][169]"
  210. 1024 printtab(29)"     [146]  [223]":printtab(33)" [146]   "
  211. 1025 printtab(11)"by marie coon &"spc(25)"the ahoy! staff"
  212. 1026 print:print:printtab(10)"one moment please..."
  213. 1027 poke52,124:poke56,124:clr:poke53265,27
  214. 1028 e$="bad data":b=736:forj=.to31:reada:pokeb+j,a:ck=ck+a:pokeb+j,a:next
  215. 1030 ifck<>5088thenprinte$:stop:rem data 1100
  216. 1035 b=49152:fork=1to4:ck=.
  217. 1040 forj=.to255:reada:pokeb+j,a:ck=ck+a:next
  218. 1045 readc:ifck<>cthenprinte$" in block"k"line"peek(64)*256+peek(63):stop
  219. 1050 b=b+256:next
  220. 1055 ck=.:forj=.to160:reada:pokeb+j,a:ck=ck+a:next
  221. 1060 ifck<>20606thenprinte$" in block 5":stop
  222. 1065 poke685,208:sys49213:clr:poke686,1:goto386
  223. 1085 data144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
  224. 1090 data208,133,156,223,220,158,159,222,193,213,214,215,216,217,218,219
  225. 1095 rem *** block 1 ***
  226. 1100 data169,1,133,87,169,8,133,88,169,0,133,57,133,58,160,3
  227. 1102 data177,87,201,11,176,24,133,58,136,177,87,133,57,160,0,177
  228. 1104 data87,72,200,177,87,133,88,104,133,87,160,3,208,226,165,87
  229. 1106 data133,43,141,129,2,165,88,133,44,141,130,2,96,173,14,220
  230. 1108 data41,254,141,14,220,165,1,41,251,133,1,169,0,133,87,133
  231. 1110 data89,173,173,2,133,88,169,128,133,90,162,8,160,0,177,87
  232. 1112 data145,89,136,208,249,230,88,230,90,202,208,242,165,1,9,4
  233. 1114 data133,1,173,14,220,9,1,141,14,220,169,128,141,138,2,96
  234. 1116 data173,14,220,41,254,141,14,220,165,1,41,251,133,1,169,0
  235. 1118 data133,2,133,87,133,89,133,252,133,254,173,173,2,133,88,169
  236. 1120 data128,133,90,162,0,160,0,169,8,133,253,133,251,177,87,209
  237. 1122 data89,240,2,230,252,202,240,32,200,198,251,208,240,165,252,240
  238. 1124 data17,169,0,133,252,134,91,166,2,165,254,157,0,197,230,2
  239. 1126 data166,91,230,254,169,8,208,211,230,88,230,90,198,253,208,216
  240. 1128 data165,1,9,4,133,1,173,14,220,9,1,141,14,220,96,169
  241. 1130 data0,133,87,133,89,169,216,133,88,169,124,133,90,162,4,160,31556
  242. 1132 :
  243. 1134 rem *** block 2 ***
  244. 1136 data0,177,87,145,89,136,208,249,230,88,230,90,202,208,242,96
  245. 1138 data169,0,133,87,133,89,169,216,133,88,169,124,133,90,162,4
  246. 1140 data160,0,177,89,145,87,136,208,249,230,88,230,90,202,208,242
  247. 1142 data96,169,0,133,251,133,253,141,170,2,141,171,2,169,25,133
  248. 1144 data2,169,136,133,252,169,124,133,254,96,169,11,162,71,157,7
  249. 1146 data216,202,208,250,169,32,162,71,157,7,4,202,208,250,169,8
  250. 1148 data133,89,169,4,133,90,160,0,132,88,173,171,2,240,13,133
  251. 1150 data87,169,40,56,237,171,2,133,91,76,69,194,132,87,140,168
  252. 1152 data2,140,169,2,169,40,133,91,177,251,201,32,208,45,238,168
  253. 1154 data2,200,198,91,208,242,169,145,164,88,145,89,198,2,208,6
  254. 1156 data169,147,32,210,255,96,230,88,24,165,251,105,40,144,4,230
  255. 1158 data252,230,254,133,251,133,253,160,0,240,193,201,34,208,3,238
  256. 1160 data168,2,173,168,2,240,17,132,87,169,157,164,88,145,89,230
  257. 1162 data88,206,168,2,208,245,164,87,177,253,41,15,205,167,2,240
  258. 1164 data13,141,167,2,170,189,240,2,164,88,145,89,230,88,173,170
  259. 1166 data2,240,17,164,87,177,251,201,128,176,32,206,170,2,164,88,34517
  260. 1168 :
  261. 1170 rem *** block 3 ***
  262. 1172 data169,210,208,15,164,87,177,251,201,128,144,15,238,170,2,164
  263. 1174 data88,169,146,145,89,230,88,164,87,177,251,41,127,201,34,208
  264. 1176 data2,169,32,164,88,145,89,230,88,198,91,240,101,230,87,165
  265. 1178 data88,201,60,144,16,200,169,34,145,89,200,169,59,145,89,165
  266. 1180 data87,141,171,2,96,164,87,177,251,201,32,208,7,238,169,2
  267. 1182 data208,215,208,154,173,169,2,240,31,240,147,173,170,2,240,11
  268. 1184 data169,210,164,88,145,89,230,88,206,170,2,169,32,164,88,145
  269. 1186 data89,230,88,206,169,2,208,245,164,87,177,253,41,15,205,167
  270. 1188 data2,240,214,164,88,141,167,2,170,189,240,2,145,89,230,88
  271. 1190 data208,192,169,34,164,88,145,89,173,169,2,208,5,200,169,59
  272. 1192 data145,89,198,2,208,6,169,59,200,145,89,96,24,165,251,105
  273. 1194 data40,144,4,230,252,230,254,133,251,133,253,169,0,141,171,2
  274. 1196 data141,170,2,96,169,1,141,25,208,162,130,160,12,173,18,208
  275. 1198 data16,4,162,1,164,254,142,18,208,140,33,208,173,13,220,41
  276. 1200 data1,240,3,76,49,234,76,188,254,169,0,133,89,165,209,133
  277. 1202 data87,24,165,210,101,4,133,88,164,211,177,209,72,170,177,87,33915
  278. 1204 :
  279. 1206 rem *** block 4 ***
  280. 1208 data133,91,173,134,2,145,87,24,177,209,105,128,145,209,230,89
  281. 1210 data24,165,162,105,20,133,90,32,228,255,208,21,165,90,197,162
  282. 1212 data208,245,165,89,240,220,138,145,209,165,91,145,87,198,89,240
  283. 1214 data223,170,104,164,211,145,209,165,91,145,87,96,32,233,194,138
  284. 1216 data201,133,144,25,201,138,208,14,164,211,132,165,136,177,209,133
  285. 1218 data3,165,214,133,166,138,201,141,176,3,133,253,96,41,127,201
  286. 1220 data33,144,5,173,134,2,145,87,173,141,2,201,4,240,6,138
  287. 1222 data32,210,255,208,199,165,197,201,20,208,244,173,134,2,133,87
  288. 1224 data32,228,255,240,251,174,141,2,224,4,240,4,224,2,208,240
  289. 1226 data162,15,221,224,2,240,8,202,208,248,221,224,2,208,225,134
  290. 1228 data88,169,0,133,89,169,216,133,90,162,4,160,0,177,89,41
  291. 1230 data15,197,87,208,4,165,88,145,89,136,208,241,230,90,202,208
  292. 1232 data236,76,60,195,32,210,255,32,233,194,138,201,133,144,5,201
  293. 1234 data141,176,1,96,169,2,141,134,2,138,201,48,208,6,169,3
  294. 1236 data141,134,2,138,41,127,201,13,208,34,169,17,32,210,255,164
  295. 1238 data211,177,209,201,32,208,4,169,145,208,201,169,157,32,210,255,35397
  296. 1240 :
  297. 1242 rem *** block 5 ***
  298. 1244 data164,211,177,209,201,32,208,243,169,29,208,184,201,17,240,12
  299. 1246 data201,29,240,8,201,33,144,175,162,29,176,1,138,32,210,255
  300. 1248 data164,211,177,209,201,32,208,159,24,138,105,128,208,150,169,0
  301. 1250 data133,91,133,163,169,128,133,164,160,3,165,3,24,10,38,91
  302. 1252 data136,208,250,133,163,24,165,164,101,91,133,164,24,160,30,162
  303. 1254 data1,32,240,255,169,2,141,134,2,32,196,195,169,69,133,87
  304. 1256 data169,140,133,88,162,8,169,1,133,91,160,8,169,0,133,92
  305. 1258 data177,87,201,48,240,6,165,92,5,91,133,92,6,91,136,208
  306. 1260 data239,165,92,145,163,230,163,208,2,230,164,24,165,87,105,40
  307. 1262 data133,87,144,2,230,88,202,208,205,164,165,166,166,24,76,240,255
  308. 1595 rem ***display***
  309. 1600 poke56576,5:gosub126:poker+h,15:poker,12:pokea,39
  310. 1602 pokebl,peek(bl)and239:print"[147][144]"tab(131)"[206][197][215][160][211][195][210][197][197][206][160][196][201][211][208][204][193][217]"
  311. 1603 printtab(84)"[212]o display successive screens,
  312. 1604 [153]"press the (NULL)(NULL)atnlenval key.
  313. 1605 printtab(44)"[208]ress 'r' to return control to
  314. 1606 [153]"the format screen and activate
  315. 1607 print"the cursor.
  316. 1609 [153][163]44)"atnny other key will return to the
  317. 1610 print"[205]enu, unless the last screen is
  318. 1611 [153]"on display.  right$n this case, any
  319. 1612 print"key but 'r' will return to the"spc(10)"menu.":pokebl,27
  320. 1614 waitw,h:g=peek(631):pokew,.:ifg<>32thenprint"[147]":goto408
  321. 3000 poke56576,5:poke648,136:poke53272,37
  322. 3001 w=198:h=1:r=53280:a=53272:t=646
  323. 60000 print"[147]":poke646,x:sc=m:bc=z:goto408
  324. 60002 pokea,37:print"[147]"tab(46)"new screen starts at"spc(60)"program line #"
  325. 60004 printtab(46)"(hit any key for display)":return
  326. 60006 forj=1to 3
  327. 60008 readb:ch=32768+8*b:printch:fork=.to7:reada:pokech+k,a:next:next
  328.