home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_screen_info.amos / n_screen_info.amosSourceCode
AMOS Source Code  |  1993-03-31  |  2KB  |  113 lines
  1. '************************************
  2. '*                                  *
  3. '*           Screen Info            *
  4. '*      ---------------------       *
  5. '*                                  *
  6. '*      By Malcolm Lavey 1993       *
  7. '*                                  *
  8. '************************************
  9. '
  10. BEGINING:
  11. '
  12. _INIT
  13. '
  14. _LOAD
  15. '
  16. _BAR[50]
  17. '
  18. '
  19. Repeat 
  20.    _GET_XY
  21. Until Mouse Click
  22. Goto BEGINING
  23. '
  24. '
  25. Procedure _INIT
  26.    '
  27.    Screen Open 0,320,256,16,Lowres
  28.    Curs Off : Flash Off : Cls 0
  29.    '
  30.    Screen Open 1,640,20,2,Hires
  31.    Curs Off : Flash Off : Cls 0
  32.    Palette $7,$FFF
  33.    Ink 1,0
  34.    Text 0,7,"HardX:     HardY:     ScreenX:     ScreenY:     PointColour:     NoColours:     "
  35.    Text 0,17,"ScreenWidth:     ScreenHeight:     ScreenRes:          Laced:        "
  36.    '
  37. End Proc
  38. '
  39. Procedure _LOAD
  40.    '
  41.    Screen 0
  42.    Change Mouse 1
  43.    F$=Fsel$("","","Load an IFF picture","")
  44.    If F$="" Then Edit 
  45.    Change Mouse 3
  46.    If Right$(F$,4)=".abk"
  47.       Load F$,10
  48.       Unpack 10 To 0
  49.       Erase 10
  50.    Else 
  51.       Load Iff F$,0
  52.    End If 
  53.    Change Mouse 2
  54.    SW=Screen Width(0)
  55.    SH=Screen Height(0)
  56.    SC=Screen Colour
  57.    SR=Screen Mode
  58.    Screen 1
  59.    Text 600,7,Mid$(Str$(SC),2)+" "
  60.    Text 96,17,Mid$(Str$(SW),2)+" "
  61.    Text 240,17,Mid$(Str$(SH),2)+" "
  62.    If SR=0
  63.       MO$="Lowres"
  64.       LA$="No"
  65.    End If 
  66.    If SR=32768
  67.       MO$="HighRes"
  68.       LA$="No"
  69.    End If 
  70.    If SR=32772
  71.       MO$="HighRes"
  72.       LA$="Yes"
  73.    End If 
  74.    If SR=4
  75.       MO$="Lowres"
  76.       LA$="Yes"
  77.    End If 
  78.    Text 360,17,MO$
  79.    Text 488,17,LA$
  80.    '
  81. End Proc
  82. '
  83. Procedure _BAR[YPOS]
  84.    '
  85.    Screen Display 1,,YPOS,,
  86.    Screen To Front 1
  87.    '
  88. End Proc
  89. '
  90. Procedure _GET_XY
  91.    '
  92.    Screen 0
  93.    X=X Mouse : Y=Y Mouse
  94.    SH=Screen Height(0)
  95.    HX=X Hard(0,X)
  96.    HY=Y Hard(0,Y)
  97.    SX=X Screen(0,X)
  98.    SY=Y Screen(0,Y)
  99.    PC=Point(SX,SY)
  100.    If SY<SH/2
  101.       _BAR[SH]
  102.    End If 
  103.    If SY>SH/2
  104.       _BAR[50]
  105.    End If 
  106.    Screen 1
  107.    Text 49,7,Mid$(Str$(HX),2)+" "
  108.    Text 137,7,Mid$(Str$(HY),2)+" "
  109.    Text 240,7,Mid$(Str$(SX),2)+" "
  110.    Text 344,7,Mid$(Str$(SY),2)+" "
  111.    Text 480,7,Mid$(Str$(PC),2)+" "
  112.    '
  113. End Proc