home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 480.lha / BuildScreen_v2.0 / numbers.dat < prev    next >
Encoding:
Text File  |  1991-02-06  |  1.9 KB  |  97 lines
  1.  
  2. image p1 e1.pic
  3. image p2 e2.pic
  4. image p3 e3.pic
  5. image p4 e4.pic
  6. image p5 e5.pic
  7. image p6 e6.pic
  8. image p7 e7.pic
  9. image p8 e8.pic
  10. image p9 e9.pic
  11. image p0 e0.pic
  12.  
  13. image plus +.pic
  14. image min  -.pic
  15. image right  right.pic
  16. image try    try.pic
  17.  
  18.  
  19. setstr blitcopy 192
  20. setstr blitinvertsource 48
  21. setstr blitinvertdest   80
  22.  
  23.  
  24. setstr hires 1
  25.  
  26. if hires = 1
  27.  
  28.   setstr height 400
  29.   setstr width  640
  30.   setstr depth  4
  31.   setstr wtitle "<---- To exit pick this, But first, try some additions"
  32.   setstr title "Use 0..9 (keyboard not keypad) then <return>;  Use <- (bs) to correct"
  33. else
  34.  
  35.   setstr height 400
  36.   setstr width  320
  37.   setstr depth  4
  38.   setstr title "Med res screen"
  39.  
  40. endif
  41.  
  42.  
  43. CreateScreen sname width      - ! width
  44.                    height      - ! height
  45.                    depth        - ! depth
  46.                   title   "p0"  - ! This is the title and the color map to use
  47.                   0 14     ! detail block pens  (1,2)
  48.  
  49. add3 height -100 h
  50.    CreateWindow           -
  51.                 wname     -  ! window name
  52.                 sname     -  ! screen name
  53.                 0         -  ! origin is 0,100
  54.                 30         -
  55.                 width     -  ! the width
  56.                 h         -  ! the height
  57.                 "closewindow menupick gadgetup mousebuttons rawkey mousemove"    -  ! idcmp flags
  58.                 "borderless gimmezerozero WINDOWCLOSE activate smart_refresh"    -  ! window flags
  59.                 "" - ! mygadgets                        -  ! gadgets
  60.                 wtitle                                      ! window title
  61.  
  62.  
  63. ! just some testing stuff
  64.  
  65.  
  66.  
  67. setstr xx 1
  68. setstr yy 1!5
  69.  
  70. refreshgadgets wname
  71.  
  72.  
  73. strings p1 p2 p3 p4 p5 p6 p7 p8 p9 p0
  74.  
  75. set y 1
  76. loop 10
  77.     set x 0
  78.  
  79.     loop 10
  80. !      delay yy
  81.       add 1 x
  82.       drawimage wname *x 150 100
  83.     endloop
  84.  
  85.     drawimage wname *y 80 100
  86.     add 1 y
  87.  
  88. endloop
  89.  
  90. delay 50
  91.  
  92. fillbox wname 0 0  250 280 0 0     ! clear it out
  93.  
  94.  
  95. rexx wname xxxport
  96.  
  97.