home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd463 / amos1.34_progs / 3d_menu.amos / 3d_menu.amosSourceCode
AMOS Source Code  |  1993-01-17  |  1KB  |  26 lines
  1. Rem ************************************ 
  2. Rem *             3D Menu              * 
  3. Rem *                                  *     
  4. Rem *           by G. Albrow           * 
  5. Rem ************************************ 
  6. '
  7. Flash Off : Curs Off : Cls 0
  8. '  
  9. Pen 7 : Paper 0
  10. Menu$(1)="New Look Menu"
  11. Rem Create a bar (default pattern is empty)
  12. '
  13. S$="(IN 1,8)(BA 99,25)(OU 0)(LO 1,24)(IN 1,0)(LI 1,1)(LO 1,1)(LI 98,1)(IN 1,2)(LO 1,24)(LI 98,24)(LO 98,24)(LI 98,1)(IN 1,0)(IN 2,8)(LO 13,9) 3D Menu"
  14. T$="(IN 1,8)(BA 99,25)(OU 0)(LO 1,24)(IN 1,0)(LI 1,1)(LO 1,1)(LI 98,1)(IN 1,2)(LO 1,24)(LI 98,24)(LO 98,24)(LI 98,1)(IN 1,0)(IN 2,8)(LO 32,9) By"
  15. U$="(IN 1,8)(BA 99,25)(OU 0)(LO 1,24)(IN 1,0)(LI 1,1)(LO 1,1)(LI 98,1)(IN 1,2)(LO 1,24)(LI 98,24)(LO 98,24)(LI 98,1)(IN 1,0)(IN 2,8)(LO 7,9) G. Albrow"
  16. Menu$(1,1)="(IN 1,7)(BA 99,25)(OU 0)(LO 1,24)(IN 1,2)(LI 1,1)(LO 1,1)(LI 98,1)(IN 1,0)(LO 1,24)(LI 98,24)(LO 98,24)(LI 98,1)(LO 13,9) 3D Menu",S$
  17. Menu$(1,2)="(IN 1,7)(BA 99,25)(OU 0)(LO 1,24)(IN 1,2)(LI 1,1)(LO 1,1)(LI 98,1)(IN 1,0)(LO 1,24)(LI 98,24)(LO 98,24)(LI 98,1)(LO 32,9) By",T$
  18. Menu$(1,3)="(IN 1,7)(BA 99,25)(OU 0)(LO 1,24)(IN 1,2)(LI 1,1)(LO 1,1)(LI 98,1)(IN 1,0)(LO 1,24)(LI 98,24)(LO 98,24)(LI 98,1)(LO 7,9) G. Albrow",U$
  19. Set Menu(1,1) To 0,12
  20. Set Menu(1,2) To 0,25
  21. Set Menu(1,3) To 0,25
  22. Menu On 
  23. '
  24. Do 
  25.    '
  26. Loop