Form3
About...
wwwwwwwwwwwwww
Xgwwwwwwwww
Form3%
Text1
Text1
MS Sans Serif
Command1
Label1
%User: "All the Time", Password: "ATT"
MS Sans Serif
Label1
CalamityVille BBS: 212-226-8564
MS Sans Serif
Label1
!available free on Brad Friedman's
MS Sans Serif
Label1
-The current version of All the Time is always
MS Sans Serif
Label1
Pardon us, but...
MS Sans Serif
Image2
Label1
70741,422 or neslon@panix.com
MS Sans Serif
Label1
Wilson Smith and Carole Rogers
MS Sans Serif
Label1
Questions, comments to:
MS Sans Serif
Label1
	Enjoy it!
MS Sans Serif
Label1
No warranties, no liabilities
MS Sans Serif
Label1
Free, public domain, etc.
MS Sans Serif
Label1
All the Time v3.03
Command1_Click
Form3
Form_Click
@	Form_Load6
AttAbout
AttSettings
WidthL
Settings
Height
Visible
Screen(
forms>
count
gSettingsVisible
gNumColors
Text1
cCutoffColors
gPixelDepth
cCutoffDepth
Text1_Change
Label1
Caption
11/16  1.0 - 1.01 -> non-tiling.  consistent hourglassingw
11/17 1.01 - 1.02 -> stopped doing a CLS for tiled preview
 (bug introduced in 1.01)d
11/17 1.02 - 1.03 -> stopped doing a CLS at all.  PatBlt for non-tiled background
11/24 1.1
lots of versions, one to CIS, one to JB and LB, 
 one to SJH and MS
1/18  1.15
 -> sent 1.11d to Brad Friedman 
 -> went through C's list of things, mostly minor.
Command1_Click
Form_Load
10/01/1993
Starting 10/1/93, new versions of ATT will be
If gNumColors > cCutoffColors Then
   Text1.Text = "Windows reports that your display supports " + Format$(gNumColors) + " colors. We've been looking for verification from anyone that our program actually works on a display like that. Would you do us the favor of dropping us a note alerting us to the fact that our program is not, in fact, crippled horribly by an inability to display " + Format$(gNumColors) + " colors? All you have to do is mention that you saw this message. We'd be very, very grateful! Additional info about your system would also be appreciated." + Chr$(13) + Chr$(10) + "Thanks, " + Chr$(13) + Chr$(10) + "Wilson & Carole"
   Form3.Height = Text1.Top + Text1.Height + 810
   Label1(5).Visible = True 
   If gPixelDepth > cCutoffDepth Thene
   Text1.Text = "Windows reports that your display supports " + Format$(gPixelDepth) + "-bit color. We've been looking for verification from anyone that our program actually works on a display like that. Would you do us the favor of dropping us a note alerting us to the fact that our program is not, in fact, crippled horribly by an inability to display " + Format$(gPixelDepth) + "-bit color? All you have to do is mention that you saw this message. We'd be very, very grateful! Additional info about your system would also be appreciated." + Chr$(13) + Chr$(10) + "Thanks, " + Chr$(13) + Chr$(10) + "Wilson & Carole"
   Label1(5).Visible = Truep
   Form3.Height = Text1.Top + Text1.Height + 810
   End IfH
End If