home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1043 / gepackt.exe / SPRACHEN / FORTRAN / FORTRAN.SSD < prev   
Encoding:
Text File  |  1992-08-01  |  1.8 KB  |  44 lines
  1. ; Graphischer Editor für Struktogramme (G.E.S.y) V2.1
  2. ;
  3. ; Dipl.-Ing. Michael Denzlein
  4. ; S.I.P.-Software Lösungen
  5. ; Griesäckerstr. 15
  6. ; W-8608 Memmelsdorf/Bamberg
  7. ;
  8. ; Quelltextskelett-Übersetzungsdatei für Fortran
  9. ;
  10. ; Parameter : \$     Objektnamen einfügen
  11. ;             \#     Objekttext einfügen
  12. ;             \+     oberen Text eines FOR-Objektes einfügen
  13. ;             \@     Sohnliste hier einfügen
  14. ;             \%     Sohnliste unter einem Fallunterscheidungsobjekt einfügen
  15. ;             \iNAME Datei NAME einfügen (nur Großbuchstaben!)
  16. ;             \\     das \-Zeichen
  17. ;             \?     gibt eine Meldungsbox aus (für in einer Sprache 
  18. ;                    undefinierte Objekte
  19. ;             \n     neue Zeile
  20. ;             \&xxx  in der Spalte weitermachen (Kommentarbeginn)
  21. ;             \>     ab der nächsten Zeile eine Tabulator-Position einrücken
  22. ;             \<     ab der nächsten Zeile eine Tabulator-Position ausrücken
  23. ;             \0..\9 Label-Nummern - pro Objekt 10 Stück
  24. ;             \p     Parameter-Liste (nur bei Procedur- und Root-Sinnbild)
  25. *.FOR
  26.       program \$\n\n\i FORTRAN.HDR\n\n      call Main()\n      stop\n      end\n
  27. \n      subroutine \$(\p)\nC     \#\n\@\n      return\n      end\n
  28. \nC     \#\n
  29. \nC     \#\n
  30. \n\0 if [Bedingung] then\nC     \#\n\@\n      goto \0\n      end if\n
  31. \n\0 continue\nC     \#\n\@\n      if [Bedingung] goto \1\n      goto \0\n\1 continue\n
  32. \n      do \0 = <Start>, <Ende>, <Schrittweite>\nC     \+\nC     \#\n\@\n\0 continue\n
  33. \n      if [Bedingung] then\nC     \#\n\@\n      else\n\@\n      end if\n
  34. \nC     \#\n\n
  35. \n      end if\n
  36. \nC     \#\n
  37.       if [Bedingung]\nC     \#\n\%\n      else
  38. \n      call \$ (\p)\nC     \#\n
  39. \n      stop \$\nC     \#\n
  40. \nC*****\nC Parallelkonstrukt wird nicht unterstützt\nC*****\nC \#\n
  41. \nC end parallel\n
  42. \nC Par.zweig -> \#\n\@\n
  43. Ja
  44.