home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos1.34_progs / full_screen_menu.amos / full_screen_menu.amosSourceCode
Encoding:
AMOS Source Code  |  1993-01-17  |  1.7 KB  |  46 lines
  1. Rem ************************************ 
  2. Rem *             3D Menu              * 
  3. Rem *                                  *     
  4. Rem *           by G. Albrow           * 
  5. Rem ************************************ 
  6. '
  7. '  Escape quits
  8. '
  9. Screen Open 0,640,200,16,Hires
  10. Flash Off : Curs Off : Cls 0
  11. '  
  12. Pen 7 : Paper 0
  13. Menu$(1)="Options"
  14. Rem Create a bar (default pattern is empty)
  15. '
  16. S$="(IN 1,8)(BA 636,15)(OU 0)(LO 1,14)(IN 1,0)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,2)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)(IN 1,0)(IN 2,8)"
  17. '
  18. For N=1 To 12
  19.    Menu$(1,N)="(IN 1,7)(BA 636,15)(OU 0)(LO 1,14)(IN 1,2)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,0)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)",S$
  20. Next N
  21. '
  22. S$="(IN 1,8)(BA 636,15)(OU 0)(LO 1,14)(IN 1,0)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,2)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)(IN 1,0)(IN 2,8)(LO 285,4) 3D Menu"
  23. T$="(IN 1,8)(BA 636,15)(OU 0)(LO 1,14)(IN 1,0)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,2)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)(IN 1,0)(IN 2,8)(LO 305,4) By"
  24. U$="(IN 1,8)(BA 636,15)(OU 0)(LO 1,14)(IN 1,0)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,2)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)(IN 1,0)(IN 2,8)(LO 277,4) G. Albrow"
  25. Menu$(1,5)="(IN 1,7)(BA 636,15)(OU 0)(LO 1,14)(IN 1,2)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,0)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)(LO 285,4) 3D Menu",S$
  26. Menu$(1,7)="(IN 1,7)(BA 636,15)(OU 0)(LO 1,14)(IN 1,2)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,0)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)(LO 305,4) By",T$
  27. Menu$(1,9)="(IN 1,7)(BA 636,15)(OU 0)(LO 1,14)(IN 1,2)(LI 1,1)(LO 1,1)(LI 635,1)(IN 1,0)(LO 1,14)(LI 635,14)(LO 635,14)(LI 635,1)(LO 277,4) G. Albrow",U$
  28. '
  29. Set Menu(1,1) To 0,11
  30. '
  31. For N=2 To 12
  32.    Set Menu(1,N) To 0,15
  33. Next N
  34. '
  35. Menu On 
  36. '
  37. Do 
  38.    '
  39.    If Key State(69) Then QUIT
  40.    '
  41. Loop 
  42. '
  43. Procedure QUIT
  44.    Default 
  45.    Edit 
  46. End Proc