home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pcmag / vol8n17.arc / FLAGS.BAS < prev    next >
BASIC Source File  |  1989-08-29  |  847b  |  46 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10. '********** FLAGS.BAS
  11.  
  12. DEFINT A-Z
  13. DECLARE SUB ClearAll ()                 'clears all flags
  14. DECLARE SUB ClearFlag (FlagNum)         'clears a single flag
  15. DECLARE SUB SetFlag (FlagNum)           'sets a single flag
  16. DECLARE FUNCTION GetFlag% (FlagNum)     'retrieves a single flag
  17.  
  18. CLS
  19. ClearAll                        'clear all the flags
  20.  
  21. FOR X = 1 TO 64                 'display each flag to prove they're zero
  22.     PRINT GetFlag%(X);
  23. NEXT
  24. PRINT : PRINT
  25.  
  26. FOR X = 1 TO 64                 'set all of the flags
  27.     SetFlag X
  28. NEXT
  29.  
  30. FOR X = 1 TO 64                 'display each flag again
  31.     PRINT GetFlag%(X);
  32. NEXT
  33. PRINT : PRINT
  34.  
  35. FOR X = 1 TO 64 STEP 2          'clear every other flag
  36.     ClearFlag X
  37. NEXT
  38.  
  39. FOR X = 1 TO 64                 'prove that it worked
  40.     PRINT GetFlag%(X);
  41. NEXT
  42.  
  43.  
  44.  
  45.  
  46.