home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / scrnsave / scrsave / scrsave.bas < prev   
Encoding:
BASIC Source File  |  1989-08-17  |  2.1 KB  |  91 lines
  1. ' Screen Saver DA by Derrick A. Hall, for HiSoft Basic
  2. ' Alert source code generated from ALERT MAKER
  3. ' Public Domain release on the 8-17-89 
  4. ' Time 4:00am( yes, I'm a nite walker)
  5. ' 
  6. '
  7. rem $option j20
  8. Library "gemacc","gemvdi","xbios"
  9. defint a-z
  10. Const AC_OPEN=40
  11. '
  12. id=peekw(peekl(gb+4)+4)
  13. mpos=fnmenu_register(id,"  Screen Saver ")
  14. '
  15. Dim message(7)
  16. Dim shared junk,junk2,junk3, inv(10),outv(57),i,rgb(16)
  17. DIM SHARED t1$,t2$,t3$,t4$,t5$,junk
  18. '
  19. save_colors
  20. repeat main
  21.     evnt_mesag varptr(message(0))
  22.     '
  23.     If message(0)=AC_OPEN then call do_screen_saver
  24.     '
  25. end repeat main
  26. '
  27. Sub do_screen_saver
  28. '
  29. Let t1$="    Simple Screen Saver       |"
  30. Let t2$="           v1.0               |"
  31. Let t3$="    By Derrick A. Hall        |"
  32. Let t4$="Complied in HiSoft BASIC Pro  |"
  33. Let t5$="⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨|"
  34. junk=FNform_alert(1 ,"[1]["+t1$+t2$+t3$+t4$+t5$+"][ BLANK | INFO |No BLANK]")
  35. '
  36.     If junk=1 Then
  37.         screen_off
  38.         junk=FNform_alert(1,"[0][ Dummy ][ ON ]")
  39.         screen_on
  40.     End If
  41.     If junk=2 Then
  42. Let t1$=" This Screen Saver works best |"
  43. Let t2$="   in COLOR, for the entire   |"
  44. Let t3$="screen will blank out. In MONO|"
  45. Let t4$=" you get an inverted screen.  |"
  46. Let t5$="   Atari OS not me, sorry.    |"
  47. junk=FNform_alert(1 ,"[1]["+t1$+t2$+t3$+t4$+t5$+"][ BLANK | MORE |No BLANK]")
  48. '
  49.     If junk=1 Then
  50.         screen_off
  51.         junk=FNform_alert(1,"[0][ Dummy ][ ON ]")
  52.         screen_on
  53.     End If
  54.     If junk=2 Then
  55. Let t1$="  I dedicated this program to  |"
  56. Let t2$="       Michael McDevitt.       |"
  57. Let t3$="  Will call after the summer.  |"
  58. Let t4$="  I still want that T-shirt.   |"
  59. Let t5$="           hell ya!            |"
  60. junk=FNform_alert(1 ,"[1]["+t1$+t2$+t3$+t4$+t5$+"][ BLANK |La Beija|No BLANK]")
  61.      If junk=1 Then
  62.         screen_off
  63.         junk=FNform_alert(1,"[0][ Dummy ][ ON ]")
  64.         screen_on
  65.     End If
  66.     End If     
  67.     End If
  68. End Sub
  69. '
  70. Sub screen_off
  71. for i=0 to 16
  72.     junk3=FNsetcolor(i,0)   'blank off screen
  73. next i
  74. End Sub
  75. '
  76. SUB screen_on
  77. for i=0 to 16
  78.     junk3=FNsetcolor(i,rgb(i))  'read back stored array
  79. next i
  80. End sub
  81. '
  82. SUB save_colors
  83. for i=0 to 16
  84.     rgb(i)=FNsetcolor(i,-1)  'save colors into array
  85. next i
  86. END sub
  87.  
  88.  
  89.  
  90.         
  91.