'''
DIM SHARED name$(1 TO copy)
DIM SHARED race$(1 TO copy)
DIM SHARED class$(1 TO copy)
DIM SHARED sex$(1 TO copy)
DIM SHARED strength(1 TO copy)
DIM SHARED intelligence(1 TO copy)
DIM SHARED wisdom(1 TO copy)
DIM SHARED dexterity(1 TO copy)
DIM SHARED constitution(1 TO copy)
DIM SHARED righthand$(1 TO copy)
DIM SHARED lefthand$(1 TO copy)
DIM SHARED bodyarmor$(1 TO copy)
DIM SHARED specialitem$(1 TO copy)
DIM SHARED BP$(1 TO copy, 1 TO 8)
DIM SHARED condition$(1 TO copy)
DIM SHARED hitpoints(1 TO copy)
DIM SHARED currentHP(1 TO copy)
DIM SHARED spellpoints(1 TO copy)
DIM SHARED currentSP(1 TO copy)
DIM SHARED armorclass(1 TO copy)
DIM SHARED level(1 TO copy)
DIM SHARED experience(1 TO copy) AS LONG
DIM SHARED GoldCoins(1 TO copy)
DIM SHARED SilverCoins(1 TO copy)
DIM SHARED BronzeCoins(1 TO copy)
DIM SHARED thaco(1 TO copy)
DIM SHARED mindmgattack(1 TO copy)
DIM SHARED maxdmgattack(1 TO copy)
DIM SHARED numberattacks(1 TO copy)
DIM SHARED magicresistance%(1 TO copy)
DIM SHARED savingthrow%(1 TO copy)
DIM SHARED encumbrance(1 TO copy)
DIM SHARED Combat(1 TO copy)
DIM SHARED Archery(1 TO copy)
DIM SHARED holiness(1 TO copy)
DIM SHARED Martial(1 TO copy)
DIM SHARED Magical(1 TO copy)
DIM SHARED Alchemy(1 TO copy)
DIM SHARED Thievery(1 TO copy)
DIM SHARED illusionism(1 TO copy)
DIM SHARED SpellAffecting$(1 TO copy, 1 TO 6)
DIM SHARED age$(1 TO copy)
DIM SHARED nature$(1 TO copy)
DIM SHARED size$(1 TO copy)
DIM SHARED portrait$(1 TO copy)
DIM SHARED coinweight(1 TO copy) AS SINGLE
'''
DIM SHARED enc.hitpoints(1 TO copy)
DIM SHARED enc.currenthp(1 TO copy)
DIM SHARED enc.spellpoints(1 TO copy)
DIM SHARED enc.currentsp(1 TO copy)
DIM SHARED enc.armorclass(1 TO copy)
DIM SHARED enc.condition$(1 TO copy)
DIM SHARED enc.righthand$(1 TO copy)
DIM SHARED enc.lefthand$(1 TO copy)
DIM SHARED enc.bodyarmor$(1 TO copy)
DIM SHARED enc.specialitem$(1 TO copy)
DIM SHARED enc.BC(1 TO copy)
DIM SHARED enc.SC(1 TO copy)
DIM SHARED enc.GC(1 TO copy)
DIM SHARED enc.thaco(1 TO copy)
DIM SHARED enc.mindmgattack(1 TO copy)
DIM SHARED enc.maxdmgattack(1 TO copy)
DIM SHARED enc.range(1 TO copy)
DIM SHARED enc.BP$(1 TO copy, 1 TO 8)
DIM SHARED enc.name$
DIM SHARED enc.size$
DIM SHARED enc.range
DIM SHARED enc.file$
DIM SHARED enc.level
DIM SHARED enc.number
DIM SHARED enc.number$
DIM SHARED enc.portrait$
DIM SHARED enc.reaction$
DIM SHARED enc.xpv
DIM SHARED enc.fbm
DIM SHARED enc.MR%
DIM SHARED enc.ST%
DIM SHARED enc.Treasure
DIM SHARED enc.Missle
DIM SHARED enc.Infravision
'''
DIM SHARED GFX(0 TO 32001)
DIM SHARED PAL(0 TO 383)
DIM SHARED MouseCursor(143)
DIM SHARED MouseMASK(73)
DIM SHARED fontv(2949)
DIM SHARED A$(0 TO 9)
DIM SHARED R(255), G(255), B(255)
DIM SHARED spellactive(1 TO 6)
DIM SHARED spellactive$(1 TO 6)
DIM SHARED loseturn(1 TO 6)
DIM SHARED whx(1 TO 6)
DIM SHARED wvy(1 TO 6)
DIM SHARED shx(1 TO 6)
DIM SHARED svy(1 TO 6)
DIM SHARED ehx(1 TO 6)
DIM SHARED evy(1 TO 6)
DIM SHARED nhx(1 TO 6)
DIM SHARED nvy(1 TO 6)
'''S/B
DIM SHARED QMIDIRegs AS registers
DIM SHARED MEM.SEGMENT(0 TO 255) AS INTEGER
DIM SHARED MIDI.PLAYTIME AS SINGLE
DIM SHARED MIDI.ERROR AS INTEGER
DIM SHARED PAUSED AS SINGLE
DIM SHARED SBMIDI.INTERRUPT AS INTEGER
DIM SHARED MEM.ALLOCATED(0 TO 255) AS LONG
DIM SHARED SBSIM.INTERRUPT AS INTEGER
DIM SHARED SENSITIVE AS INTEGER
DIM SHARED SOUND.DISABLED AS INTEGER
DIM SHARED CURRENTHANDLE AS INTEGER
 '''
 Esc = CHR$(27)
 spacebar = CHR$(32)
 MoveForward = CHR$(0) + "H"
 MoveBackward = CHR$(0) + "P"
 TurnRight = CHR$(0) + "M"
 TurnLeft = CHR$(0) + "K"
 '''
 whx(1) = 243: wvy(1) = 51
 whx(2) = 244: wvy(2) = 45
 whx(3) = 248: wvy(3) = 48
 whx(4) = 252: wvy(4) = 51
 whx(5) = 253: wvy(5) = 45
 whx(6) = 257: wvy(6) = 49
 shx(1) = 252: svy(1) = 51
 shx(2) = 243: svy(2) = 51
 shx(3) = 248: svy(3) = 48
 shx(4) = 257: svy(4) = 49
 shx(5) = 244: svy(5) = 45
 shx(6) = 253: svy(6) = 45
 ehx(1) = 257: evy(1) = 45
 ehx(2) = 256: evy(2) = 51
 ehx(3) = 252: evy(3) = 48
 ehx(4) = 248: evy(4) = 45
 ehx(5) = 247: evy(5) = 51
 ehx(6) = 243: evy(6) = 48
 nhx(1) = 248: nvy(1) = 45
 nhx(2) = 257: nvy(2) = 45
 nhx(3) = 252: nvy(3) = 48
 nhx(4) = 243: nvy(4) = 48
 nhx(5) = 256: nvy(5) = 51
 nhx(6) = 247: nvy(6) = 51

