home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 January / Ahoy_Magazine_87-01_1987_Double_L.d64 / Lixter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  423 lines
  1. 100 dim kw$(255),hx$(255),cd$(255),op$(255),ar(255)
  2. 110 bl=8:bk=0:poke53281,bk:poke53280,peek(bk)
  3. 120 print"[147]  [208]lease wait one moment..."
  4. 130 forx=0to255:readhx$(x),op$(x),ar(x):next
  5. 140 forx=128to202:readkw$(x):next
  6. 150 forx=0to160:readcd$(x):next:gosub 4420
  7. 160 forx=32to95:kw$(x)=cd$(x):next:kw$(255)="[255]"
  8. 180 of$=f$:print"[147][155]               [204]ixter":print:print:print
  9. 190 input"[197]nter [198]ilename--";f$
  10. 200 iff$=""orf$="."thenprint"[207].[203]. [210]eady.":end
  11. 209 iff$="$"then300
  12. 210 ifof$=f$then 240
  13. 220 print"[215]hat is its filetype ([211]/[208])";
  14. 230 gett$:ift$<>"[208]"andt$<>"[211]"andt$<>"s"andt$<>"p"then 230
  15. 240 ift$="[208]"ort$="[211]"thent$=chr$(asc(t$)-128)
  16. 250 print"[147] [206]ow opening file->";chr$(34);f$;",";t$;chr$(34);"[155]"
  17. 260 bl=8
  18. 270 print"[201]s this all correct? ([217]/[206])";
  19. 280 geta$:ifa$<>"[217]"anda$<>"y"anda$<>"[206]"anda$<>"n"then 280
  20. 290 ifa$="[206]"ora$="n"thenf$="":goto 180
  21. 300 print"[147] [211]end output to the [211][146]creen or [208][146]rinter"
  22. 310 geta$:ifa$<>"[211]"anda$<>"s"anda$<>"[208]"anda$<>"p"then 310
  23. 320 ifa$="s"ora$="[211]"thendv=3:wd=40:goto 340
  24. 330 dv=4:bl=16
  25. 340 open15,8,15
  26. 341 iff$="$"thenopen8,8,0,"$0":goto360
  27. 350 open8,8,8,f$+","+t$+",r"
  28. 360 open1,dv,7
  29. 370 get#8,lo$,hi$:hi=asc(hi$+chr$(0)):lo=asc(lo$+chr$(0))
  30. 380 sa=lo+256*hi
  31. 390 gosub 4490
  32. 400 print#1,:print#1,"[198]ilename:=>";f$:print#1,
  33. 410 print#1," [211]tarting [193]ddress= #"sa" =$"hx$(hi)hx$(lo)
  34. 420 print:print:print
  35. 430 print"[211]elect [196]ump type":print"1> [200]ex [196]ump":print"2> [193][211][195][201][201] [196]ump":print"3> [196]isassembly"
  36. 440 print"4> [194]asic [204][201][211][212]"
  37. 450 geta$:ifval(a$)>4orval(a$)<1then 450
  38. 460 pc=0
  39. 470 print"[147]"
  40. 480 ifa$="2"then 780
  41. 500 ifa$="3"then 880
  42. 510 ifa$="4"then 1441
  43. 570 tm=bl*(int((sa+pc)/bl)):iftm=sa+pcthen 610
  44. 580 print#1,chr$(13);:h=int((tm)/256):l=tm-(256*h)
  45. 590 print#1,hx$(h)hx$(l)"->";
  46. 600 fornm=1to(sa+pc)-tm:print#1,"-- ";:next
  47. 610 get#8,a$:vl=asc(a$+chr$(0))
  48. 620 ifst<>0then4450
  49. 630 if(sa+pc)/bl<>int((sa+pc)/bl)then 690
  50. 640 getk$:ifk$<>" "then 670
  51. 650 getk$:ifk$<>chr$(13)andk$<>"+"andk$<>"q"then 650
  52. 660 ifk$="q"then 4450
  53. 661 ifk$="+"thengosub7000
  54. 670 print#1,chr$(13);:h=int((sa+pc)/256):l=sa+pc-(256*h)
  55. 680 print#1,hx$(h)hx$(l)"->";
  56. 690 print#1,hx$(vl)" ";:pc=pc+1
  57. 700 goto 610
  58. 710 pc=pc-1:print#1,chr$(13);:h=int((sa+pc)/256):l=sa+pc-(256*h)
  59. 720 print#1," [197]nding address = #"sa+pc" =$"hx$(h)hx$(l):goto 4450
  60. 780 get#8,a$:vl=asc(a$+chr$(0))
  61. 790 ifst<>0then4450
  62. 830 print#1,cd$(vl);:pc=pc+1
  63. 840 getk$:ifk$<>" "then 870
  64. 850 getk$:ifk$<>chr$(13)andk$<>"+"andk$<>"q"then 850
  65. 860 ifk$="q"then 4450
  66. 861 ifk$="+"thengosub7000
  67. 870 goto 780
  68. 880 print:print:print"[196]o you wish to change [211]tarting":print"address ([217]/[206])?"
  69. 890 geta$:ifa$<>"[217]"anda$<>"y"anda$<>"[206]"anda$<>"n"then 890
  70. 900 ifa$="n"ora$="[206]"then1000
  71. 910 print:print:print:print"[197]nter the [206][197][215] starting address in"
  72. 920 print"decimal."
  73. 930 input"#=";s$
  74. 940 ifs$=""then1000
  75. 950 sa=val(s$)
  76. 1000 rem***************************
  77. 1010 print#1,chr$(13);chr$(13);"[211]tarting [193]ddress =#";
  78. 1020 print#1,sa;" = $"hx$(int(sa/256));hx$(sa-(int(sa/256)*256))
  79. 1030 print#1,chr$(13)
  80. 1040 pc=0
  81. 1050 get#8,a$
  82. 1060 ifst<>0then4450
  83. 1080 print#1,chr$(13);:h=int((sa+pc)/256):l=sa+pc-(256*h)
  84. 1090 print#1,hx$(h)hx$(l)"- ";
  85. 1100 vl=asc(a$+chr$(0))
  86. 1110 ifar(vl)=1thenget#8,a$:b1=asc(a$+chr$(0)):ifst<>0then4450
  87. 1120 ifar(vl)<>2then 1150
  88. 1130 get#8,a$:b1=asc(a$+chr$(0)):ifst<>0then4450
  89. 1140 get#8,a$:b2=asc(a$+chr$(0)):ifst<>0then4450
  90. 1150 print#1,hx$(vl);" ";:ifar(vl)=0thenprint#1,"          ";
  91. 1160 ifar(vl)=1thenprint#1,hx$(b1);"        ";
  92. 1170 ifar(vl)=2thenprint#1,hx$(b1);" ";hx$(b2);"     ";
  93. 1180 o$=op$(vl):ifmid$(o$,1,1)="[194]"andmid$(o$,1,3)<>"[194][201][212]"then 1250
  94. 1190 forx=1tolen(o$)
  95. 1200 ifmid$(o$,x,1)<>"1"andmid$(o$,x,1)<>"2"thenprint#1,mid$(o$,x,1);
  96. 1210 ifmid$(o$,x,1)="1"thenprint#1,hx$(b1);
  97. 1220 ifmid$(o$,x,1)="2"thenprint#1,hx$(b2);
  98. 1230 next
  99. 1240 goto 1310
  100. 1250 ifb1>127thenb1=-(256-b1)
  101. 1260 forx=1tolen(o$)
  102. 1270 ifmid$(o$,x,1)<>"0"thenprint#1,mid$(o$,x,1);:goto 1300
  103. 1280 pp=pc+sa+b1+2
  104. 1290 print#1,hx$(int(pp/256));hx$(pp-(int(pp/256)*256));
  105. 1300 next
  106. 1310 pc=pc+ar(vl)+1:b1=0:b2=0
  107. 1320 getk$:ifk$<>" "then 1350
  108. 1330 getk$:ifk$<>chr$(13)andk$<>"+"andk$<>"q"then 1330
  109. 1340 ifk$="q"then 4450
  110. 1341 ifk$="+"thengosub7000
  111. 1350 goto 1050
  112. 1360 stop:     pc=pc-1:print#1,chr$(13)
  113. 1370 print#1,chr$(13)"[197]nding [193]ddress =#"pc+sa" =$"hx$(int(sa+pc)/256);
  114. 1380 print#1,hx$((sa+pc)-256*(int((sa+pc)/256)))chr$(13)
  115. 1390 goto 4450
  116. 1441 cd$(0)=""
  117. 1480 print:print
  118. 1490 get#8,p1$,p2$,l1$,l2$:ifst<>0then4450
  119. 1500 li=256*(asc(l2$+chr$(0)))+asc(l1$+chr$(0)):qm=0
  120. 1510 print#1,mid$(str$(li),2,len(str$(li))-1)" ";
  121. 1520 get#8,a$:ifst<>0then4450
  122. 1530 vl=asc(a$+chr$(0)):ifvl=0thenprint#1,chr$(13);:qm=0:goto 1490
  123. 1550 ifvl=34thenqm=abs(qm=0)
  124. 1580 print#1,cd$(vl*abs(qm=1));kw$(vl*abs(qm=0));
  125. 1590 getg$:ifg$<>" "then 1630
  126. 1600 getg$:ifg$<>chr$(13)andg$<>"q"then 1600
  127. 1610 ifg$<>"q"then 1630
  128. 1620 goto 4450
  129. 1630 goto 1520
  130. 1640 goto 4450
  131. 1650 gosub 4490:close1:close8:close15:end
  132. 1660 data"00","[194][210][203]",0
  133. 1670 data"01","[207][210][193] ($1,[216])",1
  134. 1680 data"02","???",0
  135. 1690 data"03","???",0
  136. 1700 data"04","???",0
  137. 1710 data"05","[207][210][193] $1",1
  138. 1720 data"06","[193][211][204] $1",1
  139. 1730 data"07","???",0
  140. 1740 data"08","[208][200][208]",0
  141. 1750 data"09","[207][210][193] #$1",1
  142. 1760 data"0[193]","[193][211][204]",0
  143. 1770 data"0[194]","???",0
  144. 1780 data"0[195]","???",0
  145. 1790 data"0[196]","[207][210][193] $21",2
  146. 1800 data"0[197]","[193][211][204] $21",2
  147. 1810 data"0[198]","???",0
  148. 1820 data"10","[194][208][204] $0",1
  149. 1830 data"11","[207][210][193] ($1),[217]",1
  150. 1840 data"12","???",0
  151. 1850 data"13","???",0
  152. 1860 data"14","???",0
  153. 1870 data"15","[207][210][193] $1,[216]",1
  154. 1880 data"16","[193][211][204] $1,[216]",1
  155. 1890 data"17","???",0
  156. 1900 data"18","[195][204][195]",0
  157. 1910 data"19","[207][210][193] $21,[217]",2
  158. 1920 data"1[193]","???",0
  159. 1930 data"1[194]","???",0
  160. 1940 data"1[195]","???",0
  161. 1950 data"1[196]","[207][210][193] $21,[216]",2
  162. 1960 data"1[197]","[193][211][204] $21,[216]",2
  163. 1970 data"1[198]","???",0
  164. 1980 data"20","[202][211][210] $21",2
  165. 1990 data"21","[193][206][196] ($1,[216])",1
  166. 2000 data"22","???",0
  167. 2010 data"23","???",0
  168. 2020 data"24","[194][201][212] $1",1
  169. 2030 data"25","[193][206][196] $1",1
  170. 2040 data"26","[210][207][204] $1",1
  171. 2050 data"27","???",0
  172. 2060 data"28","[208][204][208]",0
  173. 2070 data"29","[193][206][196] #$1",1
  174. 2080 data"2[193]","[210][207][204]",0
  175. 2090 data"2[194]","???",0
  176. 2100 data"2[195]","[194][201][212] $21",2
  177. 2110 data"2[196]","[193][206][196] $21",2
  178. 2120 data"2[197]","[210][207][204] $21",2
  179. 2130 data"2[198]","???",0
  180. 2140 data"30","[194][205][201] $0",1
  181. 2150 data"31","[193][206][196] ($1),[217]",1
  182. 2160 data"32","???",0
  183. 2170 data"33","???",0
  184. 2180 data"34","???",0
  185. 2190 data"35","[193][206][196] $1,[216]",1
  186. 2200 data"36","[210][207][204] $1,[216]",1
  187. 2210 data"37","???",0
  188. 2220 data"38","[211][197][195]",0
  189. 2230 data"39","[193][206][196] $21,[217]",2
  190. 2240 data"3[193]","???",0
  191. 2250 data"3[194]","???",0
  192. 2260 data"3[195]","???",0
  193. 2270 data"3[196]","[193][206][196] $21,[216]",2
  194. 2280 data"3[197]","[210][207][204] $21,[216]",2
  195. 2290 data"3[198]","???",0
  196. 2300 data"40","[210][212][201]",0
  197. 2310 data"41","[197][207][210] ($1,[216])",1
  198. 2320 data"42","???",0
  199. 2330 data"43","???",0
  200. 2340 data"44","???",0
  201. 2350 data"45","[197][207][210] $1",1
  202. 2360 data"46","[204][211][210] $1",1
  203. 2370 data"47","???",0
  204. 2380 data"48","[208][200][193]",0
  205. 2390 data"49","[197][207][210] #$1",1
  206. 2400 data"4[193]","[204][211][210]",0
  207. 2410 data"4[194]","???",0
  208. 2420 data"4[195]","[202][205][208] $21",2
  209. 2430 data"4[196]","[197][207][210] $21",2
  210. 2440 data"4[197]","[204][211][210] $21",2
  211. 2450 data"4[198]","???",0
  212. 2460 data"50","[194][214][195] $0",1
  213. 2470 data"51","[197][207][210] ($1),[217]",1
  214. 2480 data"52","???",0
  215. 2490 data"53","???",0
  216. 2500 data"54","???",0
  217. 2510 data"55","[197][207][210] $1,[216]",1
  218. 2520 data"56","[204][211][210][160]$1,[216]",1
  219. 2530 data"57","???",0
  220. 2540 data"58","[195][204][201]",0
  221. 2550 data"59","[197][207][210] $21,[217]",2
  222. 2560 data"5[193]","???",0
  223. 2570 data"5[194]","???",0
  224. 2580 data"5[195]","???",0
  225. 2590 data"5[196]","[197][207][210] $21,[216]",2
  226. 2600 data"5[197]","[204][211][210] $21,[216]",2
  227. 2610 data"5[198]","???",0
  228. 2620 data"60","[210][212][211]",0
  229. 2630 data"61","[193][196][195] ($1,[216])",1
  230. 2640 data"62","[193][196][195] $1",1
  231. 2650 data"63","???",0
  232. 2660 data"64","???",0
  233. 2670 data"65","[193][196][195] $1",1
  234. 2680 data"66","[210][207][210] $1",1
  235. 2690 data"67","???",0
  236. 2700 data"68","[208][204][193]",0
  237. 2710 data"69","[193][196][195] #$1",1
  238. 2720 data"6[193]","[210][207][210]",0
  239. 2730 data"6[194]","???",0
  240. 2740 data"6[195]","[202][205][208] (21)",2
  241. 2750 data"6[196]","[193][196][195] $21",2
  242. 2760 data"6[197]","[210][207][210] $21",2
  243. 2770 data"6[198]","???",0
  244. 2780 data"70","[194][214][211] $0",1
  245. 2790 data"71","[193][196][195] ($1),[217]",1
  246. 2800 data"72","???",0
  247. 2810 data"73","???",0
  248. 2820 data"74","???",0
  249. 2830 data"75","[193][196][195] $1,[216]",1
  250. 2840 data"76","[210][207][210] $1,[216]",1
  251. 2850 data"77","???",0
  252. 2860 data"78","[211][197][201]",0
  253. 2870 data"79","[193][196][195] $21,[217]",2
  254. 2880 data"7[193]","???",0
  255. 2890 data"7[194]","???",0
  256. 2900 data"7[195]","???",0
  257. 2910 data"7[196]","[193][196][195] $21,[216]",2
  258. 2920 data"7[197]","[210][207][210] $21,[216]",2
  259. 2930 data"7[198]","???",0
  260. 2940 data"80","???",0
  261. 2950 data"81","[211][212][193] ($1,[216])",1
  262. 2960 data"82","???",0
  263. 2970 data"83","???",0
  264. 2980 data"84","[211][212][217] $1",1
  265. 2990 data"85","[211][212][193] $1",1
  266. 3000 data"86","[211][212][216] $1",1
  267. 3010 data"87","???",0
  268. 3020 data"88","[196][197][217]",0
  269. 3030 data"89","???",0
  270. 3040 data"8[193]","[212][216][193]",0
  271. 3050 data"8[194]","???",0
  272. 3060 data"8[195]","[211][212][217] $21",2
  273. 3070 data"8[196]","[211][212][193] $21",2
  274. 3080 data"8[197]","[211][212][216] $21",2
  275. 3090 data"8[198]","???",0
  276. 3100 data"90","[194][195][195] $0",1
  277. 3110 data"91","[211][212][193] ($1),[217]",1
  278. 3120 data"92","???",0
  279. 3130 data"93","???",0
  280. 3140 data"94","[211][212][217] $1,[216]",1
  281. 3150 data"95","[211][212][193] $1,[216]",1
  282. 3160 data"96","[211][212][216] $1,[216]",1
  283. 3170 data"97","???",0
  284. 3180 data"98","[212][217][193]",0
  285. 3190 data"99","[211][212][193] $21,[217]",2
  286. 3200 data"9[193]","[212][216][211]",0
  287. 3210 data"9[194]","???",0
  288. 3220 data"9[195]","???",0
  289. 3230 data"9[196]","[211][212][193] $21,[216]",2
  290. 3240 data"9[197]","???",0
  291. 3250 data"9[198]","???",0
  292. 3260 data"[193]0","[204][196][217] #$1",1
  293. 3270 data"[193]1","[204][196][193] ($1,[216])",1
  294. 3280 data"[193]2","[204][196][216] #$1",1
  295. 3290 data"[193]3","???",0
  296. 3300 data"[193]4","[204][196][217] $1",1
  297. 3310 data"[193]5","[204][196][193] $1",1
  298. 3320 data"[193]6","[204][196][216] $1",1
  299. 3330 data"[193]7","???",0
  300. 3340 data"[193]8","[212][193][217]",0
  301. 3350 data"[193]9","[204][196][193] #$1",1
  302. 3360 data"[193][193]","[212][193][216]",0
  303. 3370 data"[193][194]","???",0
  304. 3380 data"[193][195]","[204][196][217] $21",2
  305. 3390 data"[193][196]","[204][196][193] $21",2
  306. 3400 data"[193][197]","[204][196][216] $21",2
  307. 3410 data"[193][198]","???",0
  308. 3420 data"[194]0","[194][195][211] $0",1
  309. 3430 data"[194]1","[204][196][193] ($1),[217]",1
  310. 3440 data"[194]2","???",0
  311. 3450 data"[194]3","???",0
  312. 3460 data"[194]4","[204][196][217] $1,[216]",1
  313. 3470 data"[194]5","[204][196][193] $1,[216]",1
  314. 3480 data"[194]6","[204][196][216] $1,[217]",1
  315. 3490 data"[194]7","???",0
  316. 3500 data"[194]8","[195][204][214]",0
  317. 3510 data"[194]9","[204][196][193] $21,[217]",2
  318. 3520 data"[194][193]","[212][211][216]",0
  319. 3530 data"[194][194]","???",0
  320. 3540 data"[194][195]","[204][196][217] $21,[216]",2
  321. 3550 data"[194][196]","[204][196][193] $21,[216]",2
  322. 3560 data"[194][197]","[204][196][216] $21,[217]",2
  323. 3570 data"[194][198]","???",0
  324. 3580 data"[195]0","[195][208][217] #$1",1
  325. 3590 data"[195]1","[195][205][208] ($1,[216])",1
  326. 3600 data"[195]2","???",0
  327. 3610 data"[195]3","???",0
  328. 3620 data"[195]4","[195][208][217] $1",1
  329. 3630 data"[195]5","[195][205][208] $1",1
  330. 3640 data"[195]6","[196][197][195] $1",1
  331. 3650 data"[195]7","???",0
  332. 3660 data"[195]8","[201][206][217]",0
  333. 3670 data"[195]9","[195][205][208] #$1",1
  334. 3680 data"[195][193]","[196][197][216]",0
  335. 3690 data"[195][194]","???",0
  336. 3700 data"[195][195]","[195][208][217] $21",2
  337. 3710 data"[195][196]","[195][205][208] $21",2
  338. 3720 data"[195][197]","[196][197][195] $21",2
  339. 3730 data"[195][198]","???",0
  340. 3740 data"[196]0","[194][206][197] $0",1
  341. 3750 data"[196]1","[195][205][208] ($1),[217]",1
  342. 3760 data"[196]2","???",0
  343. 3770 data"[196]3","???",0
  344. 3780 data"[196]4","???",0
  345. 3790 data"[196]5","[195][205][208] $1,[216]",1
  346. 3800 data"[196]6","[196][197][195] $1,[216]",1
  347. 3810 data"[196]7","???",0
  348. 3820 data"[196]8","[195][204][196]",0
  349. 3830 data"[196]9","[195][205][208] $21,[217]",2
  350. 3840 data"[196][193]","???",0
  351. 3850 data"[196][194]","???",0
  352. 3860 data"[196][195]","???",0
  353. 3870 data"[196][196]","[195][205][208] $21,[216]",2
  354. 3880 data"[196][197]","[196][197][195] $21,[216]",2
  355. 3890 data"[196][198]","???",0
  356. 3900 data"[197]0","[195][208][216] #$1",1
  357. 3910 data"[197]1","[211][194][195] ($1,[216])",1
  358. 3920 data"[197]2","???",0
  359. 3930 data"[197]3","???",0
  360. 3940 data"[197]4","[195][208][216] $1",1
  361. 3950 data"[197]5","[211][194][195] $1",1
  362. 3960 data"[197]6","[201][206][195] $1",1
  363. 3970 data"[197]7","???",0
  364. 3980 data"[197]8","[201][206][216]",0
  365. 3990 data"[197]9","[211][194][195] #$1",1
  366. 4000 data"[197][193]","[206][207][208]",0
  367. 4010 data"[197][194]","???",0
  368. 4020 data"[197][195]","[195][208][216] $21",2
  369. 4030 data"[197][196]","[211][194][195] $21",2
  370. 4040 data"[197][197]","[201][206][195] $21",2
  371. 4050 data"[197][198]","???",0
  372. 4060 data"[198]0","[194][197][209] $0",1
  373. 4070 data"[198]1","[211][194][195] ($1),[217]",1
  374. 4080 data"[198]2","???",0
  375. 4090 data"[198]3","???",0
  376. 4100 data"[198]4","???",0
  377. 4110 data"[198]5","[211][194][195] $1,[216]",1
  378. 4120 data"[198]6","[201][206][195] $1,[216]",1
  379. 4130 data"[198]7","???",0
  380. 4140 data"[198]8","[211][197][196]",0
  381. 4150 data"[198]9","[211][194][195] $21,[217]",2
  382. 4160 data"[198][193]","???",0
  383. 4170 data"[198][194]","???",0
  384. 4180 data"[198][195]","???",0
  385. 4190 data"[198][196]","[211][194][195] $21,[216]",2
  386. 4200 data"[198][197]","[201][206][195] $21,[216]",2
  387. 4210 data"[198][198]","???",0
  388. 4220 data"[197][206][196]","[198][207][210]","[206][197][216][212]","[196][193][212][193]","[201][206][208][213][212]#","[201][206][208][213][212]","[196][201][205]","[210][197][193][196]","[204][197][212]","[199][207][212][207]"
  389. 4230 data"[210][213][206]","[201][198]","[210][197][211][212][207][210][197]","[199][207][211][213][194]","[210][197][212][213][210][206]","[210][197][205]","[211][212][207][208]","[207][206]","[215][193][201][212]","[204][207][193][196]"
  390. 4240 data"[211][193][214][197]","[214][197][210][201][198][217]","[196][197][198]","[208][207][203][197]","[208][210][201][206][212]#","[208][210][201][206][212]","[195][207][206][212]","[204][201][211][212]","[195][204][210]"
  391. 4250 data"[195][205][196]","[211][217][211]","[207][208][197][206]","[195][204][207][211][197]","[199][197][212]","[206][197][215]","[212][193][194](","[212][207]","[198][206]","[211][208][195](","[212][200][197][206]"
  392. 4260 data"[206][207][212]","[211][212][197][208]","+","-","*","/","^","[193][206][196]","[207][210]",">","=","<","[211][199][206]","[201][206][212]"
  393. 4270 data"[193][194][211]","[213][211][210]","[198][210][197]","[208][207][211]","[211][209][210]","[210][206][196]","[204][207][199]","[197][216][208]","[195][207][211]","[211][201][206]"
  394. 4280 data"[212][193][206]","[193][212][206]","[208][197][197][203]","[204][197][206]","[211][212][210]$","[214][193][204]","[193][211][195]","[195][200][210]$","[204][197][198][212]$"
  395. 4290 data"[210][201][199][200][212]$","[205][201][196]$"
  396. 4300 data".",".",".",".",".","<white>",".",".","<disable[195]=>","<enable[195]=>","."
  397. 4310 data.,.,"<[195]/[210]>",<lowercase>,.,.,<down>,<rvson>,<home>,"<[196][197][204]>"
  398. 4320 data".",".",".",".",".",".",".","<red>","<right>","<green>","<blue>"
  399. 4330 data" ","!","'","#","$","%","&","'","(",")","*","+",",","-",".","/"
  400. 4340 data0,1,2,3,4,5,6,7,8,9,":",";","<","=",">","?","@"
  401. 4350 data"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p"
  402. 4360 data"q","r","s","t","u","v","w","x","y","z","[","\","]","^","_","-"
  403. 4370 data"[193]","[194]","[195]","[196]","[197]","[198]","[199]","[200]","[201]","[202]","[203]","[204]","[205]","[206]","[207]","[208]"
  404. 4380 data"[209]","[210]","[211]","[212]","[213]","[214]","[215]","[216]","[217]","[218]"
  405. 4390 data.,.,.,.,.,.,<orange>,.,.,.,.,.,.,.,.,.,.,.,"<[211][195][210]>","<[213][195]>",.
  406. 4400 data<black>,<up>,<rvsoff>,"<[195][204][210]>","<[196][197][204]>",<brown>,<l red>,<gray1>,<gray2>
  407. 4410 data<l grn>,<l blu>,<gray3>,<purple>,<left>,<yellow>,<cyan>," "
  408. 4420 forx=161to191:cd$(x)=".":next:forx=192to223:cd$(x)=cd$(x-96):next
  409. 4430 forx=224to254:cd$(x)=cd$(x-64):next:cd$(255)="<pi>":cd$(126)="<pi>"
  410. 4440 cd$(13)=chr$(13):cd$(34)=chr$(34):return
  411. 4450 print:print"  [197]nd of [198]ile, press any key":close1:close8:close15
  412. 4451 cd$(0)="."
  413. 4460 poke198,0:geta$
  414. 4470 geta$:ifa$=""ora$="[133]"then 4470
  415. 4480 goto 180
  416. 4490 input#15,er,er$,tr,sc
  417. 4500 ifer<>0thenprint"[196]isk [197]rror[146][155]":printer"--"er$" at "tr","sc:close1:close8:close15:end
  418. 4510 return
  419. 4520 ifst=64orst<>0then 4450
  420. 4530 return
  421. 7000 close1:ifdv=4thendv=3:open1,dv,1:return
  422. 7001 dv=4:open1,dv,1:return
  423.