10 REM *******************************
20 REM * ANALYSIEREN EINES PROGRAMMS *
30 REM * NACH PROGRAMMTYP,ATTRIBUTEN *
40 REM *      SEKTORVERKETTUNG       *
50 REM *******************************
60 :
70 :
80 :
90 DIMDI(35):ZD=1
100 PRINT"[147]--- DATEI-ANALYSE ---
110 [153]"AUSGABE AUF BWAITILDSCHIRM"
120 [153]"       ODER DWAITRUCKER    ";
130 [133]AU$
140 [139]AU$[178]"B"[167]AU[178]3:[137]170
150 [139]AU$[178]"D"[167]AU[178]4:[137]170
160 [137]110
170 [133]"DATEINAME ";DN$
180 [153]
190 TR[178]18:SE[178]1
200 [159]15,8,15:[159]2,8,2,"#"
210 [152]15,"U1";2;0;TR;SE
220 [129]L[178]0[164]7
230 [152]15,"B-P";2;L[172]32[170]5
240 DA$[178]""
250 [129]M[178]1[164][195](DN$)
260 [161]#2,DX$
270 DA$[178]DA$[170]DX$
280 [130]M
290 [139]DA$[178]DN$[167]400
300 [153]"#"ZD":"DA$
310 ZD[178]ZD[170]1
320 DA$[178]""
330 [130]L
340 [152]15,"B-P";2;0
350 [161]#2,TR$:[161]#2,SE$
360 TR[178][198](TR$[170][199](0)):SE[178][198](SE$[170][199](0))
370 [139]TR[179]1[176]TR[177]70[176]SE[179]0[176]SE[177]20[167]1000
380 [137]210
400 [152]15,"B-P";2;L[172]32[170]2
410 [129]N[178]0[164]29
420 [161]#2,DX$
430 DI(N)[178][198](DX$[170][199](0))
440 [130]
450 [159]3,AU:[152]3
460 [152]3,"EINTRAG NR."ZD
470 [152]3
480 :
490 [152]3,"DATEINAME........... ";
500 DN$[178]""
510 [129]N[178]3[164]18
520 DN$[178]DN$[170][201]([199](DI(N)),1)
530 [130]
540 [152]3,DN$
550 :
560 [152]3:[152]3,"DATEITYP............ ";
570 [152]15,"B-P";2;L[172]32[170]2
580 [161]#2,DX$
590 DT[178][198](DX$[170][199](0)):DD[178]DT
600 [139]DT[177][178]0[175]DT[179][178]4[167]FO[178]1
610 [139]DT[177][178]128[175]DT[179][178]132[167]DT[178]DT[171]128
620 [139]DT[177][178]80[175]DT[179][178]84[167]FO[178]1:FG[178]1:DT[178]DT[171]80
630 [139]DT[177][178]192[175]DT[179][178]196[167]FG[178]1:DT[178]DT[171]192
640 [139]DT[178]0[167][152]3,"GELOESCHT":[137]700
650 [139]DT[178]1[167][152]3,"SEQUENTIELL":[137]700
660 [139]DT[178]2[167][152]3,"PROGRAMM":[137]700
670 [139]DT[178]3[167][152]3,"USER":[137]700
680 [139]DT[178]4[167][152]3,"RELATIV":[137]700
690 [152]3,"???
700 IF FO=1 THENPRINT#3,"                     NICHT GESCHLOSSEN"
710 IFFG=1THENPRINT#3,"                     GESCHUETZT
720 [152]3,"                     CODE: +";DD
730 [152]3
740 :
750 [152]3,"LAENGE IN BLOECKEN..";
760 [152]15,"B-P";2;L[172]32[170]2[170]28
770 [161]#2,A$:[161]#2,B$
780 LL[178][198](A$[170][199](0)):LH[178][198](B$[170][199](0))
790 LD[178]LL[170]256[172]LH
800 [152]3,LD
810 [152]3
820 :
830 [152]3,"SEKTORVERKETTUNG....";
840 [152]15,"U1";2;0;TR;SE
850 [152]15,"B-P";2;L[172]32[170]3
860 [161]#2,ET$:[161]#2,ES$
870 ET[178][198](ET$[170][199](0)):ES[178][198](ES$[170][199](0))
880 [152]3,ET"/"ES
890 TR[178]ET:SE[178]ES
900 [152]15,"U1";2;0;TR;SE
910 [152]15,"B-P";2;0
920 [161]#2,NT$:[161]#2,NS$
930 NT[178][198](NT$[170][199](0)):NS[178][198](NS$[170][199](0))
940 [139]NT[179]1[176]NT[177]70[176]NS[179]0[176]NS[177]20[167]1020
950 [152]3,"                    ";NT"/"NS
960 TR[178]NT:SE[178]NS
970 [137]900
1000 [153]"FILE NICHT GEFUNDEN !!"
1010 [160]15:[160]2
1020 [160]15:[160]2:[160]3