home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / graphic / fade13-1.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-09  |  2.3 KB  |  63 lines
  1. 'Date: 05-19-92 (02:53)
  2. 'From: RICH GELDREICH
  3. 'Subj: (R)FADING SCREEN MODE 13
  4. '---------------------------------------------------------------------------
  5. '****PART 1****
  6. 'The following program makes the fade.obj file. To make a .QLB use:
  7. 'link /q fade,fade,,bqlb45.lib
  8. '(assuming bqlb45.lib is in the current directory)
  9. 'To make a .LIB so you can compile it, enter LIB at the DOS prompt and
  10. 'type:
  11. 'fade.lib  at the library prompt
  12. 'Y         at the "Make new library?" prompt
  13. '+fade.obj at the operations prompt
  14. '<Enter>   at the listing prompt
  15.  
  16. DEFINT A-Z
  17. RESTORE
  18. OPEN "fade.obj" FOR BINARY AS #1
  19. S$ = "": Check = &HFFFF: CheckSum = 0
  20. FOR A = 1 TO 345
  21.     READ A$
  22.     A$ = "&H" + A$: V = VAL(A$): S$ = S$ + CHR$(V)
  23.     Check = Check XOR V: CheckSum = (CheckSum + V) AND &HFF
  24. NEXT
  25.  
  26. IF Check <> &HFF3F OR CheckSum <> 0 THEN
  27.     PRINT "UNcool! This copy has been trashed!"
  28.     END
  29. ELSE
  30.     PRINT "Success!"
  31.     PRINT "R.G."
  32.     PUT #1, , S$
  33. END IF
  34. CLOSE
  35.  
  36.  
  37. DATA 80,A,0,8,66,61,64,65,2E,41,53,4D,CF,88,1F,0,0,0,54,75,72,62,6F,20
  38. DATA 41,73,73,65,6D,62,6C,65,72,20,20,56,65,72,73,69,6F,6E,20,32,2E,30
  39. DATA B9,88,10,0,40,E9,E0,4E,B2,18,8,66,61,64,65,2E,41,53,4D,A0,88,3,0,40
  40. DATA E9,4C,96,2,0,0,68,88,3,0,40,A1,94,96,C,0,5,5F,54,45,58,54,4,43,4F
  41. DATA 44,45,96,98,7,0,48,89,0,2,3,1,8A,96,C,0,5,5F,44,41,54,41,4,44,41,54
  42. DATA 41,C2,98,7,0,48,0,3,4,5,1,C,96,8,0,6,44,47,52,4F,55,50,8B,9A,4,0,6
  43. DATA FF,2,5B,90,11,0,0,1,A,46,41,44,45,53,43,52,45,45,4E,0,0,0,84,88,4
  44. DATA 0,40,A2,1,91,A0,8D,0,1,0,0,55,8B,EC,1E,6,B8,0,0,8E,D8,8E,C0,8B,76
  45. DATA A,8B,4E,8,2B,CE,41,BA,C7,3,BF,0,0,90,8B,C6,EE,42,EE,42,EC,AA,EC,AA
  46. DATA EC,AA,4A,4A,46,E2,EF,BB,40,0,8B,7E,A,BE,0,0,8B,4E,6,90,B2,DA,B4,8
  47. DATA EC,22,C4,74,FB,90,EC,22,C4,75,FB,E2,EF,B2,C7,8B,4E,8,2B,CF,41,90,8B
  48. DATA C7,EE,42,EE,42,AC,F6,E3,D1,E0,D1,E0,8A,C4,EE,AC,F6,E3,D1,E0,D1,E0
  49. DATA 8A,C4,EE,AC,F6,E3,D1,E0,D1,E0,8A,C4,EE,4A,4A,47,E2,D7,4B,83,FB,FF
  50. DATA 75,AD,7,1F,5D,CA,6,0,E7,9C,F,0,C8,6,55,1,C4,19,14,1,2,C4,34,14,1,2
  51. DATA 2E,8A,2,0,0,74
  52.  
  53. 'That's all! Run this program first: it will make a small .obj file in
  54. 'the current directory. Then follow the directions above to make a .QLB
  55. 'file.
  56.  
  57. 'After you make the .QLB file, load QB like this:
  58.  
  59. 'QB /lfade.qlb
  60.  
  61. 'Then load in the first program(usefade.bas) and see if it works
  62. 'correctly(I'll kill myself if it doesn't :-)
  63.