home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_A.d64 / proedit.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  23KB  |  1,553 lines
  1. 10  +$1700
  2. 15  abs
  3. 20  tab(screen=$e000
  4. 30  tab(posx=$22
  5. 40  tab(posy=$23
  6. 50  tab(help=$24
  7. 60  tab(scrpo=$5c
  8. 70  tab(tabx=$4d
  9. 80  tab(taby=$4e
  10. 90  tab(curlo=$5e
  11. 91  tab(curhi=$5f
  12. 100  tab(pos=$02
  13. 101  tab(sure=$a7
  14. 110  tab(figmem=$e400
  15. 120  tab(charmem=$e600
  16. 130  tab(memory=$3d00
  17. 140  tab(linemem=$e800
  18. 150  tab(reg=$14
  19. 160  tab(work=$02c0
  20. 170  tab(mempo=$6e
  21. 300  tab(commands=$0390
  22. 310  tab(comle=commands+$0224
  23. 320  tab(focod=commands+$0246
  24. 330  tab(oucod=commands+$025c
  25. 331  tab(colours=commands+$0264
  26. 340  tab(table=commands+$0270
  27. 350  tab(foots=commands+$02f0
  28. 360  tab(width=commands+$0370
  29. 500  tab(print=$2700
  30. 510  tab(setirq=$3930
  31. 511  tab(chrin=$39c5
  32. 520  tab(scrasc=$3676
  33. 530  tab(ascscr=$3690
  34. 540  tab(romon=$36c0
  35. 550  tab(romoff=$36c8
  36. 560  tab(figure=$36d0
  37. 570  tab(status=$3729
  38. 580  tab(stget=$373f
  39. 1000  (NULL)setirq
  40. 1060  mid$#$00
  41. 1070  (NULL)end
  42. 1080  (NULL)end+1
  43. 1090  (NULL)$9d
  44. 1091  peek#<(proup+2)
  45. 1092  len#>(proup+2)
  46. 1093  mid$#$06
  47. 1094  (NULL)loadfile
  48. 1100  mid$#$85
  49. 1110  (NULL)$d018
  50. 1111  mid$#$94
  51. 1112  (NULL)$dd00
  52. 1113  (NULL)clmem
  53. 1120  mid$#$08
  54. 1130  (NULL)$ffd2
  55. 1131 start mid$colours
  56. 1132  (NULL)$d020
  57. 1133  mid$colours+1
  58. 1134  (NULL)$d021
  59. 1135  mid$colours+2
  60. 1136  (NULL)$0286
  61. 1140  (NULL)clscr
  62. 1150  mid$end
  63. 1160  (NULL)posx
  64. 1170  mid$end+1
  65. 1180  (NULL)posy
  66. 1190  mid$#$00
  67. 1200  (NULL)tabx
  68. 1210  (NULL)taby
  69. 1220  peek#>(mamen)
  70. 1230  len#<(mamen)
  71. 1240  (NULL)texout
  72. 1250 main (NULL)submen
  73. 1260 redo (NULL)invmain
  74. 1270  (NULL)invsub
  75. 1280 key (NULL)chrin
  76. 1290  (NULL)key
  77. 1300  (NULL)
  78. 1310  (NULL)invmain
  79. 1320  (NULL)invsub
  80. 1330  (NULL)
  81. 1340  str$#$11
  82. 1350  (NULL)down
  83. 1360  str$#$91
  84. 1370  (NULL)up
  85. 1380  str$#$1d
  86. 1390  (NULL)right
  87. 1400  str$#$9d
  88. 1410  (NULL)left
  89. 1420  str$#$0d
  90. 1430  (NULL)enter
  91. 1440  (NULL)redo
  92. 1450 down peekposx
  93. 1460  mid$posy
  94. 1470  str$sunumb,x
  95. 1480  (NULL)redo
  96. 1490  right$posy
  97. 1500  (NULL)redo
  98. 1510 up chr$posy
  99. 1520  (NULL)redo
  100. 1530  right$posy
  101. 1540  (NULL)redo
  102. 1550 right mid$#$00
  103. 1560  (NULL)posy
  104. 1570  right$posx
  105. 1580  mid$posx
  106. 1590  str$#$04
  107. 1600  (NULL)clold
  108. 1610 left mid$#$00
  109. 1620  (NULL)posy
  110. 1630  chr$posx
  111. 1640  (NULL)clold
  112. 1650  right$posx
  113. 1660  (NULL)redo
  114. 1670 clold peek#$00
  115. 1680  mid$#$20
  116. 1690 doclo (NULL)screen+$50,x
  117. 1700  (NULL)
  118. 1710  (NULL)doclo
  119. 1720  (NULL)main
  120. 1730 enter mid$posx
  121. 1740  (NULL)
  122. 1750  (NULL)
  123. 1760  (NULL)
  124. 1770  valposx
  125. 1780  (NULL)
  126. 1790  valposy
  127. 1800  (NULL)
  128. 1810  (NULL)
  129. 1820  mid$vectors,x
  130. 1830  (NULL)cavec+1
  131. 1840  mid$vectors+1,x
  132. 1850  (NULL)cavec+2
  133. 1860  mid$posx
  134. 1870  (NULL)end
  135. 1880  mid$posy
  136. 1890  (NULL)end+1
  137. 1891  (NULL)clscr
  138. 1900 cavec (NULL)$ffff
  139. 1910 exit (NULL)
  140. 2010 edpc1 mid$#$00
  141. 2020  (NULL)end+3
  142. 2030  mid$#$03
  143. 2040  (NULL)taby
  144. 2060  peek#>(p1cod)
  145. 2070  len#<(p1cod)
  146. 2080  (NULL)texout
  147. 2090  len#$03
  148. 2100  (NULL)normask
  149. 2110  mid$#$ff
  150. 2120  (NULL)linemem+$48
  151. 2130  peek#$00
  152. 2140  len#$00
  153. 2150 cop1len mid$comle,y
  154. 2160  (NULL)linemem+3,x
  155. 2170  (NULL)
  156. 2180  (NULL)
  157. 2190  (NULL)
  158. 2200  (NULL)
  159. 2210  (NULL)
  160. 2220  atn#$12
  161. 2230  (NULL)cop1len
  162. 2240  peek#$00
  163. 2250 cop1dat mid$commands,x
  164. 2260  (NULL)figmem,x
  165. 2270  (NULL)
  166. 2280  (NULL)cop1dat
  167. 2290  peek#$1f
  168. 2300 cop1dat2 mid$commands+$0100,x
  169. 2310  (NULL)figmem+$0100,x
  170. 2320  (NULL)
  171. 2330  (NULL)cop1dat2
  172. 2340  (NULL)datout
  173. 2350  (NULL)p1ex
  174. 2360  (NULL)romoff
  175. 2370  peek#$00
  176. 2380 rec1dat mid$figmem,x
  177. 2390  (NULL)commands,x
  178. 2400  (NULL)
  179. 2410  (NULL)rec1dat
  180. 2420  peek#$1f
  181. 2430 rec1dat2 mid$figmem+$0100,x
  182. 2440  (NULL)commands+$0100,x
  183. 2450  (NULL)
  184. 2460  (NULL)rec1dat2
  185. 2470  peek#$00
  186. 2480  len#$00
  187. 2490 rec1len mid$linemem+3,x
  188. 2500  (NULL)comle,y
  189. 2510  (NULL)
  190. 2520  (NULL)
  191. 2530  (NULL)
  192. 2540  (NULL)
  193. 2550  (NULL)
  194. 2560  atn#$12
  195. 2570  (NULL)rec1len
  196. 2580  (NULL)romon
  197. 2590 p1ex (NULL)start
  198. 2610 edpc2 mid$#$00
  199. 2620  (NULL)end+3
  200. 2630  mid$#$02
  201. 2640  (NULL)taby
  202. 2660  peek#>(p2cod)
  203. 2670  len#<(p2cod)
  204. 2680  (NULL)texout
  205. 2690  len#$02
  206. 2700  (NULL)normask
  207. 2710  peek#$28
  208. 2720 cop2mask mid$p2mask,x
  209. 2730  (NULL)linemem+$28,x
  210. 2740  (NULL)
  211. 2750  (NULL)cop2mask
  212. 2760  peek#$00
  213. 2770  len#$12
  214. 2780 cop2len mid$comle,y
  215. 2790  (NULL)linemem+3,x
  216. 2800  (NULL)
  217. 2810  (NULL)
  218. 2820  (NULL)
  219. 2830  (NULL)
  220. 2840  (NULL)
  221. 2850  atn#$22
  222. 2860  (NULL)cop2len
  223. 2870  peek#$00
  224. 2880 cop2dat mid$commands+$0120,x
  225. 2890  (NULL)figmem,x
  226. 2900  (NULL)
  227. 2910  (NULL)cop2dat
  228. 2920  peek#$03
  229. 2930 cop2dat2 mid$commands+$0220,x
  230. 2940  (NULL)figmem+$0100,x
  231. 2941  mid$colours,x
  232. 2942  (NULL)figmem+$0104,x
  233. 2950  (NULL)
  234. 2960  (NULL)cop2dat2
  235. 2970  (NULL)datout
  236. 2980  (NULL)p2ex
  237. 2990  (NULL)romoff
  238. 3000  peek#$00
  239. 3010  len#$12
  240. 3020 rec2len mid$linemem+3,x
  241. 3030  (NULL)comle,y
  242. 3040  (NULL)
  243. 3050  (NULL)
  244. 3060  (NULL)
  245. 3070  (NULL)
  246. 3080  (NULL)
  247. 3090  atn#$22
  248. 3100  (NULL)rec2len
  249. 3110  peek#$00
  250. 3120 rec2dat mid$figmem,x
  251. 3130  (NULL)commands+$0120,x
  252. 3140  (NULL)
  253. 3150  (NULL)rec2dat
  254. 3160  peek#$03
  255. 3170 rec2dat2 mid$figmem+$0100,x
  256. 3180  (NULL)commands+$0220,x
  257. 3181  mid$figmem+$0104,x
  258. 3182  (NULL)colours,x
  259. 3190  (NULL)
  260. 3200  (NULL)rec2dat2
  261. 3210  (NULL)romon
  262. 3220 p2ex (NULL)start
  263. 3230 edtable mid$#$02
  264. 3240  (NULL)taby
  265. 3270  peek#>(ptcod)
  266. 3280  len#<(ptcod)
  267. 3290  (NULL)texout
  268. 3300  peek#$00
  269. 3310  len#$44
  270. 3320 coptma (NULL)
  271. 3330  (NULL)linemem,x
  272. 3340  mid$#$06
  273. 3350  (NULL)linemem+1,x
  274. 3360  mid$#$25
  275. 3370  (NULL)linemem+2,x
  276. 3380  mid$#$ff
  277. 3390  (NULL)linemem+3,x
  278. 3400  (NULL)
  279. 3410  (NULL)
  280. 3420  (NULL)
  281. 3430  (NULL)
  282. 3440  (NULL)
  283. 3450  (NULL)
  284. 3460  atn#$54
  285. 3470  (NULL)coptma
  286. 3480  mid$#$ff
  287. 3490  (NULL)linemem+$20
  288. 3500  mid$#$03
  289. 3510  (NULL)taby
  290. 3520  peek#$00
  291. 3530 ptbeg mid$#$06
  292. 3540  (NULL)tabx
  293. 3550  (NULL)reg
  294. 3560  (NULL)scrcomp
  295. 3570  peekreg
  296. 3580 ptred (NULL)
  297. 3590  (NULL)charo2
  298. 3600  mid$#$20
  299. 3610  (NULL)charo2
  300. 3620  (NULL)
  301. 3630  (NULL)
  302. 3640  asc#$0f
  303. 3650  (NULL)ptlf
  304. 3660  (NULL)ptred
  305. 3670 ptlf right$taby
  306. 3680  right$taby
  307. 3690  tan#$80
  308. 3700  (NULL)ptbeg
  309. 3710  (NULL)
  310. 3730 edprtab mid$#$00
  311. 3740  (NULL)end+3
  312. 3770  peek#>(pttex)
  313. 3780  len#<(pttex)
  314. 3790  (NULL)texout
  315. 3800  (NULL)edtable
  316. 3810  peek#$7f
  317. 3820 coptfig mid$table,x
  318. 3830  (NULL)figmem,x
  319. 3840  (NULL)
  320. 3850  (NULL)coptfig
  321. 3860  (NULL)datout
  322. 3870  (NULL)ptex
  323. 3880  (NULL)romoff
  324. 3890  peek#$7f
  325. 3900 rectfig mid$figmem,x
  326. 3910  (NULL)table,x
  327. 3920  (NULL)
  328. 3930  (NULL)rectfig
  329. 3940  (NULL)romon
  330. 3950 ptex (NULL)start
  331. 3960 edwidth mid$#$01
  332. 3970  (NULL)end+3
  333. 4020  peek#>(witex)
  334. 4030  len#<(witex)
  335. 4040  (NULL)texout
  336. 4050  (NULL)edtable
  337. 4060  (NULL)wisdat
  338. 4070  (NULL)datout
  339. 4080  (NULL)ewex
  340. 4090  (NULL)wildat
  341. 4100 ewex (NULL)start
  342. 4120 edform mid$#$00
  343. 4140  (NULL)end+3
  344. 4150  mid$#$02
  345. 4160  (NULL)taby
  346. 4170  peek#>(fotex)
  347. 4180  len#<(fotex)
  348. 4190  (NULL)texout
  349. 4200  peek#$68
  350. 4210 copfmask mid$fomask,x
  351. 4220  (NULL)linemem,x
  352. 4230  (NULL)
  353. 4240  (NULL)copfmask
  354. 4250  peek#$15
  355. 4260 copffig mid$focod,x
  356. 4270  (NULL)figmem,x
  357. 4280  (NULL)
  358. 4290  (NULL)copffig
  359. 4300  peek#$7f
  360. 4310 copflet mid$foots,x
  361. 4320  (NULL)charmem,x
  362. 4330  (NULL)
  363. 4340  (NULL)copflet
  364. 4350  (NULL)datout
  365. 4360  (NULL)efex
  366. 4370  (NULL)romoff
  367. 4380  peek#$15
  368. 4390 recffig mid$figmem,x
  369. 4400  (NULL)focod,x
  370. 4410  (NULL)
  371. 4420  (NULL)recffig
  372. 4430  peek#$7f
  373. 4440 recflet mid$charmem,x
  374. 4450  (NULL)foots,x
  375. 4460  (NULL)
  376. 4470  (NULL)recflet
  377. 4480  (NULL)romon
  378. 4490 efex (NULL)start
  379. 4510 output mid$#$00
  380. 4520  (NULL)end+3
  381. 4540  mid$#$04
  382. 4550  (NULL)taby
  383. 4560  peek#>(outex)
  384. 4570  len#<(outex)
  385. 4580  (NULL)texout
  386. 4590  peek#$14
  387. 4600 copolen mid$oumask,x
  388. 4610  (NULL)linemem,x
  389. 4620  (NULL)
  390. 4630  (NULL)copolen
  391. 4640  peek#$07
  392. 4650 copofig mid$oucod,x
  393. 4660  (NULL)figmem,x
  394. 4670  (NULL)
  395. 4680  (NULL)copofig
  396. 4690  (NULL)datout
  397. 4700  (NULL)ouex
  398. 4710  (NULL)romoff
  399. 4720  peek#$07
  400. 4730 recofig mid$figmem,x
  401. 4740  (NULL)oucod,x
  402. 4750  (NULL)
  403. 4760  (NULL)recofig
  404. 4770  (NULL)romon
  405. 4780  (NULL)print
  406. 4790 ouex (NULL)start
  407. 5001 load mid$#$00
  408. 5010  (NULL)end+3
  409. 5040  peek#>(lotex)
  410. 5050  len#<(lotex)
  411. 5060  (NULL)texout
  412. 5070  peek#$0f
  413. 5080 coplchr mid$diname,x
  414. 5090  (NULL)charmem,x
  415. 5100  mid$lomask,x
  416. 5110  (NULL)linemem,x
  417. 5120  (NULL)
  418. 5130  (NULL)coplchr
  419. 5140 loared (NULL)datout
  420. 5150  (NULL)loex
  421. 5151  (NULL)clmem
  422. 5160  (NULL)romoff
  423. 5170  peek#$0f
  424. 5180 reclchr mid$charmem,x
  425. 5200  (NULL)reccok
  426. 5210  mid$#$20
  427. 5211 reccok (NULL)diname,x
  428. 5220  (NULL)scrasc
  429. 5230  (NULL)work,x
  430. 5240  (NULL)
  431. 5250  (NULL)reclchr
  432. 5251  (NULL)romon
  433. 5260  mid$work+15
  434. 5270  str$#$4e
  435. 5280  (NULL)lonorm
  436. 5290  str$#$50
  437. 5300  (NULL)lopack
  438. 5310  (NULL)loared
  439. 5350 lonorm peek#<(work)
  440. 5360  len#>(work)
  441. 5370  mid$#$10
  442. 5380  (NULL)loadfile
  443. 5430  (NULL)status
  444. 5440 lokey (NULL)chrin
  445. 5450  (NULL)lokey
  446. 5460 loex (NULL)start
  447. 5500 lopack mid$#$01
  448. 5510  peek#$08
  449. 5520  len#$02
  450. 5530  (NULL)$ffba
  451. 5540  mid$#$10
  452. 5550  peek#<(work)
  453. 5560  len#>(work)
  454. 5570  (NULL)$ffbd
  455. 5580  mid$#$01
  456. 5590  (NULL)$ffc0
  457. 5600  peek#$01
  458. 5610  (NULL)$ffc6
  459. 5620  peek#>(memory)
  460. 5630  len#<(memory)
  461. 5640  (NULL)sure+1
  462. 5650  (NULL)sure
  463. 5660  (NULL)$ffcf
  464. 5670  mid$$90
  465. 5680  (NULL)lpend
  466. 5690 lpred (NULL)$ffcf
  467. 5700  str$#$d6
  468. 5710  (NULL)paby
  469. 5720 lpcont len#$00
  470. 5730  (NULL)(sure),y
  471. 5740  right$sure
  472. 5750  (NULL)lpch
  473. 5760  right$sure+1
  474. 5770 lpch mid$$90
  475. 5780  asc#$40
  476. 5790  (NULL)lpred
  477. 5791 lpend (NULL)status
  478. 5800  mid$#$01
  479. 5810  (NULL)$ffc3
  480. 5820  (NULL)$ffcc
  481. 5830  (NULL)lokey
  482. 5840 paby (NULL)$ffcf
  483. 5850  (NULL)
  484. 5860  (NULL)
  485. 5870  (NULL)
  486. 5880  (NULL)$ffcf
  487. 5890 dounpa (NULL)(sure),y
  488. 5900  (NULL)
  489. 5910  atn#$ff
  490. 5920  (NULL)dounpa
  491. 5930  tan#$00
  492. 5940  (NULL)lpnov
  493. 5950  right$sure+1
  494. 5960  (NULL)lpch
  495. 5970 lpnov (NULL)
  496. 5980  (NULL)
  497. 5990  valsure
  498. 6000  (NULL)sure
  499. 6010  mid$sure+1
  500. 6020  val#$00
  501. 6030  (NULL)sure+1
  502. 6040  (NULL)lpch
  503. 6140 directory peek#$08
  504. 6150  len#$00
  505. 6160  mid$#$01
  506. 6170  (NULL)$ffba
  507. 6180  peek#<(ditex)
  508. 6190  len#>(ditex)
  509. 6200  mid$#$02
  510. 6210  (NULL)$ffbd
  511. 6220  mid$#$01
  512. 6230  (NULL)$ffc0
  513. 6240  peek#$01
  514. 6250  (NULL)$ffc6
  515. 6260  (NULL)$ffcf
  516. 6270  (NULL)$ffcf
  517. 6271 dibeg (NULL)scrcomp
  518. 6280  (NULL)$ffcf
  519. 6290  (NULL)$ffcf
  520. 6300  (NULL)dich
  521. 6310  (NULL)direx
  522. 6320  (NULL)$ffcf
  523. 6330  (NULL)
  524. 6340  (NULL)$ffcf
  525. 6350  (NULL)
  526. 6360  (NULL)figure
  527. 6370  peek#$02
  528. 6380 sefile mid$work,x
  529. 6390  str$#$30
  530. 6400  (NULL)oufile
  531. 6410  (NULL)
  532. 6420  (NULL)sefile
  533. 6440 oufile mid$work,x
  534. 6450  (NULL)charo2
  535. 6470  (NULL)
  536. 6480  (NULL)oufile
  537. 6550 oufex (NULL)$ffcf
  538. 6560  (NULL)namex
  539. 6561  (NULL)ascscr
  540. 6570  (NULL)charo2
  541. 6580  (NULL)oufex
  542. 6590 namex (NULL)dolf
  543. 6600  (NULL)dibeg
  544. 6610 direx (NULL)dolf
  545. 6611  (NULL)scrcomp
  546. 6620  (NULL)stget
  547. 6621  mid$#$01
  548. 6622  (NULL)$ffc3
  549. 6623  (NULL)$ffcc
  550. 6624  (NULL)chrin
  551. 6630  peek#$00
  552. 6640 distou mid$work+$10,x
  553. 6641  str$#$0d
  554. 6642  (NULL)distex
  555. 6650  (NULL)ascscr
  556. 6660  (NULL)charo2
  557. 6670  (NULL)
  558. 6680  (NULL)distou
  559. 6690 distex (NULL)lokey
  560. 6700 dich mid$$cb
  561. 6710  str$#$3f
  562. 6720  (NULL)dicx
  563. 6730  mid$$90
  564. 6740  asc#$40
  565. 6750  (NULL)
  566. 6760 dicx mid$#$01
  567. 6770  (NULL)
  568. 7010 textup mid$#$00
  569. 7020  (NULL)tabx
  570. 7030  (NULL)taby
  571. 7040  peek#>(tetex)
  572. 7050  len#<(tetex)
  573. 7060  (NULL)texout
  574. 7070  (NULL)check
  575. 7080  (NULL)tudoit
  576. 7090  (NULL)start
  577. 7171 tudoit mid$#>(figmem)
  578. 7172  (NULL)coptu+5
  579. 7173  mid$#>(commands)
  580. 7174  (NULL)coptu+2
  581. 7175  peek#$00
  582. 7176  len#$05
  583. 7177 coptu mid$commands,x
  584. 7178  (NULL)figmem,x
  585. 7179  (NULL)
  586. 7180  (NULL)coptu
  587. 7181  right$coptu+2
  588. 7182  right$coptu+5
  589. 7183  (NULL)
  590. 7184  (NULL)coptu
  591. 7185  peek#<(texco)
  592. 7186  len#>(texco)
  593. 7187  mid$#$07
  594. 7188  (NULL)loadfile
  595. 7189  (NULL)status
  596. 7190  peek#$00
  597. 7200 tucop1 mid$$0340,x
  598. 7210  (NULL)figmem,x
  599. 7220  mid$$0430,x
  600. 7230  (NULL)figmem+$f0,x
  601. 7231  mid$$0550,x
  602. 7232  (NULL)figmem+$0270,x
  603. 7240  (NULL)
  604. 7250  (NULL)tucop1
  605. 7251  mid$$0530
  606. 7252  (NULL)figmem+$0222
  607. 7253  mid$$0531
  608. 7254  (NULL)figmem+$0223
  609. 7260  peek#$1e
  610. 7270  mid$#$ff
  611. 7280 tuclr (NULL)figmem+$0224,x
  612. 7290  (NULL)
  613. 7300  (NULL)tuclr
  614. 7310  peek#$1d
  615. 7320 tucop2 mid$$0532,x
  616. 7330  (NULL)figmem+$0246,x
  617. 7340  (NULL)
  618. 7350  (NULL)tucop2
  619. 7360  mid$$033c
  620. 7370  (NULL)figmem+$0264
  621. 7380  mid$$033d
  622. 7390  (NULL)figmem+$0265
  623. 7400  mid$$033e
  624. 7410  (NULL)figmem+$0266
  625. 7420  (NULL)romoff
  626. 7422  mid$#>(figmem)
  627. 7424  (NULL)rectu+2
  628. 7426  mid$#>(commands)
  629. 7428  (NULL)rectu+5
  630. 7430  peek#$00
  631. 7432  len#$05
  632. 7434 rectu mid$figmem,x
  633. 7436  (NULL)commands,x
  634. 7438  (NULL)
  635. 7440  (NULL)rectu
  636. 7442  right$rectu+2
  637. 7444  right$rectu+5
  638. 7446  (NULL)
  639. 7448  (NULL)rectu
  640. 7450  (NULL)romon
  641. 7452  (NULL)lokey
  642. 7500 check peek#>(chtex)
  643. 7510  len#<(chtex)
  644. 7520  (NULL)texout
  645. 7530 chkey (NULL)chrin
  646. 7540  (NULL)chkey
  647. 7550  str$#$59
  648. 7560  (NULL)chyes
  649. 7570  str$#$4e
  650. 7580  (NULL)chno
  651. 7590  (NULL)chkey
  652. 7600 chyes (NULL)
  653. 7610  (NULL)
  654. 7620 chno (NULL)
  655. 7630  (NULL)
  656. 7710 savset mid$#$00
  657. 7720  (NULL)tabx
  658. 7730  (NULL)taby
  659. 7740  peek#>(sstex)
  660. 7750  len#<(sstex)
  661. 7760  (NULL)texout
  662. 7770  (NULL)check
  663. 7780  (NULL)ssex
  664. 7790  peek#$08
  665. 7800  len#$01
  666. 7810  (NULL)$ffba
  667. 7820  peek#<(proup)
  668. 7830  len#>(proup)
  669. 7840  mid$#$08
  670. 7850  (NULL)$ffbd
  671. 7860  peek#>(commands)
  672. 7870  len#<(commands)
  673. 7880  (NULL)help+1
  674. 7890  (NULL)help
  675. 7900  peek#<(width+$0180)
  676. 7910  len#>(width+$0180)
  677. 7920  mid$#<(help)
  678. 7930  (NULL)$ffd8
  679. 7940  (NULL)status
  680. 7950  (NULL)lokey
  681. 7960 ssex (NULL)start
  682. 8000 view mid$#$00
  683. 8010  (NULL)tabx
  684. 8020  (NULL)taby
  685. 8030  (NULL)taby+1
  686. 8040  (NULL)posx
  687. 8050  (NULL)posy
  688. 8060 vimain (NULL)compos
  689. 8070  (NULL)showscr
  690. 8080 viredo (NULL)vicur
  691. 8090 vikey (NULL)chrin
  692. 8100  (NULL)vikey
  693. 8110  (NULL)vicur
  694. 8120  str$#$11
  695. 8130  (NULL)vidown
  696. 8140  str$#$91
  697. 8150  (NULL)viup
  698. 8160  str$#$1d
  699. 8170  (NULL)viright
  700. 8180  str$#$9d
  701. 8190  (NULL)vileft
  702. 8200  str$#$0d
  703. 8210  (NULL)vienter
  704. 8220  str$#$8c
  705. 8230  (NULL)viexit
  706. 8240  (NULL)viredo
  707. 8250 viexit (NULL)start
  708. 8260 vidown right$posy
  709. 8270  mid$posy
  710. 8280  str$#$19
  711. 8290  (NULL)vddont
  712. 8300  chr$posy
  713. 8310  mid$taby+1
  714. 8320  (NULL)vddoit
  715. 8330  mid$taby
  716. 8340  str$#$bd
  717. 8350  (NULL)vddont
  718. 8360 vddoit right$taby
  719. 8370  (NULL)vddont
  720. 8380  right$taby+1
  721. 8390 vddont (NULL)vimain
  722. 8400 viup chr$posy
  723. 8410  (NULL)vudont
  724. 8420  right$posy
  725. 8430  mid$taby
  726. 8440  (NULL)taby+1
  727. 8450  (NULL)vudont
  728. 8460  chr$taby
  729. 8470  mid$taby
  730. 8480  str$#$ff
  731. 8490  (NULL)vudont
  732. 8500  chr$taby+1
  733. 8510 vudont (NULL)vimain
  734. 8520 viright right$posx
  735. 8530  mid$posx
  736. 8540  str$#$28
  737. 8550  (NULL)vrdont
  738. 8560  chr$posx
  739. 8570  mid$tabx
  740. 8580  str$#$28
  741. 8590  (NULL)vrdo
  742. 8600  mid$#$00
  743. 8610  (NULL)posx
  744. 8620  (NULL)tabx
  745. 8630  (NULL)vidown
  746. 8640 vrdo right$tabx
  747. 8650 vrdont (NULL)vimain
  748. 8660 vileft chr$posx
  749. 8670  (NULL)vldont
  750. 8680  right$posx
  751. 8690  mid$tabx
  752. 8700  (NULL)vldo
  753. 8710  peek#$27
  754. 8720  (NULL)posx
  755. 8730  (NULL)
  756. 8740  (NULL)tabx
  757. 8750  (NULL)viup
  758. 8760 vldo chr$tabx
  759. 8770 vldont (NULL)vimain
  760. 8780 vienter mid$#$00
  761. 8790  (NULL)tabx
  762. 8800  (NULL)posx
  763. 8810  (NULL)vidown
  764. 9500 loadfile (NULL)$ffbd
  765. 9510  peek#$08
  766. 9520  len#$01
  767. 9530  (NULL)$ffba
  768. 9540  mid$#$00
  769. 9550  (NULL)$ffd5
  770. 10000 charout (NULL)scrcomp
  771. 10010 charo2 lentabx
  772. 10030  (NULL)(scrpo),y
  773. 10040  (NULL)
  774. 10050  atn#$28
  775. 10060  (NULL)conov
  776. 10070 dolf len#$00
  777. 10080  right$taby
  778. 10090  mid$taby
  779. 10100  str$#$19
  780. 10110  (NULL)conov
  781. 10111  (NULL)scroll
  782. 10120  chr$taby
  783. 10130 conov (NULL)tabx
  784. 10140  (NULL)
  785. 10150 scrcomp (NULL)
  786. 10160  peek#>(screen)
  787. 10170  len#<(screen)
  788. 10180  (NULL)scrpo+1
  789. 10190  (NULL)scrpo
  790. 10200  lentaby
  791. 10210  (NULL)sccok
  792. 10220 sccred mid$scrpo
  793. 10230  (NULL)
  794. 10240  val#$28
  795. 10250  (NULL)scrpo
  796. 10260  (NULL)sccnov
  797. 10270  right$scrpo+1
  798. 10280 sccnov (NULL)
  799. 10290  (NULL)sccred
  800. 10300 sccok (NULL)
  801. 10310  (NULL)
  802. 10320 texout (NULL)help+1
  803. 10330  (NULL)help
  804. 10331  (NULL)scrcomp
  805. 10340 tored len#$00
  806. 10350  mid$(help),y
  807. 10360  (NULL)toex
  808. 10370  str$#$ff
  809. 10380  (NULL)tolf
  810. 10390  str$#$fe
  811. 10400  (NULL)totab
  812. 10410  (NULL)charo2
  813. 10420 tocont right$help
  814. 10430  (NULL)tored
  815. 10440  right$help+1
  816. 10450  (NULL)tored
  817. 10460 toex (NULL)
  818. 10470 tolf (NULL)dolf
  819. 10471  (NULL)scrcomp
  820. 10480  (NULL)tocont
  821. 10490 totab right$help
  822. 10500  (NULL)ttnov
  823. 10510  right$help+1
  824. 10520 ttnov len#$00
  825. 10530  mid$(help),y
  826. 10540  (NULL)tabx
  827. 10550  (NULL)tocont
  828. 10560 clscr peek#$00
  829. 10570 docls mid$#$20
  830. 10580  (NULL)screen,x
  831. 10590  (NULL)screen+$0100,x
  832. 10600  (NULL)screen+$0200,x
  833. 10610  (NULL)screen+$0300,x
  834. 10611  mid$$0286
  835. 10612  (NULL)$d800,x
  836. 10613  (NULL)$d900,x
  837. 10614  (NULL)$da00,x
  838. 10615  (NULL)$db00,x
  839. 10620  (NULL)
  840. 10630  (NULL)docls
  841. 10631  mid$#$00
  842. 10632  (NULL)tabx
  843. 10633  (NULL)taby
  844. 10640  (NULL)
  845. 10650 submen mid$posx
  846. 10660  (NULL)
  847. 10670  (NULL)
  848. 10680  mid$subpos,x
  849. 10690  (NULL)
  850. 10700  mid$subpos+1,x
  851. 10710  (NULL)
  852. 10720  mid$#$02
  853. 10730  (NULL)taby
  854. 10740  mid$#$00
  855. 10750  (NULL)tabx
  856. 10760  (NULL)texout
  857. 10770 invmain mid$#$00
  858. 10780  (NULL)taby
  859. 10790  (NULL)tabx
  860. 10800  (NULL)scrcomp
  861. 10810  lenposx
  862. 10820  mid$tabs+1,y
  863. 10830  (NULL)
  864. 10840  (NULL)tabs,y
  865. 10850  (NULL)
  866. 10860  mid$tabs,y
  867. 10870  (NULL)
  868. 10880  (NULL)romoff
  869. 10890 imred mid$(scrpo),y
  870. 10900  left$#$80
  871. 10910  (NULL)(scrpo),y
  872. 10920  (NULL)
  873. 10930  (NULL)
  874. 10940  (NULL)imred
  875. 10950  (NULL)romon
  876. 10960 invsub mid$posy
  877. 10970  (NULL)
  878. 10980  val#$02
  879. 10990  (NULL)taby
  880. 11000  mid$#$00
  881. 11010  (NULL)tabx
  882. 11020  (NULL)scrcomp
  883. 11030  lenposx
  884. 11040  mid$tabs+1,y
  885. 11050  (NULL)
  886. 11060  (NULL)tabs,y
  887. 11070  (NULL)
  888. 11080  mid$tabs,y
  889. 11090  (NULL)
  890. 11100  (NULL)romoff
  891. 11110 isred mid$(scrpo),y
  892. 11120  left$#$80
  893. 11130  (NULL)(scrpo),y
  894. 11140  (NULL)
  895. 11150  (NULL)
  896. 11160  (NULL)isred
  897. 11170  (NULL)romon
  898. 11300 cursor (NULL)scrcomp
  899. 11310  lentabx
  900. 11320  (NULL)romoff
  901. 11321  (NULL)
  902. 11330  mid$(scrpo),y
  903. 11340  left$#$80
  904. 11350  (NULL)(scrpo),y
  905. 11351  (NULL)
  906. 11360  (NULL)romon
  907. 11400 scroll mid$$028d
  908. 11401  asc#$02
  909. 11402  (NULL)scroll
  910. 11403  (NULL)romoff
  911. 11404  mid$#>(screen)
  912. 11405  (NULL)doscr+2
  913. 11406  (NULL)doscr+5
  914. 11410 doscbeg peek#$00
  915. 11420 doscr mid$screen+$28,x
  916. 11430  (NULL)screen,x
  917. 11440  (NULL)
  918. 11450  (NULL)doscr
  919. 11460  right$doscr+2
  920. 11470  right$doscr+5
  921. 11480  mid$doscr+5
  922. 11490  str$#>(screen+$0400)
  923. 11500  (NULL)doscbeg
  924. 11520  peek#$27
  925. 11530  mid$#$20
  926. 11540 sccll (NULL)screen+$03c0,x
  927. 11550  (NULL)
  928. 11560  (NULL)sccll
  929. 11570  (NULL)romon
  930. 11600 normask peek#$00
  931. 11610 nmred (NULL)
  932. 11620  (NULL)linemem,x
  933. 11630  mid$#$08
  934. 11640  (NULL)linemem+1,x
  935. 11650  mid$#$27
  936. 11660  (NULL)linemem+2,x
  937. 11670  (NULL)
  938. 11680  (NULL)
  939. 11690  (NULL)
  940. 11691  (NULL)
  941. 11700  (NULL)
  942. 11710  atn#$18
  943. 11720  (NULL)nmred
  944. 11730  (NULL)
  945. 12000 datout mid$#$00
  946. 12010  (NULL)pos
  947. 12020  (NULL)romoff
  948. 12030  peek#>(figmem)
  949. 12040  len#<(figmem)
  950. 12050  (NULL)sure+1
  951. 12060  (NULL)sure
  952. 12070  peek#>(charmem)
  953. 12080  len#<(charmem)
  954. 12090  (NULL)help+1
  955. 12100  (NULL)help
  956. 12110 dored (NULL)setcur
  957. 12120  mid$posy
  958. 12130  str$#$ff
  959. 12140  (NULL)datend
  960. 12150  (NULL)oneout
  961. 12160  right$pos
  962. 12170  (NULL)dored
  963. 12180 datend mid$#$00
  964. 12190  (NULL)pos
  965. 12200 damain (NULL)setcur
  966. 12210 daredo (NULL)cursor
  967. 12220 dakey (NULL)chrin
  968. 12230  (NULL)dakey
  969. 12240  (NULL)cursor
  970. 12250  peek#$0b
  971. 12260 dascom str$dacom,x
  972. 12270  (NULL)dafoco
  973. 12280  (NULL)
  974. 12290  (NULL)dascom
  975. 12300  (NULL)ascscr
  976. 12310  (NULL)daredo
  977. 12320  (NULL)charo2
  978. 12330  mid$tabx
  979. 12340  (NULL)norib
  980. 12350  mid$curhi
  981. 12360  (NULL)tabx
  982. 12361  chr$taby
  983. 12370 norib mid$curhi
  984. 12371  str$tabx
  985. 12372  (NULL)daredo
  986. 12373  chr$tabx
  987. 12374  (NULL)daredo
  988. 12380 dafoco (NULL)
  989. 12390  (NULL)
  990. 12400  (NULL)
  991. 12410  mid$davex,x
  992. 12420  (NULL)dacall+1
  993. 12430  mid$davex+1,x
  994. 12440  (NULL)dacall+2
  995. 12450 dacall (NULL)$ffff
  996. 12460 dari lentabx
  997. 12461  (NULL)romoff
  998. 12470  mid$(scrpo),y
  999. 12471  (NULL)romon
  1000. 12480  (NULL)darok
  1001. 12490 dodar right$tabx
  1002. 12500  mid$tabx
  1003. 12510  str$curhi
  1004. 12520  (NULL)darok
  1005. 12530  (NULL)dale
  1006. 12540 darok (NULL)daredo
  1007. 12550 dale chr$tabx
  1008. 12560  (NULL)dodar
  1009. 12570  mid$tabx
  1010. 12580  str$curlo
  1011. 12590  (NULL)dodar
  1012. 12600  (NULL)daredo
  1013. 12610 dado mid$pos
  1014. 12620  (NULL)
  1015. 12630  (NULL)
  1016. 12640  (NULL)
  1017. 12650  (NULL)romoff
  1018. 12660  mid$linemem+4,x
  1019. 12670  (NULL)romon
  1020. 12671  str$#$ff
  1021. 12680  (NULL)nodd
  1022. 12681  right$pos
  1023. 12682  (NULL)damain
  1024. 12683 nodd (NULL)daredo
  1025. 12690 daup chr$pos
  1026. 12700  (NULL)duov
  1027. 12710  (NULL)damain
  1028. 12720 duov right$pos
  1029. 12730  (NULL)daredo
  1030. 12740 dadel lentabx
  1031. 12750  atncurlo
  1032. 12760  (NULL)ddex
  1033. 12770  atncurhi
  1034. 12780  (NULL)ddclc
  1035. 12790  (NULL)romoff
  1036. 12791  (NULL)
  1037. 12800 ddred (NULL)
  1038. 12810  mid$(scrpo),y
  1039. 12820  (NULL)
  1040. 12830  (NULL)(scrpo),y
  1041. 12840  (NULL)
  1042. 12850  atncurhi
  1043. 12860  (NULL)ddred
  1044. 12870 ddclc mid$#$00
  1045. 12880  (NULL)(scrpo),y
  1046. 12890  (NULL)romon
  1047. 12900  (NULL)dale
  1048. 12910 ddex (NULL)daredo
  1049. 12920 dains lentabx
  1050. 12930  atncurhi
  1051. 12940  (NULL)diclc
  1052. 12950  lencurhi
  1053. 12960  (NULL)romoff
  1054. 12970 dired (NULL)
  1055. 12980  mid$(scrpo),y
  1056. 12990  (NULL)
  1057. 13000  (NULL)(scrpo),y
  1058. 13010  (NULL)
  1059. 13020  atntabx
  1060. 13030  (NULL)dired
  1061. 13040 diclc mid$#$20
  1062. 13050  (NULL)(scrpo),y
  1063. 13060  (NULL)romon
  1064. 13070  (NULL)daredo
  1065. 13080 daclr lencurhi
  1066. 13090  mid$#$00
  1067. 13100 dcred (NULL)(scrpo),y
  1068. 13110  (NULL)
  1069. 13120  (NULL)dcex
  1070. 13130  atncurlo
  1071. 13140  (NULL)dcred
  1072. 13150 dcex mid$curlo
  1073. 13151  (NULL)tabx
  1074. 13152  (NULL)daredo
  1075. 13160 daent (NULL)datin
  1076. 13170  (NULL)return
  1077. 13180  (NULL)datend
  1078. 13190 return (NULL)
  1079. 13200  (NULL)
  1080. 13210 dacan (NULL)
  1081. 13220  (NULL)
  1082. 13300 datype mid$end+3
  1083. 13301  (NULL)danot
  1084. 13302  (NULL)
  1085. 13303  (NULL)
  1086. 13304  (NULL)
  1087. 13305  (NULL)datin
  1088. 13306  (NULL)dtok
  1089. 13307  (NULL)
  1090. 13308  (NULL)datend
  1091. 13310 dtok (NULL)wildat
  1092. 13320  (NULL)
  1093. 13330  (NULL)
  1094. 13340  (NULL)#$08
  1095. 13350  (NULL)end+3
  1096. 13351  (NULL)
  1097. 13352  val#$30
  1098. 13353  (NULL)screen+7
  1099. 13360  (NULL)wisdat
  1100. 13370  (NULL)datout
  1101. 13380 danot (NULL)daredo
  1102. 14000 widcomp mid$end+3
  1103. 14010  asc#$03
  1104. 14020  (NULL)reg+1
  1105. 14030  mid$#$00
  1106. 14040  (NULL)reg
  1107. 14050  chr$reg+1
  1108. 14060  (NULL)reg+1
  1109. 14070  (NULL)reg
  1110. 14080  mid$reg
  1111. 14090  (NULL)
  1112. 14100  val#<(width)
  1113. 14110  (NULL)reg
  1114. 14120  mid$reg+1
  1115. 14130  val#>(width)
  1116. 14140  (NULL)reg+1
  1117. 14150  (NULL)
  1118. 14151 wisdat (NULL)widcomp
  1119. 14160  len#$7f
  1120. 14170 wsred mid$(reg),y
  1121. 14180  (NULL)figmem,y
  1122. 14190  (NULL)
  1123. 14200  (NULL)wsred
  1124. 14210  (NULL)
  1125. 14220 wildat (NULL)romoff
  1126. 14230  (NULL)widcomp
  1127. 14240  len#$7f
  1128. 14250 wlred mid$figmem,y
  1129. 14260  (NULL)(reg),y
  1130. 14270  (NULL)
  1131. 14280  (NULL)wlred
  1132. 14290  (NULL)romon
  1133. 14500 getend lencurhi
  1134. 14510 gered mid$(scrpo),y
  1135. 14520  (NULL)gezero
  1136. 14530  str$#$20
  1137. 14540  (NULL)gelast
  1138. 14550 gezero (NULL)
  1139. 14551  (NULL)gelast
  1140. 14560  atncurlo
  1141. 14580  (NULL)gered
  1142. 14590 gelast (NULL)
  1143. 14591  (NULL)
  1144. 15000 oneout (NULL)romoff
  1145. 15010  (NULL)scrcomp
  1146. 15020  mid$posy
  1147. 15030  (NULL)dotext
  1148. 15040  peek#$00
  1149. 15050 dofig tanposx
  1150. 15060  (NULL)dofnot
  1151. 15070  len#$00
  1152. 15080  mid$(sure),y
  1153. 15090  (NULL)hexout
  1154. 15100  (NULL)dofgo
  1155. 15110 dofnot mid$#$00
  1156. 15120  (NULL)charo2
  1157. 15130  mid$#$00
  1158. 15140  (NULL)charo2
  1159. 15150 dofgo right$sure
  1160. 15160  (NULL)dofch
  1161. 15170  right$sure+1
  1162. 15180 dofch (NULL)
  1163. 15190  mid$tabx
  1164. 15200  (NULL)dofex
  1165. 15210  str$curhi
  1166. 15220  (NULL)dofig
  1167. 15230  (NULL)dofig
  1168. 15240 dofex (NULL)romon
  1169. 15250 dotext len#$00
  1170. 15260  mid$(help),y
  1171. 15270  (NULL)charo2
  1172. 15280  right$help
  1173. 15290  (NULL)dotch
  1174. 15300  right$help+1
  1175. 15310 dotch mid$tabx
  1176. 15320  (NULL)dotex
  1177. 15330  str$curhi
  1178. 15340  (NULL)dotext
  1179. 15350  (NULL)dotext
  1180. 15360 dotex (NULL)romon
  1181. 15370 hexout (NULL)
  1182. 15380  (NULL)
  1183. 15390  (NULL)
  1184. 15400  (NULL)
  1185. 15410  (NULL)
  1186. 15420  (NULL)byout
  1187. 15430  (NULL)
  1188. 15440  asc#$0f
  1189. 15450 byout str$#$0a
  1190. 15460  (NULL)bofig
  1191. 15470  (NULL)
  1192. 15480  (NULL)#$09
  1193. 15490  (NULL)charo2
  1194. 15500 bofig (NULL)
  1195. 15510  val#$30
  1196. 15520  (NULL)charo2
  1197. 15530 setcur mid$pos
  1198. 15540  (NULL)
  1199. 15550  (NULL)
  1200. 15560  (NULL)
  1201. 15570  (NULL)romoff
  1202. 15580  mid$linemem,x
  1203. 15590  (NULL)posy
  1204. 15600  asc#$3f
  1205. 15610  (NULL)taby
  1206. 15620  mid$linemem+1,x
  1207. 15630  (NULL)curlo
  1208. 15640  (NULL)tabx
  1209. 15650  mid$linemem+2,x
  1210. 15660  (NULL)curhi
  1211. 15670  mid$linemem+3,x
  1212. 15680  (NULL)posx
  1213. 15690  (NULL)romon
  1214. 15700 datin mid$#$00
  1215. 15710  (NULL)pos
  1216. 15720  (NULL)reg+1
  1217. 15730  peek#>(figmem)
  1218. 15740  len#<(figmem)
  1219. 15750  (NULL)sure+1
  1220. 15760  (NULL)sure
  1221. 15770  peek#>(charmem)
  1222. 15780  len#<(charmem)
  1223. 15790  (NULL)help+1
  1224. 15800  (NULL)help
  1225. 15810 dinred (NULL)setcur
  1226. 15820  mid$posy
  1227. 15830  str$#$ff
  1228. 15840  (NULL)dinend
  1229. 15850  (NULL)onein
  1230. 15860  mid$pos
  1231. 15870  (NULL)
  1232. 15880  (NULL)
  1233. 15890  (NULL)
  1234. 15900  mid$posx
  1235. 15910  (NULL)linemem+3,x
  1236. 15940  right$pos
  1237. 15950  (NULL)dinred
  1238. 15951 dinend mid$reg+1
  1239. 15952  (NULL)dinerr
  1240. 15960  (NULL)
  1241. 15970  (NULL)
  1242. 15980 dinerr (NULL)
  1243. 15990  (NULL)
  1244. 16000 onein (NULL)romoff
  1245. 16010  (NULL)scrcomp
  1246. 16020  mid$posy
  1247. 16030  (NULL)texin
  1248. 16040  asc#$40
  1249. 16050  (NULL)oinol
  1250. 16060  (NULL)getend
  1251. 16070  (NULL)posx
  1252. 16080  (NULL)oicont
  1253. 16090 oinol mid$curhi
  1254. 16100  (NULL)posx
  1255. 16110 oicont lentabx
  1256. 16120  atnposx
  1257. 16130  (NULL)oinorm
  1258. 16140  mid$#$00
  1259. 16150  (NULL)oisto
  1260. 16160 oinorm mid$(scrpo),y
  1261. 16170  (NULL)tohex
  1262. 16171  (NULL)oisto
  1263. 16180  (NULL)
  1264. 16190  (NULL)
  1265. 16200  (NULL)
  1266. 16210  (NULL)
  1267. 16220  (NULL)reg
  1268. 16230  (NULL)
  1269. 16240  mid$(scrpo),y
  1270. 16250  (NULL)tohex
  1271. 16260  (NULL)reg
  1272. 16270 oisto len#$00
  1273. 16280  (NULL)(sure),y
  1274. 16290  right$sure
  1275. 16300  (NULL)oifnov
  1276. 16310  right$sure+1
  1277. 16320 oifnov right$tabx
  1278. 16330  right$tabx
  1279. 16340  mid$tabx
  1280. 16350  str$curhi
  1281. 16360  (NULL)oicont
  1282. 16370 oiout right$posx
  1283. 16371  mid$posx
  1284. 16380  (NULL)
  1285. 16390  (NULL)curlo
  1286. 16400  (NULL)
  1287. 16410  (NULL)posx
  1288. 16420  (NULL)romon
  1289. 16430 texin (NULL)getend
  1290. 16440  (NULL)posx
  1291. 16450 tired lentabx
  1292. 16460  atnposx
  1293. 16470  (NULL)tinorm
  1294. 16490  mid$#$00
  1295. 16500  (NULL)tisto
  1296. 16510 tinorm mid$(scrpo),y
  1297. 16520 tisto len#$00
  1298. 16530  (NULL)(help),y
  1299. 16540  right$help
  1300. 16550  (NULL)tinov
  1301. 16560  right$help+1
  1302. 16570 tinov right$tabx
  1303. 16580  mid$tabx
  1304. 16590  str$curhi
  1305. 16600  (NULL)tired
  1306. 16610  (NULL)tired
  1307. 16620  (NULL)oiout
  1308. 16630 tohex asc#$7f
  1309. 16631  str$#$00
  1310. 16640  (NULL)therr
  1311. 16650  str$#$07
  1312. 16660  (NULL)thlet
  1313. 16670  str$#$30
  1314. 16680  (NULL)therr
  1315. 16690  str$#$3a
  1316. 16700  (NULL)thfig
  1317. 16701 therr (NULL)
  1318. 16702  (NULL)
  1319. 16710  lentabx
  1320. 16720  mid$(scrpo),y
  1321. 16730  (NULL)#$80
  1322. 16740  (NULL)(scrpo),y
  1323. 16750  (NULL)
  1324. 16760  mid$(scrpo),y
  1325. 16770  (NULL)#$80
  1326. 16780  (NULL)(scrpo),y
  1327. 16790  mid$#$01
  1328. 16800  (NULL)reg+1
  1329. 16801  (NULL)
  1330. 16802  (NULL)
  1331. 16810  (NULL)
  1332. 16820  (NULL)
  1333. 16830 thlet (NULL)
  1334. 16840  val#$09
  1335. 16850  (NULL)
  1336. 16860  (NULL)
  1337. 16870 thfig (NULL)
  1338. 16880  (NULL)#$30
  1339. 16890  (NULL)
  1340. 16900  (NULL)
  1341. 17000 compos mid$taby+1
  1342. 17010  (NULL)sure+2
  1343. 17020  mid$taby
  1344. 17030  (NULL)sure+1
  1345. 17040  mid$#$00
  1346. 17050  (NULL)sure
  1347. 17060  (NULL)sure+2
  1348. 17070  (NULL)sure+1
  1349. 17080  (NULL)sure
  1350. 17090  (NULL)sure+2
  1351. 17100  (NULL)sure+1
  1352. 17110  (NULL)sure
  1353. 17120  mid$sure
  1354. 17130  (NULL)help
  1355. 17140  mid$sure+1
  1356. 17150  (NULL)help+1
  1357. 17160  (NULL)help+1
  1358. 17170  (NULL)help
  1359. 17180  (NULL)help+1
  1360. 17190  (NULL)help
  1361. 17200  mid$sure
  1362. 17210  (NULL)
  1363. 17220  valhelp
  1364. 17230  (NULL)mempo
  1365. 17240  mid$sure+1
  1366. 17250  valhelp+1
  1367. 17260  (NULL)
  1368. 17270  val#>(memory)
  1369. 17280  (NULL)mempo+1
  1370. 17281  mid$mempo
  1371. 17282  (NULL)
  1372. 17283  valtabx
  1373. 17284  (NULL)mempo
  1374. 17285  (NULL)cpex
  1375. 17286  right$mempo+1
  1376. 17290 cpex (NULL)
  1377. 17300 showscr peek#>(screen)
  1378. 17310  len#<(screen)
  1379. 17320  (NULL)scrpo+1
  1380. 17330  (NULL)scrpo
  1381. 17340  peek#$19
  1382. 17360  mid$#$36
  1383. 17370  (NULL)$01
  1384. 17380 shored len#$27
  1385. 17390 dosho mid$(mempo),y
  1386. 17400  (NULL)(scrpo),y
  1387. 17410  (NULL)
  1388. 17420  (NULL)dosho
  1389. 17430  mid$mempo
  1390. 17440  (NULL)
  1391. 17450  val#$50
  1392. 17460  (NULL)mempo
  1393. 17470  (NULL)dsmnov
  1394. 17480  right$mempo+1
  1395. 17490 dsmnov mid$scrpo
  1396. 17500  (NULL)
  1397. 17510  val#$28
  1398. 17520  (NULL)scrpo
  1399. 17530  (NULL)dssnov
  1400. 17540  right$scrpo+1
  1401. 17550 dssnov (NULL)
  1402. 17560  (NULL)shored
  1403. 17570  mid$#$37
  1404. 17580  (NULL)$01
  1405. 17590  (NULL)
  1406. 17600 vicur (NULL)
  1407. 17610  mid$tabx
  1408. 17620  (NULL)
  1409. 17630  mid$taby
  1410. 17640  (NULL)
  1411. 17650  mid$posx
  1412. 17660  (NULL)tabx
  1413. 17670  mid$posy
  1414. 17680  (NULL)taby
  1415. 17690  (NULL)cursor
  1416. 17700  (NULL)
  1417. 17710  (NULL)taby
  1418. 17720  (NULL)
  1419. 17730  (NULL)tabx
  1420. 17740  (NULL)
  1421. 17750  (NULL)
  1422. 17800 clmem peek#>(memory)
  1423. 17810  len#<(memory)
  1424. 17820  (NULL)doclm+2
  1425. 17830  (NULL)doclm+1
  1426. 17840  len#$93
  1427. 17850  peek#$00
  1428. 17860  (NULL)
  1429. 17870 doclm (NULL)$ffff,x
  1430. 17880  (NULL)
  1431. 17890  (NULL)doclm
  1432. 17900  right$doclm+2
  1433. 17910  (NULL)
  1434. 17920  (NULL)doclm
  1435. 17930  (NULL)
  1436. 18000 showerr (NULL)
  1437. 18001  peek#$27
  1438. 18010  mid$#$a0
  1439. 18020 seclli (NULL)screen+$03c0,x
  1440. 18030  (NULL)
  1441. 18040  (NULL)seclli
  1442. 18050  (NULL)
  1443. 18060  (NULL)
  1444. 18070  (NULL)
  1445. 18080  (NULL)
  1446. 18090  (NULL)
  1447. 18100  len#$00
  1448. 18110 secope mid$errors,x
  1449. 18120  (NULL)screen+$03c0,y
  1450. 18130  (NULL)
  1451. 18140  (NULL)
  1452. 18150  atn#$08
  1453. 18160  (NULL)secope
  1454. 18170  (NULL)
  1455. 40000 mamen not"   disk    view    setups    output"
  1456. 40010 subpos spc(sumen1,sumen2,sumen3,sumen4
  1457. 40021 sumen1 not"load
  1458. 40030  [165]$ff
  1459. 40040  [168]"dir
  1460. 40041  fn$ff
  1461. 40042  not"gt.textup
  1462. 40043  [165]$ff
  1463. 40044  [168]"saveset"
  1464. 40060 sumen2 [165]$fe,$09
  1465. 40070  [168]"view txt"
  1466. 40080 sumen3 [165]$fe,$11
  1467. 40090  [168]"pr.code #1
  1468. 40100  fn$ff,$fe,$11
  1469. 40110  not"pr.code #2
  1470. 40120  [165]$ff,$fe,$11
  1471. 40130  [168]"pr.table
  1472. 40140  fn$ff,$fe,$11
  1473. 40150  not"form
  1474. 40151  [165]$ff,$fe,$11
  1475. 40152  [168]"widths"
  1476. 40160 sumen4 [165]$fe,$1d
  1477. 40170  [168]"print"
  1478. 40180 tabs [165]$00,$09,$11,$1b,$26
  1479. 40190 sunumb [165]$03,$00,$04,$00
  1480. 40200 vectors [166]load,directory,textup,savset,exit
  1481. 40210  [166]view,exit,exit,exit,exit
  1482. 40220  [166]edpc1,edpc2,edprtab,edform,edwidth
  1483. 40230  [166]output,exit,exit,exit,exit
  1484. 40300 p1cod [165]$02,$31,$ff,$02,$30,$ff,$05,$31,$ff,$05,$30,$ff
  1485. 40310  [165]$12,$31,$ff,$12,$30,$ff,$09,$31,$ff,$09,$30,$ff
  1486. 40320  [165]$15,$31,$ff,$15,$30,$ff,$08,$31,$ff,$08,$30,$ff
  1487. 40330  [165]$0c,$31,$ff,$0c,$30,$ff,$14,$31,$ff,$14,$32,$ff
  1488. 40340  [165]$14,$33,$ff,$13,$00
  1489. 40350 p2cod [165]$30,$ff,$31,$ff,$32,$ff,$33,$ff,$34,$ff,$35,$ff,$36,$ff
  1490. 40360  [165]$37,$ff,$38,$ff,$39,$ff,$ff,$53,$14,$01,$12,$14,$ff,$4c
  1491. 40370  [165]$46,$ff,$4c,$46,$32,$ff,$ff,$52,$05,$13,$05,$14,$ff,$47
  1492. 40380  [165]$12,$01,$10,$08,$ff,$41,$04,$16,$2e,$47,$12,$2e,$ff,$42
  1493. 40390  [165]$2e,$50,$2e,$43,$2e,$20,$20,$4c,$0f,$2f,$48,$09,$20,$20
  1494. 40400  [165]$20,$50,$12,$2f,$53,$05,$03,$20,$20,$43,$0f,$0c,$0f,$15
  1495. 40410  [165]$12,$13,$00
  1496. 40420 ptcod [165]$fe,$06,$98,$b0,$98,$b1,$98,$b2,$98,$b3,$98,$b4,$98,$b5
  1497. 40430  [165]$98,$b6,$98,$b7,$98,$b8,$98,$b9,$98,$81,$98,$82,$98,$83
  1498. 40440  [165]$98,$84,$98,$85,$98,$86,$ff,$ff,$fe,$04,$b0,$98,$ff,$ff
  1499. 40450  [165]$fe,$04,$b1,$98,$ff,$ff,$fe,$04,$b2,$98,$ff,$ff,$fe,$04
  1500. 40460  [165]$b3,$98,$ff,$ff,$fe,$04,$b4,$98,$ff,$ff,$fe,$04,$b5,$98
  1501. 40470  [165]$ff,$ff,$fe,$04,$b6,$98,$ff,$ff,$fe,$04,$b7,$98,$00
  1502. 40500 dacom [165]$11,$91,$1d,$9d,$14,$94,$93,$0d,$8c,$85,$86,$87
  1503. 40510 davex [166]dado,daup,dari,dale,dadel,dains,daclr,daent
  1504. 40511  [166]dacan,datype,datype,datype
  1505. 40520 p2mask [165]$0d,$08,$27,$00,$0e,$08,$27,$00,$0f,$08,$27,$00
  1506. 40530  [165]$11,$08,$27,$00,$12,$08,$27,$00,$13,$08,$27,$00
  1507. 40540  [165]$55,$00,$01,$ff,$55,$08,$09,$ff,$55,$10,$13,$ff
  1508. 40550  [165]$55,$18,$1d,$ff,$ff
  1509. 40560 pttex [165]$50,$12,$09,$0e,$14,$05,$12,$2d,$54,$01,$02,$0c,$05,$00
  1510. 40570 witex [165]$57,$09,$04,$14,$08,$20,$14,$31,$00
  1511. 40580 fotex [165]$fe,$04,$4c,$45,$20,$52,$49,$fe,$14,$49,$0e,$04,$05,$0e
  1512. 40590  [165]$14,$3a,$ff,$43,$31,$ff,$43,$32,$fe,$14,$42,$0f,$12
  1513. 40600  [165]$04,$05,$12,$13,$3a,$20,$55,$10,$10,$05,$12,$3a,$ff,$43
  1514. 40610  [165]$33,$fe,$1d,$4c,$0f,$17,$05,$12,$3a,$ff,$43,$34,$ff,$fe
  1515. 40620  [165]$14,$4c,$09,$0e,$05,$13,$3a,$ff,$ff,$fe,$14,$54,$19,$10
  1516. 40630  [165]$05,$3a,$ff,$ff,$fe,$14,$46,$0f,$12,$0d,$3a,$ff,$ff,$ff
  1517. 40640  [165]$ff,$ff,$20,$4c,$49,$20,$43,$4f,$fe,$10,$53,$10,$05,$03
  1518. 40650  [165]$09,$01,$0c,$13,$00
  1519. 40660 fomask [165]$43,$04,$05,$ff,$43,$07,$08,$ff,$44,$04,$05,$ff
  1520. 40670  [165]$44,$07,$08,$ff,$45,$04,$05,$ff,$45,$07,$08,$ff
  1521. 40680  [165]$46,$04,$05,$ff,$46,$07,$08,$ff,$42,$1c,$1d,$ff
  1522. 40690  [165]$44,$24,$25,$ff,$45,$24,$25,$ff,$47,$1b,$1c,$ff
  1523. 40700  [165]$49,$1b,$1c,$ff,$4b,$1b,$1c,$ff,$51,$01,$02,$ff
  1524. 40710  [165]$51,$04,$05,$ff,$91,$08,$27,$ff,$52,$01,$02,$ff
  1525. 40720  [165]$52,$04,$05,$ff,$92,$08,$27,$ff,$53,$01,$02,$ff
  1526. 40730  [165]$53,$04,$05,$ff,$93,$08,$27,$ff,$54,$01,$02,$ff
  1527. 40740  [165]$54,$04,$05,$ff,$94,$08,$27,$ff,$ff
  1528. 40750 outex [165]$fe,$08,$46,$09,$12,$13,$14,$20,$50,$01,$07,$05,$3a,$ff
  1529. 40760  [165]$ff,$fe,$08,$4c,$01,$13,$14,$20,$50,$01,$07,$05,$3a,$ff
  1530. 40770  [165]$ff,$fe,$08,$4e,$0f,$2e,$31,$13,$14,$20,$50,$01,$07,$05
  1531. 40780  [165]$3a,$ff,$ff,$fe,$08,$43,$0f,$10,$09,$05,$13,$3a,$ff,$ff
  1532. 40790  [165]$fe,$08,$53,$09,$0e,$07,$0c,$05,$3a,$00
  1533. 40800 oumask [165]$44,$15,$18,$ff,$46,$15,$18,$ff,$48,$15,$18,$ff
  1534. 40810  [165]$4a,$15,$16,$ff,$4c,$15,$16,$ff,$ff
  1535. 40820 lotex [165]$4c,$0f,$01,$04,$20,$46,$09,$0c,$05,$ff,$ff,$ff,$ff,$ff
  1536. 40830  [165]$fe,$08,$28,$fe
  1537. 40850  [165]$19,$29,$20,$20,$8e,$0f,$12,$0d,$ff,$fe,$1c,$90,$01,$03
  1538. 40860  [165]$0b,$05,$04,$00
  1539. 40870 lomask [165]$85,$09,$17,$ff,$85,$18,$18,$ff,$ff
  1540. 40880 diname [165]$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
  1541. 40890  [165]$20,$10
  1542. 40900 ditex [165]$24,$30
  1543. 40910 tetex [165]$54,$01,$0b,$05,$20,$0f,$16,$05,$12,$20,$54,$45,$58,$54
  1544. 40920  [165]$45,$52,$20,$13,$05,$14,$15,$10,$13,$ff,$ff,$ff,$ff,$00
  1545. 40930 texco [168]"textups
  1546. 40940 chtex fn$53,$15,$12,$05,$20,$28,$59,$2f,$4e,$29,$00
  1547. 40950 sstex fn$53,$01,$16,$05,$20,$13,$05,$14,$15,$10,$13,$ff,$ff,$ff
  1548. 40960  fn$ff,$ff,$00
  1549. 40970 proup not"@:proups
  1550. 40980 errors [165]$d4,$cf,$cf,$a0,$cc,$cf,$ce,$c7
  1551. 40990  [165]$c2,$c1,$c4,$a0,$c3,$cf,$cd,$cd
  1552. 60000 end [179]
  1553.