home *** CD-ROM | disk | FTP | other *** search
/ Publication 15 / Publication_15_19xx_Civitas_de_Side_B.d64 / x-ref1 (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  2KB  |  82 lines
  1. 1 goto10
  2. 3 get#1,g$:ga=g:g=asc(g$+n$):return
  3. 5 gosub3:f=g:gosub3:f=f+256*g:return
  4. 7 ifxx<xmandvz<xmthenreturn
  5. 8 print"raise xm in line 10!":end
  6. 10 pa=4:sa=0:xm=2000:bt=2049
  7. 40 print"[147]x-ref":print"printout (j/n) ? ";
  8. 42 getg$:ifg$<>"n"andg$<>"j"then42
  9. 44 printg$:ifg$="n"thenpa=3
  10. 46 dimx$(xm),a$(xm),z$(xm):n$=chr$(0)
  11. 50 input"filename = ";g$:g$=g$+",p,r"
  12. 52 open1,8,3,g$:gosub3:x=g:gosub3:x=x+256*g:g$=ds$
  13. 54 ifbt<>xthenprint"fehler!",g$:close1:end
  14. 55 print"searching prg.
  15. 56 [137]600
  16. 200 r[178]x:[139][182](r)[179]256[167][139](r[175]127)[178]r[167]230
  17. 210 [139]r[179][177]143[167]780
  18. 220 xg[178]1e9:[137]780
  19. 230 r$[178][199](r):v$[178]"":[139]r$[179]"a"[176]r$[177]"z"[167]780
  20. 240 [139]r$[178]"e"[167]r[178]ga:[139]r[177]47[175]r[179]58[176]r[178]46[167]780
  21. 250 rr[178]0:[137]280
  22. 260 [141]3:r[178]g:x0[178]x0[170]1:r$[178][199](r):[139]r[178]0[176]r[178]34[167]320
  23. 270 [139]r$[179]"0"[176]r$[177]"z"[176](r$[177]"9"[175]r$[179]"a")[167]290
  24. 280 v$[178]v$[170]r$:[153]r$;:[137]260
  25. 290 [139]rr[167]310
  26. 300 rr[178]r$[178]"$"[176]r$[178]"%":[139]rr[167][153]r$;:v$[178]v$[170]r$:[137]260
  27. 310 [139]r$[178]"("[167][153]r$;:v$[178]v$[170]r$
  28. 320 [153]" ";:[139]vz[179]0[167]350
  29. 330 r[178][171]1:[129]i[178]0[164]vz:[139]a$(i)[178]v$[167]r[178]i:i[178]vz[170]1
  30. 340 [130]:[139]r[177][178]0[167]370
  31. 350 [141]7:vz[178]vz[170]1:r$[178][196](xz):z$(vz)[178][201]("       "[170]r$,7)[170]r$
  32. 360 a$(vz)[178]v$:[137]410
  33. 370 v$[178][196](xz):[139][201](z$(r),[195](v$))[178]v$[167]410
  34. 380 [139][195](z$(r))[179]60[167]z$(r)[178]z$(r)[170]v$:[137]410
  35. 390 [141]7:vz[178]vz[170]1:d[178]0:a$(vz)[178]a$(r):z$(vz)[178]z$(r)
  36. 400 z$(r)[178][201]("       "[170]v$,7)[170]v$
  37. 410 x[178]g:[139]x[178]0[167]750
  38. 420 [139]x[178]34[167]xg[178]1[171]xg:[137]780
  39. 430 [137]630
  40. 440 [153]"end.":[153]
  41. 450 [143]
  42. 460 [143]
  43. 470 [143]
  44. 480 [143]
  45. 490 [143]
  46. 500 [139]vz[179]0[167][153]"no variables!":[128]
  47. 510 [159]1,pa,sa:[157]1:[153]:[153]"variables x-ref.:
  48. 520 fori=0tovz:a$(i)=a$(i)+left$(z$(i),7):next
  49. 530 v$="":fori=0tovz:r$="a
  50. 540 [129]j[178]0[164]vz:z$[178]a$(j):[139]z$[177]v$[175]z$[179]r$[167]r$[178]z$:zn$[178]z$(j)
  51. 550 [130]:r[178][195](r$)[171]7
  52. 560 [139][200](v$,r)[178][200](r$,r)[167][153]" ",:[137]580
  53. 570 [153][200](r$,r),
  54. 580 v$[178]r$:[153][202](zn$,8):[130]:[152]1:[160]1:[128]
  55. 590 [143]
  56. 600 vz[178][171]1:xx[178][171]1:xp[178]bt:[141]5:xe[178]f
  57. 610 [141]5:xz[178]f:[153]:[153]xz,
  58. 620 xg[178]1:[129]x0[178]xp[170]4[164]xe[171]2:[141]3:x[178]g:[139]x[178]34[167]xg[178]1[171]xg:[137]780
  59. 630 x[178]xg[172]x:[139]x[179][177]137[175]x[179][177]138[175]x[179][177]141[175]x[179][177]155[175]x[179][177]167[167]200
  60. 640 x$[178]"":xz$[178][196](xz)
  61. 650 [139]d[167]630
  62. 660 x0[178]x0[170]1:[141]3:x[178]g:[139]x[178]32[167]660
  63. 670 [139]x[177]47[175]x[179]58[167]x$[178]x$[170][199](x):[137]660
  64. 680 [139]x$[178]""[167]770
  65. 690 xq[178][171]1:[153]x$;" ";:x$[178][201]("       "[170]x$,7):[129]xi[178]0[164]xx
  66. 700 [139][200](x$(xi),7)[178]x$[167]xq[178]xi:xi[178]xx
  67. 710 [130]:[139]xq[179]0[167][141]7:xx[178]xx[170]1:xq[178]xx:[137]740
  68. 720 [139][195](x$(xq))[179]55[167]x$(xq)[178]x$(xq)[170]xz$:[137]750
  69. 730 [141]7:xx[178]xx[170]1:x$(xx)[178]x$(xq)
  70. 740 x$(xq)[178]x$[170]"   "[170]xz$
  71. 750 [139]x[178]0[167]x0[178]xe[171]2:[130]:[137]790
  72. 760 [139]x[178]32[167]x0[178]x0[170]1:[141]3:x[178]g:[137]750
  73. 770 [139]x[178]44[167]x$[178]"":[137]660
  74. 780 [130]:[141]3
  75. 790 xp[178]xe:[141]5:xe[178]f:[139]xe[177]0[167]610
  76. 800 [160]1:[139]xx[179]0[167][153]:[153]"no jumps!":[137]500
  77. 810 [159]1,pa,sa:[157]1:[153]:[153]"line no. x-ref:
  78. 820 xz$=chr$(1):forxq=0toxx:x$="a
  79. 830 [129]x0[178]0[164]xx:xv$[178]x$(x0):[139]xv$[177]xz$[175]xv$[179]x$[167]x$[178]xv$
  80. 840 [130]:xv$[178]x$:[139][200](xv$,7)[178][200](xz$,7)[167]xv$[178]"       "[170][202](x$,8)
  81. 850 [153]xv$:xz$[178]x$:[130]:[152]1:[160]1:[137]500
  82.