home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / adpro_files / commands / palette_status < prev    next >
Encoding:
Text File  |  1996-04-22  |  605 b   |  23 lines
  1. /* $VER: Palette_Status 1.01 (21.04.96)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. VERSION
  6. IF WORD(ADPro_Result,1)='ADPro' THEN DO
  7.  IF LEFT(WORD(ADPro_Result,2),3)>=2.5 THEN Vrsn='NEW'
  8.                                       ELSE Vrsn='OLD'
  9. END
  10. IF WORD(ADPro_Result,1)='MorphPlus' THEN DO
  11.  IF LEFT(WORD(ADPro_Result,2),3)>=1.3 THEN Vrsn='NEW'
  12.                                       ELSE Vrsn='OLD'
  13. END
  14. PSTATUS
  15. IF ADPro_Result='LOCKED' THEN DO
  16.  PSTATUS UNLOCKED
  17.  IF Vrsn='OLD' THEN OKAY1 'Palette Status: Unlocked'
  18. END
  19. ELSE DO
  20.  PSTATUS LOCKED
  21.  IF Vrsn='OLD' THEN OKAY1 'Palette Status: Locked'
  22. END
  23.