home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / dateischnueffler (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  100 lines
  1. 10 rem *******************************
  2. 20 rem * analysieren eines programms *
  3. 30 rem * nach programmtyp,attributen *
  4. 40 rem *      sektorverkettung       *
  5. 50 rem *******************************
  6. 60 :
  7. 70 :
  8. 80 :
  9. 90 dimdi(35):zd=1
  10. 100 print"[147]--- datei-analyse ---
  11. 110 [153]"ausgabe auf bwaitildschirm"
  12. 120 [153]"       oder dwaitrucker    ";
  13. 130 [133]au$
  14. 140 [139]au$[178]"b"[167]au[178]3:[137]170
  15. 150 [139]au$[178]"d"[167]au[178]4:[137]170
  16. 160 [137]110
  17. 170 [133]"dateiname ";dn$
  18. 180 [153]
  19. 190 tr[178]18:se[178]1
  20. 200 [159]15,8,15:[159]2,8,2,"#"
  21. 210 [152]15,"u1";2;0;tr;se
  22. 220 [129]l[178]0[164]7
  23. 230 [152]15,"b-p";2;l[172]32[170]5
  24. 240 da$[178]""
  25. 250 [129]m[178]1[164][195](dn$)
  26. 260 [161]#2,dx$
  27. 270 da$[178]da$[170]dx$
  28. 280 [130]m
  29. 290 [139]da$[178]dn$[167]400
  30. 300 [153]"#"zd":"da$
  31. 310 zd[178]zd[170]1
  32. 320 da$[178]""
  33. 330 [130]l
  34. 340 [152]15,"b-p";2;0
  35. 350 [161]#2,tr$:[161]#2,se$
  36. 360 tr[178][198](tr$[170][199](0)):se[178][198](se$[170][199](0))
  37. 370 [139]tr[179]1[176]tr[177]70[176]se[179]0[176]se[177]20[167]1000
  38. 380 [137]210
  39. 400 [152]15,"b-p";2;l[172]32[170]2
  40. 410 [129]n[178]0[164]29
  41. 420 [161]#2,dx$
  42. 430 di(n)[178][198](dx$[170][199](0))
  43. 440 [130]
  44. 450 [159]3,au:[152]3
  45. 460 [152]3,"eintrag nr."zd
  46. 470 [152]3
  47. 480 :
  48. 490 [152]3,"dateiname........... ";
  49. 500 dn$[178]""
  50. 510 [129]n[178]3[164]18
  51. 520 dn$[178]dn$[170][201]([199](di(n)),1)
  52. 530 [130]
  53. 540 [152]3,dn$
  54. 550 :
  55. 560 [152]3:[152]3,"dateityp............ ";
  56. 570 [152]15,"b-p";2;l[172]32[170]2
  57. 580 [161]#2,dx$
  58. 590 dt[178][198](dx$[170][199](0)):dd[178]dt
  59. 600 [139]dt[177][178]0[175]dt[179][178]4[167]fo[178]1
  60. 610 [139]dt[177][178]128[175]dt[179][178]132[167]dt[178]dt[171]128
  61. 620 [139]dt[177][178]80[175]dt[179][178]84[167]fo[178]1:fg[178]1:dt[178]dt[171]80
  62. 630 [139]dt[177][178]192[175]dt[179][178]196[167]fg[178]1:dt[178]dt[171]192
  63. 640 [139]dt[178]0[167][152]3,"geloescht":[137]700
  64. 650 [139]dt[178]1[167][152]3,"sequentiell":[137]700
  65. 660 [139]dt[178]2[167][152]3,"programm":[137]700
  66. 670 [139]dt[178]3[167][152]3,"user":[137]700
  67. 680 [139]dt[178]4[167][152]3,"relativ":[137]700
  68. 690 [152]3,"???
  69. 700 if fo=1 thenprint#3,"                     nicht geschlossen"
  70. 710 iffg=1thenprint#3,"                     geschuetzt
  71. 720 [152]3,"                     code: +";dd
  72. 730 [152]3
  73. 740 :
  74. 750 [152]3,"laenge in bloecken..";
  75. 760 [152]15,"b-p";2;l[172]32[170]2[170]28
  76. 770 [161]#2,a$:[161]#2,b$
  77. 780 ll[178][198](a$[170][199](0)):lh[178][198](b$[170][199](0))
  78. 790 ld[178]ll[170]256[172]lh
  79. 800 [152]3,ld
  80. 810 [152]3
  81. 820 :
  82. 830 [152]3,"sektorverkettung....";
  83. 840 [152]15,"u1";2;0;tr;se
  84. 850 [152]15,"b-p";2;l[172]32[170]3
  85. 860 [161]#2,et$:[161]#2,es$
  86. 870 et[178][198](et$[170][199](0)):es[178][198](es$[170][199](0))
  87. 880 [152]3,et"/"es
  88. 890 tr[178]et:se[178]es
  89. 900 [152]15,"u1";2;0;tr;se
  90. 910 [152]15,"b-p";2;0
  91. 920 [161]#2,nt$:[161]#2,ns$
  92. 930 nt[178][198](nt$[170][199](0)):ns[178][198](ns$[170][199](0))
  93. 940 [139]nt[179]1[176]nt[177]70[176]ns[179]0[176]ns[177]20[167]1020
  94. 950 [152]3,"                    ";nt"/"ns
  95. 960 tr[178]nt:se[178]ns
  96. 970 [137]900
  97. 1000 [153]"file nicht gefunden !!"
  98. 1010 [160]15:[160]2
  99. 1020 [160]15:[160]2:[160]3
  100.