home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / dateischnueffler (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.