identification division. environment division. data division. working-storage section. 01 Dial usage maindialog left 10 top 10 width 400 height 200 title 'Statisches Menu' font 'arial' fontsize 10 maximizebox closebox. * Haupmenu 02 hmenu usage is menu. 05 haus pic x(12). 05 filler usage submenu title 'Datei'. 05 filler usage submenu title 'Bearbeiten'. 05 filler usage item title 'Ende'. * Datei 02 dmenu usage is menu. 05 daus pic x(10). 05 filler usage item title 'Öffnen'. 05 filler usage item title '-'. 05 filler usage submenu checked title 'Sichern...'. 05 filler usage item title 'Löschen'. * Bearbeiten 02 bmenu usage is menu. 05 baus pic x(15). 05 filler usage item title 'mit Sicherung'. 05 filler usage item title 'ohne Sicherung'. * Datei - Sichern 02 smenu usage is menu. 05 saus pic x(10). 05 filler usage item title 'mit Kopie'. 05 filler usage item title 'ohne Kopie'. 02 hauswahl pic x(30) usage static left 5 top 5 width 100. 02 dauswahl pic x(30) usage static left 5 top 25 width 100. 02 bauswahl pic x(30) usage static left 5 top 45 width 100. 02 sauswahl pic x(30) usage static left 5 top 65 width 100. 02 ebox pic x(10) usage edit left 5 top 100 width 120 height 24 id 123. 02 sbnr pic ------9 usage static left 5 top 135 width 120 height 24. 77 bnr pic 9(6) value 0. 77 fnr pic 99. procedure division. send dial. mlop. move 0 to bnr. call waitbox using bnr dial. if bnr = -1 stop run. move haus to hauswahl. move daus to dauswahl. move baus to bauswahl. move saus to sauswahl. move bnr to sbnr. send hauswahl dauswahl bauswahl sauswahl sbnr. go to mlop. ende.