home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / STRUKTUR.OPT < prev    next >
Text File  |  1995-04-05  |  17KB  |  674 lines
  1.  
  2. rem !!! Dieses Programm läßt sich mit OPTIX-'FREE' nicht starten !!!
  3.  
  4. rem Es ist eine Struktur-Demo und hätte in der OPTIX-Vollversion nichts
  5. rem weiter zu tun, als eine 3x3x3-Grundstruktur vorzubereiten. Auf die
  6. rem Schleife, das Hauptmenü, die Untermenüs, sowie die 'Ast-Enden' können
  7. rem beliebige Bilder gelegt werden und schon ist eine repräsentative
  8. rem Info-Show mit insgesamt 52 Bildern fertig. So einfach ist das!
  9.  
  10. rem !!! Dieses Programm läßt sich mit OPTIX-'FREE' nicht starten !!!
  11.  
  12. rem
  13. rem
  14. rem *********************************************************************
  15. rem
  16. rem
  17. rem
  18. rem   Grundstruktur
  19. rem   ===========================
  20. rem
  21. rem   Tiefe: 3x3x3 = 27 Endpunkte
  22. rem
  23. rem
  24. rem
  25. rem mainloop
  26. rem    |
  27. rem Mainmenu
  28. rem    |
  29. rem    |--------
  30. rem    |       |
  31. rem    |     Menu1-----
  32. rem    |       |      |    |-Pic111
  33. rem    |       |    Sub11--|-Pic112
  34. rem    |       |      |    |-Pic113
  35. rem    |       |      |
  36. rem    |       |      |    |-Pic121
  37. rem    |       |    Sub12--|-Pic122
  38. rem    |       |      |    |-Pic123
  39. rem    |       |      |
  40. rem    |       |      |    |-Pic131
  41. rem    |       |    Sub13--|-Pic132
  42. rem    |       |           |-Pic133
  43. rem    |       |
  44. rem    |     Menu2-----
  45. rem    |       |      |    |-Pic211
  46. rem    |       |    Sub21--|-Pic212
  47. rem    |       |      |    |-Pic213
  48. rem    |       |      |
  49. rem    |       |      |    |-Pic221
  50. rem    |       |    Sub22--|-Pic222
  51. rem    |       |      |    |-Pic223
  52. rem    |       |      |
  53. rem    |       |      |    |-Pic231
  54. rem    |       |    Sub23--|-Pic232
  55. rem    |       |           |-Pic233
  56. rem    |       |
  57. rem    |     Menu3-----
  58. rem    |       |      |    |-Pic311
  59. rem    |       |    Sub31--|-Pic312
  60. rem    |       |      |    |-Pic313
  61. rem    |       |      |
  62. rem    |       |      |    |-Pic321
  63. rem    |       |    Sub32--|-Pic322
  64. rem    |       |      |    |-Pic323
  65. rem    |       |      |
  66. rem    |       |      |    |-Pic331
  67. rem    |       |    Sub33--|-Pic332
  68. rem    |       |           |-Pic333
  69. rem    ---------
  70.  
  71.  
  72. rem               Sinn-Beispiel
  73.  
  74. rem
  75. rem
  76. rem Bilderschleife
  77. rem    |
  78. rem Reise-Menü
  79. rem    |
  80. rem    |-------
  81. rem    |       |
  82. rem    |      USA------
  83. rem    |       |      |    |-WorldTradeCenter
  84. rem    |       |  NewYork--|-MissLiberty
  85. rem    |       |      |    |-Uno
  86. rem    |       |      |
  87. rem    |       |      |    |-GoldenGate
  88. rem    |       |   Frisco--|-SuttersMill
  89. rem    |       |      |    |-Hippies
  90. rem    |       |      |
  91. rem    |       |      |    |-SearseTower
  92. rem    |       |  Chicago--|-AlCapone
  93. rem    |       |           |-ErieSee
  94. rem    |       |
  95. rem    |     JAPAN-----
  96. rem    |       |      |    |-MitsubishiBuilding
  97. rem    |       |    Tokio--|-Vogelnester
  98. rem    |       |      |    |-Mafia
  99. rem    |       |      |
  100. rem    |       |      |    |-Karaoke
  101. rem    |       |  Yokohama-|-Geishas
  102. rem    |       |      |    |-MadamButterfly
  103. rem    |       |      |
  104. rem    |       |      |    |-Atombombe
  105. rem    |       | Hiroshima-|-BigHole
  106. rem    |       |           |-MedicalCenter
  107. rem    |       |
  108. rem    |    EUROPA-----
  109. rem    |       |      |    |-DieMauer
  110. rem    |       |   Berlin--|-Kudamm
  111. rem    |       |      |    |-Wannsee
  112. rem    |       |      |
  113. rem    |       |      |    |-PicadillyCircus
  114. rem    |       |   London--|-BuckinghamPalace
  115. rem    |       |      |    |-HidePark
  116. rem    |       |      |
  117. rem    |       |      |    |-Eiffelturm
  118. rem    |       |    Paris--|-ArcDeTriomphe
  119. rem    |       |           |-MontParnasse
  120. rem     -------
  121.  
  122.  
  123. def(menutime,10)
  124. def(looptime,5)
  125. def(i)
  126. def(j)
  127. def(bx,2)
  128. def(by,3)
  129. def(bb,130)
  130. def(bh,40)
  131. def(by2,130)
  132. def(bs,40)
  133.  
  134.  
  135. begin
  136.  
  137. font(0)
  138. setcolor(15)
  139. sysfont(3,1)
  140. gradation(16,31,10,10,10,63,0,0)
  141. gradation(32,47,10,10,10,0,63,0)
  142. gradation(48,63,10,10,10,0,0,63)
  143. gradation(64,79,10,10,10,63,0,63)
  144.  
  145.  
  146. rem ***  MAINLOOP    ***
  147.  
  148. :mainloop
  149.    clearscreen(70)
  150.    printat(100,10,'mainloop1')
  151.    timeout('looping1',looptime)
  152. goto('mainmenu')
  153.  
  154. :looping1
  155.    clearscreen(73)
  156.    printat(100,10,'mainloop2')
  157.    timeout('looping2',looptime)
  158. goto('mainmenu')
  159.  
  160. :looping2
  161.    clearscreen(76)
  162.    printat(100,10,'mainloop3')
  163.    timeout('mainloop',looptime)
  164. goto('mainmenu')
  165.  
  166.  
  167.  
  168.  
  169. rem ***  Startverteiler   ***
  170.  
  171. :mainmenu
  172.  
  173.    clearscreen(8)
  174.    printat(200,200,'MAINMENU')
  175.  
  176.    defbutton(bx, 40,bb,bh,1,1,0,1,#49,'m_1')
  177.    defbutton(bx, 90,bb,bh,2,1,0,1,#50,'m_2')
  178.    defbutton(bx,140,bb,bh,3,1,0,1,#51,'m_3')
  179.    defbutton(bx,190,bb,bh,4,1,0,1,#27,'mainloop')
  180.    printat(10, 50,'menu:1')
  181.    printat(10,100,'menu:2')
  182.    printat(10,150,'menu:3')
  183.    printat(10,200,'ESC->mainloop')
  184. checkbutton('mainloop',menutime,0)
  185.  
  186.  
  187.  
  188.  
  189.  
  190. rem ***  MENU 1    ***
  191. :m_1
  192.  
  193.  
  194.    clearscreen(17)
  195.    printat(200,200,'MENU 1')
  196.  
  197.    printat(200,240,'*******   Hier kann ein beliebiges Menue-Bild')
  198.    println('')
  199.    println('*******   eingesetzt werden, z.B.:')
  200.    println('')
  201.    println('          fadeout(1)')
  202.    println('          clearscreen(0)')
  203.    println('          readpic(MENUE_1.BMP)')
  204.    println('          loadpic(1,0)')
  205.    println('          fadein(1)')
  206.    println('          pause(10000)')
  207.  
  208.    rem *******  Auf diese Weise läßt sich die gesamte
  209.    rem *******  Struktur füllen.
  210.  
  211.  
  212.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_1')
  213.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_2')
  214.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_3')
  215.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'mainmenu')
  216.    printat(10, 50,'menu:1_1')
  217.    printat(10,100,'menu:1_2')
  218.    printat(10,150,'menu:1_3')
  219.    printat(10,200,'ESC->mainmenu')
  220. checkbutton('mainmenu',menutime,0)
  221.  
  222.  
  223.  
  224.  
  225.  
  226. rem                                      *  MENU 1- Submenu1  *
  227. :m_1_1
  228.    clearscreen(19)
  229.    printat(200,200,'MENU 1_1')
  230.  
  231.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_1_1')
  232.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_1_2')
  233.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_1_3')
  234.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_1')
  235.    printat(10, 50,'menu:1_1_1')
  236.    printat(10,100,'menu:1_1_2')
  237.    printat(10,150,'menu:1_1_3')
  238.    printat(10,200,'ESC->menu:1')
  239. checkbutton('m_1',menutime,0)
  240.  
  241. rem                                         MENU1-Sub1-Stat1
  242. :m_1_1_1
  243.  
  244.    clearscreen(21)
  245.    printat(100,100,'Bild: 1_1_1')
  246.  
  247.    printat(200,200,'*******   Hier kann ein beliebiges Endbild')
  248.    println('')
  249.    println('*******   eingesetzt werden, z.B.:')
  250.    println('')
  251.    println('          fadeout(1)')
  252.    println('          clearscreen(0)')
  253.    println('          readpic(BILD_111.bmp)')
  254.    println('          loadpic(1,0)')
  255.    println('          fadein(1)')
  256.    println('          pause(10000)')
  257.  
  258.    defbutton(200,380,bb,bh,15,1,0,1,'z','m_1_1')
  259.    printc(200+bb/2,380+bh/2,'(Z) urück')
  260. checkbutton('m_1',menutime,0)
  261.  
  262. goto('m_1_1')
  263.  
  264. rem                                         MENU1-Sub1-Stat2
  265. :m_1_1_2
  266.    copywin(bx-4,90-2,bx+bb,90+bh)
  267.    viewport(0,0,140,240)
  268.    cbox(8,19,10)
  269.    for i:= 0 to 230 step 2 do
  270.      loadwin(i,i/2+90,0,0)
  271.    next(i)
  272.    viewport(0,0,xmax,ymax)
  273.    cbox(15,1,0)
  274.  
  275.    keycol(2)
  276.    key(on)
  277.    loadwin(i,j,0,0)
  278.    key(off)
  279.    pause(1000)
  280. goto('m_1_1')
  281.  
  282. rem                                         MENU1-Sub1-Stat3
  283. :m_1_1_3
  284.    copywin(bx-4,140-2,bx+bb,140+bh)
  285.    viewport(0,0,140,240)
  286.    cbox(8,19,10)
  287.    for i:= 0 to 240 step 2 do
  288.      loadwin(i,i/4+140,0,0)
  289.    next(i)
  290.    viewport(0,0,xmax,ymax)
  291.    cbox(15,1,0)
  292.  
  293.    keycol(2)
  294.    key(on)
  295.    loadwin(i,j,0,0)
  296.    key(off)
  297.    pause(1000)
  298. goto('m_1_1')
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305. rem                                         *  MENU 1- Submenu2  *
  306. :m_1_2
  307.    clearscreen(19)
  308.    printat(200,200,'MENU 1_2')
  309.  
  310.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_2_1')
  311.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_2_2')
  312.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_2_3')
  313.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_1')
  314.    printat(10, 50,'menu:1_2_1')
  315.    printat(10,100,'menu:1_2_2')
  316.    printat(10,150,'menu:1_2_3')
  317.    printat(10,200,'ESC->menu:1')
  318. checkbutton('m_1',menutime,0)
  319.  
  320. rem                                            MENU1-Sub2-Stat1
  321. :m_1_2_1
  322.    clearscreen(21)
  323.    printat(100,100,'Bild: 1_2_1')
  324.    pause(1000)
  325. goto('m_1_2')
  326.  
  327. rem                                            MENU1-Sub2-Stat2
  328. :m_1_2_2
  329.    clearscreen(21)
  330.    printat(100,100,'Bild: 1_2_2')
  331.    pause(1000)
  332. goto('m_1_2')
  333.  
  334. rem                                            MENU1-Sub2-Stat3
  335. :m_1_2_3
  336.    clearscreen(21)
  337.    printat(100,100,'Bild: 1_2_3')
  338.    pause(1000)
  339. goto('m_1_2')
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346. rem                                        *  MENU 1- Submenu3  *
  347. :m_1_3
  348.    clearscreen(19)
  349.    printat(200,200,'MENU 1_3')
  350.  
  351.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_1_3_1')
  352.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_1_3_2')
  353.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_1_3_3')
  354.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_1')
  355.    printat(10, 50,'menu:1_3_1')
  356.    printat(10,100,'menu:1_3_2')
  357.    printat(10,150,'menu:1_3_3')
  358.    printat(10,200,'ESC->menu:1')
  359. checkbutton('m_1',menutime,0)
  360.  
  361. rem                                           MENU1-Sub3-Stat1
  362. :m_1_3_1
  363.    clearscreen(21)
  364.    printat(100,100,'Bild: 1_3_1')
  365.    pause(1000)
  366. goto('m_1_3')
  367.  
  368. rem                                           MENU1-Sub3-Stat2
  369. :m_1_3_2
  370.    clearscreen(21)
  371.    printat(100,100,'Bild: 1_3_2')
  372.    pause(1000)
  373. goto('m_1_3')
  374.  
  375. rem                                           MENU1-Sub3-Stat3
  376. :m_1_3_3
  377.    clearscreen(21)
  378.    printat(100,100,'Bild: 1_3_3')
  379.    pause(1000)
  380. goto('m_1_3')
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388. rem                                           ***  MENU 2    ***
  389. :m_2
  390.    clearscreen(33)
  391.    printat(200,200,'MENU 2')
  392.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_1')
  393.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_2')
  394.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_3')
  395.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'mainmenu')
  396.    printat(10, 50,'menu:2_1')
  397.    printat(10,100,'menu:2_2')
  398.    printat(10,150,'menu:2_3')
  399.    printat(10,200,'ESC:->mainmenu')
  400. checkbutton('mainmenu',menutime,0)
  401.  
  402.  
  403.  
  404.  
  405.  
  406. rem                                           *  MENU 2- Submenu1  *
  407. :m_2_1
  408.    clearscreen(35)
  409.    printat(200,200,'MENU 2_1')
  410.  
  411.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_1_1')
  412.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_1_2')
  413.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_1_3')
  414.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_2')
  415.    printat(10, 50,'menu:2_1_1')
  416.    printat(10,100,'menu:2_1_2')
  417.    printat(10,150,'menu:2_1_3')
  418.    printat(10,200,'ESC->menu:2')
  419. checkbutton('m_2',menutime,0)
  420.  
  421. rem                                           MENU2-Sub1-Stat1
  422. :m_2_1_1
  423.    clearscreen(37)
  424.    printat(100,100,'Bild: 2_1_1')
  425.    pause(1000)
  426. goto('m_2_1')
  427.  
  428. rem                                           MENU2-Sub1-Stat2
  429. :m_2_1_2
  430.    clearscreen(37)
  431.    printat(100,100,'Bild: 2_1_2')
  432.    pause(1000)
  433. goto('m_2_1')
  434.  
  435. rem                                           MENU2-Sub1-Stat3
  436. :m_2_1_3
  437.    clearscreen(37)
  438.    printat(100,100,'Bild: 2_1_3')
  439.    pause(1000)
  440. goto('m_2_1')
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447. rem                                           *  MENU 2- Submenu2  *
  448. :m_2_2
  449.    clearscreen(35)
  450.    printat(200,200,'MENU 2_2')
  451.  
  452.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_2_1')
  453.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_2_2')
  454.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_2_3')
  455.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_2')
  456.    printat(10, 50,'menu:2_2_1')
  457.    printat(10,100,'menu:2_2_2')
  458.    printat(10,150,'menu:2_2_3')
  459.    printat(10,200,'ESC->menu:2')
  460. checkbutton('m_2',menutime,0)
  461.  
  462. rem                                           MENU2-Sub2-Stat1
  463. :m_2_2_1
  464.    clearscreen(37)
  465.    printat(100,100,'Bild: 2_2_1')
  466.    pause(1000)
  467. goto('m_2_2')
  468.  
  469. rem                                           MENU2-Sub2-Stat2
  470. :m_2_2_2
  471.    clearscreen(37)
  472.    printat(100,100,'Bild: 2_2_2')
  473.    pause(1000)
  474. goto('m_2_2')
  475.  
  476. rem                                           MENU2-Sub2-Stat3
  477. :m_2_2_3
  478.    clearscreen(37)
  479.    printat(100,100,'Bild: 2_2_3')
  480.    pause(1000)
  481. goto('m_2_2')
  482.  
  483.  
  484.  
  485.  
  486.  
  487.  
  488. rem                                         *  MENU 2- Submenu3  *
  489. :m_2_3
  490.    clearscreen(35)
  491.    printat(200,200,'MENU 2_3')
  492.  
  493.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_2_3_1')
  494.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_2_3_2')
  495.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_2_3_3')
  496.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_2')
  497.    printat(10, 50,'menu:2_3_1')
  498.    printat(10,100,'menu:2_3_2')
  499.    printat(10,150,'menu:2_3_3')
  500.    printat(10,200,'ESC->menu:2')
  501. checkbutton('m_2',menutime,0)
  502.  
  503. rem                                           MENU2-Sub3-Stat1
  504. :m_2_3_1
  505.    clearscreen(37)
  506.    printat(100,100,'Bild: 2_3_1')
  507.    pause(1000)
  508. goto('m_2_3')
  509.  
  510. rem                                           MENU2-Sub3-Stat2
  511. :m_2_3_2
  512.    clearscreen(37)
  513.    printat(100,100,'Bild: 2_3_2')
  514.    pause(1000)
  515. goto('m_2_3')
  516.  
  517. rem                                           MENU2-Sub3-Stat3
  518. :m_2_3_3
  519.    clearscreen(37)
  520.    printat(100,100,'Bild: 2_3_3')
  521.    pause(1000)
  522. goto('m_2_3')
  523.  
  524.  
  525.  
  526.  
  527.  
  528.  
  529.  
  530.  
  531. rem                                        ***  MENU 3    ***
  532. :m_3
  533.    clearscreen(49)
  534.    printat(200,200,'MENU 3')
  535.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_1')
  536.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_2')
  537.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_3')
  538.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'mainmenu')
  539.    printat(10, 50,'menu:3_1')
  540.    printat(10,100,'menu:3_2')
  541.    printat(10,150,'menu:3_3')
  542.    printat(10,200,'mainmenu')
  543. checkbutton('mainmenu',menutime,0)
  544.  
  545.  
  546.  
  547.  
  548.  
  549. rem                                         *  MENU 3- Submenu1  *
  550. :m_3_1
  551.    clearscreen(51)
  552.    printat(200,200,'MENU 3_1')
  553.  
  554.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_1_1')
  555.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_1_2')
  556.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_1_3')
  557.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_3')
  558.    printat(10, 50,'menu: 3_1_1')
  559.    printat(10,100,'menu:3_1_2')
  560.    printat(10,150,'menu:3_1_3')
  561.    printat(10,200,'ESC->menu:3')
  562. checkbutton('m_3',menutime,0)
  563.  
  564. rem                                           MENU3-Sub1-Stat1
  565. :m_3_1_1
  566.    clearscreen(53)
  567.    printat(100,100,'Bild: 3_1_1')
  568.    pause(1000)
  569. goto('m_3_1')
  570.  
  571. rem                                           MENU3-Sub1-Stat2
  572. :m_3_1_2
  573.    clearscreen(53)
  574.    printat(100,100,'Bild: 3_1_2')
  575.    pause(1000)
  576. goto('m_3_1')
  577.  
  578. rem                                           MENU3-Sub1-Stat3
  579. :m_3_1_3
  580.    clearscreen(53)
  581.    printat(100,100,'Bild: 3_1_3')
  582.    pause(1000)
  583. goto('m_3_1')
  584.  
  585.  
  586.  
  587.  
  588.  
  589.  
  590. rem                                         *  MENU 3- Submenu2  *
  591. :m_3_2
  592.    clearscreen(51)
  593.    printat(200,200,'MENU 3_2')
  594.  
  595.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_2_1')
  596.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_2_2')
  597.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_2_3')
  598.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_3')
  599.    printat(10, 50,'menu:3_2_1')
  600.    printat(10,100,'menu:3_2_2')
  601.    printat(10,150,'menu:3_2_3')
  602.    printat(10,200,'ESC->menu:3')
  603. checkbutton('m_3',menutime,0)
  604.  
  605. rem                                           MENU3-Sub2-Stat1
  606. :m_3_2_1
  607.    clearscreen(53)
  608.    printat(100,100,'Bild: 3_2_1')
  609.    pause(1000)
  610. goto('m_3_2')
  611.  
  612. rem                                           MENU3-Sub2-Stat2
  613. :m_3_2_2
  614.    clearscreen(53)
  615.    printat(100,100,'Bild: 3_2_2')
  616.    pause(1000)
  617. goto('m_3_2')
  618.  
  619. rem                                           MENU3-Sub2-Stat3
  620. :m_3_2_3
  621.    clearscreen(53)
  622.    printat(100,100,'Bild: 3_2_3')
  623.    pause(1000)
  624. goto('m_3_2')
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631. rem                                         *  MENU 3- Submenu3  *
  632. :m_3_3
  633.    clearscreen(51)
  634.    printat(200,200,'MENU 3_3')
  635.  
  636.    defbutton(bx, 40,bb,bh,15,1,0,1,#49,'m_3_3_1')
  637.    defbutton(bx, 90,bb,bh,15,1,0,1,#50,'m_3_3_2')
  638.    defbutton(bx,140,bb,bh,15,1,0,1,#51,'m_3_3_3')
  639.    defbutton(bx,190,bb,bh,15,1,0,1,#27,'m_3')
  640.    printat(10, 50,'menu:3_3_1')
  641.    printat(10,100,'menu:3_3_2')
  642.    printat(10,150,'menu:3_3_3')
  643.    printat(10,200,'ESC->menu:3')
  644. checkbutton('m_3',menutime,0)
  645.  
  646. rem                                           MENU3-Sub3-Stat1
  647. :m_3_3_1
  648.    clearscreen(53)
  649.    printat(100,100,'Bild: 3_3_1')
  650.    pause(1000)
  651. goto('m_3_3')
  652.  
  653. rem                                           MENU3-Sub3-Stat2
  654. :m_3_3_2
  655.    clearscreen(53)
  656.    printat(100,100,'Bild: 3_3_2')
  657.    pause(1000)
  658. goto('m_3_3')
  659.  
  660. rem                                           MENU3-Sub3-Stat3
  661. :m_3_3_3
  662.    clearscreen(53)
  663.    printat(100,100,'Bild: 3_3_3')
  664.    pause(1000)
  665. goto('m_3_3')
  666.  
  667.  
  668.  
  669. end
  670.  
  671.  
  672.  
  673.  
  674.