home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / screens.amos / screens.amosSourceCode
AMOS Source Code  |  1995-03-16  |  776b  |  33 lines
  1. Colour 0,$0 : Colour 2,$FFF
  2. Cls 2
  3. Pen 0 : Paper 2
  4. Locate 2,10 : Print " Sizes of Screens available"
  5. ST:
  6. Pen 0 : Paper 2
  7. Locate 2,2 : Print Space$(30)
  8. Locate 2,2 : Input "Enter width of Screen ";W$
  9. W=Val(W$)
  10. Locate 2,2 : Print Space$(30)
  11. Locate 2,2 : Input "Enter Depth of Screen ";D$
  12. D=Val(D$)
  13. Curs Off : Flash Off 
  14. Screen Open 2,W,D,4,N
  15. Limit Mouse 110,45 To W+130,D+55
  16. Colour 0,$0 : Colour 1,$FFF
  17. Cls 1
  18. Ink 0
  19. For X=0 To W Step 50
  20. For Y=0 To D Step 50
  21. Box X,Y To X+50,Y+50
  22. Next Y
  23. Next X
  24. Pen 0 : Paper 1
  25. Locate 2,20 : Print "1      2     3     4      5     6 "
  26. Locate 21,3 : Print "1" : Locate 21,9 : Print "2"
  27. Locate 21,15 : Print "3" : Locate 21,27 : Print "5"
  28. MA:
  29. While Mouse Key=0 : Wend 
  30. X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  31. C=X/3 : E=Y/2
  32. Screen Offset 2,C,E
  33. Goto MA