DECLARE SUB marmo ()
DECLARE SUB scribo (x, y, n$)
DECLARE FUNCTION numrom$ (n)
DECLARE SUB pugna (nem, v, s)
CLS
n = 87 'nvmervs nominvm
DIM nomes$(n)
DIM SHARED gla$(10), nem$(6, 8)
DIM gnom$(20), gfor(20), gres(20), gpop(20), gvin(20), gper(20), gpug(20), gsta(20)
gla$(1) = "c6l1u1c64u1u1r1c17nu1c18nd1r1r1c24l1l1c25l1c88u1u1u1u1c27r1d1c19bl2bd2d1d1"
gla$(2) = "c6r1c185nr2c6l1u1c64e1nf1u1r1c17nu1c18nd1u1r4r1c24l1l1c25l1lc88l2u1u1u1c27r1d1c19bl2bd2d1d1"
gla$(3) = "c6r1c185nr2c6l1u1c64e1nf1u1r1c17nu1c18nd1u1r2e2c24g1c25g1lc88l2u1u1u1c27r1d1c19bl2bd2d1d1"
gla$(4) = "c6r1c185nr2c6l1u1c64e1nf1u1r1c17c18nd1u1r1f3c24h1c25h1lc88h1l1u1u1u1c27r1d1c19bl2bd2d1d1"
gla$(5) = "c6l1u1c64u1r1c17nu2c18f1f1c24h1h1c25h1c88u1u1u1u1c27r1d1c19bl2bd2d1d1"
gla$(6) = "c6l1u1c64u1r1c17br1bu1nu2bl1bd1bu2c84l1r1c19nu1nd1c86nl1bd2c18f1f1c24h1h1c25h1c88u1u1u1u1c27r1d1"
gla$(7) = "c6u1r1c64r1f1c17br1bu1nu2bl1bd1bu2c84l1r1c19nu1nd1c86nl1bd2c18f1f1c24h1h1c25h1c88u1u1u1u1c27r1d1"
gla$(8) = "c6r1c64r3c84r3u1c27r1d1"
nem$(3, 1) = "c6r1u1c64u1u1l1c17nu1c18nd1l1l1c24r1r1c25r1c88u1u1u1u1c27l1d1c19br2bd2d1d1"
nem$(3, 2) = "c6l1c185nl2c6r1u1c64h1ng1u1l1c17nu1c18nd1u1l4l1c24r1r1c25r1rc88r2u1u1u1c27l1d1c19br2bd2d1d1"
nem$(3, 3) = "c6l1c185nl2c6r1u1c64h1ng1u1l1c17nu1c18nd1u1l2h2c24f1c25f1rc88r2u1u1u1c27l1d1c19br2bd2d1d1"
nem$(3, 4) = "c6l1c185nl2c6r1u1c64h1ng1u1l1c17c18nd1u1l1g3c24e1c25e1rc88e1r1u1u1u1c27l1d1c19br2bd2d1d1"
nem$(3, 5) = "c6r1u1c64u1l1c17nu2c18g1g1c24e1e1c25e1c88u1u1u1u1c27l1d1c19br2bd2d1d1"
nem$(3, 6) = "c6r1u1c64u1l1c17bl1bu1nu2br1bd1bu2c84r1l1c19nu1nd1c86nr1bd2c18g1g1c24e1e1c25e1c88u1u1u1u1c27l1d1"
nem$(3, 7) = "c6u1l1c64l1g1c17bl1bu1nu2br1bd1bu2c84r1l1c19nu1nd1c86nr1bd2c18g1g1c24e1e1c25e1c88u1u1u1u1c27l1d1"
nem$(3, 8) = "c6l1c64l3c84l3u1c27l1d1"
nem$(4, 1) = "bl1c6r1u1c24r1nu1l1c64u1u1c88u3u1l1d1r1d3r1c25nr2l1c88l1c26l2ng1nh1"
nem$(4, 2) = "bl1c6r1u1c24r1nu1l1c64u1u1c88u3u1l1d1r1d1g2r1c25nr1l1c88l1c26l2ng1nh1"
nem$(4, 3) = "bl1c6r1u1c64u1u1c88u3u1l1d1r1d2 l3c23g1h1g1h1e1f1e1f1c88r3d1r1c25nr1l1c88g1c26l2ng1nh1"
nem$(4, 4) = "bl1c6r1u1c24r1nu1l1c64u1u1c88u3u1l1d1r1d2d1r1c25nr2l1c88g1c26l1ng1nh1"
nem$(4, 5) = "bl1c6r1u1c24r1nu1l1c64u1u1c88u3u1l1d1r1d2l1g1c26nu3nd3c88e1"
nem$(4, 6) = "bl1c6r1u1c24r1nu1l1c64u1u1c88u3u1l1d1r1d2l1g1c26nu2nd1c88e1"
nem$(4, 7) = "bl1c6u1l1c64l1l1c88u3u1l1d1r1d2l1g1c26nu1nd1c88e1"
nem$(4, 8) = "bl1c6l1c64l3c88l3u1l1d1"


RANDOMIZE TIMER + a + b + c + d
FOR a = 1 TO n
READ nomes$(a)
NEXT a
SCREEN 13
DRAW sec$(7)
marmo
DRAW "s12": scribo 17, 50, "G  L  A  D  I  A  T  O  R  E  S"
DRAW "s4"
scribo 115, 100, "Factus a"
scribo 94, 120, "Paulo Massione"
scribo 42, 140, "adiuvato a Davide Dolcinis"
scribo 17, 170, "Preme attrectationem ut continuas"
WHILE INKEY$ = "": WEND
CLS
marmo
scribo 84, 50, "Qvid vis facere?"
scribo 70, 90, "  I - Novvs lvdvs"
scribo 70, 110, " II - Vocare lvdvm"
scribo 70, 130, "III - Exire"
a$ = ""
WHILE a$ <> "1" AND a$ <> "2" AND a$ <> "3": a$ = INKEY$: WEND
CLS
IF a$ = "3" THEN END
IF a$ = "2" THEN
  SCREEN 12: SCREEN 0
  CLS
  FILES "*.gld"
  PRINT "Nomen filis (sine exstensione)";
  INPUT fi$
  fi$ = fi$ + ".gld"
  OPEN fi$ FOR INPUT AS #1
  INPUT #1, nom$
  INPUT #1, spo
  INPUT #1, sp
  INPUT #1, gnu
  INPUT #1, den
  INPUT #1, daa
  INPUT #1, dam
  INPUT #1, nsch
  INPUT #1, rit
  FOR a = 1 TO 20
    INPUT #1, gnom$(a)
    INPUT #1, gfor(a)
    INPUT #1, gres(a)
    INPUT #1, gpop(a)
    INPUT #1, gvin(a)
    INPUT #1, gper(a)
    INPUT #1, gsta(a)
  NEXT a
  ree = 1
  CLOSE 1
  SCREEN 13
END IF
IF a$ = "1" THEN
  SCREEN 12
  SCREEN 0
  PRINT "Qvid est nomen tvvm?"
  INPUT nom$
  daa = 813
  gnu = 0
  dam = 1
  den = 500
  SCREEN 13
END IF
                                       'LVDVS

10 IF ree = 0 THEN nsch = INT(RND * 5) + 3: rit = 1:  ELSE ree = 0
IF gnu = 20 THEN nsch = 0
IF gnu = 19 THEN nsch = 1
IF gnu = 18 THEN nsch = 2
IF gnu = 17 THEN nsch = 3
IF gnu = 16 THEN nsch = INT(RND * 1) + 3
IF gnu = 15 THEN nsch = INT(RND * 2) + 3
IF gnu = 14 THEN nsch = INT(RND * 3) + 3
IF gnu = 13 THEN nsch = INT(RND * 4) + 3
IF gnu = 12 THEN nsch = INT(RND * 5) + 3
1 CLS
marmo
IF den < 0 THEN scribo 50, 50, "Non habes danarios": scribo 50, 70, "Lvdvs est effectvs!": END
IF dam = 1 THEN ert$ = "Ianvarivs"
IF dam = 2 THEN ert$ = "Febrvarivs"
IF dam = 3 THEN ert$ = "Martivs"
IF dam = 4 THEN ert$ = "Aprilis"
IF dam = 5 THEN ert$ = "Maivs"
IF dam = 6 THEN ert$ = "Ivnivs"
IF dam = 7 THEN ert$ = "Ivlivs"
IF dam = 8 THEN ert$ = "Avgvstvs"
IF dam = 9 THEN ert$ = "September"
IF dam = 10 THEN ert$ = "October"
IF dam = 11 THEN ert$ = "November"
IF dam = 12 THEN ert$ = "December"
scribo 5, 15, nom$: scribo 300 - (LEN(ert$) * 8), 15, ert$ + ","
scribo 5, 30, "annvs " + numrom$(daa) + " ab Vrbe condita"
scribo 5, 45, "Danarii: " + numrom$(den)
scribo 5, 60, "Qvid vis facere?"
scribo 5, 80, "   I - Gladiatores tvi"
IF nsch <> 0 THEN scribo 5, 95, "  II - Gladiatorvm mercatvs"
IF rit <> 0 THEN scribo 5, 110, " III - Exercitatio"
IF sp <= 0 THEN scribo 5, 125, "  IV - Divvlgatio"
scribo 5, 140, "   V - Serbare et exire"
IF gnu > 0 THEN
  scribo 5, 155, "  VI - Ire ad pvgnandvm"
ELSE
  scribo 5, 155, "  VI - Expectare mensem proximvm"
END IF
mor = 0
a$ = "": WHILE a$ < "1" OR a$ > "6": a$ = INKEY$: WEND
IF a$ = "1" THEN
  SCREEN 12: SCREEN 0
  CLS
  PRINT "Nvmervs ³  Nomen  ³    Vis    ³  Defensio  ³ Popvli Favor ³ Victoriae ³ Clades"
  FOR a = 1 TO 20
  IF gvin(a) = 0 THEN gvin = -1 ELSE gvin = gvin(a)
  IF gper(a) = 0 THEN gper = -1 ELSE gper = gper(a)
  IF gsta(a) = 1 THEN PRINT numrom$(a); TAB(10); gnom$(a); TAB(20); numrom$(gfor(a)); TAB(32); numrom$(gres(a)); TAB(45); numrom$(gpop(a)); TAB(60); numrom$(gvin); TAB(71); numrom$(gper)
  NEXT a
  PRINT : PRINT "Preme attrectationem vt continvas"
  WHILE INKEY$ = "": WEND: SCREEN 13
END IF
IF a$ = "2" AND nsch > 0 THEN
  DO
    CLS
    marmo
    DRAW "s8"
    scribo 10, 50, "S E R V O R V M    M E R C A T V S"
    DRAW "s4"
    scribo 10, 90, "Danarii: " + numrom$(den)
    a = INT(RND * 70) + 5
    b = INT(RND * 70) + 5
    c = a + b + 30
    n$ = nomes$(INT(RND * 83) + 1)
    scribo 10, 120, n$
    scribo 160, 120, "Pretivm: " + numrom$(c)
    scribo 10, 140, "Vis: " + numrom$(a)
    scribo 160, 140, "Defensio: " + numrom$(b)
    scribo 10, 160, "   I - Volo!"
    scribo 10, 175, "  II - Nolo!"
    a$ = "": WHILE a$ <> "1" AND a$ <> "2": a$ = INKEY$: WEND
    IF a$ = "1" THEN
      IF den < c THEN
        scribo 10, 190, "non habes satis danarios!": WHILE INKEY$ = "": WEND
      ELSE
      r = 0
      CLS
      marmo
      DRAW "s8"
      scribo 10, 50, "S E R V O R V M    M E R C A T V S"
      DRAW "s4"
      scribo 10, 70, n$
      scribo 10, 90, "Pretivm presente: "
      scribo 10, 110, "Danarii: " + numrom$(den)
      scribo 10, 140, "   I - Offerre I danarivs plvs"
      scribo 10, 155, "   II - Relinqvere"
      DO
        LINE (152, 75)-(250, 96), 28, BF
        LINE (151, 74)-(251, 97), 29, B
        scribo 10, 90, "                  " + numrom$(c)
        a$ = "": WHILE a$ <> "1" AND a$ <> "2": a$ = INKEY$: WEND
        IF a$ = "2" THEN r = 1
        IF a$ = "1" AND c + 1 <= den THEN
          c = c + 1
          eee = INT(RND * 150)
          IF eee > a + b THEN
            r = 1
            s = 0: ee = 0
            DO
              s = s + 1
              IF gsta(s) = 0 THEN gnu = gnu + 1: gnom$(s) = n$: gsta(s) = 1: ee = 1: gfor(s) = a: gres(s) = b: gpop(s) = INT(RND * 30) + 10: gvin(s) = 0: gper(s) = 0: den = den - c: scribo 10, 190, "Emptvs!": WHILE INKEY$ = "": WEND
            LOOP UNTIL ee = 1
          ELSE
            c = c + 1                           'NOTARE IL VIRTUOSISMO!
          END IF
        END IF
      LOOP WHILE r = 0
      END IF
    END IF
    nsch = nsch - 1
  LOOP UNTIL nsch = 0
  nsch = 0: r = 0
END IF
IF a$ = "3" AND rit = 1 THEN
  rit = 0
  CLS
  marmo
  DRAW "s8"
  scribo 1, 20, "      E X E R C I T A T I O N E S": COLOR 15
  DRAW "s4"
  scribo 10, 33, "Danarii: " + numrom$(den)
  scribo 10, 48, "Solitvdines:"
  scribo 10, 65 - 2, "   I - Scola Capvae (danarii MCC)"
  scribo 10, 80 - 2, "  II - Scola Pompeiorvm (danarii CM)"
  scribo 10, 95 - 2, " III - Scola Romae (danarii DC)"
  scribo 10, 110 - 2, "  IV - Scola Mediolani (danarii CCC)"
  scribo 10, 125 - 2, "Magistri:"
  scribo 10, 140 - 2, "   V - Caivs Ivlivs (danarii CCL)"
  scribo 10, 155 - 2, "  VI - Lvcivs Cornelivs (danarii CL)"
  scribo 10, 170 - 2, " VII - Caivs Marivs (danarii XC)"
  scribo 10, 185 - 2, "VIII - Qvintvs Fabivs (danarii LX) "
  scribo 10, 200 - 2, "  IX - Nihil"
  rt = 1
  DO
    a$ = "": WHILE a$ < "1" OR a$ > "9": a$ = INKEY$: WEND
    IF a$ = "1" AND den >= 1200 THEN c = 80: den = den - 1200: rt = 0
    IF a$ = "2" AND den >= 900 THEN c = 70: den = den - 900: rt = 0
    IF a$ = "3" AND den >= 600 THEN c = 60: den = den - 600: rt = 0
    IF a$ = "4" AND den >= 300 THEN c = 40: den = den - 300: rt = 0
    IF a$ = "5" AND den >= 250 THEN c = 30: den = den - 250: rt = 0
    IF a$ = "6" AND den >= 150 THEN c = 20: den = den - 150: rt = 0
    IF a$ = "7" AND den >= 90 THEN c = 15: den = den - 90: rt = 0
    IF a$ = "8" AND den >= 60 THEN c = 10: den = den - 60: rt = 0
    IF a$ = "9" THEN rt = 0: rit = 1
  LOOP WHILE rt = 1
  IF a$ <> "9" THEN
    FOR a = 1 TO 20
    IF gsta(a) = 1 AND INT(RND * 100) <= c THEN gres(a) = gres(a) + 1
    b = c * gres(a)
    IF gsta(a) = 1 AND INT(RND * 100) <= c THEN gfor(a) = gfor(a) + 1
    NEXT a
  END IF
  a$ = ""
END IF
IF a$ = "4" AND sp = 0 THEN
  CLS
  marmo
  DRAW "s8": scribo 5, 20, "         D I V V L G A T I O"
  DRAW "s4"
  sum = 0
  FOR p = 1 TO 20
  IF gsta(p) = 1 THEN sum = sum + gpop(p)
  NEXT p
  a = INT(sum / 2.5)
  b = INT(sum / 2.9)
  c = INT(sum / 3.5)
  d = INT(sum / 4)
  scribo 10, 40, "Qvid divvlgator vis?"
  scribo 10, 60, "   I - Marciae Termae, danarii: "
  scribo 10, 75, "       " + numrom$(a) + " per menses VIII"
  scribo 10, 95, "  II - Marii Vehicvla, danarii: "
  scribo 10, 110, "       " + numrom$(b) + " per menses VI"
  scribo 10, 130, " III - Ivliae Armillae, danarii: "
  scribo 10, 145, "       " + numrom$(c) + " per menses IV"
  scribo 10, 165, "  IV - Sexti Gladii, danarii: "
  scribo 10, 180, "       " + numrom$(d) + " per menses II"
  scribo 10, 195, "   V - Nihil"
  a$ = ""
  WHILE a$ <> "1" AND a$ <> "2" AND a$ <> "3" AND a$ <> "4" AND a$ <> "5": a$ = INKEY$: WEND
  IF a$ = "1" THEN sp = 8: spo = a
  IF a$ = "2" THEN sp = 6: spo = b
  IF a$ = "3" THEN sp = 4: spo = c
  IF a$ = "4" THEN sp = 2: spo = d
  a$ = ""
END IF
IF a$ = "5" THEN
  CLS
  SCREEN 12: SCREEN 0
  PRINT "Nomen filis (sine exstensione)";
  INPUT fi$
  fi$ = fi$ + ".gld"
  OPEN fi$ FOR OUTPUT AS #1
  PRINT #1, nom$
  PRINT #1, spo
  PRINT #1, sp
  PRINT #1, gnu
  PRINT #1, den
  PRINT #1, daa
  PRINT #1, dam
  PRINT #1, nsch
  PRINT #1, rit
  FOR a = 1 TO 20
    PRINT #1, gnom$(a)
    PRINT #1, gfor(a)
    PRINT #1, gres(a)
    PRINT #1, gpop(a)
    PRINT #1, gvin(a)
    PRINT #1, gper(a)
    PRINT #1, gsta(a)
  NEXT a
  CLOSE 1
  END
END IF
ryugg = 0
IF a$ = "6" AND gnu > 0 THEN
  ryugg = 1
  CLS
  SCREEN 12: SCREEN 0
  COLOR 4: PRINT "                        A N T E   P V G N A M": COLOR 15
  PRINT : PRINT
  npu = 0
  FOR a = 1 TO 20
  IF gsta(a) = 1 THEN
    PRINT "Vis mittere gladiatorem "; numrom$(a); " ("; gnom$(a); ") ad pvgnandvm? (I/N)"
    a$ = "": WHILE a$ <> "i" AND a$ <> "n": a$ = INKEY$: WEND
    IF a$ = "i" THEN gpug(a) = 1: npu = npu + 1:  ELSE gpug(a) = 0
  END IF
  NEXT a
  SCREEN 13
  IF npu = 0 THEN
  marmo
  scribo 10, 10, "Nvllvs gladiator pvgnabit...": WHILE INKEY$ = "": WEND
  ELSE
    FOR a = 1 TO 20
      IF gsta(a) = 1 AND gpug(a) = 1 THEN
        CLS
        marmo
        LINE (100, 80)-(220, 130), 67, BF
        scribo 10, 10, "Ave, Caesar! Moritvri Te salvtant!"
        c12 = INT(RND * 6) + 1
        c12 = INT(RND * 2) + 3
        IF c12 = 1 THEN r$ = "taurum"
        IF c12 = 2 THEN r$ = "leonem"
        IF c12 = 3 THEN r$ = "secvtorem"
        IF c12 = 4 THEN r$ = "retiarivm"
        IF c12 = 5 THEN r$ = "samnitem"
        IF c12 = 6 THEN r$ = "thracem"
        rtyu$ = gnom$(a) + " contra " + r$
        rtyu = 160 - (4 * LEN(rtyu$))
        scribo rtyu, 40, rtyu$
        aa = INT(RND * 80) + 15
        bb = INT(RND * 80) + 15
        v1 = 0: v2 = 0
        FOR b = 1 TO INT(RND * 8) + 1
          c = INT(RND * 100) + 1
          d = INT(RND * 100) + 1
          IF c + aa < gfor(a) + d THEN v1 = v1 + 1
          c = INT(RND * 100) + 1
          d = INT(RND * 100) + 1
          IF c + bb > gres(a) + d THEN v2 = v2 + 1
        NEXT b
        IF v2 > v1 THEN
          IF INT(RND * 100) + 1 > gpop(a) OR c12 = 1 OR c12 = 2 THEN
            pugna c12, 0, 0
            scribo 10, 180, gnom$(a) + " victvs est et periit!"
            gsta(a) = 0
            gnu = gnu - 1
            mor = mor + 1
          ELSE
            pugna c12, 0, 1
            scribo 10, 180, gnom$(a) + " victvs est et vivit!"
            gper(a) = gper(a) + 1: gpop(a) = gpop(a) - INT(RND * 10) - 8
            IF gpop(a) < 1 THEN gpop(a) = 1
          END IF
        ELSE
          pugna c12, 1, 1
          scribo 10, 180, gnom$(a) + " vicit!"
          den = den + INT(RND * 40) + 40
          gpop(a) = gpop(a) + INT(RND * 16) + 4
          IF gpop(a) > 90 THEN gpop(a) = 90
          gvin(a) = gvin(a) + 1
        END IF
        WHILE INKEY$ = "": WEND
      END IF
    NEXT a
  END IF
ELSE IF a$ = "6" THEN ryugg = 1
END IF
IF ryugg = 1 THEN
  dam = dam + 1
  IF dam = 13 THEN dam = 1: daa = daa + 1
  den = den - gnu * 15
  IF sp > 0 AND gpu > 0 THEN
    sp = sp - 1: den = den + spo
  ELSE
    IF sp > 0 AND gpu = 0 THEN sp = sp - 1
  END IF
END IF
IF ryugg = 1 THEN gpu = 0: GOTO 10
GOTO 1


DATA Spartacvs,Qvintvs,Sextvs,Caivs,Brvtvs,Cassivs,Syrvs,Afer,Vrsvs,Threx
DATA Hermes,Vercingetorix,Septimivs,Sergivs,Pinvs,Gallicvs,Fabivs,Titivs,Titvs,Sempronivs
DATA Lentvlvs,Cornelivs,Flavivs,Cloelivs,Tvllivs,Avlvs,Gnaevs,Decimvs,Lvcivs,Marcvs
DATA Pvblivs,Manivs,Servivs,Spvrivs,Tiberivs,Pavlvs,Ivdevs,Partvs,Aegiptvs,Clavdivs
DATA Catvlvs,Ivlianvs,Svllanvs,Cetheganvs,Aemilianvs,Kaesvs,Mamercvs,Nvmerivs,Calvvs,Barbatvs
DATA Cincinnatvs,Varvs,Balbvs,Severvs,Tranqvillvs,Gracchvs,Caepio,Agnellvs,Leo,Falcvs
DATA Ioseph,David,Iacob,Adam,Iohannes,Marivs,Lentvlianvs,Scipianvs,Antonivs,Pyrrhvs
DATA Annibal,Mahrbal,Hamilcar,Martivs,Fvrivs,Camillvs,Samnitvs,Tvscvs,Terentivs,Vitellivs
DATA Alexander,Philippvs,Antiochvs,Attilivs,Hilarvs,Raecivs,Evnvs

SUB marmo
PAINT (1, 1), 30
FOR a = 1 TO 500
x1 = INT(RND * 420) - 50
x2 = INT(RND * 100) + x1 - 20
c = INT(RND * 4) + 28
LINE (x1, 0)-(x2, 200), c
NEXT a
END SUB

FUNCTION numrom$ (n)
a$ = ""
n1 = ABS(INT(n / 1000))
n2 = ABS(INT(n / 100) - (n1 * 10))
n3 = ABS(INT(n / 10) - (n2 * 10) - (n1 * 100))
n4 = ABS(INT(n / 1) - (n3 * 10) - (n2 * 100) - (n1 * 1000))
a$ = a$ + STRING$(n1, "M")
IF n2 = 9 THEN a$ = a$ + "CM"
IF n2 = 8 THEN a$ = a$ + "DCCC"
IF n2 = 7 THEN a$ = a$ + "DCC"
IF n2 = 6 THEN a$ = a$ + "DC"
IF n2 = 5 THEN a$ = a$ + "D"
IF n2 = 4 THEN a$ = a$ + "CD"
IF n2 = 3 THEN a$ = a$ + "CCC"
IF n2 = 2 THEN a$ = a$ + "CC"
IF n2 = 1 THEN a$ = a$ + "C"
IF n3 = 9 THEN a$ = a$ + "XC"
IF n3 = 8 THEN a$ = a$ + "LXXX"
IF n3 = 7 THEN a$ = a$ + "LXX"
IF n3 = 6 THEN a$ = a$ + "LX"
IF n3 = 5 THEN a$ = a$ + "L"
IF n3 = 4 THEN a$ = a$ + "XL"
IF n3 = 3 THEN a$ = a$ + "XXX"
IF n3 = 2 THEN a$ = a$ + "XX"
IF n3 = 1 THEN a$ = a$ + "X"
IF n4 = 9 THEN a$ = a$ + "IX"
IF n4 = 8 THEN a$ = a$ + "VIII"
IF n4 = 7 THEN a$ = a$ + "VII"
IF n4 = 6 THEN a$ = a$ + "VI"
IF n4 = 5 THEN a$ = a$ + "V"
IF n4 = 4 THEN a$ = a$ + "IV"
IF n4 = 3 THEN a$ = a$ + "III"
IF n4 = 2 THEN a$ = a$ + "II"
IF n4 = 1 THEN a$ = a$ + "I"
IF n = 0 THEN a$ = "nulli"
IF n = -1 THEN a$ = "nullae"
numrom$ = a$
END FUNCTION

SUB pugna (nem, v, s)
a = INT(RND * 7) + 2: IF s = 1 AND v = 0 THEN a = a + 5
ty = .5
DRAW "bm152,110"
DRAW gla$(1)
DRAW "bm163,110"
DRAW nem$(nem, 1)
y = TIMER + 3 * ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
FOR r = 1 TO a
e = INT(RND * 4) + 1
SELECT CASE e
CASE 1
DRAW "bm153,110"
DRAW gla$(1)
DRAW "bm162,110"
DRAW nem$(nem, 1)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm153,110"
DRAW gla$(2)
DRAW "bm162,110"
DRAW nem$(nem, 6)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm153,110"
DRAW gla$(1)
DRAW "bm162,110"
DRAW nem$(nem, 2)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
CASE 2
DRAW "bm153,110"
DRAW gla$(1)
DRAW "bm162,110"
DRAW nem$(nem, 1)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm153,110"
DRAW gla$(2)
DRAW "bm162,110"
DRAW nem$(nem, 3)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm153,110"
DRAW gla$(4)
DRAW "bm162,110"
DRAW nem$(nem, 4)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm153,110"
DRAW gla$(3)
DRAW "bm162,110"
DRAW nem$(nem, 3)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
CASE 3
DRAW "bm153,110"
DRAW gla$(1)
DRAW "bm162,110"
DRAW nem$(nem, 1)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm153,110"
DRAW gla$(2)
DRAW "bm164,110"
DRAW nem$(nem, 5)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm153,110"
DRAW gla$(6)
DRAW "bm162,110"
DRAW nem$(nem, 2)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
CASE 4
DRAW "bm153,110"
DRAW gla$(1)
DRAW "bm162,110"
DRAW nem$(nem, 1)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm151,110"
DRAW gla$(4)
DRAW "bm162,110"
DRAW nem$(nem, 2)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
END SELECT
NEXT r
IF v = 1 THEN
DRAW "bm152,110"
DRAW gla$(2)
DRAW "bm162,110"
DRAW nem$(nem, 5)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm152,110"
DRAW gla$(2)
DRAW "bm162,110"
DRAW nem$(nem, 7)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm152,110"
DRAW gla$(4)
DRAW "bm162,110"
DRAW nem$(nem, 8)
ELSE
DRAW "bm151,110"
DRAW gla$(5)
DRAW "bm161,110"
DRAW nem$(nem, 2)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm151,110"
DRAW gla$(7)
DRAW "bm161,110"
DRAW nem$(nem, 2)
y = TIMER + ty: WHILE TIMER < y: WEND
LINE (100, 80)-(220, 130), 67, BF
DRAW "bm151,110"
DRAW gla$(8)
DRAW "bm161,110"
DRAW nem$(nem, 4)
END IF
END SUB

SUB scribo (x, y, n$)
FOR a = 1 TO 5
IF a = 5 THEN DRAW "c8"
IF a = 1 THEN DRAW "c26"
IF a = 3 OR a = 2 THEN DRAW "c28"
IF a = 4 THEN DRAW "c27"
FOR e = 1 TO LEN(n$)
xx = x
yy = y
IF a = 1 THEN xx = xx + 1
IF a = 2 THEN xx = xx - 1
IF a = 3 THEN yy = yy + 1
IF a = 4 THEN yy = yy - 1
e$ = "bm" + STR$(xx + e * 8) + "," + STR$(yy)
DRAW e$
a$ = LCASE$(MID$(n$, e, 1))
IF a$ = "a" THEN DRAW "m+3,-9 m+3,+9 bm-2,-3 l3"
IF a$ = "r" OR a$ = "p" OR a$ = "b" THEN DRAW "u9 r4 f1 d2 g1 nl4  "
IF a$ = "b" THEN DRAW "bd1br1d3bd1bl1l3"
IF a$ = "q" OR a$ = "o" OR a$ = "c" OR a$ = "g" THEN DRAW "bu1nf1u7e1r3f1bd7g1l3"
IF a$ = "d" THEN DRAW "u9r4f1d7g1l4"
IF a$ = "e" THEN DRAW "nr5u5nr4u4r5"
IF a$ = "f" THEN DRAW "u5nr4u4r5"
IF a$ = "g" THEN DRAW "r3e1u2l1"
IF a$ = "h" THEN DRAW "u9d4r5u4d9"
IF a$ = "i" THEN DRAW "br2r2l1u9r1l2 "
IF a$ = "l" THEN DRAW "nu9r5"
IF a$ = "m" THEN DRAW "u9f2d1e3d9"
IF a$ = "n" THEN DRAW "u9 m+5,+9 u9"
IF a$ = "o" OR a$ = "q" THEN DRAW "nh1r3e1nu7"
IF a$ = "q" THEN DRAW "bd1bl1d1u2h1"
IF a$ = "r" THEN DRAW "l2 m+3,+5"
IF a$ = "s" THEN DRAW "bu1f1r3e1u3h1l3h1u2e1r3f1"
IF a$ = "t" THEN DRAW "br3u9 nr3nl3"
IF a$ = "v" OR a$ = "u" THEN DRAW "bu9 d1 m+3,+8m+3,-9"
IF a$ = "y" THEN DRAW "br3u4 nm+3,-5m-3,-5 "
IF a$ = "z" THEN DRAW "nr5m+5,-9l5"
IF a$ = "x" THEN DRAW "m+5,-9bd9m-5,-9"
IF a$ = "-" THEN DRAW "bu5 r5"
IF a$ = "?" THEN DRAW "br3 u1 bu2 u1e2u1h2l2g1"
IF a$ = "!" THEN DRAW "br3 u1 bu2 u6"
IF a$ = "," THEN DRAW "br2g1"
IF a$ = ":" THEN DRAW "br3u1 bu3 u2"
NEXT e
NEXT a
END SUB