Für Dbase und Foxplus gab es mal ein Tool, mit dem man sich(wie das Quelltextbsp. zeigt) graphisch den Ablauf, bzw. die Verschachtelung in Programmen anzeigen lassen konnte.
Delphi-Quellcode:
664 ║ │ │ │ z=1
665 ║ │ │ │ ╔═do while .T.
666 ║ │ │ │ ║ rnr="rnr"+trim(ltrim(str(z)))
667 ║ │ │ │ ║ goto &rnr
668 ║ │ │ │ ║ b1="N"
669 ║ │ │ │ ║ @ z+9,53 get b1
670 ║ │ │ │ ║ j=0
671 ║ │ │ │ ║ ╔═do while j=0
672 ║ │ │ │ ║ ║ J=INKEY()
673 ║ │ │ │ ║ ║ ┌─if j>0
674 ║ │ │ │ ║ v═══════exit
675 ║ │ │ │ ║ ║ └─endif
676 ║ │ │ │ ║ ╚═enddo
677 ║ │ │ │ ║ ┌─if j=13
678 ║ │ │ │ v═══════exit
679 ║ │ │ │ ║ └─endif
680 ║ │ │ │ ║ ┌─if chr(j)$"Zz"
681 ║ │ │ │ v═══════exit
682 ║ │ │ │ ║ └─endif
683 ║ │ │ │ ║ ┌─if chr(J)$"JjNn"
684 ║ │ │ │ ║ │ b1=chr(j)
685 ║ │ │ │ ║ │ ┌─if chr(j)$"Jj"
686 ║ │ │ │ ║ │ │ b2=.T.
687 ║ │ │ │ ║ │ ├─else
688 ║ │ │ │ ║ │ │ b2=.F.
689 ║ │ │ │ ║ │ └─endif
690 ║ │ │ │ ║ │ repla B with b2,BEL_DAT with date()
691 ║ │ │ │ v═══════exit
692 ║ │ │ │ ║ └─endif
693 ║ │ │ │ ║ ┌─if j=5 .and. z>1
694 ║ │ │ │ ║ │ @ z+9,53 say b1
695 ║ │ │ │ ║ │ z=z-1
696 ║ │ │ │ ^═══════loop
697 ║ │ │ │ ║ └─endif
698 ║ │ │ │ ║ ┌─if j=24 .and. z<zmax
699 ║ │ │ │ ║ │ @ z+9,53 say b1
700 ║ │ │ │ ║ │ z=z+1
701 ║ │ │ │ ^═══════loop
702 ║ │ │ │ ║ └─endif
703 ║ │ │ │ ╚═enddo
Hat sowas schon einmal jemand für Delphi gesehen?