If you are interested. This is the full array I am trying to define in my program but which falls apart even with your fix from the other day.
Code: Select all
const EOP = 0x40 ' End of phrase
const EOS = 0x80 ' End of segment
const LONG = 0xC0 ' Display title phrase for a long time
' Title Phrase Offset, Text
DIM PHRASETAB%(129) = {0x00, ' (unused)
0x05,0x06,0x02 OR EOP, ' $01 "ATTACK COMPUTER ON"
0x05,0x06,0x03 OR EOP, ' $04 "ATTACK COMPUTER OFF"
0x04,0x02 OR EOP, ' $07 "SHIELDS ON"
0x04,0x03 OR EOP, ' $09 "SHIELDS OFF"
0x06,0x07,0x02 OR EOP, ' $0B "COMPUTER TRACKING ON"
0x07,0x03 OR EOP, ' $0E "TRACKING OFF"
0x08 OR EOP, ' $10 "WHATS WRONG?"
0x09,0x0A OR EOP, ' $11 "HYPERWARP ENGAGED"
0x0B,0x0D OR LONG, ' $13 "STARBASE SURROUNDED"
0x0B,0x0C OR LONG, ' $15 "STARBASE DESTROYED"
0x09,0x0E OR EOP, ' $17 "HYPERWARP ABORTED"
0x09,0x0F OR EOP, ' $19 "HYPERWARP COMPLETE"
0x10 OR LONG, ' $1B "HYPERSPACE"
0x11,0x12 OR EOS, ' $1C "ORBIT ESTABLISHED"
0x16 OR EOP, ' $1E "STANDBY"
0x13,0x0E OR EOP, ' $1F "DOCKING ABORTED"
0x15,0x0F OR EOP, ' $21 "TRANSFER COMPLETE"
0x38 OR EOS, ' $23 " "
0x17 OR EOS, ' $24 "STAR FLEET TO"
0x19 OR EOS, ' $25 "ALL UNITS"
0x18 OR EOS, ' $26 "STAR CRUISER 7"
0x0C OR EOS, ' $27 "DESTROYED"
0x1D OR EOS, ' $28 "BY ZYLON FIRE"
0x1E,0x1F OR EOS, ' $29 "POSTHUMOUS RANK IS:"
0xFD, ' $2B "<PLACEHOLDER FOR RANK>"
0x25,0xFC, ' $2C "CLASS <PLACEHOLDER FOR CLASS>"
0x38 OR EOP, ' $2E " "
0x1B OR EOS, ' $2F "STAR RAIDERS"
0x20 OR EOP, ' $30 "COPYRIGHT ATARI 1979"
0x38 OR EOS, ' $31 " "
0x17 OR EOS, ' $32 "STAR FLEET TO"
0x18 OR EOS, ' $33 "STAR CRUISER 7"
0x1A,0x0E OR EOS, ' $34 "MISSION ABORTED"
0x1C,0x14 OR EOS, ' $36 "ZERO ENERGY"
0x24,0x1F OR EOS, ' $38 "NEW RANK IS"
0xFD, ' $3A "<PLACEHOLDER FOR RANK>"
0x25,0xFC, ' $3B "CLASS <PLACEHOLDER FOR CLASS>"
0x27 OR EOS, ' $3D "REPORT TO BASE"
0x28 OR EOP, ' $3E "FOR TRAINING"
0x38 OR EOS, ' $3F " "
0x17 OR EOS, ' $40 "STAR FLEET TO"
0x18 OR EOS, ' $41 "STAR CRUISER 7"
0x1A,0x0F OR EOS, ' $42 "MISSION COMPLETE"
0x24,0x1F OR EOS, ' $44 "NEW RANK IS:"
0xFD, ' $46 "<PLACEHOLDER FOR RANK>"
0x25,0xFC, ' $47 "CLASS <PLACEHOLDER FOR CLASS>"
0x26 OR EOP, ' $49 "CONGRATULATIONS"
0x2C,0x1A OR EOP, ' $4A "NOVICE MISSION"
0x2E,0x1A OR EOP, ' $4C "PILOT MISSION"
0x31,0x1A OR EOP, ' $4E "WARRIOR MISSION"
0x33,0x1A OR EOP, ' $50 "COMMANDER MISSION"
0x38 OR EOS, ' $52 " "
0x34,0x36 OR EOP, ' $53 "DAMAGE CONTROL"
0x37,0x35 OR EOS, ' $55 "PHOTONS DAMAGED"
0x38 OR EOP, ' $57 " "
0x37,0x0C OR EOS, ' $58 "PHOTONS DESTROYED"
0x38 OR EOP, ' $5A " "
0x23,0x35 OR EOS, ' $5B "ENGINES DAMAGED"
0x38 OR EOP, ' $5D " "
0x23,0x0C OR EOS, ' $5E "ENGINES DESTROYED"
0x38 OR EOP, ' $60 " "
0x04,0x35 OR EOS, ' $61 "SHIELDS DAMAGED"
0x38 OR EOP, ' $63 " "
0x04,0x0C OR EOS, ' $64 "SHIELDS DESTROYED"
0x38 OR EOP, ' $66 " "
0x06,0x35 OR EOS, ' $67 "COMPUTER DAMAGED"
0x38 OR EOP, ' $69 " "
0x06,0x0C OR EOS, ' $6A "COMPUTER DESTROYED"
0x38 OR EOP, ' $6C " "
0x22 OR EOS, ' $6D "SECTOR SCAN"
0x35 OR EOP, ' $6E "DAMAGED"
0x22 OR EOS, ' $6F "SECTOR SCAN"
0x0C OR EOP, ' $70 "DESTROYED"
0x21 OR EOS, ' $71 "SUB-SPACE RADIO"
0x35 OR EOP, ' $72 "DAMAGED"
0x21 OR EOS, ' $73 "SUB-SPACE RADIO"
0x0C OR EOP, ' $74 "DESTROYED"
0x01 OR LONG, ' $75 "RED ALERT"
0x38 OR EOS, ' $76 " "
0x17 OR EOS, ' $77 "STAR FLEET TO"
0x18 OR EOS, ' $78 "STAR CRUISER 7"
0x1A,0x0E OR EOS, ' $79 "MISSION ABORTED"
0x24,0x1F OR EOS, ' $7B "NEW RANK IS:"
0xFD, ' $7D "<PLACEHOLDER FOR RANK>"
0x25,0xFC, ' $7E "CLASS <PLACEHOLDER FOR CLASS>"
0x26 OR EOP} ' $80 "CONGRATULATIONS"