BBS: Inland Empire Archive
Date: 05-28-92 (01:16) Number: 169
From: RICH GELDREICH Refer#: NONE
To: SCOTT LEVENTHAL Recvd: NO
Subj: Re:vga Screen Fader Conf: (2) Quik_Bas
Here's the code again, just in case it was bad(might of been a comm
error or something).
It would be rather easy to fade the other way- from dark to bright.
I should of included a subroutine to do that(only a couple of
modifications would be required)...
If you need this type of fade, let me know and I'll post it!
'<Enter> at the listing prompt
OPEN "fade.obj" FOR BINARY AS #1
S$ = "": Check = &HFFFF: CheckSum = 0
FOR A = 1 TO 345
A$ = "&H" + A$: V = VAL(A$): S$ = S$ + CHR$(V)
Check = Check XOR V: CheckSum = (CheckSum + V) AND &HFF
IF Check <> &HFF3F OR CheckSum <> 0 THEN
PRINT "UNcool! This copy has been trashed!"
PUT #1, , S$
P.S. I just tried this program out and it works fine. Thank god I used
some error checking!
--- RBBSMAIL 17.2A
* Origin: Computer Co-Op RBBS HST, 609-784-9404 Voorhees
NJ (RBBS-PC 1:266/29)