home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / ExtraLib / Demos / AlertDemo.BAS < prev    next >
Encoding:
BASIC Source File  |  2001-05-01  |  2.9 KB  |  71 lines
  1. ' ___________________________________________________________________________
  2. ' |*************************************************************************|
  3. ' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
  4. ' |*| Set TAB to 4 for best readable file layout.  |*|  Maxon Basic 3.00  |*|
  5. ' |*|______________________________________________|*|____________________|*|
  6. ' |*************************************************************************|
  7. ' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
  8. ' |*|               |*|  $Id: AlertDemo.BAS (28.04.01)                    |*|
  9. ' |*| ###### ###### |*|  RhoSigma Source based on NDK 3.1 Includes 40.15  |*|
  10. ' |*| ##  ## ##   # |*| _________________________________________________ |*|
  11. ' |*| ##  ##  ##    |*|                                                   |*|
  12. ' |*| ######   ##   |*|  Demo to show use of DATEXT-SUB (settings.bc)     |*|
  13. ' |*| ##      ##    |*|                                                   |*|
  14. ' |*| ##     ##   # |*| ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |*|
  15. ' |*| ##     ###### |*|  Copyright © 1998-2001 RhoSigma, Roland Heyder    |*|
  16. ' |*|               |*|  All Rights Reserved.                             |*|
  17. ' |*|_______________|*|___________________________________________________|*|
  18. ' |*************************************************************************|
  19. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  20.  
  21. '$TO        AlertDemoBAS
  22. '$ICONS
  23. '$NOLIBRARY
  24. '$NOWINDOW
  25.  
  26. '$INCLUDE    intuition.bh
  27. '$INCLUDE    settings.bc
  28.  
  29. DATA "$VER: AlertDemoBAS 2.14 (28.04.01)"
  30.  
  31. LIBRARY OPEN "intuition"
  32.  
  33. DATEXT 100,12,"linke Seite",FALSE%        ' END-Flag FALSE (kein Ende)
  34. DATEXT 444,12,"rechte Seite",FALSE%     ' absolute X-Koordinaten
  35. DATEXT DATPOS_C%,22,"zentriert",FALSE%    ' END-Flag FALSE, zentriert
  36. DATEXT DATPOS_C%,32,"Ende",TRUE%        ' END-Flag TRUE (Ende), zentriert
  37. ok&=DisplayAlert&(0&,SADD(Alert$),40&)
  38.  
  39. DATEXT 112,12,"Oder",FALSE%
  40. DATEXT 212,12,"alles",FALSE%
  41. DATEXT 312,12,"in",FALSE%
  42. DATEXT 412,12,"einer",FALSE%
  43. DATEXT 512,12,"Zeile !!",TRUE%
  44. ok&=DisplayAlert&(0&,SADD(Alert$),20&)
  45.  
  46. DATEXT DATPOS_C%,12,"Oder",FALSE%
  47. DATEXT DATPOS_C%,22,"alles",FALSE%
  48. DATEXT DATPOS_C%,32,"zentriert",FALSE%
  49. DATEXT DATPOS_C%,42,"!!",TRUE%
  50. ok&=DisplayAlert&(0&,SADD(Alert$),50&)
  51.  
  52. DATEXT DATPOS_L%,12,"linksbündig",FALSE%
  53. DATEXT DATPOS_C%,12,"zentriert",FALSE%
  54. DATEXT DATPOS_R%,12,"rechtsbündig",FALSE%
  55. DATEXT 200,22,"absolute X-Pos 200 v.l.",TRUE%
  56. ok&=DisplayAlert&(0&,SADD(Alert$),30&)
  57.  
  58. OPEN "I",#1,"S:PCD"                    ' Diese Anwendung sollte man jedoch
  59. y%=12                                ' mit Vorsicht genießen, da einiges
  60. WHILE NOT EOF(1)                    ' schiefgehen kann, wenn die Datei
  61.     LINE INPUT #1,l$                ' größer als eine Bildschirmseite ist
  62.     DATEXT DATPOS_L%,y%,l$,EOF(1)    ' oder Zeilen enthält, die breiter
  63.     y%=y%+10                        ' als 80 Zeichen sind !!
  64. WEND
  65. CLOSE #1
  66. y%=y%+8
  67. ok&=DisplayAlert&(0&,SADD(Alert$),y%)
  68.  
  69. LIBRARY CLOSE
  70. END
  71.