home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_A.d64 / prout.src (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  26KB  |  2,040 lines
  1. 10  +$2700
  2. 15  abs
  3. 20  tab(tabx=$4d
  4. 30  tab(taby=$4e
  5. 40  tab(posx=$45
  6. 50  tab(posy=$46
  7. 60  tab(memory=$3d00
  8. 70  tab(lastline=$01c0
  9. 80  tab(screen=$e000
  10. 90  tab(scrpo=$49
  11. 100  tab(mempo=$6e
  12. 110  tab(work=$02c0
  13. 120  tab(command=$02
  14. 130  tab(help=$22
  15. 140  tab(memend=memory+lastline*80+$0640
  16. 150  tab(reg=$14
  17. 190  tab(buffer=$e400
  18. 210  tab(codes=$0390
  19. 220  tab(table=codes+$0270
  20. 230  tab(focod=codes+$0246
  21. 240  tab(foots=codes+$02f0
  22. 250  tab(oucod=codes+$025c
  23. 251  tab(comle=codes+$0224
  24. 252  tab(grale=comle+$20
  25. 253  tab(graphic=codes+$0200
  26. 254  tab(advanced=codes+$0210
  27. 255  tab(adle=comle+$21
  28. 256  tab(adby=codes+$0220
  29. 257  tab(adlo=codes+$0221
  30. 260  tab(woli=$3b00
  31. 270  tab(tebu=$3c00
  32. 280  tab(wocod=end
  33. 290  tab(sacod=wocod+8
  34. 291  tab(cmcod=sacod+8
  35. 292  tab(cbcod=cmcod+8
  36. 293  tab(socod=cbcod+8
  37. 294  tab(fmcod=socod+4
  38. 295  tab(cscod=fmcod+4
  39. 296  tab(cfcod=cscod+4
  40. 297  tab(texpo=cfcod+4
  41. 300  tab(eighty=$e000
  42. 310  tab(adset=$ce00
  43. 320  tab(mxpo=prst+$52
  44. 330  tab(acpo=prst+$54
  45. 340  tab(prst=$38b0
  46. 350  tab(tyst=prst+$20
  47. 360  tab(wopr=prst+$24
  48. 370  tab(woty=prst+$44
  49. 380  tab(psbuf=prst+$48
  50. 390  tab(width=codes+$0370
  51. 400  tab(space=prst+$58
  52. 410  tab(point=$a7
  53. 420  tab(cols=prst+$56
  54. 430  tab(from=prst+$59
  55. 440  tab(sapos=prst+$5a
  56. 500  tab(propen=$0880
  57. 510  tab(prlist=propen+6
  58. 520  tab(prunli=propen+9
  59. 530  tab(prclose=propen+3
  60. 540  tab(prout=propen+12
  61. 580  tab(showscr=$2245
  62. 590  tab(comsho=$22b0
  63. 600  tab(chrin=$39c5
  64. 730  tab(main=$1728
  65. 1000  (NULL)propen
  66. 1010 start peek#>(codes+$01c0)
  67. 1020  len#<(codes+$01c0)
  68. 1021  mid$comle+$1c
  69. 1030  (NULL)comout
  70. 1040  mid$focod+12
  71. 1050  (NULL)
  72. 1060  val#$0d
  73. 1070  (NULL)work+1
  74. 1080  (NULL)pcpc
  75. 1090  (NULL)comout
  76. 1100  mid$#$00
  77. 1110  (NULL)work+27
  78. 1120  peek#>(memory)
  79. 1130  len#<(memory)
  80. 1140  (NULL)mempo+1
  81. 1150  (NULL)mempo
  82. 1160  peek#$07
  83. 1170 wcs mid$focod,x
  84. 1180  (NULL)wocod,x
  85. 1190  mid$#$00
  86. 1200  (NULL)prst,x
  87. 1210  (NULL)
  88. 1220  (NULL)wcs
  89. 1230  mid$#$00
  90. 1240  (NULL)work+10
  91. 1250  (NULL)work+4
  92. 1260  (NULL)work+5
  93. 1270  (NULL)work+11
  94. 1280  (NULL)work+22
  95. 1290  (NULL)texpo
  96. 1300  (NULL)texpo+1
  97. 1310  mid$focod+13
  98. 1320  (NULL)work+8
  99. 1330  mid$#$ff
  100. 1340  (NULL)work+6
  101. 1350  mid$focod+12
  102. 1360  (NULL)tyst
  103. 1370 again mid$oucod+6
  104. 1380  (NULL)work+3
  105. 1390  peek#$07
  106. 1400 dcsc mid$#$00
  107. 1410  (NULL)sacod,x
  108. 1420  mid$wocod,x
  109. 1430  (NULL)cbcod,x
  110. 1440  mid$prst,x
  111. 1450  (NULL)wopr,x
  112. 1460  (NULL)
  113. 1470  (NULL)dcsc
  114. 1471  mid$tyst
  115. 1472  (NULL)woty
  116. 1480 newpage mid$#$00
  117. 1490  (NULL)help+2
  118. 1500  (NULL)work+9
  119. 1510  (NULL)work+12
  120. 1520  (NULL)work+21
  121. 1530  mid$#$08
  122. 1540  (NULL)work+13
  123. 1550 oubeg (NULL)plain
  124. 1560  (NULL)oupl
  125. 1570  mid$work+5
  126. 1580  (NULL)lrres
  127. 1590  mid$work+4
  128. 1600  (NULL)oupl
  129. 1610 lrres mid$#$ff
  130. 1620  (NULL)work+6
  131. 1630 oupl mid$#$00
  132. 1640  (NULL)help+3
  133. 1650  peekhelp+2
  134. 1660  mid$mempo
  135. 1670  (NULL)sacod,x
  136. 1680  mid$mempo+1
  137. 1690  (NULL)sacod+1,x
  138. 1700  mid$wocod,x
  139. 1710  (NULL)reg
  140. 1720  mid$wocod+1,x
  141. 1730  (NULL)reg+1
  142. 1740  (NULL)doou
  143. 1750  (NULL)ouex
  144. 1760 doou (NULL)
  145. 1770  (NULL)
  146. 1780  (NULL)
  147. 1790  mid$work+4
  148. 1800  (NULL)socod,x
  149. 1810  mid$work+8
  150. 1820  (NULL)fmcod,x
  151. 1830 oured (NULL)boch
  152. 1840  (NULL)dor
  153. 1850 bord mid$focod+3
  154. 1860  (NULL)ouei
  155. 1870  (NULL)pach
  156. 1880  (NULL)ouei
  157. 1890  (NULL)footout
  158. 1900  (NULL)bo1
  159. 1910  (NULL)illcomm
  160. 1920 bo1 (NULL)linefeed
  161. 1930 ouei (NULL)mainli
  162. 1940 dor mid$work+12
  163. 1950  (NULL)pafe
  164. 1960  (NULL)lincomp
  165. 1970  (NULL)
  166. 1980  (NULL)
  167. 1990  mid$errs,x
  168. 2000  (NULL)vec+1
  169. 2010  mid$errs+1,x
  170. 2020  (NULL)vec+2
  171. 2030 vec (NULL)$ffff
  172. 2040 pafe mid$focod+3
  173. 2050  (NULL)nomul
  174. 2060  (NULL)pach
  175. 2070  (NULL)nomul
  176. 2080  (NULL)linefeed
  177. 2090  (NULL)nomul
  178. 2100 norm mid$focod+3
  179. 2110  (NULL)multi
  180. 2120  (NULL)pach
  181. 2130  (NULL)multi
  182. 2140  (NULL)prepline
  183. 2150  (NULL)linout
  184. 2160  (NULL)linefeed
  185. 2170  (NULL)nomul
  186. 2180 multi (NULL)bordcomp
  187. 2190 nomul (NULL)getprist
  188. 2200 mainli right$help+3
  189. 2210  (NULL)kech
  190. 2220  mid$help+3
  191. 2230  str$focod+11
  192. 2240  (NULL)oured
  193. 2250  peekhelp+2
  194. 2260  tan#$06
  195. 2270  (NULL)nouda
  196. 2280  mid$focod+3,x
  197. 2290  (NULL)nouda
  198. 2300  (NULL)cud
  199. 2310  mid$focod+2,x
  200. 2320  (NULL)
  201. 2330  valwork
  202. 2340  (NULL)wocod+2,x
  203. 2350  (NULL)cbcod+2,x
  204. 2360  mid$focod+3,x
  205. 2370  (NULL)
  206. 2380  (NULL)work+1
  207. 2390  (NULL)wocod+3,x
  208. 2400  (NULL)cbcod+3,x
  209. 2410  (NULL)
  210. 2420  (NULL)
  211. 2430  (NULL)
  212. 2440  (NULL)
  213. 2450  len#$07
  214. 2460 necps mid$wopr,x
  215. 2470  (NULL)prst+8,x
  216. 2480  (NULL)wopr+8,x
  217. 2490  (NULL)
  218. 2500  (NULL)
  219. 2510  (NULL)necps
  220. 2520  mid$help+2
  221. 2530  (NULL)
  222. 2531  (NULL)
  223. 2540  mid$woty,x
  224. 2550  (NULL)tyst+1,x
  225. 2560  (NULL)woty+1,x
  226. 2570 nouda (NULL)plain
  227. 2580  (NULL)ouex
  228. 2590  (NULL)actmem
  229. 2600  mid$work+9
  230. 2610  (NULL)ouex
  231. 2620  mid$work+12
  232. 2630  (NULL)ouex
  233. 2640  right$help+2
  234. 2650  right$help+2
  235. 2660  mid$help+2
  236. 2670  str$#$08
  237. 2680  (NULL)ouex
  238. 2690  (NULL)oubeg
  239. 2700 ouex (NULL)pach
  240. 2710  (NULL)ounex
  241. 2720  (NULL)lacop
  242. 2730 ounex mid$focod+3
  243. 2740  (NULL)colout
  244. 2750  (NULL)nextpage
  245. 2760 colout mid$#$00
  246. 2770  (NULL)help+3
  247. 2780  (NULL)work+9
  248. 2790  mid$#$08
  249. 2800  (NULL)work+13
  250. 2810  (NULL)work+21
  251. 2820  peek#$07
  252. 2830 cmco mid$sacod,x
  253. 2840  (NULL)cmcod,x
  254. 2850  mid$wocod,x
  255. 2860  (NULL)cbcod,x
  256. 2870  mid$socod,x
  257. 2880  (NULL)cscod,x
  258. 2890  (NULL)
  259. 2900  (NULL)cmco
  260. 2910  peek#$1f
  261. 2920 cmst mid$prst,x
  262. 2930  (NULL)wopr,x
  263. 2940  (NULL)
  264. 2950  (NULL)cmst
  265. 2960  peek#$03
  266. 2970 cmty mid$tyst,x
  267. 2980  (NULL)woty,x
  268. 2990  (NULL)
  269. 3000  (NULL)cmty
  270. 3010 cobeg mid$#$00
  271. 3020  (NULL)help+2
  272. 3030  (NULL)boch
  273. 3040  (NULL)cored
  274. 3050 bord2 (NULL)footout
  275. 3060  (NULL)bo2
  276. 3070  (NULL)illcomm
  277. 3080 bo2 (NULL)colinx
  278. 3090 cored peekhelp+2
  279. 3100  mid$cmcod,x
  280. 3110  (NULL)mempo
  281. 3120  mid$cmcod+1,x
  282. 3130  (NULL)mempo+1
  283. 3140  (NULL)crok
  284. 3150  (NULL)colinx
  285. 3160 crok mid$cbcod,x
  286. 3170  (NULL)reg
  287. 3180  mid$cbcod+1,x
  288. 3190  (NULL)reg+1
  289. 3200  (NULL)colinx
  290. 3210  (NULL)
  291. 3220  (NULL)
  292. 3230  (NULL)
  293. 3240  mid$cscod,x
  294. 3250  (NULL)work+4
  295. 3260  mid$cfcod,x
  296. 3270  (NULL)work+8
  297. 3280  mid$#$ff
  298. 3290  (NULL)work+6
  299. 3300  mid$help+2
  300. 3310  str$work+13
  301. 3320  (NULL)colinx
  302. 3330  (NULL)lincomp
  303. 3340  (NULL)cogoon
  304. 3350  mid$#$01
  305. 3360  (NULL)work+9
  306. 3370  (NULL)work+12
  307. 3380 cogoon (NULL)prepline
  308. 3390  (NULL)linout
  309. 3400  (NULL)nofeed
  310. 3410  (NULL)actmem
  311. 3420  mid$work+12
  312. 3430  (NULL)conpf
  313. 3440  mid$help+2
  314. 3450  (NULL)work+13
  315. 3460 conpf peekhelp+2
  316. 3470  mid$mempo
  317. 3480  (NULL)cmcod,x
  318. 3490  mid$mempo+1
  319. 3500  (NULL)cmcod+1,x
  320. 3510  mid$reg
  321. 3520  (NULL)cbcod,x
  322. 3530  mid$reg+1
  323. 3540  (NULL)cbcod+1,x
  324. 3550  (NULL)
  325. 3560  (NULL)
  326. 3570  (NULL)
  327. 3580  mid$work+4
  328. 3590  (NULL)cscod,x
  329. 3600  mid$work+8
  330. 3610  (NULL)cfcod,x
  331. 3620  (NULL)getprist
  332. 3630  right$help+2
  333. 3640  right$help+2
  334. 3650  peekhelp+2
  335. 3660  mid$focod+1,x
  336. 3670  (NULL)colinx
  337. 3680  tan#$08
  338. 3690  (NULL)colinx
  339. 3700  (NULL)cored
  340. 3710 colinx (NULL)linefeed
  341. 3720  right$help+3
  342. 3730  (NULL)kech
  343. 3740  mid$help+3
  344. 3750  str$focod+11
  345. 3760  (NULL)nextpage
  346. 3770  (NULL)cobeg
  347. 3780 nextpage mid$oucod+7
  348. 3790  (NULL)nosingle
  349. 3800 key right$$d020
  350. 3810  chr$$d020
  351. 3820  (NULL)chrin
  352. 3830  (NULL)key
  353. 3840  str$#$03
  354. 3850  (NULL)nosingle
  355. 3860  (NULL)doeo
  356. 3870 nosingle chr$work+3
  357. 3880  (NULL)lacop
  358. 3890  mid$sacod
  359. 3900  (NULL)mempo
  360. 3910  mid$sacod+1
  361. 3920  (NULL)mempo+1
  362. 3930  (NULL)colout
  363. 3940 lacop mid$work+9
  364. 3950  (NULL)notend
  365. 3960  (NULL)endout
  366. 3970 notend right$work+10
  367. 3980  (NULL)ipno
  368. 3990  right$work+11
  369. 4000 ipno peek#$00
  370. 4010 ipred tanwork+13
  371. 4020  (NULL)ipco
  372. 4030  mid$cbcod+3,x
  373. 4040  (NULL)ipco
  374. 4050  mid$sacod+3,x
  375. 4060  (NULL)ipco
  376. 4070  (NULL)
  377. 4080  (NULL)
  378. 4090  tan#$06
  379. 4100  (NULL)ipred
  380. 4110 ipco (NULL)cud
  381. 4120  mid$focod
  382. 4130  (NULL)
  383. 4140  valwork
  384. 4150  (NULL)wocod
  385. 4160  mid$focod+1
  386. 4170  (NULL)
  387. 4180  (NULL)work+1
  388. 4190  (NULL)wocod+1
  389. 4200  (NULL)
  390. 4210  (NULL)
  391. 4220  (NULL)
  392. 4230  mid$woty,x
  393. 4240  (NULL)tyst
  394. 4250  (NULL)
  395. 4260  (NULL)
  396. 4270  (NULL)
  397. 4280  (NULL)
  398. 4290  (NULL)
  399. 4300  len#$00
  400. 4310 spsnp mid$wopr,x
  401. 4320  (NULL)prst,y
  402. 4330  (NULL)
  403. 4340  (NULL)
  404. 4350  atn#$08
  405. 4360  (NULL)spsnp
  406. 4370  (NULL)pago
  407. 4380  (NULL)endout
  408. 4390  mid$work+5
  409. 4400  (NULL)cnp
  410. 4410  mid$work+4
  411. 4420  (NULL)cnp
  412. 4430  mid$taby
  413. 4440  (NULL)
  414. 4450  (NULL)mempo
  415. 4460  (NULL)taby
  416. 4470  mid$taby+1
  417. 4480  (NULL)mempo+1
  418. 4490  (NULL)
  419. 4500  val#$e0
  420. 4510  (NULL)taby+1
  421. 4520  (NULL)romoff
  422. 4530  len#$00
  423. 4540 resav mid$(mempo),y
  424. 4550  (NULL)eighty,y
  425. 4560  (NULL)
  426. 4570  (NULL)resav
  427. 4580  (NULL)romon
  428. 4590  (NULL)bupoint
  429. 4600 cnp (NULL)again
  430. 4610 endout mid$work+27
  431. 4620  (NULL)doeo
  432. 4630  (NULL)start
  433. 4640 doeo mid$#$02
  434. 4650  (NULL)work+32
  435. 4660  (NULL)ctdi
  436. 4670 pach mid$work+11
  437. 4680  str$oucod
  438. 4690  (NULL)paerr
  439. 4700  (NULL)panch
  440. 4710 pago mid$work+11
  441. 4720  str$oucod+2
  442. 4730  (NULL)paok
  443. 4740  (NULL)panch2
  444. 4750 paerr (NULL)
  445. 4760  (NULL)
  446. 4770 panch2 mid$work+10
  447. 4780  str$oucod+3
  448. 4790  (NULL)paok
  449. 4800  (NULL)paerr
  450. 4810 paok (NULL)
  451. 4820  (NULL)
  452. 4830 panch mid$work+10
  453. 4840  str$oucod+1
  454. 4850  (NULL)paerr
  455. 4860  (NULL)pago
  456. 4870 plain mid$focod+3
  457. 4880  (NULL)nopl
  458. 4890  mid$oucod+6
  459. 4900  str$#$01
  460. 4910  (NULL)nopl
  461. 4920  (NULL)
  462. 4930  (NULL)
  463. 4940 nopl (NULL)
  464. 4950  (NULL)
  465. 4960 cud mid$cbcod,x
  466. 4970  (NULL)
  467. 4980  (NULL)focod,x
  468. 4990  (NULL)work
  469. 5000  mid$focod+1,x
  470. 5010  (NULL)
  471. 5020  (NULL)cbcod+1,x
  472. 5030  (NULL)work+1
  473. 5040 cux (NULL)
  474. 5050 illcomm mid$#$01
  475. 5060  (NULL)cutopo
  476. 5070 long mid$#$00
  477. 5080 cutopo (NULL)work+32
  478. 5090  mid$work+4
  479. 5100  (NULL)ctdi
  480. 5110  (NULL)
  481. 5120  (NULL)
  482. 5130  valmempo
  483. 5140  (NULL)mempo
  484. 5150  mid$mempo+1
  485. 5160  val#$00
  486. 5170  (NULL)mempo+1
  487. 5180  chr$mempo+1
  488. 5190  (NULL)showscr
  489. 5200  mid$work+32
  490. 5201  (NULL)comsho
  491. 5202  (NULL)clall
  492. 5203 ickey (NULL)chrin
  493. 5204  (NULL)ickey
  494. 5205  (NULL)main
  495. 5220 ctdi (NULL)clall
  496. 5270  (NULL)main
  497. 5290 xmem mid$#$01
  498. 5300  (NULL)work+9
  499. 5310  (NULL)work+12
  500. 5320  (NULL)norm
  501. 5330 getprist mid$help+2
  502. 5340  (NULL)
  503. 5350  (NULL)
  504. 5360  (NULL)
  505. 5370  len#$00
  506. 5380 feps mid$psbuf,y
  507. 5390  (NULL)wopr,x
  508. 5400  (NULL)
  509. 5410  (NULL)
  510. 5420  atn#$08
  511. 5430  (NULL)feps
  512. 5440  mid$help+2
  513. 5450  (NULL)
  514. 5460  (NULL)
  515. 5470  mid$psbuf+8
  516. 5480  (NULL)woty,x
  517. 5490  (NULL)
  518. 5500 boch mid$help+3
  519. 5510  str$focod+9
  520. 5520  (NULL)bcis
  521. 5530  str$focod+10
  522. 5540  (NULL)bcnot
  523. 5550  (NULL)bcnot
  524. 5560 bcis (NULL)
  525. 5570  (NULL)
  526. 5580 bcnot (NULL)
  527. 5590  (NULL)
  528. 10000 lincomp (NULL)clwl
  529. 10010  mid$#$00
  530. 10020  (NULL)work+23
  531. 10030  (NULL)finc
  532. 10040  (NULL)copps
  533. 10050  mid$tebu
  534. 10060  (NULL)dolc
  535. 10070  mid$#$00
  536. 10080  (NULL)work+6
  537. 10090  mid$#$03
  538. 10100  (NULL)
  539. 10110 dolc mid$#$00
  540. 10120  (NULL)mxpo
  541. 10130  (NULL)mxpo+1
  542. 10140  (NULL)acpo
  543. 10150  (NULL)acpo+1
  544. 10160  mid$reg+1
  545. 10170  (NULL)
  546. 10180  (NULL)reg
  547. 10190  (NULL)
  548. 10200  (NULL)mapz
  549. 10210 mxdo mid$mxpo
  550. 10220  (NULL)
  551. 10230  valwidth+$20
  552. 10240  (NULL)mxpo
  553. 10250  (NULL)mxred
  554. 10260  right$mxpo+1
  555. 10270 mxred (NULL)
  556. 10280  (NULL)mxdo
  557. 10290 mapz mid$width+$2d
  558. 10300  str$width+$ad
  559. 10310  (NULL)lowio
  560. 10320  mid$width+$ad
  561. 10330 lowio str$width+$012d
  562. 10340  (NULL)lowio2
  563. 10350  mid$width+$012d
  564. 10360 lowio2 (NULL)
  565. 10370  (NULL)space
  566. 10380  mid$mxpo
  567. 10390  (NULL)
  568. 10400  (NULL)space
  569. 10410  (NULL)cols
  570. 10420  mid$mxpo+1
  571. 10430  (NULL)#$00
  572. 10440  (NULL)cols+1
  573. 10450  mid$#$00
  574. 10460  (NULL)work+12
  575. 10470  len#$00
  576. 10480 lcbeg mid$tebu,y
  577. 10490  (NULL)lcslc
  578. 10500  str$#$5f
  579. 10510  (NULL)prcom
  580. 10520  str$#$7f
  581. 10530  (NULL)lcgoon
  582. 10540  str$#$1f
  583. 10550  (NULL)lcslc
  584. 10560  (NULL)getwid
  585. 10570 lcgoch mid$acpo+1
  586. 10580  str$cols+1
  587. 10590  (NULL)lcgoon
  588. 10600  (NULL)lccont
  589. 10610  mid$acpo
  590. 10620  str$cols
  591. 10630  (NULL)lcgoon
  592. 10640  (NULL)lccont
  593. 10650 lcgoon (NULL)
  594. 10660  (NULL)lcbeg
  595. 10670  mid$#$02
  596. 10680  (NULL)
  597. 10690 prcom (NULL)
  598. 10700  (NULL)sapos
  599. 10710  (NULL)
  600. 10720  val#<(tebu)
  601. 10730  (NULL)
  602. 10740  mid$#>(tebu)
  603. 10750  val#$00
  604. 10760  (NULL)
  605. 10770  (NULL)comcom
  606. 10780  (NULL)pcerr
  607. 10790  (NULL)psact
  608. 10800  mid$sapos
  609. 10810  (NULL)poch
  610. 10820  (NULL)
  611. 10830  mid$work+1
  612. 10840  str$#$21
  613. 10850  (NULL)pcpf
  614. 10860  (NULL)lcgoch
  615. 10870 pcerr lensapos
  616. 10880  mid$#$01
  617. 10890  (NULL)
  618. 10900 pcpf right$work+12
  619. 10910  (NULL)lasp
  620. 10920 lccont (NULL)
  621. 10930  mid$tebu,y
  622. 10940  str$#$20
  623. 10950  (NULL)lcslc
  624. 10960 remsp mid$tebu,y
  625. 10970  str$#$20
  626. 10980  (NULL)lasp
  627. 10990  (NULL)
  628. 11000  (NULL)remsp
  629. 11010  (NULL)lasp
  630. 11020 lcslc mid$tebu,y
  631. 11030  (NULL)lasp
  632. 11040  str$#$20
  633. 11050  (NULL)remsp
  634. 11060  str$#$7f
  635. 11070  (NULL)ladi
  636. 11080  str$#$2d
  637. 11090  (NULL)lasp
  638. 11100  str$#$1f
  639. 11110  (NULL)lasp
  640. 11120  (NULL)
  641. 11130  atn#$ff
  642. 11140  (NULL)lcslc
  643. 11150  (NULL)
  644. 11160  mid$#$02
  645. 11170  (NULL)
  646. 11180 ladi mid$#$2d
  647. 11190  (NULL)tebu,y
  648. 11200 lasp (NULL)work+6
  649. 11210  (NULL)copps
  650. 11220  len#$00
  651. 11230  (NULL)acpo
  652. 11240  (NULL)acpo+1
  653. 11250  (NULL)space
  654. 11260 dosc mid$tebu,y
  655. 11270  (NULL)cont
  656. 11280  str$#$1f
  657. 11290  (NULL)cont
  658. 11300  str$#$5f
  659. 11310  (NULL)scco
  660. 11320  str$#$7f
  661. 11330  (NULL)scgo
  662. 11340  str$#$20
  663. 11350  (NULL)scnos
  664. 11360  right$space
  665. 11370 scnos (NULL)getwid
  666. 11380 scgo (NULL)
  667. 11390 scgo2 atnwork+6
  668. 11400  (NULL)dosc
  669. 11410  (NULL)dosc
  670. 11420  (NULL)cont
  671. 11430 scco (NULL)
  672. 11440  (NULL)sapos
  673. 11450  (NULL)
  674. 11460  val#<(tebu)
  675. 11470  (NULL)
  676. 11480  mid$#>(tebu)
  677. 11490  val#$00
  678. 11500  (NULL)
  679. 11510  (NULL)comcom
  680. 11520  (NULL)pcner
  681. 11530  (NULL)pcerr
  682. 11540 pcner (NULL)psact
  683. 11550  mid$sapos
  684. 11560  (NULL)poch
  685. 11570  (NULL)scgo2
  686. 11580 cont len#$00
  687. 11590 lcr mid$tebu,y
  688. 11600  (NULL)woli,y
  689. 11610  (NULL)
  690. 11620  atnwork+6
  691. 11630  (NULL)lcr
  692. 11640  (NULL)lcr
  693. 11650 lcfin (NULL)bucl
  694. 11660  mid$#$00
  695. 11670  (NULL)
  696. 11680 finc (NULL)bulo
  697. 11690 fibe peek#$00
  698. 11700 dfnc mid$tebu,x
  699. 11710  str$#$20
  700. 11720  (NULL)ncfo
  701. 11730  (NULL)
  702. 11740  (NULL)dfnc
  703. 11750  (NULL)
  704. 11760  (NULL)work+6
  705. 11770  (NULL)finc
  706. 11780 ncfo tan#$00
  707. 11790  (NULL)fncx
  708. 11800  (NULL)
  709. 11810  (NULL)work+6
  710. 11820  (NULL)bucl
  711. 11830  (NULL)bulo
  712. 11840 fncx (NULL)
  713. 11850 bulo mid$#$ff
  714. 11860  (NULL)
  715. 11870  (NULL)work+6
  716. 11880  (NULL)work+26
  717. 11890 bubeg (NULL)prunli
  718. 11900 bldc mid$work+4
  719. 11910  (NULL)bbl
  720. 11920  mid$work+21
  721. 11930  (NULL)bbl
  722. 11940  (NULL)ditalk
  723. 11950 bbl peekwork+26
  724. 11960 dbl (NULL)getbyte
  725. 11970  (NULL)blsto
  726. 11980  mid$#$00
  727. 11990 blsto (NULL)tebu,x
  728. 12000  (NULL)
  729. 12010  (NULL)dbl
  730. 12020  mid$work+4
  731. 12030  (NULL)blnd
  732. 12040  mid$work+21
  733. 12050  (NULL)blnd
  734. 12060  (NULL)diunta
  735. 12070 blnd (NULL)prlist
  736. 12080 blnp (NULL)check
  737. 12090  (NULL)bubeg
  738. 12100  (NULL)
  739. 12110 gbmem (NULL)romoff
  740. 12120  len#$00
  741. 12130  mid$(mempo),y
  742. 12140  (NULL)inmem
  743. 12150  (NULL)romon
  744. 12160  lenmempo+1
  745. 12170  atn#$e0
  746. 12180  (NULL)gbmx
  747. 12190  (NULL)
  748. 12200  (NULL)endcheck
  749. 12210  (NULL)
  750. 12220  (NULL)
  751. 12230 gbmx (NULL)
  752. 12240  (NULL)
  753. 12250 bucl lenwork+6
  754. 12260  (NULL)
  755. 12270  peek#$00
  756. 12280 dbc mid$tebu,y
  757. 12290  (NULL)tebu,x
  758. 12300  (NULL)
  759. 12310  (NULL)
  760. 12320  (NULL)dbc
  761. 12330  (NULL)
  762. 12340 clwl len#$00
  763. 12350  mid$#$20
  764. 12360 bcl (NULL)woli,y
  765. 12370  (NULL)
  766. 12380  (NULL)bcl
  767. 12390  (NULL)
  768. 12400 getbyte mid$work+4
  769. 12410  (NULL)gbdisk
  770. 12420  (NULL)gbmem
  771. 12430 gbdisk mid$work+21
  772. 12440  (NULL)gbbuff
  773. 12450  mid$boot+15
  774. 12460  str$#$50
  775. 12470  (NULL)gbpack
  776. 12480  mid$$90
  777. 12490  asc#$40
  778. 12500  (NULL)gbnok
  779. 12510 uptab mid$work+5
  780. 12520  (NULL)gbde
  781. 12530  (NULL)intab
  782. 12540 gbde (NULL)
  783. 12550  (NULL)
  784. 12560 gbnok (NULL)$ffa5
  785. 12570  lenwork+5
  786. 12580  (NULL)gbnx
  787. 12590  (NULL)busto
  788. 12600 gbnx (NULL)
  789. 12610  (NULL)
  790. 12620 gbpack mid$work+20
  791. 12630  lenwork+5
  792. 12640  (NULL)gbpgo
  793. 12650  (NULL)busto
  794. 12660 gbpgo chr$work+19
  795. 12670  (NULL)gbpx
  796. 12680  (NULL)pabyge
  797. 12690 gbpx (NULL)
  798. 12700  (NULL)
  799. 12710 gbbuff (NULL)romoff
  800. 12720  len#$00
  801. 12730  mid$(mempo),y
  802. 12740  (NULL)inmem
  803. 12750  (NULL)romon
  804. 12760  (NULL)
  805. 12770  (NULL)
  806. 12780 pabyge (NULL)
  807. 12790  mid$$90
  808. 12800  asc#$40
  809. 12810  (NULL)pberr
  810. 12820  (NULL)$ffa5
  811. 12830  str$#$d6
  812. 12840  (NULL)pbgn
  813. 12850  (NULL)$ffa5
  814. 12860  (NULL)work+19
  815. 12870  (NULL)$ffa5
  816. 12880  (NULL)work+20
  817. 12890  (NULL)
  818. 12900  (NULL)
  819. 12910  (NULL)
  820. 12920 pbgn (NULL)work+20
  821. 12930  mid$#$01
  822. 12940  (NULL)work+19
  823. 12950  (NULL)
  824. 12960  (NULL)
  825. 12970  (NULL)
  826. 12980 pberr (NULL)
  827. 12990  (NULL)
  828. 13000  (NULL)
  829. 13010 busto len#$00
  830. 13020  (NULL)(taby),y
  831. 13030 intab right$taby
  832. 13040  (NULL)bstx
  833. 13050  right$taby+1
  834. 13060 bstx lentaby
  835. 13070  (NULL)mempo
  836. 13080  lentaby+1
  837. 13090  (NULL)mempo+1
  838. 13100  (NULL)
  839. 13110 check peek#$00
  840. 13120 doch mid$tebu,x
  841. 13130  (NULL)zeco
  842. 13140  str$#$5f
  843. 13150  (NULL)chco
  844. 13160 chgo (NULL)
  845. 13170  tan#$e0
  846. 13180  (NULL)doch
  847. 13190  (NULL)
  848. 13200  (NULL)
  849. 13210 zeco mid$work+4
  850. 13220  (NULL)chgo
  851. 13230  (NULL)work+26
  852. 13240  mid$work+21
  853. 13250  (NULL)ndo
  854. 13260  (NULL)diunta
  855. 13270  mid$#$01
  856. 13280  (NULL)$ffc3
  857. 13290 ndo mid$#$00
  858. 13300  (NULL)work+4
  859. 13310  mid$texpo
  860. 13320  (NULL)mempo
  861. 13330  mid$texpo+1
  862. 13340  (NULL)mempo+1
  863. 13350  (NULL)work+23
  864. 13360  mid$work+5
  865. 13370  (NULL)zend
  866. 13380  len#$0f
  867. 13390  mid$#$00
  868. 13400 maen (NULL)(taby),y
  869. 13410  (NULL)
  870. 13420  (NULL)maen
  871. 13430 zend (NULL)
  872. 13440  (NULL)
  873. 13450 chco (NULL)
  874. 13460  (NULL)
  875. 13470  (NULL)
  876. 13480  val#<(tebu)
  877. 13490  (NULL)
  878. 13500  mid$#>(tebu)
  879. 13510  val#$00
  880. 13520  (NULL)
  881. 13530  (NULL)comcom
  882. 13540  mid$work+1
  883. 13550  str$#$26
  884. 13560  (NULL)adress
  885. 13570  str$#$24
  886. 13580  (NULL)chboot
  887. 13590  str$#$25
  888. 13600  (NULL)chboot
  889. 13610  (NULL)
  890. 13620  (NULL)
  891. 13630  (NULL)chgo
  892. 13640 adress mid$work+21
  893. 13650  (NULL)adrex
  894. 13660  mid$work+27
  895. 13670  (NULL)adbns
  896. 13680  mid$#$01
  897. 13690  (NULL)work+27
  898. 13700  (NULL)diopen
  899. 13710  (NULL)ditalk
  900. 13720  (NULL)$ffa5
  901. 13730  mid$$90
  902. 13740  (NULL)adrok
  903. 13750  (NULL)diskerr
  904. 13760 adrok (NULL)pabyge
  905. 13770  (NULL)adbeg
  906. 13780 adbns (NULL)ditalk
  907. 13790 adbeg peek#$00
  908. 13800 adsns (NULL)gbpack
  909. 13810  (NULL)adbx
  910. 13820  (NULL)adset,x
  911. 13830  (NULL)
  912. 13840  (NULL)adsns
  913. 13850 adbx (NULL)diunta
  914. 13860 adrex (NULL)
  915. 13870  (NULL)work+26
  916. 13880  (NULL)
  917. 13890  valwork
  918. 13900  (NULL)
  919. 13910  valmempo
  920. 13920  (NULL)mempo
  921. 13930  mid$mempo+1
  922. 13940  val#$00
  923. 13950  (NULL)mempo+1
  924. 13960  chr$mempo+1
  925. 13970  mid$$90
  926. 13980  asc#$40
  927. 13990  (NULL)adbex
  928. 14000  mid$#$00
  929. 14010  (NULL)work+27
  930. 14020  mid$#$01
  931. 14030  (NULL)$ffc3
  932. 14040 adbex (NULL)
  933. 14050  (NULL)
  934. 14060 chboot (NULL)
  935. 14070  (NULL)work+26
  936. 14080  mid$work+21
  937. 14090  (NULL)docb
  938. 14100  (NULL)bupoint
  939. 14110  mid$#$01
  940. 14120  (NULL)work+4
  941. 14130  (NULL)
  942. 14140  (NULL)
  943. 14150 docb (NULL)diopen
  944. 14160  mid$work+26
  945. 14170  peekwork+4
  946. 14180  (NULL)chnorm
  947. 14190  (NULL)
  948. 14200  (NULL)nebu
  949. 14210  (NULL)chbox
  950. 14220  (NULL)
  951. 14230  (NULL)
  952. 14240  valtaby
  953. 14250  (NULL)taby
  954. 14260  mid$taby+1
  955. 14270  val#$00
  956. 14280  (NULL)taby+1
  957. 14290  chr$taby+1
  958. 14300  (NULL)chbox
  959. 14310 chnorm (NULL)
  960. 14320  valwork
  961. 14330  (NULL)
  962. 14340  valmempo
  963. 14350  (NULL)texpo
  964. 14360  mid$mempo+1
  965. 14370  val#$00
  966. 14380  (NULL)texpo+1
  967. 14390  chr$texpo+1
  968. 14400  mid$work
  969. 14410  (NULL)work+22
  970. 14420  mid$#$01
  971. 14430  (NULL)work+4
  972. 14440  (NULL)nebu
  973. 14450  (NULL)chbox
  974. 14460  (NULL)bupoint
  975. 14470  (NULL)bures
  976. 14480  mid$#$01
  977. 14490  (NULL)work+5
  978. 14500 chbox (NULL)ditalk
  979. 14510  (NULL)$ffa5
  980. 14520  mid$$90
  981. 14530  (NULL)diskerr
  982. 14540  mid$boot+15
  983. 14550  str$#$50
  984. 14560  (NULL)opnp
  985. 14570  (NULL)pabyge
  986. 14580  (NULL)opend
  987. 14590 opnp (NULL)$ffa5
  988. 14600 opend (NULL)diunta
  989. 14610  (NULL)
  990. 14620  (NULL)
  991. 14630 diskerr peek#$08
  992. 14640 return (NULL)
  993. 14650  (NULL)
  994. 14660  (NULL)return
  995. 14670  (NULL)clall
  996. 14680  (NULL)status
  997. 14690  (NULL)ickey
  998. 14700 bupoint mid$#>(eighty)
  999. 14710  (NULL)mempo+1
  1000. 14720  mid$#<(eighty)
  1001. 14730  (NULL)mempo
  1002. 14740  (NULL)
  1003. 14750 diopen (NULL)diunta
  1004. 14760  mid$#$01
  1005. 14770  (NULL)$ffc3
  1006. 14780  peek#$08
  1007. 14790  len#$02
  1008. 14800  mid$#$01
  1009. 14810  (NULL)$ffba
  1010. 14820  peek#<(boot)
  1011. 14830  len#>(boot)
  1012. 14840  mid$#$14
  1013. 14850  (NULL)$ffbd
  1014. 14860  mid$#$01
  1015. 14870  (NULL)$ffc0
  1016. 14880 nebu mid$focod+3
  1017. 14890  (NULL)donb
  1018. 14900  mid$oucod+6
  1019. 14910  str$#$01
  1020. 14920  (NULL)donb
  1021. 14930  (NULL)
  1022. 14940  (NULL)
  1023. 14950 donb (NULL)
  1024. 14960  (NULL)
  1025. 14970 adat len#$02
  1026. 14980  mid$(scrpo),y
  1027. 14990  (NULL)tohex
  1028. 15000  (NULL)
  1029. 15010  (NULL)
  1030. 15020  (NULL)
  1031. 15030  (NULL)
  1032. 15040  (NULL)
  1033. 15050  (NULL)
  1034. 15060  val#$10
  1035. 15070  (NULL)work+2
  1036. 15080  (NULL)romoff
  1037. 15090 aslc mid$adset,x
  1038. 15100  (NULL)aflc
  1039. 15110  (NULL)getwid
  1040. 15120  (NULL)
  1041. 15130  tanwork+2
  1042. 15140  (NULL)aslc
  1043. 15150 aflc mid$#$03
  1044. 15160  (NULL)work
  1045. 15170  (NULL)romon
  1046. 15180 kech mid$$028d
  1047. 15190  asc#$04
  1048. 15200  (NULL)kex
  1049. 15210  right$$d020
  1050. 15220  chr$$d020
  1051. 15230  (NULL)kech
  1052. 15240 kex (NULL)chrin
  1053. 15250  str$#$03
  1054. 15260  (NULL)kend
  1055. 15270  (NULL)
  1056. 15280 kend (NULL)
  1057. 15290  (NULL)
  1058. 15300  (NULL)doeo
  1059. 15310 getwid (NULL)
  1060. 15320  mid$psbuf+8
  1061. 15330  asc#$03
  1062. 15340  (NULL)point+1
  1063. 15350  chr$point+1
  1064. 15360  mid$#$00
  1065. 15370  (NULL)point
  1066. 15380  (NULL)point+1
  1067. 15390  (NULL)point
  1068. 15400  mid$point+1
  1069. 15410  (NULL)
  1070. 15420  val#>(width)
  1071. 15430  (NULL)gwget+2
  1072. 15440  (NULL)
  1073. 15450  asc#$7f
  1074. 15460  (NULL)
  1075. 15470  valpoint
  1076. 15480  (NULL)gwget+1
  1077. 15490  mid$psbuf+1
  1078. 15500  (NULL)gwnod
  1079. 15510  mid$#$0a
  1080. 15520  (NULL)gwsto
  1081. 15530 gwnod mid$#$ea
  1082. 15540 gwsto (NULL)gwget+3
  1083. 15550 gwget mid$$ffff
  1084. 15560  (NULL)
  1085. 15570  (NULL)
  1086. 15580  valacpo
  1087. 15590  (NULL)acpo
  1088. 15600  mid$acpo+1
  1089. 15610  val#$00
  1090. 15620  (NULL)acpo+1
  1091. 15630  (NULL)
  1092. 15640 psact mid$work+1
  1093. 15650  str$#$0e
  1094. 15660  (NULL)psnot
  1095. 15670  (NULL)
  1096. 15680  (NULL)
  1097. 15690  mid$work+1
  1098. 15700  asc#$01
  1099. 15710  left$#$01
  1100. 15720  (NULL)psbuf,x
  1101. 15730  (NULL)
  1102. 15740 psnot str$#$11
  1103. 15750  (NULL)psnot2
  1104. 15760  (NULL)
  1105. 15770  (NULL)#$0d
  1106. 15780  (NULL)psbuf+8
  1107. 15790  mid$codes+$01f0
  1108. 15800  (NULL)psnot3
  1109. 15810  peek#$06
  1110. 15820  mid$#$00
  1111. 15830 pacbu (NULL)psbuf,x
  1112. 15840  (NULL)
  1113. 15850  (NULL)pacbu
  1114. 15860  (NULL)
  1115. 15870 psnot2 str$#$11
  1116. 15880  (NULL)psnot3
  1117. 15890  (NULL)setch
  1118. 15900  mid$help+1
  1119. 15910  (NULL)psbuf+7
  1120. 15920 psnot3 (NULL)
  1121. 15930 copps mid$help+2
  1122. 15940  (NULL)
  1123. 15950  (NULL)
  1124. 15960  (NULL)
  1125. 15970  len#$00
  1126. 15980 coprs mid$wopr,x
  1127. 15990  (NULL)psbuf,y
  1128. 16000  (NULL)
  1129. 16010  (NULL)
  1130. 16020  atn#$08
  1131. 16030  (NULL)coprs
  1132. 16040  mid$help+2
  1133. 16050  (NULL)
  1134. 16060  (NULL)
  1135. 16070  mid$woty,x
  1136. 16080  (NULL)psbuf+8
  1137. 16090  (NULL)
  1138. 16100 poch lenwork+1
  1139. 16110  atn#$22
  1140. 16120  (NULL)pcpag
  1141. 16130  atn#$23
  1142. 16140  (NULL)pcadd
  1143. 16150  (NULL)
  1144. 16160  valwork
  1145. 16170  (NULL)
  1146. 16180  (NULL)
  1147. 16190 pcpag (NULL)
  1148. 16200  val#$02
  1149. 16210  (NULL)
  1150. 16220  (NULL)
  1151. 16230 pcadd (NULL)
  1152. 16240  val#$03
  1153. 16250  (NULL)
  1154. 16260  (NULL)
  1155. 16270 setch len#$02
  1156. 16280  mid$(scrpo),y
  1157. 16290  (NULL)tohex
  1158. 16300  (NULL)
  1159. 16310  (NULL)
  1160. 16320  (NULL)
  1161. 16330  (NULL)
  1162. 16340  (NULL)help+1
  1163. 16350  (NULL)
  1164. 16360  mid$(scrpo),y
  1165. 16370  (NULL)tohex
  1166. 16380  (NULL)help+1
  1167. 16390  (NULL)help+1
  1168. 16400  (NULL)
  1169. 17000 comcom (NULL)scrpo+1
  1170. 17010  (NULL)scrpo
  1171. 17020  mid$#$00
  1172. 17030  (NULL)work
  1173. 17040  (NULL)work+1
  1174. 17050 ccred len#$01
  1175. 17060  mid$work+1
  1176. 17070  (NULL)
  1177. 17080  (NULL)
  1178. 17090  valwork+1
  1179. 17100  (NULL)
  1180. 17110 ccnb mid$comms,x
  1181. 17120  (NULL)dnm
  1182. 17130  str$(scrpo),y
  1183. 17140  (NULL)ccdiff
  1184. 17150 dnm (NULL)
  1185. 17160  (NULL)
  1186. 17170  atn#$04
  1187. 17180  (NULL)ccnb
  1188. 17190  peekwork+1
  1189. 17200  mid$length,x
  1190. 17210  (NULL)work
  1191. 17220  (NULL)comch
  1192. 17230  (NULL)
  1193. 17240  (NULL)
  1194. 17250 ccdiff right$work+1
  1195. 17260  mid$work+1
  1196. 17270  str$#$27
  1197. 17280  (NULL)ccred
  1198. 17290  (NULL)
  1199. 17300  (NULL)
  1200. 17310 comch mid$work+1
  1201. 17320  str$#$22
  1202. 17330  (NULL)ccpage
  1203. 17340  str$#$24
  1204. 17350  (NULL)ccdisk
  1205. 17360  str$#$23
  1206. 17370  (NULL)cadat
  1207. 17380  (NULL)
  1208. 17390 cadat (NULL)adat
  1209. 17400 ccpage mid$reg
  1210. 17410  (NULL)
  1211. 17420  mid$reg+1
  1212. 17430  (NULL)
  1213. 17440  mid$work+10
  1214. 17450  (NULL)
  1215. 17460  valoucod+5
  1216. 17470  (NULL)
  1217. 17480  mid$work+11
  1218. 17490  valoucod+4
  1219. 17500  (NULL)
  1220. 17510  (NULL)figure
  1221. 17520  peek#$02
  1222. 17530  len#$00
  1223. 17540 mofig mid$work,x
  1224. 17560  (NULL)work+16,y
  1225. 17570  (NULL)
  1226. 17580  (NULL)
  1227. 17590  (NULL)mofig
  1228. 17600  peek#$02
  1229. 17610 hlf mid$work,x
  1230. 17620  str$#$30
  1231. 17630  (NULL)fifig
  1232. 17640  (NULL)
  1233. 17650  (NULL)hlf
  1234. 17660 fifig (NULL)
  1235. 17670  (NULL)help
  1236. 17671  peek#$00
  1237. 17672 ccpr mid$work,x
  1238. 17674  (NULL)getwid
  1239. 17675  (NULL)
  1240. 17676  tanhelp
  1241. 17677  (NULL)ccpr
  1242. 17680  mid$#$02
  1243. 17690  (NULL)
  1244. 17700  (NULL)help
  1245. 17710  (NULL)work
  1246. 17720  (NULL)
  1247. 17730  (NULL)reg+1
  1248. 17740  (NULL)
  1249. 17750  (NULL)reg
  1250. 17760  mid$#$22
  1251. 17770  (NULL)work+1
  1252. 17780  (NULL)
  1253. 17790 ccdisk len#$0f
  1254. 17800  mid$#$20
  1255. 17810 dcn (NULL)boot,y
  1256. 17820  (NULL)
  1257. 17830  (NULL)dcn
  1258. 17840  len#$04
  1259. 17850  peek#$00
  1260. 17860 nase mid$(scrpo),y
  1261. 17870  (NULL)nsex
  1262. 17880  str$#$22
  1263. 17890  (NULL)nsex
  1264. 17900  (NULL)scrasc
  1265. 17910  (NULL)boot,x
  1266. 17920  (NULL)
  1267. 17930  (NULL)
  1268. 17940  tan#$0f
  1269. 17950  (NULL)nase
  1270. 17960 nsex (NULL)
  1271. 17970  (NULL)work
  1272. 17980  mid$work+1
  1273. 17990  str$#$24
  1274. 18000  (NULL)dln
  1275. 18010  str$#$25
  1276. 18020  (NULL)dlp
  1277. 18030  mid$#$41
  1278. 18040  (NULL)dst
  1279. 18050 dln mid$#$4e
  1280. 18060  (NULL)dst
  1281. 18070 dlp mid$#$50
  1282. 18080 dst (NULL)boot+15
  1283. 18090  (NULL)
  1284. 18100 bordcomp mid$#$01
  1285. 18110  (NULL)work+28
  1286. 18120  peek#$00
  1287. 18130 dobc mid$woli,x
  1288. 18140  str$#$5f
  1289. 18150  (NULL)bcco
  1290. 18160  (NULL)
  1291. 18170 bcgo tanwork+6
  1292. 18180  (NULL)dobc
  1293. 18190  (NULL)dobc
  1294. 18200  (NULL)
  1295. 18210 bcco (NULL)docomm
  1296. 18220  (NULL)bcgo
  1297. 18230 clall (NULL)diunta
  1298. 18240  mid$#$01
  1299. 18250  (NULL)$ffc3
  1300. 18260 clpr (NULL)prclose
  1301. 19000 prepline mid$#$00
  1302. 19010  (NULL)cols
  1303. 19020  (NULL)cols+1
  1304. 19030  mid$#$ff
  1305. 19040  (NULL)from
  1306. 19050  mid$acpo+1
  1307. 19060  str$mxpo+1
  1308. 19070  (NULL)doprep
  1309. 19080  (NULL)plex
  1310. 19090  mid$acpo
  1311. 19100  str$mxpo
  1312. 19110  (NULL)doprep
  1313. 19120  (NULL)plex
  1314. 19130 doprep mid$work+8
  1315. 19140  str$#$04
  1316. 19150  (NULL)plex
  1317. 19160  (NULL)
  1318. 19170  (NULL)
  1319. 19180  mid$plvex,x
  1320. 19190  (NULL)plvec+1
  1321. 19200  mid$plvex+1,x
  1322. 19210  (NULL)plvec+2
  1323. 19220 plvec (NULL)$ffff
  1324. 19230 plex (NULL)
  1325. 19240 plleft mid$mxpo
  1326. 19250  (NULL)
  1327. 19260  (NULL)acpo
  1328. 19270  (NULL)cols
  1329. 19280  mid$mxpo+1
  1330. 19290  (NULL)acpo+1
  1331. 19300  (NULL)cols+1
  1332. 19310  (NULL)
  1333. 19320 plcent (NULL)plleft
  1334. 19330  (NULL)cols+1
  1335. 19340  (NULL)cols
  1336. 19350  (NULL)
  1337. 19360 plblock lenwork+6
  1338. 19370  mid$woli,y
  1339. 19380  (NULL)plbx
  1340. 19390  str$#$1f
  1341. 19400  (NULL)plbx
  1342. 19410  mid$space
  1343. 19420  (NULL)pldob
  1344. 19430 plbx (NULL)
  1345. 19440 pldob (NULL)plleft
  1346. 19450  peek#$00
  1347. 19460  len#$00
  1348. 19470 pldore mid$cols+1
  1349. 19480  (NULL)pldodo
  1350. 19490  mid$cols
  1351. 19500  str$space
  1352. 19510  (NULL)pldex
  1353. 19520 pldodo mid$cols
  1354. 19530  (NULL)
  1355. 19540  (NULL)space
  1356. 19550  (NULL)cols
  1357. 19560  (NULL)plddgo
  1358. 19570  chr$cols+1
  1359. 19580 plddgo (NULL)
  1360. 19590  (NULL)pldore
  1361. 19600  (NULL)
  1362. 19610  (NULL)pldore
  1363. 19620 pldex mid$space
  1364. 19630  (NULL)
  1365. 19640  (NULL)cols
  1366. 19650  (NULL)from
  1367. 19660  (NULL)cols+1
  1368. 19670  (NULL)cols
  1369. 19680  (NULL)
  1370. 19690 actmem mid$mempo+1
  1371. 19700  str$#$e0
  1372. 19710  (NULL)amdisk
  1373. 19720  (NULL)inmem
  1374. 19730  mid$mempo
  1375. 19740  (NULL)
  1376. 19750  valwork+6
  1377. 19760  (NULL)mempo
  1378. 19770  mid$mempo+1
  1379. 19780  val#$00
  1380. 19790  (NULL)mempo+1
  1381. 19800  chr$mempo+1
  1382. 19810  mid$work+23
  1383. 19820  (NULL)amex
  1384. 19830  mid$mempo+1
  1385. 19840  str$texpo+1
  1386. 19850  (NULL)ambu
  1387. 19860  (NULL)amnech
  1388. 19870  (NULL)
  1389. 19880 amnech mid$mempo
  1390. 19890  str$texpo
  1391. 19900  (NULL)amex
  1392. 19910 ambu mid$texpo
  1393. 19920  (NULL)
  1394. 19930  (NULL)mempo
  1395. 19940  (NULL)work
  1396. 19950  mid$texpo+1
  1397. 19960  (NULL)mempo+1
  1398. 19970  (NULL)work+1
  1399. 19980  mid$taby
  1400. 19990  (NULL)
  1401. 20000  (NULL)work
  1402. 20010  (NULL)mempo
  1403. 20020  mid$taby+1
  1404. 20030  (NULL)work+1
  1405. 20040  (NULL)mempo+1
  1406. 20050  mid$work+21
  1407. 20060  (NULL)amex
  1408. 20070  mid$#$01
  1409. 20080  (NULL)work+4
  1410. 20090 amex (NULL)
  1411. 20100 amdisk mid$mempo
  1412. 20110  (NULL)
  1413. 20120  valwork+6
  1414. 20130  (NULL)mempo
  1415. 20140  mid$mempo+1
  1416. 20150  val#$00
  1417. 20160  (NULL)mempo+1
  1418. 20170  (NULL)inmem
  1419. 20180  chr$mempo+1
  1420. 20190  mid$mempo+1
  1421. 20200  str$#$e0
  1422. 20210  (NULL)adok
  1423. 20220  mid$#$00
  1424. 20230  (NULL)
  1425. 20240  (NULL)mempo
  1426. 20250  (NULL)work
  1427. 20260  mid$#$e0
  1428. 20270  (NULL)mempo+1
  1429. 20280  (NULL)work+1
  1430. 20290  mid$texpo
  1431. 20300  (NULL)
  1432. 20310  (NULL)work
  1433. 20320  (NULL)mempo
  1434. 20330  mid$texpo+1
  1435. 20340  (NULL)work+1
  1436. 20350  (NULL)mempo+1
  1437. 20360  mid$mempo
  1438. 20370  (NULL)
  1439. 20380  (NULL)work+22
  1440. 20390  (NULL)mempo
  1441. 20400  mid$mempo+1
  1442. 20410  (NULL)#$00
  1443. 20420  (NULL)mempo+1
  1444. 20430  mid$work+21
  1445. 20440  (NULL)adok
  1446. 20450  mid$#$00
  1447. 20460  (NULL)work+4
  1448. 20470 adok (NULL)
  1449. 20471 respri mid$codes+$01f0
  1450. 20472  (NULL)noreli
  1451. 20480  peek#>(codes+$01f0)
  1452. 20490  len#<(codes+$01f0)
  1453. 20491  mid$comle+$1f
  1454. 20500  (NULL)comout
  1455. 20510 noreli peek#>(codes+$e0)
  1456. 20520  len#<(codes+$e0)
  1457. 20521  mid$comle+$0e
  1458. 20530  (NULL)comout
  1459. 20540 setpri mid$help+2
  1460. 20550  (NULL)
  1461. 20560  (NULL)
  1462. 20570  mid$woty,x
  1463. 20580  (NULL)
  1464. 20590  val#$0d
  1465. 20600  (NULL)work+1
  1466. 20610  (NULL)pcpc
  1467. 20620  (NULL)comout
  1468. 20630  mid$help+2
  1469. 20640  (NULL)
  1470. 20650  (NULL)
  1471. 20660  (NULL)
  1472. 20670  mid$wopr+7,x
  1473. 20680  (NULL)spnos
  1474. 20690  (NULL)
  1475. 20700  peek#>(codes+$0110)
  1476. 20710  len#<(codes+$0110)
  1477. 20711  mid$comle+$11
  1478. 20720  (NULL)comout
  1479. 20730  (NULL)
  1480. 20740  (NULL)prout
  1481. 20750 spnos mid$help+2
  1482. 20760  (NULL)
  1483. 20770  (NULL)
  1484. 20780  (NULL)point
  1485. 20790  (NULL)
  1486. 20800  val#$07
  1487. 20810  (NULL)point+1
  1488. 20820  peekpoint
  1489. 20830 spred mid$wopr,x
  1490. 20840  (NULL)spnot
  1491. 20850  (NULL)
  1492. 20860  asc#$07
  1493. 20870  (NULL)
  1494. 20880  (NULL)work+1
  1495. 20890  (NULL)pcpc
  1496. 20900  (NULL)comout
  1497. 20910 spnot right$point
  1498. 20920  peekpoint
  1499. 20930  tanpoint+1
  1500. 20940  (NULL)spred
  1501. 20950  (NULL)
  1502. 20960 cprnt mid$cols
  1503. 20970  (NULL)cols+1
  1504. 20980  (NULL)cpdone
  1505. 20990  mid$cols
  1506. 21000  (NULL)point
  1507. 21010  mid$cols+1
  1508. 21020  (NULL)point+1
  1509. 21030  mid$advanced
  1510. 21040  (NULL)cpadv
  1511. 21050 cpredo mid$point+1
  1512. 21060  (NULL)point
  1513. 21070  (NULL)cpdone
  1514. 21080 cpdoit len#$00
  1515. 21090 cpslop mid$graphic,y
  1516. 21100  (NULL)prout
  1517. 21110  (NULL)
  1518. 21120  atn#$10
  1519. 21130  (NULL)cpout
  1520. 21140  atngrale
  1521. 21150  (NULL)cpslop
  1522. 21160 cpout chr$point
  1523. 21170  mid$point
  1524. 21180  str$#$ff
  1525. 21190  (NULL)cpredo
  1526. 21200  chr$point+1
  1527. 21210  (NULL)cpredo
  1528. 21220 cpdone (NULL)
  1529. 21230 cpadv lenadlo
  1530. 21240  mid$cols
  1531. 21250  (NULL)advanced,y
  1532. 21260  mid$cols+1
  1533. 21270  (NULL)advanced+1,y
  1534. 21280  len#$00
  1535. 21290 cpaout mid$advanced,y
  1536. 21300  (NULL)prout
  1537. 21310  (NULL)
  1538. 21320  atnadle
  1539. 21330  (NULL)cpaout
  1540. 21340 cpared mid$point
  1541. 21350  (NULL)point+1
  1542. 21360  (NULL)cpdone
  1543. 21370  len#$00
  1544. 21380 cpazo mid$#$00
  1545. 21390  (NULL)prout
  1546. 21400  (NULL)
  1547. 21410  atnadby
  1548. 21420  (NULL)cpazo
  1549. 21430  chr$point
  1550. 21440  mid$point
  1551. 21450  str$#$ff
  1552. 21460  (NULL)cpared
  1553. 21470  chr$point+1
  1554. 21480  (NULL)cpared
  1555. 22000 linout peekwork+6
  1556. 22070 lccf (NULL)help
  1557. 22080 lino2 (NULL)respri
  1558. 22081  mid$work+8
  1559. 22082  (NULL)work+7
  1560. 22090  (NULL)boch
  1561. 22100  (NULL)lonob
  1562. 22110 lobord mid$#$00
  1563. 22120  (NULL)lobeg
  1564. 22130 lonob mid$reg
  1565. 22140 lobeg (NULL)
  1566. 22150  valfocod+8
  1567. 22160  (NULL)
  1568. 22170  (NULL)linbeg
  1569. 22180 indent mid$#$20
  1570. 22190  (NULL)prout
  1571. 22200  (NULL)
  1572. 22210  (NULL)indent
  1573. 22220 linbeg mid$#$00
  1574. 22230  (NULL)work+28
  1575. 22240  (NULL)space
  1576. 22250  (NULL)boch
  1577. 22260  (NULL)lonosp
  1578. 22270  (NULL)setpri
  1579. 22280  mid$work+7
  1580. 22290  (NULL)lonosp
  1581. 22300  str$#$03
  1582. 22310  (NULL)lonosp
  1583. 22320  (NULL)cprnt
  1584. 22330 lonosp peek#$00
  1585. 22340 dlo mid$woli,x
  1586. 22350  (NULL)loex
  1587. 22360  str$#$1f
  1588. 22370  (NULL)loex
  1589. 22380  str$#$5f
  1590. 22390  (NULL)locom
  1591. 22400  str$#$7f
  1592. 22410  (NULL)lonext
  1593. 22420  str$#$20
  1594. 22430  (NULL)loouch
  1595. 22440  (NULL)boch
  1596. 22450  (NULL)loisbo
  1597. 22460  mid$work+7
  1598. 22470  str$#$03
  1599. 22480  (NULL)loisbo
  1600. 22490  (NULL)cprnt
  1601. 22500  right$space
  1602. 22510  mid$space
  1603. 22520  str$from
  1604. 22530  (NULL)loisbo
  1605. 22540  right$cols
  1606. 22550  (NULL)loisbo
  1607. 22560  right$cols+1
  1608. 22570 loisbo mid$#$20
  1609. 22580 loouch (NULL)chrout
  1610. 22590 lonext (NULL)
  1611. 22600 locont tanhelp
  1612. 22610  (NULL)dlo
  1613. 22620  (NULL)dlo
  1614. 22630 loex (NULL)
  1615. 22640  (NULL)
  1616. 22650 locom (NULL)docomm
  1617. 22660  (NULL)locont
  1618. 22670  (NULL)
  1619. 22671 docomm mid$help
  1620. 22672  (NULL)
  1621. 22680  (NULL)
  1622. 22690  (NULL)
  1623. 22700  (NULL)
  1624. 22710  val#<(woli)
  1625. 22720  (NULL)
  1626. 22730  mid$#>(woli)
  1627. 22740  val#$00
  1628. 22750  (NULL)
  1629. 22760  (NULL)comcom
  1630. 22770  (NULL)dcex
  1631. 22780  mid$work+1
  1632. 22790  str$#$1c
  1633. 22800  (NULL)intern
  1634. 22810  (NULL)prcomm
  1635. 22820 dcont (NULL)
  1636. 22830  (NULL)
  1637. 22840  valwork
  1638. 22850  (NULL)
  1639. 22851  (NULL)
  1640. 22852  (NULL)help
  1641. 22860  (NULL)
  1642. 22870  (NULL)
  1643. 22880 dcex (NULL)
  1644. 22881  (NULL)
  1645. 22890  (NULL)
  1646. 22900  (NULL)
  1647. 22910 intern (NULL)
  1648. 22920  (NULL)#$1c
  1649. 22930  (NULL)
  1650. 22940  (NULL)
  1651. 22950  mid$invex,x
  1652. 22960  (NULL)invec+1
  1653. 22970  mid$invex+1,x
  1654. 22980  (NULL)invec+2
  1655. 22990 invec (NULL)$ffff
  1656. 23000  (NULL)dcont
  1657. 23010 form len#$02
  1658. 23020  mid$(scrpo),y
  1659. 23030  (NULL)tohex
  1660. 23040  (NULL)work+8
  1661. 23050  (NULL)
  1662. 23060 bofiget len#$04
  1663. 23070  mid$(scrpo),y
  1664. 23080  (NULL)tohex
  1665. 23090  (NULL)
  1666. 23100  (NULL)
  1667. 23110  (NULL)
  1668. 23120  (NULL)
  1669. 23130  (NULL)help+1
  1670. 23140  (NULL)
  1671. 23150  mid$(scrpo),y
  1672. 23160  (NULL)tohex
  1673. 23170  (NULL)help+1
  1674. 23180  (NULL)help+1
  1675. 23190  (NULL)
  1676. 23200 bolep (NULL)bofiget
  1677. 23210  peekhelp+2
  1678. 23220  (NULL)bopl
  1679. 23230  (NULL)bolex
  1680. 23240  (NULL)reg
  1681. 23250 bolex (NULL)
  1682. 23260 bopl lenhelp+2
  1683. 23270 bpsl mid$focod+1,y
  1684. 23280  (NULL)boer
  1685. 23290  mid$cbcod,x
  1686. 23300  (NULL)
  1687. 23310  valhelp+1
  1688. 23320  (NULL)bonill
  1689. 23330  (NULL)cbcod,x
  1690. 23340 bpex (NULL)
  1691. 23350  (NULL)
  1692. 23360 boer (NULL)
  1693. 23370  (NULL)
  1694. 23380 bolem (NULL)bofiget
  1695. 23390  peekhelp+2
  1696. 23400  (NULL)bomi
  1697. 23410  (NULL)bolex
  1698. 23420  (NULL)reg
  1699. 23430  (NULL)
  1700. 23440 bomi lenhelp+2
  1701. 23450 bmsl mid$focod+1,y
  1702. 23460  (NULL)boer
  1703. 23470  mid$cbcod,x
  1704. 23480  (NULL)
  1705. 23490  (NULL)help+1
  1706. 23500  (NULL)bonill
  1707. 23510  (NULL)cbcod,x
  1708. 23520  (NULL)
  1709. 23530  (NULL)
  1710. 23540 borip (NULL)bofiget
  1711. 23550  peekhelp+2
  1712. 23560  (NULL)
  1713. 23570  (NULL)bopl
  1714. 23580  (NULL)bolex
  1715. 23590  (NULL)reg+1
  1716. 23600  (NULL)
  1717. 23610 borim (NULL)bofiget
  1718. 23620  peekhelp+2
  1719. 23630  (NULL)
  1720. 23640  (NULL)bomi
  1721. 23650  (NULL)bolex
  1722. 23660  (NULL)reg+1
  1723. 23670 bmex (NULL)
  1724. 23680 tohex str$#$01
  1725. 23690  (NULL)therr
  1726. 23700  str$#$07
  1727. 23710  (NULL)thlet
  1728. 23720  str$#$30
  1729. 23730  (NULL)therr
  1730. 23740  str$#$3a
  1731. 23750  (NULL)therr
  1732. 23760  (NULL)
  1733. 23770  (NULL)#$30
  1734. 23780  (NULL)
  1735. 23790 thlet (NULL)
  1736. 23800  val#$09
  1737. 23810  (NULL)
  1738. 23820 therr mid$#$00
  1739. 23830  (NULL)
  1740. 23840 page mid$work+28
  1741. 23850  (NULL)pagx
  1742. 23860  mid$work
  1743. 23870  (NULL)
  1744. 23880  val#$01
  1745. 23890  (NULL)
  1746. 23900 pnou mid$work+16,x
  1747. 23910  (NULL)chrout
  1748. 23920  (NULL)
  1749. 23930  tan#$03
  1750. 23940  (NULL)pnou
  1751. 23950 pagx mid$#$02
  1752. 23960  (NULL)work
  1753. 23970  (NULL)
  1754. 23980 prcomm str$#$11
  1755. 23990  (NULL)norco
  1756. 24000  (NULL)setch
  1757. 24010 norco (NULL)pcpc
  1758. 24011  (NULL)
  1759. 24020  (NULL)pach
  1760. 24030  (NULL)cacomo
  1761. 24040  mid$focod+3
  1762. 24050  (NULL)cacomo
  1763. 24060  mid$work+21
  1764. 24070  (NULL)cacomo
  1765. 24071  (NULL)
  1766. 24072  (NULL)prcex
  1767. 24073 cacomo (NULL)
  1768. 24080  (NULL)comout
  1769. 24090  mid$work+1
  1770. 24100  str$#$11
  1771. 24110  (NULL)prcex
  1772. 24120  mid$help+1
  1773. 24130  (NULL)prout
  1774. 24140 prcex (NULL)dcont
  1775. 24150 pcpc mid$#$00
  1776. 24160  (NULL)scrpo+1
  1777. 24170  mid$work+1
  1778. 24180  (NULL)scrpo
  1779. 24181  (NULL)
  1780. 24182  mid$comle,x
  1781. 24183  (NULL)
  1782. 24190  peek#$04
  1783. 24200 prcc (NULL)
  1784. 24210  (NULL)scrpo
  1785. 24220  (NULL)scrpo+1
  1786. 24230  (NULL)
  1787. 24240  (NULL)prcc
  1788. 24250  mid$scrpo
  1789. 24260  (NULL)
  1790. 24270  val#<(codes)
  1791. 24280  (NULL)
  1792. 24290  mid$scrpo+1
  1793. 24300  val#>(codes)
  1794. 24310  (NULL)
  1795. 24311  (NULL)
  1796. 24320  (NULL)
  1797. 24330 adrs mid$work+28
  1798. 24340  (NULL)adrx
  1799. 24350  mid$work+2
  1800. 24360  (NULL)
  1801. 24370  (NULL)#$10
  1802. 24380  (NULL)
  1803. 24450 adout (NULL)romoff
  1804. 24460  mid$adset,x
  1805. 24470  (NULL)romon
  1806. 24480  (NULL)adrx
  1807. 24500 adnz (NULL)chrout
  1808. 24510  (NULL)
  1809. 24520  tanwork+2
  1810. 24530  (NULL)adout
  1811. 24540 adrx mid$#$03
  1812. 24550  (NULL)work
  1813. 24560  (NULL)
  1814. 24570 chrout (NULL)
  1815. 24580  mid$table,y
  1816. 24590  (NULL)prout
  1817. 24600 linefeed peek#>(codes+$01d0)
  1818. 24610  len#<(codes+$01d0)
  1819. 24611  mid$comle+$1d
  1820. 24620  (NULL)comout
  1821. 24630 nofeed peek#>(codes+$01e0)
  1822. 24640  len#<(codes+$01e0)
  1823. 24641  mid$comle+$1e
  1824. 24660 comout (NULL)scrpo+1
  1825. 24670  (NULL)scrpo
  1826. 24671  (NULL)
  1827. 24672  (NULL)coex
  1828. 24680  len#$00
  1829. 24690 dco mid$(scrpo),y
  1830. 24700  (NULL)prout
  1831. 24710  (NULL)
  1832. 24720  atn#$10
  1833. 24730  (NULL)coex
  1834. 24731  (NULL)
  1835. 24732  (NULL)dco
  1836. 24740 coex (NULL)
  1837. 24750 bonill str$focod,y
  1838. 24760  (NULL)bill
  1839. 24770  str$focod+1,y
  1840. 24780  (NULL)biok
  1841. 24790  (NULL)biok
  1842. 24800 bill mid$focod,x
  1843. 24810 biok (NULL)
  1844. 24820 bures peek#$e0
  1845. 24830  len#$00
  1846. 24840  (NULL)taby+1
  1847. 24850  (NULL)taby
  1848. 24860  (NULL)
  1849. 28000 footout (NULL)clwl
  1850. 28010  peek#$06
  1851. 28020 dsfl mid$focod+14,x
  1852. 28030  str$help+3
  1853. 28040  (NULL)flfo
  1854. 28050  (NULL)
  1855. 28060  (NULL)
  1856. 28070  (NULL)dsfl
  1857. 28080  (NULL)
  1858. 28090  (NULL)
  1859. 28100 flfo (NULL)
  1860. 28110  (NULL)
  1861. 28120  (NULL)
  1862. 28130  (NULL)
  1863. 28140  (NULL)
  1864. 28150  (NULL)
  1865. 28160  val#<(foots)
  1866. 28170  (NULL)scrpo
  1867. 28180  mid$#>(foots)
  1868. 28190  val#$00
  1869. 28200  (NULL)scrpo+1
  1870. 28210  (NULL)
  1871. 28220  mid$focod+14,x
  1872. 28230  (NULL)
  1873. 28240  len#$00
  1874. 28250 fose mid$(scrpo),y
  1875. 28260  (NULL)fsx
  1876. 28270  (NULL)woli,x
  1877. 28280  (NULL)
  1878. 28290  (NULL)
  1879. 28300  atn#$20
  1880. 28310  (NULL)fose
  1881. 28320 fsx (NULL)help
  1882. 28330  (NULL)lino2
  1883. 28340 ditalk mid$#$08
  1884. 28350  (NULL)$ffb4
  1885. 28360  mid$#$62
  1886. 28370  (NULL)$ff96
  1887. 28380 diunta mid$#$08
  1888. 28390  (NULL)$ffab
  1889. 30000 scrasc asc#$7f
  1890. 30010  str$#$20
  1891. 30020  (NULL)saco1
  1892. 30030  str$#$40
  1893. 30040  (NULL)saex
  1894. 30050  str$#$60
  1895. 30060  (NULL)saco2
  1896. 30070  (NULL)
  1897. 30080  val#$40
  1898. 30090 saex (NULL)
  1899. 30100 saco1 (NULL)
  1900. 30110  val#$40
  1901. 30120  (NULL)
  1902. 30130 saco2 (NULL)
  1903. 30140  val#$80
  1904. 30150  (NULL)
  1905. 30160 ascscr str$#$20
  1906. 30170  (NULL)nocode
  1907. 30180  str$#$40
  1908. 30190  (NULL)cuco1
  1909. 30200  str$#$60
  1910. 30210  (NULL)cuco2
  1911. 30220  str$#$80
  1912. 30230  (NULL)cuco3
  1913. 30240  str$#$a0
  1914. 30250  (NULL)nocode
  1915. 30260  str$#$c0
  1916. 30270  (NULL)cuco2
  1917. 30280  (NULL)
  1918. 30290  (NULL)#$80
  1919. 30300 cuco1 (NULL)
  1920. 30310  (NULL)
  1921. 30320 cuco2 (NULL)
  1922. 30330  (NULL)#$40
  1923. 30340  (NULL)
  1924. 30350  (NULL)
  1925. 30360 cuco3 (NULL)
  1926. 30370  (NULL)#$20
  1927. 30380  (NULL)
  1928. 30390  (NULL)
  1929. 30400 nocode (NULL)
  1930. 30410  (NULL)
  1931. 30420 inmem right$mempo
  1932. 30430  (NULL)dim
  1933. 30440  right$mempo+1
  1934. 30450 dim (NULL)
  1935. 30460 romon (NULL)
  1936. 30470  mid$#$37
  1937. 30480  (NULL)$01
  1938. 30490  (NULL)
  1939. 30500  (NULL)
  1940. 30510  (NULL)
  1941. 30520 romoff (NULL)
  1942. 30530  (NULL)
  1943. 30540  mid$#$35
  1944. 30550  (NULL)$01
  1945. 30560  (NULL)
  1946. 30570  (NULL)
  1947. 30580 figure mid$#$30
  1948. 30590  (NULL)work
  1949. 30600  (NULL)work+1
  1950. 30610  (NULL)work+2
  1951. 30620  (NULL)reg+1
  1952. 30630  (NULL)reg
  1953. 30640  peek#$02
  1954. 30650  len#$04
  1955. 30660 decheck mid$reg+1
  1956. 30670  str$fig+1,y
  1957. 30680  (NULL)nexdec
  1958. 30690  (NULL)dosub
  1959. 30700  mid$reg
  1960. 30710  str$fig,y
  1961. 30720  (NULL)nexdec
  1962. 30730 dosub mid$reg
  1963. 30740  (NULL)
  1964. 30750  (NULL)fig,y
  1965. 30760  (NULL)reg
  1966. 30770  mid$reg+1
  1967. 30780  (NULL)fig+1,y
  1968. 30790  (NULL)reg+1
  1969. 30800  right$work,x
  1970. 30810  (NULL)decheck
  1971. 30820 nexdec (NULL)
  1972. 30830  (NULL)
  1973. 30840  (NULL)
  1974. 30850  (NULL)decheck
  1975. 30860  mid$work+2
  1976. 30870  peekwork+1
  1977. 30880  lenwork
  1978. 30890  (NULL)
  1979. 30900 endcheck mid$mempo+1
  1980. 30910  str$#>(memend)
  1981. 30920  (NULL)ecne
  1982. 30930  (NULL)ecerr
  1983. 30940  mid$mempo
  1984. 30950  str$#<(memend)
  1985. 30960  (NULL)ecne
  1986. 30970 ecerr (NULL)
  1987. 30980  (NULL)
  1988. 30990 ecne (NULL)
  1989. 31000  (NULL)
  1990. 31010 status (NULL)stget
  1991. 31020  peek#$00
  1992. 31030 stsh mid$work+$10,x
  1993. 31040  str$#$0d
  1994. 31050  (NULL)stshen
  1995. 31060  (NULL)ascscr
  1996. 31070  (NULL)screen+$01e0,x
  1997. 31080  (NULL)
  1998. 31090  (NULL)stsh
  1999. 31100 stshen (NULL)
  2000. 31110 stget peek#$08
  2001. 31120  len#$0f
  2002. 31130  (NULL)
  2003. 31140  (NULL)$ffba
  2004. 31150  mid$#$00
  2005. 31160  (NULL)$ffbd
  2006. 31170  mid$#$0f
  2007. 31180  (NULL)$ffc0
  2008. 31190  peek#$0f
  2009. 31200  (NULL)$ffc6
  2010. 31210  peek#$00
  2011. 31220 sgsl (NULL)$ffcf
  2012. 31230  (NULL)work+$10,x
  2013. 31240  str$#$0d
  2014. 31250  (NULL)sgen
  2015. 31260  (NULL)
  2016. 31270  tan#$30
  2017. 31280  (NULL)sgsl
  2018. 31290 sgen mid$#$0f
  2019. 31300  (NULL)$ffc3
  2020. 31310  (NULL)$ffcc
  2021. 31430 fig fn$01,$00,$0a,$00,$64,$00
  2022. 40000 comms fn$02,$31,$00,$02,$30,$00,$05,$31,$00,$05,$30,$00,$12,$31
  2023. 40010  fn$00,$12,$30,$00,$09,$31,$00,$09,$30,$00,$15,$31,$00,$15
  2024. 40020  fn$30,$00,$08,$31,$00,$08,$30,$00,$0c,$31,$00,$0c,$30,$00
  2025. 40030  fn$14,$31,$00,$14,$32,$00,$14,$33,$00,$13,$00,$00,$30,$00
  2026. 40040  fn$00,$31,$00,$00,$32,$00,$00,$33,$00,$00,$34,$00,$00,$35
  2027. 40050  fn$00,$00,$36,$00,$00,$37,$00,$00,$38,$00,$00,$39,$00,$00
  2028. 40060  fn$06,$00,$00,$02,$0c,$2b,$02,$0c,$2d,$02,$12,$2b,$02,$12
  2029. 40070  fn$2d,$18,$00,$00,$10,$00,$00,$01,$00,$00,$0c,$0e,$22,$0c
  2030. 40080  fn$10,$22,$0c,$01,$22
  2031. 40100 length fn$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03
  2032. 40110  fn$03,$03,$03,$04,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02
  2033. 40120  fn$03,$06,$06,$06,$06,$02,$00,$00,$00,$00,$00
  2034. 40200 errs spc(norm,illcomm,long,xmem
  2035. 40210 plvex spc(plex,plleft,plcent,plblock
  2036. 40220 invex spc(form,bolep,bolem,borip,borim,bmex,page
  2037. 40230  spc(adrs,bmex,bmex,bmex
  2038. 40300 boot not"                ,p,r"
  2039. 60000 end <
  2040.