home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / lacedemo.amos / lacedemo.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-03-24  |  1.3 KB  |  60 lines
  1. '
  2. ' *** Test Interlace & DPaint overscan *** 
  3. '
  4. Global M
  5. WIDTH=352 : HEIGHT=290 : NC=32 : SCRMODE=Lowres
  6. Screen Open 0,WIDTH,HEIGHT,NC,SCRMODE
  7. Unpack 6 To 0
  8. Screen Display 0,,30,,300
  9. Curs Off : Flash Off : Hide On 
  10. Shift Up 1,6,31,1
  11. Paper 0
  12. Locate 10,23 : Print "Press Left Mouse Button"
  13. Locate 12,24 : Centre "for Interlace On/Off"
  14. Paper 1
  15. Repeat 
  16.    PRESS
  17.    If M=2 Then Goto FIN
  18.    LACEON[1] : Hide On 
  19.    Locate ,26 : Centre " Interlace On "
  20.    PRESS
  21.    If M=2 Then Goto FIN
  22.    LACEOFF[1] : Hide On 
  23.    Locate ,26 : Centre " Interlace Off "
  24.    FIN:
  25. Until M=2
  26. Shift Off 
  27. Show On 
  28. Run "AutoExec.AMOS"
  29. '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  30. Procedure PRESS
  31.    Wait(20)
  32.    M=0
  33.    Repeat 
  34.    M=Mouse Key
  35.    Until M<>0
  36. End Proc
  37. '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  38. ' ** Turns Interlace on - NS = number of screens (1/2)   
  39. Procedure LACEON[NS]
  40.    Copper Off 
  41.    For L=1 To NS
  42.       If NS=2 Then Screen Swap 
  43.       BASE=Deek(Screen Base+72)
  44.       Bset 2,BASE
  45.       Doke Screen Base+72,BASE
  46.    Next L
  47.    Copper On 
  48. End Proc
  49. '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  50. ' ** Turns Interlace off - NS = number of screens (1/2)    
  51. Procedure LACEOFF[NS]
  52.    Copper Off 
  53.    For L=1 To NS
  54.       If NS=2 Then Screen Swap 
  55.       BASE=Deek(Screen Base+72)
  56.       Bclr 2,BASE
  57.       Doke Screen Base+72,BASE
  58.    Next L
  59.    Copper On 
  60. End Proc