home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO4.DMS / in.adf / Tutorials / Interface / Sliders.AMOS / Sliders.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1992-09-28  |  2.0 KB  |  64 lines
  1. '************************************* 
  2. '*    AMOS Professional Interface    * 
  3. '*                                   * 
  4. '*              Sliders              * 
  5. '*                                   * 
  6. '*      (c) Europress Software       * 
  7. '*                                   * 
  8. '*          Ronnie Simpson           * 
  9. '************************************* 
  10. '
  11. Resource Bank 16
  12. Load "AMOSPro_Tutorial:Tutorials/Interface/Example_resource.abk"
  13. Resource Screen Open 0,640,200,0
  14. Flash Off : Curs Off : Cls 0 : Paper 1 : Pen 7
  15. Palette ,,,,$262,$6A6,$8C8,$AEA,$AA0
  16. Wait Vbl : R=6 : G=10 : B=6 : T=$AA0
  17. Dim V$(100)
  18. For V=0 To 100
  19.    V$(V)="Select number"+Str$(V)
  20. Next 
  21. B$=B$+"SIze      480,120;"
  22. B$=B$+"BAse      SW SX -2/,SH SY- 2/;"
  23. B$=B$+"SAve      2;"
  24. B$=B$+"BOx       0,0,1,SX,SY;"
  25. B$=B$+"BOx       XA16+,YA8+,1,XA248+,XA110+;"
  26. B$=B$+"BOx       56,12,1,236,84;IN 12,0,0;GS XA7+,YA3+,XB8-,YB4-;"
  27. B$=B$+"BOx       264,8,1,400,98;"
  28. B$=B$+"BUtton    10,SX 72-,SY 18-,56,14,0,0,1;[UN0,0,BP45+;PR 12,4,'QUIT',13;][BQ;]"
  29. B$=B$+"IN        11,12,13;"
  30. B$=B$+"VLine     36,13,19,83;"
  31. B$=B$+"VSlider   1,36,16,8,64,0,1,100,1;[ZC 2,ZP;]"
  32. B$=B$+"VLine     284,13,19,83;"
  33. B$=B$+"VSlider   4,284,16,8,64,6,1,15,1;[]"
  34. B$=B$+"VLine     332,13,19,83;"
  35. B$=B$+"VSlider   5,332,16,8,64,10,1,15,1;[]"
  36. B$=B$+"VLine     380,13,19,83;"
  37. B$=B$+"VSlider   6,380,16,8,64,6,1,15,1;[]"
  38. B$=B$+"VLine     428,13,19,83;"
  39. B$=B$+"VSlider   7,428,16,8,64,10,1,14,1;[]"
  40. B$=B$+"POutline  296,86,'Background',0,14;"
  41. B$=B$+"POutline  414,86,'Text',0,14;"
  42. B$=B$+"VText     270,14,'RED',3;"
  43. B$=B$+"VText     318,14,'GREEN',12;"
  44. B$=B$+"VText     366,14,'BLUE',1;"
  45. B$=B$+"VText     444,14,'SHADE',0;"
  46. B$=B$+"AList     2,64,16,20,8,0VA,0,0,0,8;[ZC 3,0VA ZP AR;]"
  47. B$=B$+"LIne      56,XB4+,65,232;"
  48. B$=B$+"EDit      3,64,20 72+,20,32,0,0,13;"
  49. B$=B$+"EXit;"
  50. Dialog Open 1,B$
  51. Vdialog(1,0)=Array(V$(0))
  52. X=Dialog Run(1)
  53. Do 
  54. D=Dialog(1)
  55. If D=4 Then R=Rdialog(1,4)
  56. If D=5 Then G=Rdialog(1,5)
  57. If D=6 Then B=Rdialog(1,6)
  58. If D=7 Then T=Rdialog(1,7)*272+272
  59. Colour 5,R*256+G*16+B
  60. Colour 8,T
  61.    Exit If D<0
  62. Loop 
  63. Dialog Close 
  64. Edit