home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / adpro_files / commands / clear_palette < prev    next >
Encoding:
Text File  |  1996-04-22  |  890 b   |  35 lines
  1. /* $VER: Clear_Palette 1.06 (21.04.96)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. NL='0A'x
  6. VERSION
  7. IF WORD(ADPro_Result,1)='ADPro' THEN DO
  8.  IF LEFT(WORD(ADPro_Result,2),3)>=2.5 THEN Vrsn='NEW'
  9.                                       ELSE Vrsn='OLD'
  10. END
  11. IF WORD(ADPro_Result,1)='MorphPlus' THEN DO
  12.  IF LEFT(WORD(ADPro_Result,2),3)>=1.2 THEN Vrsn='NEW'
  13.                                       ELSE Vrsn='OLD'
  14. END
  15. PSTATUS
  16. IF ADPro_Result='LOCKED' THEN DO
  17.  ADPRO_TO_FRONT
  18.  OKAY2 'The Palette Is Locked.'||NL||,
  19.        'Clear Existing Palette?'
  20.  IF rc=0 THEN EXIT
  21. END
  22. PSORT
  23. IF Vrsn='NEW' THEN DO
  24.  IF ADPro_Result=0 THEN ColVal=LEFT(COPIES('0 ',768),1535)
  25.                    ELSE ColVal=LEFT(COPIES('255 ',768),3071)
  26.  MPPOKE 0 256 ColVal
  27. END
  28. ELSE DO
  29.  IF ADPro_Result=0 THEN ColVal='0 0 0'
  30.                    ELSE ColVal='255 255 255'
  31.  DO Register=0 TO 255
  32.   PPOKE Register ColVal
  33.  END
  34. END
  35.