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