home *** CD-ROM | disk | FTP | other *** search
/ Harvey Norman Games / HN.iso / arcade / AK / DUNGEON6.ZIP / SOURCE.ZIP / SUBPROG.BAS < prev   
BASIC Source File  |  1993-01-23  |  76KB  |  3,280 lines
  1. Rem The Dungeon 6.0 Subroutines..
  2.  
  3. DefInt A-Z
  4.  
  5. Type regtype
  6.  ax    as Integer
  7.  bx    as Integer
  8.  cx    as Integer
  9.  dx    as Integer
  10.  bp    as Integer
  11.  si    as Integer
  12.  di    as Integer
  13.  flags as Integer
  14. End Type
  15.  
  16. Type regtypex
  17.  ax as integer
  18.  bx as integer
  19.  cx as integer
  20.  dx as integer
  21.  bp as integer
  22.  si as integer
  23.  di as integer
  24.  flags as integer
  25.  ds as integer
  26.  es as integer
  27. End Type
  28.  
  29. Common Shared Esc$,Asc1$,Asc2$,Asc3$,Asc4$,Asc5$,Asc6$
  30. Common Shared inregs as regtype, outregs as regtype
  31. Common Shared inregsx as regtypex, outregsx as regtypex
  32.  
  33. Sub Key.Pressed
  34.  out$=Esc$+"[25;34H"
  35.  Call Scrn(out$)
  36.  out$="Press a key.."
  37.  Call Scrn(out$)
  38.  i$=Inkey$
  39.  While i$=""
  40.    i$=Inkey$
  41.  Wend
  42. End Sub
  43.  
  44. Sub Help.Screen1
  45.  out$=Esc$+"[10;15H"
  46.  Call Scrn(out$)
  47.  out$="The HEAL spell restores HIT POINTS to your player." Call Scrn(out$)
  48.  out$=Esc$+"[11;15H"
  49.  Call Scrn(out$)
  50.  out$="The amount restored is equal to your CONSTITUTION." Call Scrn(out$) Call Key.PressedEnd Sub
  51.  
  52. Sub Help.Screen2
  53.  out$=Esc$+"[10;15H"
  54.  Call Scrn(out$)
  55.  out$="The PROTECTION FROM EVIL spell repells a monster's" Call Scrn(out$)
  56.  out$=Esc$+"[11;15H"
  57.  Call Scrn(out$)
  58.  out$="attacks for one round. The number of hits repelled" Call Scrn(out$)
  59.  out$=Esc$+"[12;15H"
  60.  Call Scrn(out$)
  61.  out$="is equal to your DEXTERITY." Call Scrn(out$) Call Key.PressedEnd Sub
  62.  
  63. Sub Help.Screen3
  64.  out$=Esc$+"[10;15H"
  65.  Call Scrn(out$)
  66.  out$="The MAGIC MISSILE spell causes a dartlike object to" Call Scrn(out$)
  67.  out$=Esc$+"[11;15H"
  68.  Call Scrn(out$)
  69.  out$="fly from your player's hand.  This missile hits the" Call Scrn(out$)
  70.  out$=Esc$+"[12;15H"
  71.  Call Scrn(out$)
  72.  out$="monster with exact accuracy every time. The amount" Call Scrn(out$)
  73.  out$=Esc$+"[13;15H"
  74.  Call Scrn(out$)
  75.  out$="of damage normally done is doubled." Call Scrn(out$) Call Key.PressedEnd Sub
  76.  
  77. Sub Help.Screen4
  78.  out$=Esc$+"[10;15H"
  79.  Call Scrn(out$)
  80.  out$="The SHIELD spell generates an invisible force field" Call Scrn(out$)
  81.  out$=Esc$+"[11;15H"
  82.  Call Scrn(out$)
  83.  out$="between your player and the monster.  Your player's" Call Scrn(out$)
  84.  out$=Esc$+"[12;15H"
  85.  Call Scrn(out$)
  86.  out$="total armor plus is increased  by one armor factor." Call Scrn(out$) Call Key.PressedEnd Sub
  87.  
  88. Sub Help.Screen5
  89.  out$=Esc$+"[10;15H"
  90.  Call Scrn(out$)
  91.  out$="The STRENGTH spell doubles your player's strength" Call Scrn(out$)
  92.  out$=Esc$+"[11;15H"
  93.  Call Scrn(out$)
  94.  out$="for the duration of one round." Call Scrn(out$) Call Key.PressedEnd Sub
  95.  
  96. Sub Help.Screen6
  97.  out$=Esc$+"[10;15H"
  98.  Call Scrn(out$)
  99.  out$="The SLEEP spell binds the monster in a helpless" Call Scrn(out$)
  100.  out$=Esc$+"[11;15H"
  101.  Call Scrn(out$)
  102.  out$="state for the duration of one round." Call Scrn(out$) Call Key.PressedEnd Sub
  103.  
  104. Sub Help.Screen7
  105.  out$=Esc$+"[10;15H"
  106.  Call Scrn(out$)
  107.  out$="The LOCATE spell  reveals nearby traps and pits." Call Scrn(out$)
  108.  out$=Esc$+"[11;15H"
  109.  Call Scrn(out$)
  110.  out$="This spell works only for the immediate vicinity" Call Scrn(out$)
  111.  out$=Esc$+"[12;15H"
  112.  Call Scrn(out$)
  113.  out$="and has no duration." Call Scrn(out$) Call Key.PressedEnd Sub
  114.  
  115. Sub Help.Screen8
  116.  out$=Esc$+"[10;15H"
  117.  Call Scrn(out$)
  118.  out$="The PYROTECHNICS spell causes a bolt of fire to fly" Call Scrn(out$)
  119.  out$=Esc$+"[11;15H"
  120.  Call Scrn(out$)
  121.  out$="from your player's hands. The amount of damage done" Call Scrn(out$)
  122.  out$=Esc$+"[12;15H"
  123.  Call Scrn(out$)
  124.  out$="normally is doubled." Call Scrn(out$) Call Key.PressedEnd Sub
  125.  
  126. Sub Help.Screen9
  127.  out$=Esc$+"[10;15H"
  128.  Call Scrn(out$)
  129.  out$="The FIRESTORM spell actuates a small blast of flames" Call Scrn(out$)
  130.  out$=Esc$+"[11;15H"
  131.  Call Scrn(out$)
  132.  out$="to engulf the monster. The amount of damage normally" Call Scrn(out$)
  133.  out$=Esc$+"[12;15H"
  134.  Call Scrn(out$)
  135.  out$="done is doubled." Call Scrn(out$) Call Key.PressedEnd Sub
  136.  
  137. Sub Help.Screen10
  138.  out$=Esc$+"[10;15H"
  139.  Call Scrn(out$)
  140.  out$="The TRANSMUTE spell restructures the surrounding air" Call Scrn(out$)
  141.  out$=Esc$+"[11;15H"
  142.  Call Scrn(out$)
  143.  out$="into gold. This gold can then be picked up." Call Scrn(out$) Call Key.PressedEnd Sub
  144.  
  145. Sub Help.Screen11
  146.  out$=Esc$+"[10;15H"
  147.  Call Scrn(out$)
  148.  out$="The RESTORATION spell restores HIT POINTS to your" Call Scrn(out$)
  149.  out$=Esc$+"[11;15H"
  150.  Call Scrn(out$)
  151.  out$="player.  The  amount  restored is equal to double" Call Scrn(out$)
  152.  out$=Esc$+"[12;15H"
  153.  Call Scrn(out$)
  154.  out$="your CONSTITUTION." Call Scrn(out$) Call Key.PressedEnd Sub
  155.  
  156. Sub Help.Screen12
  157.  out$=Esc$+"[10;15H"
  158.  Call Scrn(out$)
  159.  out$="The SCARE spell will repell a monster's attacks for" Call Scrn(out$)
  160.  out$=Esc$+"[11;15H"
  161.  Call Scrn(out$)
  162.  out$="two rounds. The amount of hits repelled is equal to" Call Scrn(out$)
  163.  out$=Esc$+"[12;15H"
  164.  Call Scrn(out$)
  165.  out$="your DEXTERITY." Call Scrn(out$) Call Key.PressedEnd Sub
  166.  
  167. Sub Help.Screen13
  168.  out$=Esc$+"[10;15H"
  169.  Call Scrn(out$)
  170.  out$="The FIREBALL spell causes a fireball to fly from your" Call Scrn(out$)
  171.  out$=Esc$+"[11;15H"
  172.  Call Scrn(out$)
  173.  out$="player's hands. The amount of damage normally done to" Call Scrn(out$)
  174.  out$=Esc$+"[12;15H"
  175.  Call Scrn(out$)
  176.  out$="the monster is tripled." Call Scrn(out$) Call Key.PressedEnd Sub
  177.  
  178. Sub Help.Screen14
  179.  out$=Esc$+"[10;15H"
  180.  Call Scrn(out$)
  181.  out$="The OBSCUREMENT spell creates an opaque force field" Call Scrn(out$)
  182.  out$=Esc$+"[11;15H"
  183.  Call Scrn(out$)
  184.  out$="between your player and the monster.  Your player's" Call Scrn(out$)
  185.  out$=Esc$+"[12;15H"
  186.  Call Scrn(out$)
  187.  out$="total armor plus is increased by two armor factors." Call Scrn(out$) Call Key.PressedEnd Sub
  188.  
  189. Sub Help.Screen15
  190.  out$=Esc$+"[10;15H"
  191.  Call Scrn(out$)
  192.  out$="The POWER SHEILD spell doubles your player's strength" Call Scrn(out$)
  193.  out$=Esc$+"[11;15H"
  194.  Call Scrn(out$)
  195.  out$="for the duration of two rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  196.  
  197. Sub Help.Screen16
  198.  out$=Esc$+"[10;15H"
  199.  Call Scrn(out$)
  200.  out$="The WALL OF WILL spell renders the monster helpless" Call Scrn(out$)
  201.  out$=Esc$+"[11;15H"
  202.  Call Scrn(out$)
  203.  out$="for the duration of two rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  204.  
  205. Sub Help.Screen17
  206.  out$=Esc$+"[10;15H"
  207.  Call Scrn(out$)
  208.  out$="The LIGHT spell illuminates an extended area around" Call Scrn(out$)
  209.  out$=Esc$+"[11;15H"
  210.  Call Scrn(out$)
  211.  out$="your player. This spell has no duration." Call Scrn(out$) Call Key.PressedEnd Sub
  212.  
  213. Sub Help.Screen18
  214.  out$=Esc$+"[10;15H"
  215.  Call Scrn(out$)
  216.  out$="The LEVITATE spell causes your player to float above" Call Scrn(out$)
  217.  out$=Esc$+"[11;15H"
  218.  Call Scrn(out$)
  219.  out$="the Dungeon walls uncontrollably for the duration of" Call Scrn(out$)
  220.  out$=Esc$+"[12;15H"
  221.  Call Scrn(out$)
  222.  out$="two to five rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  223.  
  224. Sub Help.Screen19
  225.  out$=Esc$+"[10;15H"
  226.  Call Scrn(out$)
  227.  out$="The MONSTER SUMMON spell calls up one to four" Call Scrn(out$)
  228.  out$=Esc$+"[11;15H"
  229.  Call Scrn(out$)
  230.  out$="monsters of the current monster level." Call Scrn(out$) Call Key.PressedEnd Sub
  231.  
  232. Sub Help.Screen20
  233.  out$=Esc$+"[10;15H"
  234.  Call Scrn(out$)
  235.  out$="The FINGER OF DEATH spell instantly destroys the" Call Scrn(out$)
  236.  out$=Esc$+"[11;15H"
  237.  Call Scrn(out$)
  238.  out$="monster.  The monster's treasure remains intact." Call Scrn(out$) Call Key.PressedEnd Sub
  239.  
  240. Sub Help.Screen21
  241.  out$=Esc$+"[10;15H"
  242.  Call Scrn(out$)
  243.  out$="The REGENERATE spell restores HIT POINTS to your" Call Scrn(out$)
  244.  out$=Esc$+"[11;15H"
  245.  Call Scrn(out$)
  246.  out$="player.  The amount  restored is equal to triple" Call Scrn(out$)
  247.  out$=Esc$+"[12;15H"
  248.  Call Scrn(out$)
  249.  out$="your CONSTITUTION." Call Scrn(out$) Call Key.PressedEnd Sub
  250.  
  251. Sub Help.Screen22
  252.  out$=Esc$+"[10;15H"
  253.  Call Scrn(out$)
  254.  out$="The FORGET spell will  repell a monster's attacks for" Call Scrn(out$)
  255.  out$=Esc$+"[11;15H"
  256.  Call Scrn(out$)
  257.  out$="three rounds. The amount of hits repelled is equal to" Call Scrn(out$)
  258.  out$=Esc$+"[12;15H"
  259.  Call Scrn(out$)
  260.  out$="your DEXTERITY." Call Scrn(out$) Call Key.PressedEnd Sub
  261.  
  262. Sub Help.Screen23
  263.  out$=Esc$+"[10;15H"
  264.  Call Scrn(out$)
  265.  out$="The LIGHTNING BOLT  spell causes bolts of electricity" Call Scrn(out$)
  266.  out$=Esc$+"[11;15H"
  267.  Call Scrn(out$)
  268.  out$="to fly from your player's hands. The amount of damage" Call Scrn(out$)
  269.  out$=Esc$+"[12;15H"
  270.  Call Scrn(out$)
  271.  out$="normally done to the  monster is multiplied  by four." Call Scrn(out$) Call Key.PressedEnd Sub
  272.  
  273. Sub Help.Screen24
  274.  out$=Esc$+"[10;15H"
  275.  Call Scrn(out$)
  276.  out$="The PHANTASMAL FORCE spell creates a solid wall between" Call Scrn(out$)
  277.  out$=Esc$+"[11;15H"
  278.  Call Scrn(out$)
  279.  out$="your player and the monster.  Your player's total armor" Call Scrn(out$)
  280.  out$=Esc$+"[12;15H"
  281.  Call Scrn(out$)
  282.  out$="plus is increased by three armor factors." Call Scrn(out$) Call Key.PressedEnd Sub
  283.  
  284. Sub Help.Screen25
  285.  out$=Esc$+"[10;15H"
  286.  Call Scrn(out$)
  287.  out$="The WALL OF FORCE spell doubles your player's strength." Call Scrn(out$)
  288.  out$=Esc$+"[11;15H"
  289.  Call Scrn(out$)
  290.  out$="This spell has a duration of three rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  291.  
  292. Sub Help.Screen26
  293.  out$=Esc$+"[10;15H"
  294.  Call Scrn(out$)
  295.  out$="The CHARM MONSTER spell renders the monster helpless." Call Scrn(out$)
  296.  out$=Esc$+"[11;15H"
  297.  Call Scrn(out$)
  298.  out$="This spell has a duration of three rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  299.  
  300. Sub Help.Screen27
  301.  out$=Esc$+"[10;15H"
  302.  Call Scrn(out$)
  303.  out$="The CONTINUAL LIGHT spell illuminates an extended area" Call Scrn(out$)
  304.  out$=Esc$+"[11;15H"
  305.  Call Scrn(out$)
  306.  out$="around your player. This spell has a duration of eight" Call Scrn(out$)
  307.  out$=Esc$+"[12;15H"
  308.  Call Scrn(out$)
  309.  out$="rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  310.  
  311. Sub Help.Screen28
  312.  out$=Esc$+"[10;17H"
  313.  Call Scrn(out$)
  314.  out$="The PASSWALL spell allows your player to travel" Call Scrn(out$)
  315.  out$=Esc$+"[11;17H"
  316.  Call Scrn(out$)
  317.  out$="through the Dungeon walls. This spell will stay" Call Scrn(out$)
  318.  out$=Esc$+"[12;17H"
  319.  Call Scrn(out$)
  320.  out$="in effect while in a wall. It has a duration of" Call Scrn(out$)
  321.  out$=Esc$+"[13;17H"
  322.  Call Scrn(out$)
  323.  out$="two to four rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  324.  
  325. Sub Help.Screen29
  326.  out$=Esc$+"[10;15H"
  327.  Call Scrn(out$)
  328.  out$="The DEMON SUMMON spell calls up one to three Demons" Call Scrn(out$)
  329.  out$=Esc$+"[11;15H"
  330.  Call Scrn(out$)
  331.  out$="of level twenty to fifty. Demons have been found to" Call Scrn(out$)
  332.  out$=Esc$+"[12;15H"
  333.  Call Scrn(out$)
  334.  out$="have vast amounts of treasure." Call Scrn(out$) Call Key.PressedEnd Sub
  335.  
  336. Sub Help.Screen30
  337.  out$=Esc$+"[10;15H"
  338.  Call Scrn(out$)
  339.  out$="The DOOMKILL spell  instantly demolishes all monsters" Call Scrn(out$)
  340.  out$=Esc$+"[11;15H"
  341.  Call Scrn(out$)
  342.  out$="surrounding you. The monster's treasures will remain." Call Scrn(out$)
  343.  out$=Esc$+"[12;15H"
  344.  Call Scrn(out$)
  345.  out$="This spell has no duration." Call Scrn(out$) Call Key.PressedEnd Sub
  346.  
  347. Sub Help.Screen31
  348.  out$=Esc$+"[10;15H"
  349.  Call Scrn(out$)
  350.  out$="The RESURRECTION spell restores HIT POINTS to your" Call Scrn(out$)
  351.  out$=Esc$+"[11;15H"
  352.  Call Scrn(out$)
  353.  out$="player. The amount restored is equal to four times" Call Scrn(out$)
  354.  out$=Esc$+"[12;15H"
  355.  Call Scrn(out$)
  356.  out$="your CONSTITUTION." Call Scrn(out$) Call Key.PressedEnd Sub
  357.  
  358. Sub Help.Screen32
  359.  out$=Esc$+"[10;15H"
  360.  Call Scrn(out$)
  361.  out$="The FEAR spell will repell a monster's attacks for" Call Scrn(out$)
  362.  out$=Esc$+"[11;15H"
  363.  Call Scrn(out$)
  364.  out$="four rounds.  The amount of hits repelled is equal" Call Scrn(out$)
  365.  out$=Esc$+"[12;15H"
  366.  Call Scrn(out$)
  367.  out$="to your DEXTERITY." Call Scrn(out$) Call Key.PressedEnd Sub
  368.  
  369. Sub Help.Screen33
  370.  out$=Esc$+"[10;15H"
  371.  Call Scrn(out$)
  372.  out$="The DISINTEGRATE spell causes energy to be drained" Call Scrn(out$)
  373.  out$=Esc$+"[11;15H"
  374.  Call Scrn(out$)
  375.  out$="from the nearest attacking monster.  The amount of" Call Scrn(out$)
  376.  out$=Esc$+"[12;15H"
  377.  Call Scrn(out$)
  378.  out$="damaged done normally is multiplied by five." Call Scrn(out$) Call Key.PressedEnd Sub
  379.  
  380. Sub Help.Screen34
  381.  out$=Esc$+"[10;15H"
  382.  Call Scrn(out$)
  383.  out$="The BLADE BARRIER spell  creates a rotating  wall of" Call Scrn(out$)
  384.  out$=Esc$+"[11;15H"
  385.  Call Scrn(out$)
  386.  out$="swords  between your  player and  the monster.  Your" Call Scrn(out$)
  387.  out$=Esc$+"[12;15H"
  388.  Call Scrn(out$)
  389.  out$="player's total armor plus is increased by four armor" Call Scrn(out$)
  390.  out$=Esc$+"[13;15H"
  391.  Call Scrn(out$)
  392.  out$="factors." Call Scrn(out$) Call Key.PressedEnd Sub
  393.  
  394. Sub Help.Screen35
  395.  out$=Esc$+"[10;15H"
  396.  Call Scrn(out$)
  397.  out$="The ENCHANTED WEAPON spell doubles your weapon plus." Call Scrn(out$)
  398.  out$=Esc$+"[11;15H"
  399.  Call Scrn(out$)
  400.  out$="This spell has a duration of three rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  401.  
  402. Sub Help.Screen36
  403.  out$=Esc$+"[10;15H"
  404.  Call Scrn(out$)
  405.  out$="The HOLD MONSTER spell renders the monster helpless." Call Scrn(out$)
  406.  out$=Esc$+"[11;15H"
  407.  Call Scrn(out$)
  408.  out$="This spell lasts up to four rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  409.  
  410. Sub Help.Screen37
  411.  out$=Esc$+"[10;15H"
  412.  Call Scrn(out$)
  413.  out$="The TELEPORT spell  causes your player to reappear in" Call Scrn(out$)
  414.  out$=Esc$+"[11;15H"
  415.  Call Scrn(out$)
  416.  out$="another area of the Dungeon level. Your player has no" Call Scrn(out$)
  417.  out$=Esc$+"[12;15H"
  418.  Call Scrn(out$)
  419.  out$="control over teleportation." Call Scrn(out$) Call Key.PressedEnd Sub
  420.  
  421. Sub Help.Screen38
  422.  out$=Esc$+"[10;15H"
  423.  Call Scrn(out$)
  424.  out$="The POLYMORPH spell instantly devastates all monsters" Call Scrn(out$)
  425.  out$=Esc$+"[11;15H"
  426.  Call Scrn(out$)
  427.  out$="within three squares of your player. This spell lasts" Call Scrn(out$)
  428.  out$=Esc$+"[12;15H"
  429.  Call Scrn(out$)
  430.  out$="for one round." Call Scrn(out$) Call Key.PressedEnd Sub
  431.  
  432. Sub Help.Screen39
  433.  out$=Esc$+"[10;15H"
  434.  Call Scrn(out$)
  435.  out$="The TIME STOP spell  nullifies all monster's  attacks" Call Scrn(out$)
  436.  out$=Esc$+"[11;15H"
  437.  Call Scrn(out$)
  438.  out$="around your player. This spell lasts for five rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  439.  
  440. Sub Help.Screen40
  441.  out$=Esc$+"[10;15H"
  442.  Call Scrn(out$)
  443.  out$="The GENOCIDE spell annihilates  all monsters within" Call Scrn(out$)
  444.  out$=Esc$+"[11;15H"
  445.  Call Scrn(out$)
  446.  out$="three squares of your player. This spell's duration" Call Scrn(out$)
  447.  out$=Esc$+"[12;15H"
  448.  Call Scrn(out$)
  449.  out$="lasts for three rounds." Call Scrn(out$) Call Key.PressedEnd Sub
  450.  
  451. Sub Help.Screen41
  452.  out$=Esc$+"[10;15H"
  453.  Call Scrn(out$)
  454.  out$="The INFO key displays current monster hits and experience," Call Scrn(out$)
  455.  out$=Esc$+"[11;15H"
  456.  Call Scrn(out$)
  457.  out$="average, maximum, and minimum  statistics for  monsters at" Call Scrn(out$)
  458.  out$=Esc$+"[12;15H"
  459.  Call Scrn(out$)
  460.  out$="the current Dungeon level, attack formulas, and your total" Call Scrn(out$)
  461.  out$=Esc$+"[13;15H"
  462.  Call Scrn(out$)
  463.  out$="armor and weapon plus." Call Scrn(out$) Call Key.PressedEnd Sub
  464.  
  465. Sub Help.Screen42
  466.  out$=Esc$+"[10;15H"
  467.  Call Scrn(out$)
  468.  out$="The FIGHT key causes your player to attack a monster." Call Scrn(out$)
  469.  out$=Esc$+"[11;15H"
  470.  Call Scrn(out$)
  471.  out$="While fighting monsters,  many factors are considered" Call Scrn(out$)
  472.  out$=Esc$+"[12;15H"
  473.  Call Scrn(out$)
  474.  out$="such as your armor plus, your weapon plus,  and other" Call Scrn(out$)
  475.  out$=Esc$+"[13;15H"
  476.  Call Scrn(out$)
  477.  out$="conditions created by casted spells." Call Scrn(out$) Call Key.PressedEnd Sub
  478.  
  479. Sub Help.Screen43
  480.  out$=Esc$+"[10;15H"
  481.  Call Scrn(out$)
  482.  out$="This key moves your player to the south one Dungeon" Call Scrn(out$)
  483.  out$=Esc$+"[11;15H"
  484.  Call Scrn(out$)
  485.  out$="square. Occupied squares next to your player create" Call Scrn(out$)
  486.  out$=Esc$+"[12;15H"
  487.  Call Scrn(out$)
  488.  out$="conditions such as opening chests, retreiving gold," Call Scrn(out$)
  489.  out$=Esc$+"[13;15H"
  490.  Call Scrn(out$)
  491.  out$="and engaging monsters in combat." Call Scrn(out$) Call Key.PressedEnd Sub
  492.  
  493. Sub Help.Screen44
  494.  out$=Esc$+"[10;15H"
  495.  Call Scrn(out$)
  496.  out$="The CAST key causes your player to cast a spell chant." Call Scrn(out$)
  497.  out$=Esc$+"[11;15H"
  498.  Call Scrn(out$)
  499.  out$="In order to cast spells chants, they must be collected" Call Scrn(out$)
  500.  out$=Esc$+"[12;15H"
  501.  Call Scrn(out$)
  502.  out$="and memorized during the Adventure." Call Scrn(out$) Call Key.PressedEnd Sub
  503.  
  504. Sub Help.Screen45
  505.  out$=Esc$+"[10;15H"
  506.  Call Scrn(out$)
  507.  out$="This key moves your player to the west one Dungeon" Call Scrn(out$)
  508.  out$=Esc$+"[11;15H"
  509.  Call Scrn(out$)
  510.  out$="square. Moving on a square creates certain unknown" Call Scrn(out$)
  511.  out$=Esc$+"[12;15H"
  512.  Call Scrn(out$)
  513.  out$="conditions such as triggering a trap, falling in a" Call Scrn(out$)
  514.  out$=Esc$+"[13;15H"
  515.  Call Scrn(out$)
  516.  out$="pit, and discovering scrolls." Call Scrn(out$) Call Key.PressedEnd Sub
  517.  
  518. Sub Help.Screen46
  519.  out$=Esc$+"[10;15H"
  520.  Call Scrn(out$)
  521.  out$="The ENTER key on the numeric keypad is used as an" Call Scrn(out$)
  522.  out$=Esc$+"[11;15H"
  523.  Call Scrn(out$)
  524.  out$="'acceptance' key for various prompts such opening" Call Scrn(out$)
  525.  out$=Esc$+"[12;15H"
  526.  Call Scrn(out$)
  527.  out$="and storing inventory from chests, and picking up" Call Scrn(out$)
  528.  out$=Esc$+"[13;15H"
  529.  Call Scrn(out$)
  530.  out$="treasure." Call Scrn(out$) Call Key.PressedEnd Sub
  531.  
  532. Sub Help.Screen47
  533.  out$=Esc$+"[10;15H"
  534.  Call Scrn(out$)
  535.  out$="This key moves your player to the east one Dungeon" Call Scrn(out$)
  536.  out$=Esc$+"[11;15H"
  537.  Call Scrn(out$)
  538.  out$="square. Your player can move to other parts of the" Call Scrn(out$)
  539.  out$=Esc$+"[12;15H"
  540.  Call Scrn(out$)
  541.  out$="the Dungeon level with certain spells. Among these" Call Scrn(out$)
  542.  out$=Esc$+"[13;15H"
  543.  Call Scrn(out$)
  544.  out$="spells are levitate, passwall, teleport." Call Scrn(out$) Call Key.PressedEnd Sub
  545.  
  546. Sub Help.Screen48
  547.  out$=Esc$+"[10;17H"
  548.  Call Scrn(out$)
  549.  out$="The EVADE key causes your player to dodge the" Call Scrn(out$)
  550.  out$=Esc$+"[11;17H"
  551.  Call Scrn(out$)
  552.  out$="current monster (if your player is in combat)" Call Scrn(out$)
  553.  out$=Esc$+"[12;17H"
  554.  Call Scrn(out$)
  555.  out$="and move to an adjacent square." Call Scrn(out$) Call Key.PressedEnd Sub
  556.  
  557. Sub Help.Screen49
  558.  out$=Esc$+"[10;15H"
  559.  Call Scrn(out$)
  560.  out$="This key moves your player to the north one Dungeon" Call Scrn(out$)
  561.  out$=Esc$+"[11;15H"
  562.  Call Scrn(out$)
  563.  out$="square.  To change Dungeon levels, move your player" Call Scrn(out$)
  564.  out$=Esc$+"[12;15H"
  565.  Call Scrn(out$)
  566.  out$="through the upper and lower exits." Call Scrn(out$) Call Key.PressedEnd Sub
  567.  
  568. Sub Help.Screen50
  569.  out$=Esc$+"[10;15H"
  570.  Call Scrn(out$)
  571.  out$="The IGNORE key responds as a 'refuse' key for some" Call Scrn(out$)
  572.  out$=Esc$+"[11;15H"
  573.  Call Scrn(out$)
  574.  out$="prompts. These prompts include opening and storing" Call Scrn(out$)
  575.  out$=Esc$+"[12;15H"
  576.  Call Scrn(out$)
  577.  out$="inventory from chests and picking up treasure." Call Scrn(out$) Call Key.PressedEnd Sub
  578.  
  579. Sub Help.Screen51
  580.  out$=Esc$+"[8;16H"
  581.  Call Scrn(out$)
  582.  out$="The STATS key displays your player character's" Call Scrn(out$)
  583.  out$=Esc$+"[9;16H"
  584.  Call Scrn(out$)
  585.  out$="attributes, armor pluses, and weapon plus. The" Call Scrn(out$)
  586.  out$=Esc$+"[10;16H"
  587.  Call Scrn(out$)
  588.  out$="stats and their  abbreviations are as follows:" Call Scrn(out$)
  589.  out$=Esc$+"[12;11H"
  590.  Call Scrn(out$)
  591.  out$="STR - Strength       INT - Intelligence   WIS - Wisdom" Call Scrn(out$)
  592.  out$=Esc$+"[13;11H"
  593.  Call Scrn(out$)
  594.  out$="CON - Constitution   DEX - Dexterity      CHA - Charisma" Call Scrn(out$)
  595.  out$=Esc$+"[14;11H"
  596.  Call Scrn(out$)
  597.  out$="WE  - Weapon         AR  - Armor          SH  - Shield" Call Scrn(out$)
  598.  out$=Esc$+"[15;11H"
  599.  Call Scrn(out$)
  600.  out$="CL  - Cloak          HE  - Helmet         BO  - Boots" Call Scrn(out$) Call Key.PressedEnd Sub
  601.  
  602. Sub Help.Screen52
  603.  out$=Esc$+"[10;13H"
  604.  Call Scrn(out$)
  605.  out$="The CHANTS key displays all the chants your player has" Call Scrn(out$)
  606.  out$=Esc$+"[11;13H"
  607.  Call Scrn(out$)
  608.  out$="remembered. Your player can read spell chants found on" Call Scrn(out$)
  609.  out$=Esc$+"[12;13H"
  610.  Call Scrn(out$)
  611.  out$="scrolls hidden in the Dungeon." Call Scrn(out$) Call Key.PressedEnd Sub
  612.  
  613. Sub Help.Screen53
  614.  out$=Esc$+"[10;18H"
  615.  Call Scrn(out$)
  616.  out$="The X is your player.  Move your player with the" Call Scrn(out$)
  617.  out$=Esc$+"[11;18H"
  618.  Call Scrn(out$)
  619.  out$="numeric keypad cursor keys. You will be prompted" Call Scrn(out$)
  620.  out$=Esc$+"[12;18H"
  621.  Call Scrn(out$)
  622.  out$="for  an action when you move your player next to" Call Scrn(out$)
  623.  out$=Esc$+"[13;18H"
  624.  Call Scrn(out$)
  625.  out$="a symbol. For example, you move your player next" Call Scrn(out$)
  626.  out$=Esc$+"[14;18H"
  627.  Call Scrn(out$)
  628.  out$="to a scroll and are asked to take or  ignore it." Call Scrn(out$) Call Key.PressedEnd Sub
  629.  
  630. Sub Help.Screen54
  631.  out$=Esc$+"[10;13H"
  632.  Call Scrn(out$)
  633.  out$="The # symbol is a monster. Monsters usually carry some" Call Scrn(out$)
  634.  out$=Esc$+"[11;13H"
  635.  Call Scrn(out$)
  636.  out$="treasure, such as gold, gems, or chests. Monsters have" Call Scrn(out$)
  637.  out$=Esc$+"[12;13H"
  638.  Call Scrn(out$)
  639.  out$="statistics like your player, including experience, hit" Call Scrn(out$)
  640.  out$=Esc$+"[13;13H"
  641.  Call Scrn(out$)
  642.  out$="points, and strength." Call Scrn(out$) Call Key.PressedEnd Sub
  643.  
  644. Sub Help.Screen55
  645.  out$=Esc$+"[10;17H"
  646.  Call Scrn(out$)
  647.  out$="The ~ symbol is a scroll. Your player can read and" Call Scrn(out$)
  648.  out$=Esc$+"[11;17H"
  649.  Call Scrn(out$)
  650.  out$="memorize scrolls for later use. In order to cast a" Call Scrn(out$)
  651.  out$=Esc$+"[12;17H"
  652.  Call Scrn(out$)
  653.  out$="spell chant learned from a scroll use the '-' key." Call Scrn(out$) Call Key.PressedEnd Sub
  654.  
  655. Sub Help.Screen56
  656.  out$=Esc$+"[10;12H"
  657.  Call Scrn(out$)
  658.  out$="The $ symbol is gold.  Taking gold increases your hoard." Call Scrn(out$)
  659.  out$=Esc$+"[11;12H"
  660.  Call Scrn(out$)
  661.  out$="Gold is needed for reaching the next level of expertise." Call Scrn(out$) Call Key.PressedEnd Sub
  662.  
  663. Sub Help.Screen57
  664.  out$=Esc$+"[10;14H"
  665.  Call Scrn(out$)
  666.  out$="The "+Chr$(254)+" symbol is a chest. Chests can be opened, and usually" Call Scrn(out$)
  667.  out$=Esc$+"[11;14H"
  668.  Call Scrn(out$)
  669.  out$="contain  armor  and  weapons.  It is said there was once a" Call Scrn(out$)
  670.  out$=Esc$+"[12;14H"
  671.  Call Scrn(out$)
  672.  out$="Globe of extreme power locked in a chest. This Globe could" Call Scrn(out$)
  673.  out$=Esc$+"[13;14H"
  674.  Call Scrn(out$)
  675.  out$="unleash the immense power of the  past and  allow the user" Call Scrn(out$)
  676.  out$=Esc$+"[14;14H"
  677.  Call Scrn(out$)
  678.  out$="to control whatever he desired." Call Scrn(out$) Call Key.PressedEnd Sub
  679.  
  680. Sub Help.Screen58
  681.  out$=Esc$+"[10;15H"
  682.  Call Scrn(out$)
  683.  out$="The ^ symbol represents a trap. Traps are not visible" Call Scrn(out$)
  684.  out$=Esc$+"[11;15H"
  685.  Call Scrn(out$)
  686.  out$="until  triggered or  located (with the locate spell)." Call Scrn(out$)
  687.  out$=Esc$+"[12;15H"
  688.  Call Scrn(out$)
  689.  out$="Traps in  higher Dungeon levels  cause more damage to" Call Scrn(out$)
  690.  out$=Esc$+"[13;15H"
  691.  Call Scrn(out$)
  692.  out$="your player. Traps block Dungeon passages." Call Scrn(out$) Call Key.PressedEnd Sub
  693.  
  694. Sub Help.Screen59
  695.  out$=Esc$+"[10;15H"
  696.  Call Scrn(out$)
  697.  out$="The o symbol is a pit. Pits become visible when your" Call Scrn(out$)
  698.  out$=Esc$+"[11;15H"
  699.  Call Scrn(out$)
  700.  out$="player has fallen in.  Pits in higher Dungeon levels" Call Scrn(out$)
  701.  out$=Esc$+"[12;15H"
  702.  Call Scrn(out$)
  703.  out$="cause more damage to your player.  Some spells allow" Call Scrn(out$)
  704.  out$=Esc$+"[13;15H"
  705.  Call Scrn(out$)
  706.  out$="your player  to move around pits,  such as levitate," Call Scrn(out$)
  707.  out$=Esc$+"[14;15H"
  708.  Call Scrn(out$)
  709.  out$="passwall, and teleport." Call Scrn(out$) Call Key.PressedEnd Sub
  710.  
  711. Sub Help.Screen60
  712.  out$=Esc$+"[10;15H"
  713.  Call Scrn(out$)
  714.  out$="The * symbol are gems. When you land on gems then your" Call Scrn(out$)
  715.  out$=Esc$+"[11;15H"
  716.  Call Scrn(out$)
  717.  out$="player picks  them up.  They are  converted to gold in" Call Scrn(out$)
  718.  out$=Esc$+"[12;15H"
  719.  Call Scrn(out$)
  720.  out$="your  inventory.  Gold is  needed  to increase  to the" Call Scrn(out$)
  721.  out$=Esc$+"[13;15H"
  722.  Call Scrn(out$)
  723.  out$="next level when you have enough experience." Call Scrn(out$) Call Key.PressedEnd Sub
  724.  
  725. Sub Help.Screen61
  726.  out$=Esc$+"[10;15H"
  727.  Call Scrn(out$)
  728.  out$="The ! symbol is a teleporter. You can either land on" Call Scrn(out$)
  729.  out$=Esc$+"[11;15H"
  730.  Call Scrn(out$)
  731.  out$="a teleporter or ignore it. Entering a teleporter can" Call Scrn(out$)
  732.  out$=Esc$+"[12;15H"
  733.  Call Scrn(out$)
  734.  out$="move  your player to  another dungeon  level or some" Call Scrn(out$)
  735.  out$=Esc$+"[13;15H"
  736.  Call Scrn(out$)
  737.  out$="place  in the  current level.  Teleporters disappear" Call Scrn(out$)
  738.  out$=Esc$+"[14;15H"
  739.  Call Scrn(out$)
  740.  out$="after they have been entered." Call Scrn(out$) Call Key.PressedEnd Sub
  741.  
  742. Sub Help.Screen62
  743.  out$=Esc$+"[10;15H"
  744.  Call Scrn(out$)
  745.  out$="The ? symbol is a temple. You can either pray at the" Call Scrn(out$)
  746.  out$=Esc$+"[11;15H"
  747.  Call Scrn(out$)
  748.  out$="temple,  pillage it or ignore it.  Temples disappear" Call Scrn(out$)
  749.  out$=Esc$+"[12;15H"
  750.  Call Scrn(out$)
  751.  out$="after they  are acted on.  If you pillage it you can" Call Scrn(out$)
  752.  out$=Esc$+"[13;15H"
  753.  Call Scrn(out$)
  754.  out$="be hit for damage or rewarded with treasure.  If you" Call Scrn(out$)
  755.  out$=Esc$+"[14;15H"
  756.  Call Scrn(out$)
  757.  out$="pray either  nothing may happen or gold will appear." Call Scrn(out$) Call Key.PressedEnd Sub
  758.  
  759. Sub Help.Screen63
  760.  out$=Esc$+"[10;15H"
  761.  Call Scrn(out$)
  762.  out$="The HELP command displays the help screens.  You can" Call Scrn(out$)
  763.  out$=Esc$+"[11;15H"
  764.  Call Scrn(out$)
  765.  out$="get  help for  every spell by pressing the  function" Call Scrn(out$)
  766.  out$=Esc$+"[12;15H"
  767.  Call Scrn(out$)
  768.  out$="key F1 through F10 with shift key,  for every symbol" Call Scrn(out$)
  769.  out$=Esc$+"[13;15H"
  770.  Call Scrn(out$)
  771.  out$="in  the dungeon,  or meanings  for the cursor keypad" Call Scrn(out$)
  772.  out$=Esc$+"[14;15H"
  773.  Call Scrn(out$)
  774.  out$="functions. Exit help by pressing the spacebar." Call Scrn(out$) Call Key.PressedEnd Sub
  775.  
  776. Sub Help.Screen64
  777.  out$=Esc$+"[10;15H"
  778.  Call Scrn(out$)
  779.  out$="The > symbol is a stair leading up. When you enter" Call Scrn(out$)
  780.  out$=Esc$+"[11;15H"
  781.  Call Scrn(out$)
  782.  out$="a stair up  from level one  your player  exits the" Call Scrn(out$)
  783.  out$=Esc$+"[12;15H"
  784.  Call Scrn(out$)
  785.  out$="dungeon.  Stairs up from  lower levels lead to the" Call Scrn(out$)
  786.  out$=Esc$+"[13;15H"
  787.  Call Scrn(out$)
  788.  out$="next higher dungeon you were in." Call Scrn(out$)
  789.  Call Key.PressedEnd Sub
  790.  
  791. Sub Help.Screen65
  792.  out$=Esc$+"[10;15H"
  793.  Call Scrn(out$)
  794.  out$="The < symbol is a stair leading down. There is no" Call Scrn(out$)
  795.  out$=Esc$+"[11;15H"
  796.  Call Scrn(out$)
  797.  out$="limit to the dungeon.  Lower levels have more and" Call Scrn(out$)
  798.  out$=Esc$+"[12;15H"
  799.  Call Scrn(out$)
  800.  out$="more difficult monsters with more treasure." Call Scrn(out$)
  801.  Call Key.PressedEnd Sub
  802.  
  803. Sub Help.Screen66
  804.  out$=Esc$+"[10;15H"
  805.  Call Scrn(out$)
  806.  out$="The TRADE command allows  your player to trade gold" Call Scrn(out$)
  807.  out$=Esc$+"[11;15H"
  808.  Call Scrn(out$)
  809.  out$="for  statistics.  Your  remaining gold is displayed" Call Scrn(out$)
  810.  out$=Esc$+"[12;15H"
  811.  Call Scrn(out$)
  812.  out$="with the average cost per statistic. You can select" Call Scrn(out$)
  813.  out$=Esc$+"[13;15H"
  814.  Call Scrn(out$)
  815.  out$="the statistic to purchase with the number keys 1-6." Call Scrn(out$)
  816.  Call Key.PressedEnd Sub
  817.  
  818. Sub Help.Screen67
  819.  out$=Esc$+"[10;15H"
  820.  Call Scrn(out$)
  821.  out$="The LEVEL command  lets you change the dungeon level" Call Scrn(out$)
  822.  out$=Esc$+"[11;15H"
  823.  Call Scrn(out$)
  824.  out$="to another level.  Your number of  stored  levels is" Call Scrn(out$)
  825.  out$=Esc$+"[12;15H"
  826.  Call Scrn(out$)
  827.  out$="shown. You can select any level to continue play in." Call Scrn(out$)
  828.  Call Key.PressedEnd Sub
  829.  
  830. Sub Help.Screen68
  831.  out$=Esc$+"[10;15H"
  832.  Call Scrn(out$)
  833.  out$="The USE command uses a charge from a magical wand or" Call Scrn(out$)
  834.  out$=Esc$+"[11;15H"
  835.  Call Scrn(out$)
  836.  out$="potion. You must first collect some wands or potions" Call Scrn(out$)
  837.  out$=Esc$+"[12;15H"
  838.  Call Scrn(out$)
  839.  out$="in the dungeon. You must enter the alphabetic number" Call Scrn(out$)
  840.  out$=Esc$+"[13;15H"
  841.  Call Scrn(out$)
  842.  out$="of the wand or potion to use them." Call Scrn(out$)
  843.  Call Key.PressedEnd Sub
  844.  
  845. Sub Help.Screen69
  846.  out$=Esc$+"[10;15H"
  847.  Call Scrn(out$)
  848.  out$="The INVENTORY command displays the wands, potions, staffs" Call Scrn(out$)
  849.  out$=Esc$+"[11;15H"
  850.  Call Scrn(out$)
  851.  out$="and rings you have collected.  There are ten of each item" Call Scrn(out$)
  852.  out$=Esc$+"[12;15H"
  853.  Call Scrn(out$)
  854.  out$="in the dungeon.  They are used with the Use command or by" Call Scrn(out$)
  855.  out$=Esc$+"[13;15H"
  856.  Call Scrn(out$)
  857.  out$="the extended Alt- and Control- letter key commands." Call Scrn(out$)
  858.  Call Key.PressedEnd Sub
  859.  
  860. Sub Help.Screen70
  861.  out$=Esc$+"[10;15H"
  862.  Call Scrn(out$)
  863.  out$="The | symbol is a wand.  There are ten different wands in" Call Scrn(out$)
  864.  out$=Esc$+"[11;15H"
  865.  Call Scrn(out$)
  866.  out$="the dungeon. When you use a wand with the Use command the" Call Scrn(out$)
  867.  out$=Esc$+"[12;15H"
  868.  Call Scrn(out$)
  869.  out$="charge from  the  wand  will cast a  spell onto  monsters" Call Scrn(out$)
  870.  out$=Esc$+"[13;15H"
  871.  Call Scrn(out$)
  872.  out$="nearby.  When all the charges are used the wand vanishes." Call Scrn(out$)
  873.  Call Key.PressedEnd Sub
  874.  
  875. Sub Help.Screen71
  876.  out$=Esc$+"[10;15H"
  877.  Call Scrn(out$)
  878.  out$="The @ symbol is a potion. There are ten different potions" Call Scrn(out$)
  879.  out$=Esc$+"[11;15H"
  880.  Call Scrn(out$)
  881.  out$="in the dungeon. When you use potions with the Use command" Call Scrn(out$)
  882.  out$=Esc$+"[12;15H"
  883.  Call Scrn(out$)
  884.  out$="the  charge from  the potion  will  cast a healing spell." Call Scrn(out$)
  885.  out$=Esc$+"[13;15H"
  886.  Call Scrn(out$)
  887.  out$="When the potion is used up it vanishes." Call Scrn(out$)
  888.  Call Key.PressedEnd Sub
  889.  
  890. Sub Help.Screen72
  891.  out$=Esc$+"[10;25H"
  892.  Call Scrn(out$)
  893.  out$="The Alt-A to Alt-J are the wand keys:" Call Scrn(out$)
  894.  out$=Esc$+"[12;20H"
  895.  Call Scrn(out$)
  896.  out$="Alt-A = magic missile     Alt-F = lightning bolt"
  897.  Call Scrn(out$)
  898.  out$=Esc$+"[13;20H"
  899.  Call Scrn(out$)
  900.  out$="Alt-B = pyrotechnics      Alt-G = doomkill"
  901.  Call Scrn(out$)
  902.  out$=Esc$+"[14;20H"
  903.  Call Scrn(out$)
  904.  out$="Alt-C = firestorm         Alt-H = disintegrate"
  905.  Call Scrn(out$)
  906.  out$=Esc$+"[15;20H"
  907.  Call Scrn(out$)
  908.  out$="Alt-D = fireball          Alt-I = blade barrier"
  909.  Call Scrn(out$)
  910.  out$=Esc$+"[16;20H"
  911.  Call Scrn(out$)
  912.  out$="Alt-E = finger of death   Alt-J = genocide"
  913.  Call Scrn(out$)
  914.  Call Key.PressedEnd Sub
  915.  
  916. Sub Help.Screen73
  917.  out$=Esc$+"[10;25H"
  918.  Call Scrn(out$)
  919.  out$="The Alt-Q to Alt-Z are the potion keys:" Call Scrn(out$)
  920.  out$=Esc$+"[12;20H"
  921.  Call Scrn(out$)
  922.  out$="Alt-Q = heal          Alt-V = power shield"
  923.  Call Scrn(out$)
  924.  out$=Esc$+"[13;20H"
  925.  Call Scrn(out$)
  926.  out$="Alt-R = protection    Alt-W = wall of will"
  927.  Call Scrn(out$)
  928.  out$=Esc$+"[14;20H"
  929.  Call Scrn(out$)
  930.  out$="Alt-S = shield        Alt-X = regeneration"
  931.  Call Scrn(out$)
  932.  out$=Esc$+"[15;20H"
  933.  Call Scrn(out$)
  934.  out$="Alt-T = strength      Alt-Y = phantasmal force"
  935.  Call Scrn(out$)
  936.  out$=Esc$+"[16;20H"
  937.  Call Scrn(out$)
  938.  out$="Alt-U = restoration   Alt-Z = resurrection"
  939.  Call Scrn(out$)
  940.  Call Key.PressedEnd Sub
  941.  
  942. Sub Help.Screen74
  943.  out$=Esc$+"[10;15H"
  944.  Call Scrn(out$)
  945.  out$="The % symbol is a staff.  There's ten different staffs in" Call Scrn(out$)
  946.  out$=Esc$+"[11;15H"
  947.  Call Scrn(out$)
  948.  out$="the dungeon. When you use staffs with the Use command the" Call Scrn(out$)
  949.  out$=Esc$+"[12;15H"
  950.  Call Scrn(out$)
  951.  out$="charge from  the staff will  cast a spell.  When  all the" Call Scrn(out$)
  952.  out$=Esc$+"[13;15H"
  953.  Call Scrn(out$)
  954.  out$="charges are used the staff vanishes." Call Scrn(out$)
  955.  Call Key.PressedEnd Sub
  956.  
  957. Sub Help.Screen75
  958.  out$=Esc$+"[10;15H"
  959.  Call Scrn(out$)
  960.  out$="The & symbol are some coins. The number of coins you will" Call Scrn(out$)
  961.  out$=Esc$+"[11;15H"
  962.  Call Scrn(out$)
  963.  out$="find  in the dungeon  are according  to the dungeon level" Call Scrn(out$)
  964.  out$=Esc$+"[12;15H"
  965.  Call Scrn(out$)
  966.  out$="you are at. Each coin is worth 100 gold peices." Call Scrn(out$)
  967.  Call Key.PressedEnd Sub
  968.  
  969. Sub Help.Screen76
  970.  out$=Esc$+"[10;15H"
  971.  Call Scrn(out$)
  972.  out$="The "+Chr$(34)+" symbol is a ring.  There are ten different rings in" Call Scrn(out$)
  973.  out$=Esc$+"[11;15H"
  974.  Call Scrn(out$)
  975.  out$="the dungeon. When you use a ring with the Use command the" Call Scrn(out$)
  976.  out$=Esc$+"[12;15H"
  977.  Call Scrn(out$)
  978.  out$="charge from  the  ring will  cast a spell.  When  all the" Call Scrn(out$)
  979.  out$=Esc$+"[13;15H"
  980.  Call Scrn(out$)
  981.  out$="charges are used the ring vanishes." Call Scrn(out$)
  982.  Call Key.PressedEnd Sub
  983.  
  984. Sub Help.Screen77
  985.  out$=Esc$+"[10;20H"
  986.  Call Scrn(out$)
  987.  out$="The Control-A to Control-J are the staff keys:" Call Scrn(out$)
  988.  out$=Esc$+"[12;15H"
  989.  Call Scrn(out$)
  990.  out$="Control-A = locate            Control-F = passwall"
  991.  Call Scrn(out$)
  992.  out$=Esc$+"[13;15H"
  993.  Call Scrn(out$)
  994.  out$="Control-B = transmute         Control-G = fear"
  995.  Call Scrn(out$)
  996.  out$=Esc$+"[14;15H"
  997.  Call Scrn(out$)
  998.  out$="Control-C = light             Control-H = enchanted weapon"
  999.  Call Scrn(out$)
  1000.  out$=Esc$+"[15;15H"
  1001.  Call Scrn(out$)
  1002.  out$="Control-D = levitate          Control-I = teleport"
  1003.  Call Scrn(out$)
  1004.  out$=Esc$+"[16;15H"
  1005.  Call Scrn(out$)
  1006.  out$="Control-E = continual light   Control-J = time stop"
  1007.  Call Scrn(out$)
  1008.  Call Key.PressedEnd Sub
  1009.  
  1010. Sub Help.Screen78
  1011.  out$=Esc$+"[10;20H"
  1012.  Call Scrn(out$)
  1013.  out$="The Control-Q to Control-Z are the ring keys:" Call Scrn(out$)
  1014.  out$=Esc$+"[12;15H"
  1015.  Call Scrn(out$)
  1016.  out$="Control-Q = sleep             Control-V = wall of force"
  1017.  Call Scrn(out$)
  1018.  out$=Esc$+"[13;15H"
  1019.  Call Scrn(out$)
  1020.  out$="Control-R = scare             Control-W = charm monster"
  1021.  Call Scrn(out$)
  1022.  out$=Esc$+"[14;15H"
  1023.  Call Scrn(out$)
  1024.  out$="Control-S = obscurement       Control-X = demon summon"
  1025.  Call Scrn(out$)
  1026.  out$=Esc$+"[15;15H"
  1027.  Call Scrn(out$)
  1028.  out$="Control-T = monster summon    Control-Y = hold monster"
  1029.  Call Scrn(out$)
  1030.  out$=Esc$+"[16;15H"
  1031.  Call Scrn(out$)
  1032.  out$="Control-U = forget            Control-Z = polymorph"
  1033.  Call Scrn(out$)
  1034.  Call Key.PressedEnd Sub
  1035.  
  1036. Sub Display.Help.Screen
  1037.  out$=Esc$+"[1;32m"
  1038.  Call Scrn(out$)
  1039.  out$=Esc$+"[1;1H"
  1040.  Call Scrn(out$)
  1041.  out$="While playing,  type 0 for help,  "
  1042.  out$=out$+"or Q for quit.  The 24th status line displays Call Scrn(out$)
  1043.  out$=Esc$+"[2;1H"
  1044.  Call Scrn(out$)
  1045.  out$="the following information:  "
  1046.  out$=out$+"DLVL  is the  dungeon level,  LVL is your  player's Call Scrn(out$)
  1047.  out$=Esc$+"[3;1H"
  1048.  Call Scrn(out$)
  1049.  out$="level,  HP is your player's hit points,  "
  1050.  out$=out$+"EXP is your player's experience,  GOLD Call Scrn(out$)
  1051.  out$=Esc$+"[4;1H"
  1052.  Call Scrn(out$)
  1053.  out$="is  the amount  of  gold  hoarded,  "
  1054.  out$=out$+"and  NM the  number  of monsters remaining. Call Scrn(out$)
  1055.  out$=Esc$+"[5;1H"
  1056.  Call Scrn(out$)
  1057.  out$=Esc$+"[36m"
  1058.  Call Scrn(out$)
  1059.  out$="Function Keys" Call Scrn(out$)
  1060.  out$=Esc$+"[6;1H"
  1061.  Call Scrn(out$)
  1062.  out$=Esc$+"[33m"
  1063.  Call Scrn(out$)
  1064.  out$=Asc5$+String$(12,Asc2$)+Asc6$
  1065.  Call Scrn(out$)
  1066.  out$=Esc$+"[7;1H"
  1067.  Call Scrn(out$)
  1068.  out$=Asc1$
  1069.  Call Scrn(out$)
  1070.  out$=Esc$+"[31m"
  1071.  Call Scrn(out$)
  1072.  out$="FN Key "
  1073.  Call Scrn(out$)
  1074.  out$=Esc$+"[32m"
  1075.  Call Scrn(out$)
  1076.  out$="Spell"
  1077.  Call Scrn(out$)
  1078.  out$=Esc$+"[33m"
  1079.  Call Scrn(out$)
  1080.  out$=Asc1$ Call Scrn(out$)
  1081.  out$=Esc$+"[8;1H"
  1082.  Call Scrn(out$)
  1083.  out$=Asc1$
  1084.  Call Scrn(out$)
  1085.  out$=Esc$+"[31m"
  1086.  Call Scrn(out$)
  1087.  out$="Shift  "
  1088.  Call Scrn(out$)
  1089.  out$=Esc$+"[32m"
  1090.  Call Scrn(out$)
  1091.  out$="Level"
  1092.  Call Scrn(out$)
  1093.  out$=Esc$+"[33m"
  1094.  Call Scrn(out$)
  1095.  out$=Asc1$ Call Scrn(out$)
  1096.  out$=Esc$+"[9;1H"
  1097.  Call Scrn(out$)
  1098.  out$=Chr$(199)+String$(12,Chr$(196))+Chr$(182)
  1099.  Call Scrn(out$)
  1100.  out$=Esc$+"[10;1H"
  1101.  Call Scrn(out$)
  1102.  out$=Asc1$
  1103.  Call Scrn(out$)
  1104.  out$=Esc$+"[31m"
  1105.  Call Scrn(out$)
  1106.  out$="Normal "
  1107.  Call Scrn(out$)
  1108.  out$=Esc$+"[36m"
  1109.  Call Scrn(out$)
  1110.  out$=">"
  1111.  Call Scrn(out$)
  1112.  out$=" "
  1113.  Call Scrn(out$)
  1114.  out$=Esc$+"[32m"
  1115.  Call Scrn(out$)
  1116.  out$="1  "
  1117.  Call Scrn(out$)
  1118.  out$=Esc$+"[33m"
  1119.  Call Scrn(out$)
  1120.  out$=Asc1$ Call Scrn(out$)
  1121.  out$=Esc$+"[11;1H"
  1122.  Call Scrn(out$)
  1123.  out$=Asc1$
  1124.  Call Scrn(out$)
  1125.  out$=Esc$+"[31m"
  1126.  Call Scrn(out$)
  1127.  out$="Ctrl-  "
  1128.  Call Scrn(out$)
  1129.  out$=Esc$+"[36m"
  1130.  Call Scrn(out$)
  1131.  out$=">"
  1132.  Call Scrn(out$)
  1133.  out$=" "
  1134.  Call Scrn(out$)
  1135.  out$=Esc$+"[32m"
  1136.  Call Scrn(out$)
  1137.  out$="2  "
  1138.  Call Scrn(out$)
  1139.  out$=Esc$+"[33m"
  1140.  Call Scrn(out$)
  1141.  out$=Asc1$ Call Scrn(out$)
  1142.  out$=Esc$+"[12;1H"
  1143.  Call Scrn(out$)
  1144.  out$=Asc1$
  1145.  Call Scrn(out$)
  1146.  out$=Esc$+"[31m"
  1147.  Call Scrn(out$)
  1148.  out$="Shift- "
  1149.  Call Scrn(out$)
  1150.  out$=Esc$+"[36m"
  1151.  Call Scrn(out$)
  1152.  out$=">"
  1153.  Call Scrn(out$)
  1154.  out$=" "
  1155.  Call Scrn(out$)
  1156.  out$=Esc$+"[32m"
  1157.  Call Scrn(out$)
  1158.  out$="3  "
  1159.  Call Scrn(out$)
  1160.  out$=Esc$+"[33m"
  1161.  Call Scrn(out$)
  1162.  out$=Asc1$ Call Scrn(out$)
  1163.  out$=Esc$+"[13;1H"
  1164.  Call Scrn(out$)
  1165.  out$=Asc1$
  1166.  Call Scrn(out$)
  1167.  out$=Esc$+"[31m"
  1168.  Call Scrn(out$)
  1169.  out$="Alt-   "
  1170.  Call Scrn(out$)
  1171.  out$=Esc$+"[36m"
  1172.  Call Scrn(out$)
  1173.  out$=">"
  1174.  Call Scrn(out$)
  1175.  out$=" "
  1176.  Call Scrn(out$)
  1177.  out$=Esc$+"[32m"
  1178.  Call Scrn(out$)
  1179.  out$="4  "
  1180.  Call Scrn(out$)
  1181.  out$=Esc$+"[33m"
  1182.  Call Scrn(out$)
  1183.  out$=Asc1$ Call Scrn(out$)
  1184.  out$=Esc$+"[33m"
  1185.  Call Scrn(out$)
  1186.  out$=Esc$+"[14;1H"
  1187.  Call Scrn(out$)
  1188.  out$=Chr$(199)+String$(12,Chr$(196))+Chr$(182)
  1189.  Call Scrn(out$)
  1190.  out$=Esc$+"[15;1H"
  1191.  Call Scrn(out$)
  1192.  out$=Asc1$
  1193.  Call Scrn(out$)
  1194.  out$=Esc$+"[31m"
  1195.  Call Scrn(out$)
  1196.  out$="Key   "
  1197.  Call Scrn(out$)
  1198.  out$=Esc$+"[32m"
  1199.  Call Scrn(out$)
  1200.  out$="Spell "
  1201.  Call Scrn(out$)
  1202.  out$=Esc$+"[33m"
  1203.  Call Scrn(out$)
  1204.  out$=Asc1$ Call Scrn(out$)
  1205.  out$=Esc$+"[16;1H"
  1206.  Call Scrn(out$)
  1207.  out$=Asc1$
  1208.  Call Scrn(out$)
  1209.  out$=Esc$+"[31m"
  1210.  Call Scrn(out$)
  1211.  out$="Shift "
  1212.  Call Scrn(out$)
  1213.  out$=Esc$+"[32m"
  1214.  Call Scrn(out$)
  1215.  out$="Number"
  1216.  Call Scrn(out$)
  1217.  out$=Esc$+"[33m"
  1218.  Call Scrn(out$)
  1219.  out$=Asc1$ Call Scrn(out$)
  1220.  out$=Esc$+"[33m"
  1221.  Call Scrn(out$)
  1222.  out$=Esc$+"[17;1H"
  1223.  Call Scrn(out$)
  1224.  out$=Chr$(199)+String$(12,Chr$(196))+Chr$(182)
  1225.  Call Scrn(out$)
  1226.  out$=Esc$+"[18;1H"
  1227.  Call Scrn(out$)
  1228.  out$=Asc1$
  1229.  Call Scrn(out$)
  1230.  out$=Esc$+"[31m"
  1231.  Call Scrn(out$)
  1232.  out$="Alt-  "
  1233.  Call Scrn(out$)
  1234.  out$=Esc$+"[32m"
  1235.  Call Scrn(out$)
  1236.  out$="A "
  1237.  Call Scrn(out$)
  1238.  out$=Esc$+"[36m"
  1239.  Call Scrn(out$)
  1240.  out$="-"
  1241.  Call Scrn(out$)
  1242.  out$=Esc$+"[32m"
  1243.  Call Scrn(out$)
  1244.  out$=" J "
  1245.  Call Scrn(out$)
  1246.  out$=Esc$+"[33m"
  1247.  Call Scrn(out$)
  1248.  out$=Asc1$ Call Scrn(out$)
  1249.  out$=Esc$+"[19;1H"
  1250.  Call Scrn(out$)
  1251.  out$=Asc1$
  1252.  Call Scrn(out$)
  1253.  out$=Esc$+"[31m"
  1254.  Call Scrn(out$)
  1255.  out$="Alt-  "
  1256.  Call Scrn(out$)
  1257.  out$=Esc$+"[32m"
  1258.  Call Scrn(out$)
  1259.  out$="Q "
  1260.  Call Scrn(out$)
  1261.  out$=Esc$+"[36m"
  1262.  Call Scrn(out$)
  1263.  out$="-"
  1264.  Call Scrn(out$)
  1265.  out$=Esc$+"[32m"
  1266.  Call Scrn(out$)
  1267.  out$=" Z "
  1268.  Call Scrn(out$)
  1269.  out$=Esc$+"[33m"
  1270.  Call Scrn(out$)
  1271.  out$=Asc1$ Call Scrn(out$)
  1272.  out$=Esc$+"[20;1H"
  1273.  Call Scrn(out$)
  1274.  out$=Asc1$
  1275.  Call Scrn(out$)
  1276.  out$=Esc$+"[31m"
  1277.  Call Scrn(out$)
  1278.  out$="Ctrl- "
  1279.  Call Scrn(out$)
  1280.  out$=Esc$+"[32m"
  1281.  Call Scrn(out$)
  1282.  out$="A "
  1283.  Call Scrn(out$)
  1284.  out$=Esc$+"[36m"
  1285.  Call Scrn(out$)
  1286.  out$="-"
  1287.  Call Scrn(out$)
  1288.  out$=Esc$+"[32m"
  1289.  Call Scrn(out$)
  1290.  out$=" J "
  1291.  Call Scrn(out$)
  1292.  out$=Esc$+"[33m"
  1293.  Call Scrn(out$)
  1294.  out$=Asc1$ Call Scrn(out$)
  1295.  out$=Esc$+"[21;1H"
  1296.  Call Scrn(out$)
  1297.  out$=Asc1$
  1298.  Call Scrn(out$)
  1299.  out$=Esc$+"[31m"
  1300.  Call Scrn(out$)
  1301.  out$="Ctrl- "
  1302.  Call Scrn(out$)
  1303.  out$=Esc$+"[32m"
  1304.  Call Scrn(out$)
  1305.  out$="Q "
  1306.  Call Scrn(out$)
  1307.  out$=Esc$+"[36m"
  1308.  Call Scrn(out$)
  1309.  out$="-"
  1310.  Call Scrn(out$)
  1311.  out$=Esc$+"[32m"
  1312.  Call Scrn(out$)
  1313.  out$=" Z "
  1314.  Call Scrn(out$)
  1315.  out$=Esc$+"[33m"
  1316.  Call Scrn(out$)
  1317.  out$=Asc1$ Call Scrn(out$)
  1318.  out$=Esc$+"[22;1H"
  1319.  Call Scrn(out$)
  1320.  out$=Asc4$+String$(12,Asc2$)+Asc3$ Call Scrn(out$)
  1321.  out$=Esc$+"[5;16H"
  1322.  Call Scrn(out$)
  1323.  out$=Esc$+"[36m"
  1324.  Call Scrn(out$)
  1325.  out$="Numeric Keypad" Call Scrn(out$)
  1326.  out$=Esc$+"[6;16H"
  1327.  Call Scrn(out$)
  1328.  out$=Esc$+"[33m"
  1329.  Call Scrn(out$)
  1330.  out$=Asc5$
  1331.  Call Scrn(out$)
  1332.  out$=String$(47,Asc2$)
  1333.  Call Scrn(out$)
  1334.  out$=Asc6$
  1335.  Call Scrn(out$)
  1336.  out$=Esc$+"[7;16H"
  1337.  Call Scrn(out$)
  1338.  out$=Asc1$
  1339.  Call Scrn(out$)
  1340.  out$=Esc$+"[31m"
  1341.  Call Scrn(out$)
  1342.  out$="7"
  1343.  Call Scrn(out$)
  1344.  out$=Esc$+"[36m"
  1345.  Call Scrn(out$)
  1346.  out$=" : "
  1347.  Call Scrn(out$)
  1348.  out$=Esc$+"[32m"
  1349.  Call Scrn(out$)
  1350.  out$="Evade  "
  1351.  Call Scrn(out$)
  1352.  out$=Esc$+"[31m"
  1353.  Call Scrn(out$)
  1354.  out$="8"
  1355.  Call Scrn(out$)
  1356.  out$=Esc$+"[36m"
  1357.  Call Scrn(out$)
  1358.  out$=" : "
  1359.  Call Scrn(out$)
  1360.  out$=Esc$+"[32m"
  1361.  Call Scrn(out$)
  1362.  out$="North  "
  1363.  Call Scrn(out$)
  1364.  out$=Esc$+"[31m"
  1365.  Call Scrn(out$)
  1366.  out$="9"
  1367.  Call Scrn(out$)
  1368.  out$=Esc$+"[36m"
  1369.  Call Scrn(out$)
  1370.  out$=" : "
  1371.  Call Scrn(out$)
  1372.  out$=Esc$+"[32m"
  1373.  Call Scrn(out$)
  1374.  out$="Ignore     "
  1375.  Call Scrn(out$)
  1376.  out$=Esc$+"[31m"
  1377.  Call Scrn(out$)
  1378.  out$="'"
  1379.  Call Scrn(out$)
  1380.  out$=Esc$+"[36m"
  1381.  Call Scrn(out$)
  1382.  out$=" : "
  1383.  Call Scrn(out$)
  1384.  out$=Esc$+"[32m"
  1385.  Call Scrn(out$)
  1386.  out$="Use   "
  1387.  Call Scrn(out$)
  1388.  out$=Esc$+"[33m"
  1389.  Call Scrn(out$)
  1390.  out$=Asc1$ Call Scrn(out$)
  1391.  out$=Esc$+"[8;16H"
  1392.  Call Scrn(out$)
  1393.  out$=Asc1$
  1394.  Call Scrn(out$)
  1395.  out$=Esc$+"[31m"
  1396.  Call Scrn(out$)
  1397.  out$="4"
  1398.  Call Scrn(out$)
  1399.  out$=Esc$+"[36m"
  1400.  Call Scrn(out$)
  1401.  out$=" : "
  1402.  Call Scrn(out$)
  1403.  out$=Esc$+"[32m"
  1404.  Call Scrn(out$)
  1405.  out$="West   "
  1406.  Call Scrn(out$)
  1407.  out$=Esc$+"[31m"
  1408.  Call Scrn(out$)
  1409.  out$="5"
  1410.  Call Scrn(out$)
  1411.  out$=Esc$+"[36m"
  1412.  Call Scrn(out$)
  1413.  out$=" : "
  1414.  Call Scrn(out$)
  1415.  out$=Esc$+"[32m"
  1416.  Call Scrn(out$)
  1417.  out$="<cr>   "
  1418.  Call Scrn(out$)
  1419.  out$=Esc$+"[31m"
  1420.  Call Scrn(out$)
  1421.  out$="6"
  1422.  Call Scrn(out$)
  1423.  out$=Esc$+"[36m"
  1424.  Call Scrn(out$)
  1425.  out$=" : "
  1426.  Call Scrn(out$)
  1427.  out$=Esc$+"[32m"
  1428.  Call Scrn(out$)
  1429.  out$="East       "
  1430.  Call Scrn(out$)
  1431.  out$=Esc$+"[31m"
  1432.  Call Scrn(out$)
  1433.  out$="-"
  1434.  Call Scrn(out$)
  1435.  out$=Esc$+"[36m"
  1436.  Call Scrn(out$)
  1437.  out$=" : "
  1438.  Call Scrn(out$)
  1439.  out$=Esc$+"[32m"
  1440.  Call Scrn(out$)
  1441.  out$="Chants"
  1442.  Call Scrn(out$)
  1443.  out$=Esc$+"[33m"
  1444.  Call Scrn(out$)
  1445.  out$=Asc1$ Call Scrn(out$)
  1446.  out$=Esc$+"[9;16H"
  1447.  Call Scrn(out$)
  1448.  out$=Asc1$
  1449.  Call Scrn(out$)
  1450.  out$=Esc$+"[31m"
  1451.  Call Scrn(out$)
  1452.  out$="1"
  1453.  Call Scrn(out$)
  1454.  out$=Esc$+"[36m"
  1455.  Call Scrn(out$)
  1456.  out$=" : "
  1457.  Call Scrn(out$)
  1458.  out$=Esc$+"[32m"
  1459.  Call Scrn(out$)
  1460.  out$="Fight  "
  1461.  Call Scrn(out$)
  1462.  out$=Esc$+"[31m"
  1463.  Call Scrn(out$)
  1464.  out$="2"
  1465.  Call Scrn(out$)
  1466.  out$=Esc$+"[36m"
  1467.  Call Scrn(out$)
  1468.  out$=" : "
  1469.  Call Scrn(out$)
  1470.  out$=Esc$+"[32m"
  1471.  Call Scrn(out$)
  1472.  out$="South  "
  1473.  Call Scrn(out$)
  1474.  out$=Esc$+"[31m"
  1475.  Call Scrn(out$)
  1476.  out$="3"
  1477.  Call Scrn(out$)
  1478.  out$=Esc$+"[36m"
  1479.  Call Scrn(out$)
  1480.  out$=" : "
  1481.  Call Scrn(out$)
  1482.  out$=Esc$+"[32m"
  1483.  Call Scrn(out$)
  1484.  out$="Cast       "
  1485.  Call Scrn(out$)
  1486.  out$=Esc$+"[31m"
  1487.  Call Scrn(out$)
  1488.  out$="+"
  1489.  Call Scrn(out$)
  1490.  out$=Esc$+"[36m"
  1491.  Call Scrn(out$)
  1492.  out$=" : "
  1493.  Call Scrn(out$)
  1494.  out$=Esc$+"[32m"
  1495.  Call Scrn(out$)
  1496.  out$="Info  "
  1497.  Call Scrn(out$)
  1498.  out$=Esc$+"[33m"
  1499.  Call Scrn(out$)
  1500.  out$=Asc1$ Call Scrn(out$)
  1501.  out$=Esc$+"[10;16H"
  1502.  Call Scrn(out$)
  1503.  out$=Asc1$
  1504.  Call Scrn(out$)
  1505.  out$=Esc$+"[31m"
  1506.  Call Scrn(out$)
  1507.  out$="0"
  1508.  Call Scrn(out$)
  1509.  out$=Esc$+"[36m"
  1510.  Call Scrn(out$)
  1511.  out$=" : "
  1512.  Call Scrn(out$)
  1513.  out$=Esc$+"[32m"
  1514.  Call Scrn(out$)
  1515.  out$="Help   "
  1516.  Call Scrn(out$)
  1517.  out$=Esc$+"[31m"
  1518.  Call Scrn(out$)
  1519.  out$="."
  1520.  Call Scrn(out$)
  1521.  out$=Esc$+"[36m"
  1522.  Call Scrn(out$)
  1523.  out$=" : "
  1524.  Call Scrn(out$)
  1525.  out$=Esc$+"[32m"
  1526.  Call Scrn(out$)
  1527.  out$="Stats  "
  1528.  Call Scrn(out$)
  1529.  out$=Esc$+"[31m"
  1530.  Call Scrn(out$)
  1531.  out$="/"
  1532.  Call Scrn(out$)
  1533.  out$=Esc$+"[36m"
  1534.  Call Scrn(out$)
  1535.  out$=" : "
  1536.  Call Scrn(out$)
  1537.  out$=Esc$+"[32m"
  1538.  Call Scrn(out$)
  1539.  out$="Inventory "
  1540.  Call Scrn(out$)
  1541.  out$=String$(11,32)
  1542.  Call Scrn(out$)
  1543.  out$=Esc$+"[33m"
  1544.  Call Scrn(out$)
  1545.  out$=Asc1$ Call Scrn(out$)
  1546.  out$=Esc$+"[11;16H"
  1547.  Call Scrn(out$)
  1548.  out$=Asc1$
  1549.  Call Scrn(out$)
  1550.  out$=Esc$+"[31m"
  1551.  Call Scrn(out$)
  1552.  out$="\"
  1553.  Call Scrn(out$)
  1554.  out$=Esc$+"[36m"
  1555.  Call Scrn(out$)
  1556.  out$=" : "
  1557.  Call Scrn(out$)
  1558.  out$=Esc$+"[32m"
  1559.  Call Scrn(out$)
  1560.  out$="Trade  "
  1561.  Call Scrn(out$)
  1562.  out$=Esc$+"[31m"
  1563.  Call Scrn(out$)
  1564.  out$="="
  1565.  Call Scrn(out$)
  1566.  out$=Esc$+"[36m"
  1567.  Call Scrn(out$)
  1568.  out$=" : "
  1569.  Call Scrn(out$)
  1570.  out$=Esc$+"[32m"
  1571.  Call Scrn(out$)
  1572.  out$="Level  "
  1573.  Call Scrn(out$)
  1574.  out$=String$(25,32)
  1575.  Call Scrn(out$)
  1576.  out$=Esc$+"[33m"
  1577.  Call Scrn(out$)
  1578.  out$=Asc1$ Call Scrn(out$)
  1579.  out$=Esc$+"[12;16H"
  1580.  Call Scrn(out$)
  1581.  out$=Asc4$
  1582.  Call Scrn(out$)
  1583.  out$=String$(47,Asc2$)
  1584.  Call Scrn(out$)
  1585.  out$=Asc3$
  1586.  Call Scrn(out$)
  1587.  out$=Esc$+"[14;16H"
  1588.  Call Scrn(out$)
  1589.  out$=Esc$+"[36m"
  1590.  Call Scrn(out$)
  1591.  out$="Cursor Keypad" Call Scrn(out$)
  1592.  out$=Esc$+"[15;16H"
  1593.  Call Scrn(out$)
  1594.  out$=Esc$+"[33m"
  1595.  Call Scrn(out$)
  1596.  out$=Asc5$
  1597.  Call Scrn(out$)
  1598.  out$=String$(47,Asc2$)
  1599.  Call Scrn(out$)
  1600.  out$=Asc6$
  1601.  Call Scrn(out$)
  1602.  out$=Esc$+"[16;16H"
  1603.  Call Scrn(out$)
  1604.  out$=Asc1$
  1605.  Call Scrn(out$)
  1606.  out$=Esc$+"[31m"
  1607.  Call Scrn(out$)
  1608.  out$="PgUp"
  1609.  Call Scrn(out$)
  1610.  out$=Esc$+"[36m"
  1611.  Call Scrn(out$)
  1612.  out$=":"
  1613.  Call Scrn(out$)
  1614.  out$=Esc$+"[32m"
  1615.  Call Scrn(out$)
  1616.  out$="Evade  "
  1617.  Call Scrn(out$)
  1618.  out$=Esc$+"[31m"
  1619.  Call Scrn(out$)
  1620.  out$="Up "
  1621.  Call Scrn(out$)
  1622.  out$=Esc$+"[36m"
  1623.  Call Scrn(out$)
  1624.  out$=":"
  1625.  Call Scrn(out$)
  1626.  out$=Esc$+"[32m"
  1627.  Call Scrn(out$)
  1628.  out$="North "
  1629.  Call Scrn(out$)
  1630.  out$=Esc$+"[31m"
  1631.  Call Scrn(out$)
  1632.  out$="Hme"
  1633.  Call Scrn(out$)
  1634.  out$=Esc$+"[36m"
  1635.  Call Scrn(out$)
  1636.  out$=":"
  1637.  Call Scrn(out$)
  1638.  out$=Esc$+"[32m"
  1639.  Call Scrn(out$)
  1640.  out$="Ignore "
  1641.  Call Scrn(out$)
  1642.  out$=Esc$+"[31m"
  1643.  Call Scrn(out$)
  1644.  out$="CtlPgUp"
  1645.  Call Scrn(out$)
  1646.  out$=Esc$+"[36m"
  1647.  Call Scrn(out$)
  1648.  out$=":"
  1649.  Call Scrn(out$)
  1650.  out$=Esc$+"[32m"
  1651.  Call Scrn(out$)
  1652.  out$="Use   "
  1653.  Call Scrn(out$)
  1654.  out$=Esc$+"[33m"
  1655.  Call Scrn(out$)
  1656.  out$=Asc1$ Call Scrn(out$)
  1657.  out$=Esc$+"[17;16H"
  1658.  Call Scrn(out$)
  1659.  out$=Asc1$
  1660.  Call Scrn(out$)
  1661.  out$=Esc$+"[31m"
  1662.  Call Scrn(out$)
  1663.  out$="Lft "
  1664.  Call Scrn(out$)
  1665.  out$=Esc$+"[36m"
  1666.  Call Scrn(out$)
  1667.  out$=":"
  1668.  Call Scrn(out$)
  1669.  out$=Esc$+"[32m"
  1670.  Call Scrn(out$)
  1671.  out$="West   "
  1672.  Call Scrn(out$)
  1673.  out$=Esc$+"[31m"
  1674.  Call Scrn(out$)
  1675.  out$="Rtn"
  1676.  Call Scrn(out$)
  1677.  out$=Esc$+"[36m"
  1678.  Call Scrn(out$)
  1679.  out$=":"
  1680.  Call Scrn(out$)
  1681.  out$=Esc$+"[32m"
  1682.  Call Scrn(out$)
  1683.  out$="<cr>  "
  1684.  Call Scrn(out$)
  1685.  out$=Esc$+"[31m"
  1686.  Call Scrn(out$)
  1687.  out$="Rgt"
  1688.  Call Scrn(out$)
  1689.  out$=Esc$+"[36m"
  1690.  Call Scrn(out$)
  1691.  out$=":"
  1692.  Call Scrn(out$)
  1693.  out$=Esc$+"[32m"
  1694.  Call Scrn(out$)
  1695.  out$="East   "
  1696.  Call Scrn(out$)
  1697.  out$=Esc$+"[31m"
  1698.  Call Scrn(out$)
  1699.  out$="CtlPgDn"
  1700.  Call Scrn(out$)
  1701.  out$=Esc$+"[36m"
  1702.  Call Scrn(out$)
  1703.  out$=":"
  1704.  Call Scrn(out$)
  1705.  out$=Esc$+"[32m"
  1706.  Call Scrn(out$)
  1707.  out$="Chants"
  1708.  Call Scrn(out$)
  1709.  out$=Esc$+"[33m"
  1710.  Call Scrn(out$)
  1711.  out$=Asc1$ Call Scrn(out$)
  1712.  out$=Esc$+"[18;16H"
  1713.  Call Scrn(out$)
  1714.  out$=Asc1$
  1715.  Call Scrn(out$)
  1716.  out$=Esc$+"[31m"
  1717.  Call Scrn(out$)
  1718.  out$="PgDn"
  1719.  Call Scrn(out$)
  1720.  out$=Esc$+"[36m"
  1721.  Call Scrn(out$)
  1722.  out$=":"
  1723.  Call Scrn(out$)
  1724.  out$=Esc$+"[32m"
  1725.  Call Scrn(out$)
  1726.  out$="Fight  "
  1727.  Call Scrn(out$)
  1728.  out$=Esc$+"[31m"
  1729.  Call Scrn(out$)
  1730.  out$="Dn "
  1731.  Call Scrn(out$)
  1732.  out$=Esc$+"[36m"
  1733.  Call Scrn(out$)
  1734.  out$=":"
  1735.  Call Scrn(out$)
  1736.  out$=Esc$+"[32m"
  1737.  Call Scrn(out$)
  1738.  out$="South "
  1739.  Call Scrn(out$)
  1740.  out$=Esc$+"[31m"
  1741.  Call Scrn(out$)
  1742.  out$="End"
  1743.  Call Scrn(out$)
  1744.  out$=Esc$+"[36m"
  1745.  Call Scrn(out$)
  1746.  out$=":"
  1747.  Call Scrn(out$)
  1748.  out$=Esc$+"[32m"
  1749.  Call Scrn(out$)
  1750.  out$="Cast   "
  1751.  Call Scrn(out$)
  1752.  out$=Esc$+"[31m"
  1753.  Call Scrn(out$)
  1754.  out$="CtlRgt "
  1755.  Call Scrn(out$)
  1756.  out$=Esc$+"[36m"
  1757.  Call Scrn(out$)
  1758.  out$=":"
  1759.  Call Scrn(out$)
  1760.  out$=Esc$+"[32m"
  1761.  Call Scrn(out$)
  1762.  out$="Info  "
  1763.  Call Scrn(out$)
  1764.  out$=Esc$+"[33m"
  1765.  Call Scrn(out$)
  1766.  out$=Asc1$ Call Scrn(out$)
  1767.  out$=Esc$+"[19;16H"
  1768.  Call Scrn(out$)
  1769.  out$=Asc1$
  1770.  Call Scrn(out$)
  1771.  out$=Esc$+"[31m"
  1772.  Call Scrn(out$)
  1773.  out$="Ins "
  1774.  Call Scrn(out$)
  1775.  out$=Esc$+"[36m"
  1776.  Call Scrn(out$)
  1777.  out$=":"
  1778.  Call Scrn(out$)
  1779.  out$=Esc$+"[32m"
  1780.  Call Scrn(out$)
  1781.  out$="Help   "
  1782.  Call Scrn(out$)
  1783.  out$=Esc$+"[31m"
  1784.  Call Scrn(out$)
  1785.  out$="Del"
  1786.  Call Scrn(out$)
  1787.  out$=Esc$+"[36m"
  1788.  Call Scrn(out$)
  1789.  out$=":"
  1790.  Call Scrn(out$)
  1791.  out$=Esc$+"[32m"
  1792.  Call Scrn(out$)
  1793.  out$="Stats "
  1794.  Call Scrn(out$)
  1795.  out$=Esc$+"[31m"
  1796.  Call Scrn(out$)
  1797.  out$="CtlLft"
  1798.  Call Scrn(out$)
  1799.  out$=Esc$+"[36m"
  1800.  Call Scrn(out$)
  1801.  out$=":"
  1802.  Call Scrn(out$)
  1803.  out$=Esc$+"[32m"
  1804.  Call Scrn(out$)
  1805.  out$="Inventory"
  1806.  Call Scrn(out$)
  1807.  out$=String$(9,32)
  1808.  Call Scrn(out$)
  1809.  out$=Esc$+"[33m"
  1810.  Call Scrn(out$)
  1811.  out$=Asc1$ Call Scrn(out$)
  1812.  out$=Esc$+"[20;16H"
  1813.  Call Scrn(out$)
  1814.  out$=Asc1$
  1815.  Call Scrn(out$)
  1816.  out$=Esc$+"[31m"
  1817.  Call Scrn(out$)
  1818.  out$="CtlHm"
  1819.  Call Scrn(out$)
  1820.  out$=Esc$+"[36m"
  1821.  Call Scrn(out$)
  1822.  out$=":"
  1823.  Call Scrn(out$)
  1824.  out$=Esc$+"[32m"
  1825.  Call Scrn(out$)
  1826.  out$="Trade "
  1827.  Call Scrn(out$)
  1828.  out$=Esc$+"[31m"
  1829.  Call Scrn(out$)
  1830.  out$="CtlEnd"
  1831.  Call Scrn(out$)
  1832.  out$=Esc$+"[36m"
  1833.  Call Scrn(out$)
  1834.  out$=":"
  1835.  Call Scrn(out$)
  1836.  out$=Esc$+"[32m"
  1837.  Call Scrn(out$)
  1838.  out$="Level"
  1839.  Call Scrn(out$)
  1840.  out$=String$(23,32)
  1841.  Call Scrn(out$)
  1842.  out$=Esc$+"[33m"
  1843.  Call Scrn(out$)
  1844.  out$=Asc1$ Call Scrn(out$)
  1845.  out$=Esc$+"[21;16H"
  1846.  Call Scrn(out$)
  1847.  out$=Asc4$
  1848.  Call Scrn(out$)
  1849.  out$=String$(47,Asc2$)
  1850.  Call Scrn(out$)
  1851.  out$=Asc3$
  1852.  Call Scrn(out$)
  1853.  out$=Esc$+"[5;66H"
  1854.  Call Scrn(out$)
  1855.  out$=Esc$+"[36m"
  1856.  Call Scrn(out$)
  1857.  out$="Dungeon Runes" Call Scrn(out$)
  1858.  out$=Esc$+"[6;66H"
  1859.  Call Scrn(out$)
  1860.  out$=Esc$+"[33m"
  1861.  Call Scrn(out$)
  1862.  out$=Asc5$
  1863.  Call Scrn(out$)
  1864.  out$=String$(12,Asc2$)
  1865.  Call Scrn(out$)
  1866.  out$=Asc6$
  1867.  Call Scrn(out$)
  1868.  out$=Esc$+"[7;66H"
  1869.  Call Scrn(out$)
  1870.  out$=Asc1$
  1871.  Call Scrn(out$)
  1872.  out$=Esc$+"[31m"
  1873.  Call Scrn(out$)
  1874.  out$="X"
  1875.  Call Scrn(out$)
  1876.  out$=Esc$+"[36m"
  1877.  Call Scrn(out$)
  1878.  out$="="
  1879.  Call Scrn(out$)
  1880.  out$=Esc$+"[32m"
  1881.  Call Scrn(out$)
  1882.  out$="Player    "
  1883.  Call Scrn(out$)
  1884.  out$=Esc$+"[33m"
  1885.  Call Scrn(out$)
  1886.  out$=Asc1$ Call Scrn(out$)
  1887.  out$=Esc$+"[8;66H"
  1888.  Call Scrn(out$)
  1889.  out$=Asc1$
  1890.  Call Scrn(out$)
  1891.  out$=Esc$+"[31m"
  1892.  Call Scrn(out$)
  1893.  out$="#"
  1894.  Call Scrn(out$)
  1895.  out$=Esc$+"[36m"
  1896.  Call Scrn(out$)
  1897.  out$="="
  1898.  Call Scrn(out$)
  1899.  out$=Esc$+"[32m"
  1900.  Call Scrn(out$)
  1901.  out$="Monster   "
  1902.  Call Scrn(out$)
  1903.  out$=Esc$+"[33m"
  1904.  Call Scrn(out$)
  1905.  out$=Asc1$ Call Scrn(out$)
  1906.  out$=Esc$+"[9;66H"
  1907.  Call Scrn(out$)
  1908.  out$=Asc1$
  1909.  Call Scrn(out$)
  1910.  out$=Esc$+"[31m"
  1911.  Call Scrn(out$)
  1912.  out$="$"
  1913.  Call Scrn(out$)
  1914.  out$=Esc$+"[36m"
  1915.  Call Scrn(out$)
  1916.  out$="="
  1917.  Call Scrn(out$)
  1918.  out$=Esc$+"[32m"
  1919.  Call Scrn(out$)
  1920.  out$="Gold      "
  1921.  Call Scrn(out$)
  1922.  out$=Esc$+"[33m"
  1923.  Call Scrn(out$)
  1924.  out$=Asc1$ Call Scrn(out$)
  1925.  out$=Esc$+"[10;66H"
  1926.  Call Scrn(out$)
  1927.  out$=Asc1$
  1928.  Call Scrn(out$)
  1929.  out$=Esc$+"[31m"
  1930.  Call Scrn(out$)
  1931.  out$="~"
  1932.  Call Scrn(out$)
  1933.  out$=Esc$+"[36m"
  1934.  Call Scrn(out$)
  1935.  out$="="
  1936.  Call Scrn(out$)
  1937.  out$=Esc$+"[32m"
  1938.  Call Scrn(out$)
  1939.  out$="Scroll    "
  1940.  Call Scrn(out$)
  1941.  out$=Esc$+"[33m"
  1942.  Call Scrn(out$)
  1943.  out$=Asc1$ Call Scrn(out$)
  1944.  out$=Esc$+"[11;66H"
  1945.  Call Scrn(out$)
  1946.  out$=Asc1$
  1947.  Call Scrn(out$)
  1948.  out$=Esc$+"[31m"
  1949.  Call Scrn(out$)
  1950.  out$="^"
  1951.  Call Scrn(out$)
  1952.  out$=Esc$+"[36m"
  1953.  Call Scrn(out$)
  1954.  out$="="
  1955.  Call Scrn(out$)
  1956.  out$=Esc$+"[32m"
  1957.  Call Scrn(out$)
  1958.  out$="Trap      "
  1959.  Call Scrn(out$)
  1960.  out$=Esc$+"[33m"
  1961.  Call Scrn(out$)
  1962.  out$=Asc1$ Call Scrn(out$)
  1963.  out$=Esc$+"[12;66H"
  1964.  Call Scrn(out$)
  1965.  out$=Asc1$
  1966.  Call Scrn(out$)
  1967.  out$=Esc$+"[31m"
  1968.  Call Scrn(out$)
  1969.  out$="o"
  1970.  Call Scrn(out$)
  1971.  out$=Esc$+"[36m"
  1972.  Call Scrn(out$)
  1973.  out$="="
  1974.  Call Scrn(out$)
  1975.  out$=Esc$+"[32m"
  1976.  Call Scrn(out$)
  1977.  out$="Pit       "
  1978.  Call Scrn(out$)
  1979.  out$=Esc$+"[33m"
  1980.  Call Scrn(out$)
  1981.  out$=Asc1$ Call Scrn(out$)
  1982.  out$=Esc$+"[13;66H"
  1983.  Call Scrn(out$)
  1984.  out$=Asc1$
  1985.  Call Scrn(out$)
  1986.  out$=Esc$+"[31m"
  1987.  Call Scrn(out$)
  1988.  out$="*"
  1989.  Call Scrn(out$)
  1990.  out$=Esc$+"[36m"
  1991.  Call Scrn(out$)
  1992.  out$="="
  1993.  Call Scrn(out$)
  1994.  out$=Esc$+"[32m"
  1995.  Call Scrn(out$)
  1996.  out$="Gem       "
  1997.  Call Scrn(out$)
  1998.  out$=Esc$+"[33m"
  1999.  Call Scrn(out$)
  2000.  out$=Asc1$ Call Scrn(out$)
  2001.  out$=Esc$+"[14;66H"
  2002.  Call Scrn(out$)
  2003.  out$=Asc1$
  2004.  Call Scrn(out$)
  2005.  out$=Esc$+"[31m"
  2006.  Call Scrn(out$)
  2007.  out$="!"
  2008.  Call Scrn(out$)
  2009.  out$=Esc$+"[36m"
  2010.  Call Scrn(out$)
  2011.  out$="="
  2012.  Call Scrn(out$)
  2013.  out$=Esc$+"[32m"
  2014.  Call Scrn(out$)
  2015.  out$="Teleporter"
  2016.  Call Scrn(out$)
  2017.  out$=Esc$+"[33m"
  2018.  Call Scrn(out$)
  2019.  out$=Asc1$ Call Scrn(out$)
  2020.  out$=Esc$+"[15;66H"
  2021.  Call Scrn(out$)
  2022.  out$=Asc1$
  2023.  Call Scrn(out$)
  2024.  out$=Esc$+"[31m"
  2025.  Call Scrn(out$)
  2026.  out$="?"
  2027.  Call Scrn(out$)
  2028.  out$=Esc$+"[36m"
  2029.  Call Scrn(out$)
  2030.  out$="="
  2031.  Call Scrn(out$)
  2032.  out$=Esc$+"[32m"
  2033.  Call Scrn(out$)
  2034.  out$="Temple    "
  2035.  Call Scrn(out$)
  2036.  out$=Esc$+"[33m"
  2037.  Call Scrn(out$)
  2038.  out$=Asc1$ Call Scrn(out$)
  2039.  out$=Esc$+"[16;66H"
  2040.  Call Scrn(out$)
  2041.  out$=Asc1$
  2042.  Call Scrn(out$)
  2043.  out$=Esc$+"[31m"
  2044.  Call Scrn(out$)
  2045.  out$=Chr$(254)
  2046.  Call Scrn(out$)
  2047.  out$=Esc$+"[36m"
  2048.  Call Scrn(out$)
  2049.  out$="="
  2050.  Call Scrn(out$)
  2051.  out$=Esc$+"[32m"
  2052.  Call Scrn(out$)
  2053.  out$="Chest     "
  2054.  Call Scrn(out$)
  2055.  out$=Esc$+"[33m"
  2056.  Call Scrn(out$)
  2057.  out$=Asc1$ Call Scrn(out$)
  2058.  out$=Esc$+"[17;66H"
  2059.  Call Scrn(out$)
  2060.  out$=Asc1$
  2061.  Call Scrn(out$)
  2062.  out$=Esc$+"[31m"
  2063.  Call Scrn(out$)
  2064.  out$=">"
  2065.  Call Scrn(out$)
  2066.  out$=Esc$+"[36m"
  2067.  Call Scrn(out$)
  2068.  out$="="
  2069.  Call Scrn(out$)
  2070.  out$=Esc$+"[32m"
  2071.  Call Scrn(out$)
  2072.  out$="Stair Up  "
  2073.  Call Scrn(out$)
  2074.  out$=Esc$+"[33m"
  2075.  Call Scrn(out$)
  2076.  out$=Asc1$ Call Scrn(out$)
  2077.  out$=Esc$+"[18;66H"
  2078.  Call Scrn(out$)
  2079.  out$=Asc1$
  2080.  Call Scrn(out$)
  2081.  out$=Esc$+"[31m"
  2082.  Call Scrn(out$)
  2083.  out$="<"
  2084.  Call Scrn(out$)
  2085.  out$=Esc$+"[36m"
  2086.  Call Scrn(out$)
  2087.  out$="="
  2088.  Call Scrn(out$)
  2089.  out$=Esc$+"[32m"
  2090.  Call Scrn(out$)
  2091.  out$="Stair Down"
  2092.  Call Scrn(out$)
  2093.  out$=Esc$+"[33m"
  2094.  Call Scrn(out$)
  2095.  out$=Asc1$ Call Scrn(out$)
  2096.  out$=Esc$+"[19;66H"
  2097.  Call Scrn(out$)
  2098.  out$=Asc1$
  2099.  Call Scrn(out$)
  2100.  out$=Esc$+"[31m"
  2101.  Call Scrn(out$)
  2102.  out$="|"
  2103.  Call Scrn(out$)
  2104.  out$=Esc$+"[36m"
  2105.  Call Scrn(out$)
  2106.  out$="="
  2107.  Call Scrn(out$)
  2108.  out$=Esc$+"[32m"
  2109.  Call Scrn(out$)
  2110.  out$="Wand      "
  2111.  Call Scrn(out$)
  2112.  out$=Esc$+"[33m"
  2113.  Call Scrn(out$)
  2114.  out$=Asc1$ Call Scrn(out$)
  2115.  out$=Esc$+"[20;66H"
  2116.  Call Scrn(out$)
  2117.  out$=Asc1$
  2118.  Call Scrn(out$)
  2119.  out$=Esc$+"[31m"
  2120.  Call Scrn(out$)
  2121.  out$="@"
  2122.  Call Scrn(out$)
  2123.  out$=Esc$+"[36m"
  2124.  Call Scrn(out$)
  2125.  out$="="
  2126.  Call Scrn(out$)
  2127.  out$=Esc$+"[32m"
  2128.  Call Scrn(out$)
  2129.  out$="Potion    "
  2130.  Call Scrn(out$)
  2131.  out$=Esc$+"[33m"
  2132.  Call Scrn(out$)
  2133.  out$=Asc1$ Call Scrn(out$)
  2134.  out$=Esc$+"[21;66H"
  2135.  Call Scrn(out$)
  2136.  out$=Asc1$
  2137.  Call Scrn(out$)
  2138.  out$=Esc$+"[31m"
  2139.  Call Scrn(out$)
  2140.  out$="%"
  2141.  Call Scrn(out$)
  2142.  out$=Esc$+"[36m"
  2143.  Call Scrn(out$)
  2144.  out$="="
  2145.  Call Scrn(out$)
  2146.  out$=Esc$+"[32m"
  2147.  Call Scrn(out$)
  2148.  out$="Staff     "
  2149.  Call Scrn(out$)
  2150.  out$=Esc$+"[33m"
  2151.  Call Scrn(out$)
  2152.  out$=Asc1$ Call Scrn(out$)
  2153.  out$=Esc$+"[22;66H"
  2154.  Call Scrn(out$)
  2155.  out$=Asc1$
  2156.  Call Scrn(out$)
  2157.  out$=Esc$+"[31m"
  2158.  Call Scrn(out$)
  2159.  out$="&"
  2160.  Call Scrn(out$)
  2161.  out$=Esc$+"[36m"
  2162.  Call Scrn(out$)
  2163.  out$="="
  2164.  Call Scrn(out$)
  2165.  out$=Esc$+"[32m"
  2166.  Call Scrn(out$)
  2167.  out$="Coins     "
  2168.  Call Scrn(out$)
  2169.  out$=Esc$+"[33m"
  2170.  Call Scrn(out$)
  2171.  out$=Asc1$ Call Scrn(out$)
  2172.  out$=Esc$+"[23;66H"
  2173.  Call Scrn(out$)
  2174.  out$=Asc1$
  2175.  Call Scrn(out$)
  2176.  out$=Esc$+"[31m"
  2177.  Call Scrn(out$)
  2178.  out$=Chr$(34)
  2179.  Call Scrn(out$)
  2180.  out$=Esc$+"[36m"
  2181.  Call Scrn(out$)
  2182.  out$="="
  2183.  Call Scrn(out$)
  2184.  out$=Esc$+"[32m"
  2185.  Call Scrn(out$)
  2186.  out$="Ring      "
  2187.  Call Scrn(out$)
  2188.  out$=Esc$+"[33m"
  2189.  Call Scrn(out$)
  2190.  out$=Asc1$ Call Scrn(out$)
  2191.  out$=Esc$+"[24;66H"
  2192.  Call Scrn(out$)
  2193.  out$=Asc4$
  2194.  Call Scrn(out$)
  2195.  out$=String$(12,Asc2$)
  2196.  Call Scrn(out$)
  2197.  out$=Asc3$
  2198.  Call Scrn(out$)
  2199.  out$=Esc$+"[37m" Call Scrn(out$)
  2200.  out$=Esc$+"[23;27H"
  2201.  Call Scrn(out$)
  2202.  out$=Esc$+"[35m"
  2203.  Call Scrn(out$)
  2204.  out$="Press a listed key for Help"
  2205.  Call Scrn(out$)
  2206.  out$=Esc$+"[25;21H"
  2207.  Call Scrn(out$)
  2208.  out$=Esc$+"[36m"
  2209.  Call Scrn(out$)
  2210.  out$="Press <space> to return to the Dungeon"
  2211.  Call Scrn(out$)
  2212. End Sub
  2213.  
  2214. Sub Open.Screen
  2215.  out$=Esc$+"[2J"
  2216.  Call Scrn(out$)
  2217.  out$=out$+Chr$(13)+Chr$(10)
  2218.  out$=Esc$+"[0;37;40m"
  2219.  Call Scrn(out$)
  2220.  out$=Esc$+"[1;31m"
  2221.  Call Scrn(out$)
  2222.  out$=Esc$+"[4C"
  2223.  Call Scrn(out$)
  2224.  out$=Esc$+"[0;37;40m"
  2225.  Call Scrn(out$)
  2226.  out$="·"
  2227.  Call Scrn(out$)
  2228.  out$=Esc$+"[1;30m"
  2229.  Call Scrn(out$)
  2230.  out$="░"
  2231.  Call Scrn(out$)
  2232.  out$=Esc$+"[15C"
  2233.  Call Scrn(out$)
  2234.  out$=Esc$+"[0;37m"
  2235.  Call Scrn(out$)
  2236.  out$="·"
  2237.  Call Scrn(out$)
  2238.  out$=Esc$+"[25C"
  2239.  Call Scrn(out$)
  2240.  out$=Esc$+"[1;30m"
  2241.  Call Scrn(out$)
  2242.  out$="░  ░     "
  2243.  Call Scrn(out$)
  2244.  out$=Esc$+"[37m"
  2245.  Call Scrn(out$)
  2246.  out$="∙"
  2247.  Call Scrn(out$)
  2248.  out$=Esc$+"[6C"
  2249.  Call Scrn(out$)
  2250.  out$=Esc$+"[0;37m"
  2251.  Call Scrn(out$)
  2252.  out$="·   ∙     "
  2253.  Call Scrn(out$)
  2254.  out$=Esc$+"[1;30m"
  2255.  Call Scrn(out$)
  2256.  out$="░"
  2257.  Call Scrn(out$)
  2258.  out$=Esc$+"[0;37m"
  2259.  Call Scrn(out$)
  2260.  out$="∙"
  2261.  Call Scrn(out$)
  2262.  Call Scrn(Chr$(13)+Chr$(10))
  2263.  out$=Esc$+"[6C"
  2264.  Call Scrn(out$)
  2265.  out$=Esc$+"[1;30m"
  2266.  Call Scrn(out$)
  2267.  out$="░"
  2268.  Call Scrn(out$)
  2269.  out$=Esc$+"[0;37m"
  2270.  Call Scrn(out$)
  2271.  out$="∙"
  2272.  Call Scrn(out$)
  2273.  out$=Esc$+"[10C"
  2274.  Call Scrn(out$)
  2275.  out$=Esc$+"[1;30m"
  2276.  Call Scrn(out$)
  2277.  out$="░ ░"
  2278.  Call Scrn(out$)
  2279.  out$=Esc$+"[8C"
  2280.  Call Scrn(out$)
  2281.  out$=Esc$+"[0;37m"
  2282.  Call Scrn(out$)
  2283.  out$="∙  ·    "
  2284.  Call Scrn(out$)
  2285.  out$=Esc$+"[1;37m"
  2286.  Call Scrn(out$)
  2287.  out$="▄▓▓██▄   "
  2288.  Call Scrn(out$)
  2289.  out$=Esc$+"[0;37m"
  2290.  Call Scrn(out$)
  2291.  out$="∙ "
  2292.  Call Scrn(out$)
  2293.  out$=Esc$+"[1;30m"
  2294.  Call Scrn(out$)
  2295.  out$="░░"
  2296.  Call Scrn(out$)
  2297.  out$=Esc$+"[15C"
  2298.  Call Scrn(out$)
  2299.  out$=Esc$+"[37m"
  2300.  Call Scrn(out$)
  2301.  out$="Welcome To"
  2302.  Call Scrn(out$)
  2303.  out$=Esc$+"[30m"
  2304.  Call Scrn(out$)
  2305.  out$="░ "
  2306.  Call Scrn(out$)
  2307.  out$=Esc$+"[0;37m"
  2308.  Call Scrn(out$)
  2309.  out$="∙"
  2310.  Call Scrn(out$)
  2311.  Call Scrn(Chr$(13)+Chr$(10))
  2312.  out$="    "
  2313.  Call Scrn(out$)
  2314.  out$=Esc$+"[1;30m"
  2315.  Call Scrn(out$)
  2316.  out$="░∙░▒░ "
  2317.  Call Scrn(out$)
  2318.  out$=Esc$+"[0;37m"
  2319.  Call Scrn(out$)
  2320.  out$="∙"
  2321.  Call Scrn(out$)
  2322.  out$=Esc$+"[9C"
  2323.  Call Scrn(out$)
  2324.  out$=Esc$+"[1;30m"
  2325.  Call Scrn(out$)
  2326.  out$="▒· ░"
  2327.  Call Scrn(out$)
  2328.  out$=Esc$+"[12C"
  2329.  Call Scrn(out$)
  2330.  out$=Esc$+"[37m"
  2331.  Call Scrn(out$)
  2332.  out$="▐███▓█▓▌   "
  2333.  Call Scrn(out$)
  2334.  out$=Esc$+"[30m"
  2335.  Call Scrn(out$)
  2336.  out$="░ ▒▓░"
  2337.  Call Scrn(out$)
  2338.  out$=Esc$+"[7C"
  2339.  Call Scrn(out$)
  2340.  out$=Esc$+"[37m"
  2341.  Call Scrn(out$)
  2342.  out$="·  The Dungeon v5.0"
  2343.  Call Scrn(out$)
  2344.  Call Scrn(Chr$(13)+Chr$(10))
  2345.  out$="     "
  2346.  Call Scrn(out$)
  2347.  out$=Esc$+"[30m"
  2348.  Call Scrn(out$)
  2349.  out$="░░▒▓░"
  2350.  Call Scrn(out$)
  2351.  out$=Esc$+"[9C"
  2352.  Call Scrn(out$)
  2353.  out$=Esc$+"[37m"
  2354.  Call Scrn(out$)
  2355.  out$="·  "
  2356.  Call Scrn(out$)
  2357.  out$=Esc$+"[30m"
  2358.  Call Scrn(out$)
  2359.  out$="▒  ░"
  2360.  Call Scrn(out$)
  2361.  out$=Esc$+"[0;37m"
  2362.  Call Scrn(out$)
  2363.  out$=". "
  2364.  Call Scrn(out$)
  2365.  out$=Esc$+"[1;37m"
  2366.  Call Scrn(out$)
  2367.  out$="· "
  2368.  Call Scrn(out$)
  2369.  out$=Esc$+"[30m"
  2370.  Call Scrn(out$)
  2371.  out$="░ ·    "
  2372.  Call Scrn(out$)
  2373.  out$=Esc$+"[37m"
  2374.  Call Scrn(out$)
  2375.  out$="▀▓█▓█▀"
  2376.  Call Scrn(out$)
  2377.  out$=Esc$+"[6C"
  2378.  Call Scrn(out$)
  2379.  out$=Esc$+"[30m"
  2380.  Call Scrn(out$)
  2381.  out$="░ ▓▒   "
  2382.  Call Scrn(out$)
  2383.  out$=Esc$+"[0;37m"
  2384.  Call Scrn(out$)
  2385.  out$="∙"
  2386.  Call Scrn(out$)
  2387.  out$=Esc$+"[6C"
  2388.  Call Scrn(out$)
  2389.  out$=Esc$+"[1;37m"
  2390.  Call Scrn(out$)
  2391.  out$=".   ·   "
  2392.  Call Scrn(out$)
  2393.  out$=Esc$+"[0;37m"
  2394.  Call Scrn(out$)
  2395.  out$="∙  ·"
  2396.  Call Scrn(out$)
  2397.  Call Scrn(Chr$(13)+Chr$(10))
  2398.  out$="  "
  2399.  Call Scrn(out$)
  2400.  out$=Esc$+"[1;37m"
  2401.  Call Scrn(out$)
  2402.  out$=".   ·   "
  2403.  Call Scrn(out$)
  2404.  out$=Esc$+"[0;37m"
  2405.  Call Scrn(out$)
  2406.  out$="∙  ·"
  2407.  Call Scrn(out$)
  2408.  out$=Esc$+"[6C"
  2409.  Call Scrn(out$)
  2410.  out$="∙ "
  2411.  Call Scrn(out$)
  2412.  out$=Esc$+"[1;30m"
  2413.  Call Scrn(out$)
  2414.  out$="▒▓▓  "
  2415.  Call Scrn(out$)
  2416.  out$=Esc$+"[0;37m"
  2417.  Call Scrn(out$)
  2418.  out$="· . "
  2419.  Call Scrn(out$)
  2420.  out$=Esc$+"[1;30m"
  2421.  Call Scrn(out$)
  2422.  out$="░▒"
  2423.  Call Scrn(out$)
  2424.  out$=Esc$+"[17C"
  2425.  Call Scrn(out$)
  2426.  out$=Esc$+"[0;37m"
  2427.  Call Scrn(out$)
  2428.  out$="· "
  2429.  Call Scrn(out$)
  2430.  out$=Esc$+"[1;30m"
  2431.  Call Scrn(out$)
  2432.  out$="▒▓"
  2433.  Call Scrn(out$)
  2434.  out$=Esc$+"[8C"
  2435.  Call Scrn(out$)
  2436.  out$=Esc$+"[37m"
  2437.  Call Scrn(out$)
  2438.  out$="Another DND game"
  2439.  Call Scrn(out$)
  2440.  Call Scrn(Chr$(13)+Chr$(10))
  2441.  out$="    "
  2442.  Call Scrn(out$)
  2443.  out$=Esc$+"[0;37m"
  2444.  Call Scrn(out$)
  2445.  out$="▄▄▄▄ "
  2446.  Call Scrn(out$)
  2447.  out$=Esc$+"[1;30m"
  2448.  Call Scrn(out$)
  2449.  out$="░▒░  ∙"
  2450.  Call Scrn(out$)
  2451.  out$=Esc$+"[8C"
  2452.  Call Scrn(out$)
  2453.  out$="░▒▓▒"
  2454.  Call Scrn(out$)
  2455.  out$=Esc$+"[0;37m"
  2456.  Call Scrn(out$)
  2457.  out$="·    "
  2458.  Call Scrn(out$)
  2459.  out$=Esc$+"[1;30m"
  2460.  Call Scrn(out$)
  2461.  out$="▒ ▒  "
  2462.  Call Scrn(out$)
  2463.  out$=Esc$+"[0;37m"
  2464.  Call Scrn(out$)
  2465.  out$="·   ∙   "
  2466.  Call Scrn(out$)
  2467.  out$=Esc$+"[1;30m"
  2468.  Call Scrn(out$)
  2469.  out$="·    ░  ░    ░"
  2470.  Call Scrn(out$)
  2471.  out$=Esc$+"[0;37m"
  2472.  Call Scrn(out$)
  2473.  out$="∙"
  2474.  Call Scrn(out$)
  2475.  out$=Esc$+"[4C"
  2476.  Call Scrn(out$)
  2477.  out$=Esc$+"[1;37m"
  2478.  Call Scrn(out$)
  2479.  out$="By the Author"
  2480.  Call Scrn(out$)
  2481.  Call Scrn(Chr$(13)+Chr$(10))
  2482.  out$="   "
  2483.  Call Scrn(out$)
  2484.  out$=Esc$+"[0;37m"
  2485.  Call Scrn(out$)
  2486.  out$="▄█▓████  "
  2487.  Call Scrn(out$)
  2488.  out$=Esc$+"[1;30m"
  2489.  Call Scrn(out$)
  2490.  out$="░"
  2491.  Call Scrn(out$)
  2492.  out$=Esc$+"[6C"
  2493.  Call Scrn(out$)
  2494.  out$=Esc$+"[37m"
  2495.  Call Scrn(out$)
  2496.  out$="·     "
  2497.  Call Scrn(out$)
  2498.  out$=Esc$+"[30m"
  2499.  Call Scrn(out$)
  2500.  out$="░▒▓    ░ ▓"
  2501.  Call Scrn(out$)
  2502.  out$=Esc$+"[13C"
  2503.  Call Scrn(out$)
  2504.  out$=Esc$+"[0;37m"
  2505.  Call Scrn(out$)
  2506.  out$="·"
  2507.  Call Scrn(out$)
  2508.  out$=Esc$+"[8C"
  2509.  Call Scrn(out$)
  2510.  out$=Esc$+"[1;30m"
  2511.  Call Scrn(out$)
  2512.  out$="∙░▒░ "
  2513.  Call Scrn(out$)
  2514.  out$=Esc$+"[0;37m"
  2515.  Call Scrn(out$)
  2516.  out$="∙"
  2517.  Call Scrn(out$)
  2518.  out$=Esc$+"[6C"
  2519.  Call Scrn(out$)
  2520.  out$=Esc$+"[1;37m"
  2521.  Call Scrn(out$)
  2522.  out$=".   ·"
  2523.  Call Scrn(out$)
  2524.  Call Scrn(Chr$(13)+Chr$(10))
  2525.  out$="  "
  2526.  Call Scrn(out$)
  2527.  out$=Esc$+"[0;37m"
  2528.  Call Scrn(out$)
  2529.  out$="█▓██▓▓▓▓█    ·"
  2530.  Call Scrn(out$)
  2531.  out$=Esc$+"[11C"
  2532.  Call Scrn(out$)
  2533.  out$=Esc$+"[1;30m"
  2534.  Call Scrn(out$)
  2535.  out$="▒  "
  2536.  Call Scrn(out$)
  2537.  out$=Esc$+"[0;37m"
  2538.  Call Scrn(out$)
  2539.  out$="∙  "
  2540.  Call Scrn(out$)
  2541.  out$=Esc$+"[1;30m"
  2542.  Call Scrn(out$)
  2543.  out$="░ ▓∙ "
  2544.  Call Scrn(out$)
  2545.  out$=Esc$+"[0;37m"
  2546.  Call Scrn(out$)
  2547.  out$=". "
  2548.  Call Scrn(out$)
  2549.  out$=Esc$+"[1;37m"
  2550.  Call Scrn(out$)
  2551.  out$="·   "
  2552.  Call Scrn(out$)
  2553.  out$=Esc$+"[0;31m"
  2554.  Call Scrn(out$)
  2555.  out$="__     "
  2556.  Call Scrn(out$)
  2557.  out$=Esc$+"[37m"
  2558.  Call Scrn(out$)
  2559.  out$="▄"
  2560.  Call Scrn(out$)
  2561.  out$=Esc$+"[33m"
  2562.  Call Scrn(out$)
  2563.  out$="║"
  2564.  Call Scrn(out$)
  2565.  out$=Esc$+"[31m"
  2566.  Call Scrn(out$)
  2567.  out$="██▄"
  2568.  Call Scrn(out$)
  2569.  out$=Esc$+"[9C"
  2570.  Call Scrn(out$)
  2571.  out$=Esc$+"[1;37m"
  2572.  Call Scrn(out$)
  2573.  out$="of DNDBBS.."
  2574.  Call Scrn(out$)
  2575.  Call Scrn(Chr$(13)+Chr$(10))
  2576.  out$=" "
  2577.  Call Scrn(out$)
  2578.  out$=Esc$+"[32m"
  2579.  Call Scrn(out$)
  2580.  out$="██"
  2581.  Call Scrn(out$)
  2582.  out$=Esc$+"[0;37m"
  2583.  Call Scrn(out$)
  2584.  out$="█"
  2585.  Call Scrn(out$)
  2586.  out$=Esc$+"[1;32m"
  2587.  Call Scrn(out$)
  2588.  out$="█"
  2589.  Call Scrn(out$)
  2590.  out$=Esc$+"[0;37m"
  2591.  Call Scrn(out$)
  2592.  out$="████"
  2593.  Call Scrn(out$)
  2594.  out$=Esc$+"[1;32m"
  2595.  Call Scrn(out$)
  2596.  out$="██"
  2597.  Call Scrn(out$)
  2598.  out$=Esc$+"[10C"
  2599.  Call Scrn(out$)
  2600.  out$=Esc$+"[0;37m"
  2601.  Call Scrn(out$)
  2602.  out$="∙"
  2603.  Call Scrn(out$)
  2604.  out$=Esc$+"[7C"
  2605.  Call Scrn(out$)
  2606.  out$=Esc$+"[1;30m"
  2607.  Call Scrn(out$)
  2608.  out$="▒    ░░▒▒"
  2609.  Call Scrn(out$)
  2610.  out$=Esc$+"[6C"
  2611.  Call Scrn(out$)
  2612.  out$=Esc$+"[0;37m"
  2613.  Call Scrn(out$)
  2614.  out$="▄"
  2615.  Call Scrn(out$)
  2616.  out$=Esc$+"[33m"
  2617.  Call Scrn(out$)
  2618.  out$="║"
  2619.  Call Scrn(out$)
  2620.  out$=Esc$+"[37m"
  2621.  Call Scrn(out$)
  2622.  out$="█▌  ██"
  2623.  Call Scrn(out$)
  2624.  out$=Esc$+"[33m"
  2625.  Call Scrn(out$)
  2626.  out$="║"
  2627.  Call Scrn(out$)
  2628.  out$=Esc$+"[7C"
  2629.  Call Scrn(out$)
  2630.  out$="║"
  2631.  Call Scrn(out$)
  2632.  out$=Esc$+"[31m"
  2633.  Call Scrn(out$)
  2634.  out$="█▄  "
  2635.  Call Scrn(out$)
  2636.  out$=Esc$+"[1;30m"
  2637.  Call Scrn(out$)
  2638.  out$="░"
  2639.  Call Scrn(out$)
  2640.  out$=Esc$+"[0;37m"
  2641.  Call Scrn(out$)
  2642.  out$="∙"
  2643.  Call Scrn(out$)
  2644.  Call Scrn(Chr$(13)+Chr$(10))
  2645.  out$=Esc$+"[1;32m"
  2646.  Call Scrn(out$)
  2647.  out$="█████████████"
  2648.  Call Scrn(out$)
  2649.  out$=Esc$+"[17C"
  2650.  Call Scrn(out$)
  2651.  out$=Esc$+"[30m"
  2652.  Call Scrn(out$)
  2653.  out$="░▒"
  2654.  Call Scrn(out$)
  2655.  out$=Esc$+"[0;37m"
  2656.  Call Scrn(out$)
  2657.  out$="∙    "
  2658.  Call Scrn(out$)
  2659.  out$=Esc$+"[1;30m"
  2660.  Call Scrn(out$)
  2661.  out$="░   "
  2662.  Call Scrn(out$)
  2663.  out$=Esc$+"[0;37m"
  2664.  Call Scrn(out$)
  2665.  out$="▄▄█▓"
  2666.  Call Scrn(out$)
  2667.  out$=Esc$+"[33m"
  2668.  Call Scrn(out$)
  2669.  out$="║"
  2670.  Call Scrn(out$)
  2671.  out$=Esc$+"[37m"
  2672.  Call Scrn(out$)
  2673.  out$="▓█ ▐▓█▓▄    ▄█"
  2674.  Call Scrn(out$)
  2675.  out$=Esc$+"[33m"
  2676.  Call Scrn(out$)
  2677.  out$="║   "
  2678.  Call Scrn(out$)
  2679.  out$=Esc$+"[1;30m"
  2680.  Call Scrn(out$)
  2681.  out$="∙░▒░ "
  2682.  Call Scrn(out$)
  2683.  out$=Esc$+"[0;37m"
  2684.  Call Scrn(out$)
  2685.  out$="∙"
  2686.  Call Scrn(out$)
  2687.  out$=Esc$+"[1;30m"
  2688.  Call Scrn(out$)
  2689.  out$="∙ ░ ░"
  2690.  Call Scrn(out$)
  2691.  out$=Esc$+"[0;37m"
  2692.  Call Scrn(out$)
  2693.  out$=". "
  2694.  Call Scrn(out$)
  2695.  out$=Esc$+"[1;37m"
  2696.  Call Scrn(out$)
  2697.  out$="·"
  2698.  Call Scrn(out$)
  2699.  Call Scrn(Chr$(13)+Chr$(10))
  2700.  out$=Esc$+"[32m"
  2701.  Call Scrn(out$)
  2702.  out$="██▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  2703.  Call Scrn(out$)
  2704.  out$=Esc$+"[14C"
  2705.  Call Scrn(out$)
  2706.  out$=Esc$+"[30m"
  2707.  Call Scrn(out$)
  2708.  out$="░     ░"
  2709.  Call Scrn(out$)
  2710.  out$=Esc$+"[0;33m"
  2711.  Call Scrn(out$)
  2712.  out$="\"
  2713.  Call Scrn(out$)
  2714.  out$=Esc$+"[37m"
  2715.  Call Scrn(out$)
  2716.  out$="▀██▓██"
  2717.  Call Scrn(out$)
  2718.  out$=Esc$+"[33m"
  2719.  Call Scrn(out$)
  2720.  out$="║"
  2721.  Call Scrn(out$)
  2722.  out$=Esc$+"[37m"
  2723.  Call Scrn(out$)
  2724.  out$="█▓▌█▓██▓█   ▓█"
  2725.  Call Scrn(out$)
  2726.  out$=Esc$+"[33m"
  2727.  Call Scrn(out$)
  2728.  out$="║"
  2729.  Call Scrn(out$)
  2730.  out$=Esc$+"[37m"
  2731.  Call Scrn(out$)
  2732.  out$="█   "
  2733.  Call Scrn(out$)
  2734.  out$=Esc$+"[1;37m"
  2735.  Call Scrn(out$)
  2736.  out$="·"
  2737.  Call Scrn(out$)
  2738.  out$=Esc$+"[7C"
  2739.  Call Scrn(out$)
  2740.  out$=Esc$+"[30m"
  2741.  Call Scrn(out$)
  2742.  out$="▓  "
  2743.  Call Scrn(out$)
  2744.  out$=Esc$+"[0;37m"
  2745.  Call Scrn(out$)
  2746.  out$="· ."
  2747.  Call Scrn(out$)
  2748.  Call Scrn(Chr$(13)+Chr$(10))
  2749.  out$=Esc$+"[1;32m"
  2750.  Call Scrn(out$)
  2751.  out$="▓▓▓▓▓▓▓▒▒▓▒▓▒▓▒▒▓▓▒"
  2752.  Call Scrn(out$)
  2753.  out$=Esc$+"[8C"
  2754.  Call Scrn(out$)
  2755.  out$=Esc$+"[0;37m"
  2756.  Call Scrn(out$)
  2757.  out$="∙     "
  2758.  Call Scrn(out$)
  2759.  out$=Esc$+"[1;30m"
  2760.  Call Scrn(out$)
  2761.  out$="∙     "
  2762.  Call Scrn(out$)
  2763.  out$=Esc$+"[0;33m"
  2764.  Call Scrn(out$)
  2765.  out$="\\"
  2766.  Call Scrn(out$)
  2767.  out$=Esc$+"[37m"
  2768.  Call Scrn(out$)
  2769.  out$="██▓▌"
  2770.  Call Scrn(out$)
  2771.  out$=Esc$+"[33m"
  2772.  Call Scrn(out$)
  2773.  out$="║  "
  2774.  Call Scrn(out$)
  2775.  out$=Esc$+"[37m"
  2776.  Call Scrn(out$)
  2777.  out$="\▐█▓██▓█  █▌"
  2778.  Call Scrn(out$)
  2779.  out$=Esc$+"[33m"
  2780.  Call Scrn(out$)
  2781.  out$="║"
  2782.  Call Scrn(out$)
  2783.  out$=Esc$+"[37m"
  2784.  Call Scrn(out$)
  2785.  out$="█▓   "
  2786.  Call Scrn(out$)
  2787.  out$=Esc$+"[1;37m"
  2788.  Call Scrn(out$)
  2789.  out$="·   "
  2790.  Call Scrn(out$)
  2791.  out$=Esc$+"[0;37m"
  2792.  Call Scrn(out$)
  2793.  out$=".    "
  2794.  Call Scrn(out$)
  2795.  out$=Esc$+"[1;30m"
  2796.  Call Scrn(out$)
  2797.  out$="░ ▒"
  2798.  Call Scrn(out$)
  2799.  Call Scrn(Chr$(13)+Chr$(10))
  2800.  out$=Esc$+"[32m"
  2801.  Call Scrn(out$)
  2802.  out$="▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░"
  2803.  Call Scrn(out$)
  2804.  out$=Esc$+"[13C"
  2805.  Call Scrn(out$)
  2806.  out$=Esc$+"[37m"
  2807.  Call Scrn(out$)
  2808.  out$="·   "
  2809.  Call Scrn(out$)
  2810.  out$=Esc$+"[0;33m"
  2811.  Call Scrn(out$)
  2812.  out$="\\"
  2813.  Call Scrn(out$)
  2814.  out$=Esc$+"[37m"
  2815.  Call Scrn(out$)
  2816.  out$="█▀ "
  2817.  Call Scrn(out$)
  2818.  out$=Esc$+"[33m"
  2819.  Call Scrn(out$)
  2820.  out$="║"
  2821.  Call Scrn(out$)
  2822.  out$=Esc$+"[37m"
  2823.  Call Scrn(out$)
  2824.  out$="\  \▀██▓███/ ▀"
  2825.  Call Scrn(out$)
  2826.  out$=Esc$+"[33m"
  2827.  Call Scrn(out$)
  2828.  out$="║"
  2829.  Call Scrn(out$)
  2830.  out$=Esc$+"[37m"
  2831.  Call Scrn(out$)
  2832.  out$="▓██▄"
  2833.  Call Scrn(out$)
  2834.  out$=Esc$+"[9C"
  2835.  Call Scrn(out$)
  2836.  out$="∙   "
  2837.  Call Scrn(out$)
  2838.  out$=Esc$+"[1;30m"
  2839.  Call Scrn(out$)
  2840.  out$="░"
  2841.  Call Scrn(out$)
  2842.  Call Scrn(Chr$(13)+Chr$(10))
  2843.  out$=Esc$+"[32m"
  2844.  Call Scrn(out$)
  2845.  out$="▒▒░▒░▒░░░░░░░░░░░░░░░░"
  2846.  Call Scrn(out$)
  2847.  out$=Esc$+"[0;32m"
  2848.  Call Scrn(out$)
  2849.  out$="███"
  2850.  Call Scrn(out$)
  2851.  out$=Esc$+"[1;33m"
  2852.  Call Scrn(out$)
  2853.  out$="████"
  2854.  Call Scrn(out$)
  2855.  out$=Esc$+"[8C"
  2856.  Call Scrn(out$)
  2857.  out$=Esc$+"[37m"
  2858.  Call Scrn(out$)
  2859.  out$="·   "
  2860.  Call Scrn(out$)
  2861.  out$=Esc$+"[0;33m"
  2862.  Call Scrn(out$)
  2863.  out$="\"
  2864.  Call Scrn(out$)
  2865.  out$=Esc$+"[31m"
  2866.  Call Scrn(out$)
  2867.  out$="▒▒▒▒"
  2868.  Call Scrn(out$)
  2869.  out$=Esc$+"[33m"
  2870.  Call Scrn(out$)
  2871.  out$="_"
  2872.  Call Scrn(out$)
  2873.  out$=Esc$+"[37m"
  2874.  Call Scrn(out$)
  2875.  out$="\"
  2876.  Call Scrn(out$)
  2877.  out$=Esc$+"[33m"
  2878.  Call Scrn(out$)
  2879.  out$="__"
  2880.  Call Scrn(out$)
  2881.  out$=Esc$+"[37m"
  2882.  Call Scrn(out$)
  2883.  out$="\"
  2884.  Call Scrn(out$)
  2885.  out$=Esc$+"[33m"
  2886.  Call Scrn(out$)
  2887.  out$="_║"
  2888.  Call Scrn(out$)
  2889.  out$=Esc$+"[37m"
  2890.  Call Scrn(out$)
  2891.  out$="▀▀▀/▀"
  2892.  Call Scrn(out$)
  2893.  out$=Esc$+"[31m"
  2894.  Call Scrn(out$)
  2895.  out$="▒"
  2896.  Call Scrn(out$)
  2897.  out$=Esc$+"[33m"
  2898.  Call Scrn(out$)
  2899.  out$="■"
  2900.  Call Scrn(out$)
  2901.  out$=Esc$+"[31m"
  2902.  Call Scrn(out$)
  2903.  out$="▒"
  2904.  Call Scrn(out$)
  2905.  out$=Esc$+"[33m"
  2906.  Call Scrn(out$)
  2907.  out$="■"
  2908.  Call Scrn(out$)
  2909.  out$=Esc$+"[31m"
  2910.  Call Scrn(out$)
  2911.  out$="▒▓"
  2912.  Call Scrn(out$)
  2913.  out$=Esc$+"[33;41m"
  2914.  Call Scrn(out$)
  2915.  out$="/"
  2916.  Call Scrn(out$)
  2917.  out$=Esc$+"[5C"
  2918.  Call Scrn(out$)
  2919.  out$=Esc$+"[1;37;40m"
  2920.  Call Scrn(out$)
  2921.  out$="."
  2922.  Call Scrn(out$)
  2923.  Call Scrn(Chr$(13)+Chr$(10))
  2924.  out$=Esc$+"[32m"
  2925.  Call Scrn(out$)
  2926.  out$="░░░░░░"
  2927.  Call Scrn(out$)
  2928.  out$=Esc$+"[0;32m"
  2929.  Call Scrn(out$)
  2930.  out$="█"
  2931.  Call Scrn(out$)
  2932.  out$=Esc$+"[1;32m"
  2933.  Call Scrn(out$)
  2934.  out$="░"
  2935.  Call Scrn(out$)
  2936.  out$=Esc$+"[0;32m"
  2937.  Call Scrn(out$)
  2938.  out$="█"
  2939.  Call Scrn(out$)
  2940.  out$=Esc$+"[1;32m"
  2941.  Call Scrn(out$)
  2942.  out$="░░░"
  2943.  Call Scrn(out$)
  2944.  out$=Esc$+"[0;32m"
  2945.  Call Scrn(out$)
  2946.  out$="█"
  2947.  Call Scrn(out$)
  2948.  out$=Esc$+"[1;32m"
  2949.  Call Scrn(out$)
  2950.  out$="░"
  2951.  Call Scrn(out$)
  2952.  out$=Esc$+"[0;32m"
  2953.  Call Scrn(out$)
  2954.  out$="█"
  2955.  Call Scrn(out$)
  2956.  out$=Esc$+"[1;32m"
  2957.  Call Scrn(out$)
  2958.  out$="░"
  2959.  Call Scrn(out$)
  2960.  out$=Esc$+"[0;32m"
  2961.  Call Scrn(out$)
  2962.  out$="████████"
  2963.  Call Scrn(out$)
  2964.  out$=Esc$+"[1;33m"
  2965.  Call Scrn(out$)
  2966.  out$="███████"
  2967.  Call Scrn(out$)
  2968.  out$=Esc$+"[0;34m"
  2969.  Call Scrn(out$)
  2970.  out$="████████"
  2971.  Call Scrn(out$)
  2972.  out$=Esc$+"[1;37;44m"
  2973.  Call Scrn(out$)
  2974.  out$="▓▒"
  2975.  Call Scrn(out$)
  2976.  out$=Esc$+"[0;34;40m"
  2977.  Call Scrn(out$)
  2978.  out$="█"
  2979.  Call Scrn(out$)
  2980.  out$=Esc$+"[31m"
  2981.  Call Scrn(out$)
  2982.  out$="▒▒▒"
  2983.  Call Scrn(out$)
  2984.  out$=Esc$+"[33m"
  2985.  Call Scrn(out$)
  2986.  out$="■"
  2987.  Call Scrn(out$)
  2988.  out$=Esc$+"[31m"
  2989.  Call Scrn(out$)
  2990.  out$="▒"
  2991.  Call Scrn(out$)
  2992.  out$=Esc$+"[33m"
  2993.  Call Scrn(out$)
  2994.  out$="■"
  2995.  Call Scrn(out$)
  2996.  out$=Esc$+"[31m"
  2997.  Call Scrn(out$)
  2998.  out$="▒"
  2999.  Call Scrn(out$)
  3000.  out$=Esc$+"[33m"
  3001.  Call Scrn(out$)
  3002.  out$="■"
  3003.  Call Scrn(out$)
  3004.  out$=Esc$+"[31m"
  3005.  Call Scrn(out$)
  3006.  out$="▒"
  3007.  Call Scrn(out$)
  3008.  out$=Esc$+"[33m"
  3009.  Call Scrn(out$)
  3010.  out$="■"
  3011.  Call Scrn(out$)
  3012.  out$=Esc$+"[31m"
  3013.  Call Scrn(out$)
  3014.  out$="▒"
  3015.  Call Scrn(out$)
  3016.  out$=Esc$+"[33m"
  3017.  Call Scrn(out$)
  3018.  out$="■"
  3019.  Call Scrn(out$)
  3020.  out$=Esc$+"[31m"
  3021.  Call Scrn(out$)
  3022.  out$="▒"
  3023.  Call Scrn(out$)
  3024.  out$=Esc$+"[33m"
  3025.  Call Scrn(out$)
  3026.  out$="■"
  3027.  Call Scrn(out$)
  3028.  out$=Esc$+"[31m"
  3029.  Call Scrn(out$)
  3030.  out$="▒"
  3031.  Call Scrn(out$)
  3032.  out$=Esc$+"[33m"
  3033.  Call Scrn(out$)
  3034.  out$="■"
  3035.  Call Scrn(out$)
  3036.  out$=Esc$+"[31m"
  3037.  Call Scrn(out$)
  3038.  out$="▒▒▒▒▓"
  3039.  Call Scrn(out$)
  3040.  Call Scrn(Chr$(13)+Chr$(10))
  3041.  out$=Esc$+"[A"
  3042.  Call Scrn(out$)
  3043.  out$=Esc$+"[63C"
  3044.  Call Scrn(out$)
  3045.  out$=Esc$+"[33;41m"
  3046.  Call Scrn(out$)
  3047.  out$="/"
  3048.  Call Scrn(out$)
  3049.  out$=Esc$+"[34;40m"
  3050.  Call Scrn(out$)
  3051.  out$="████████████████"
  3052.  Call Scrn(out$)
  3053.  out$=Esc$+"[32m"
  3054.  Call Scrn(out$)
  3055.  out$="█████████████████████"
  3056.  Call Scrn(out$)
  3057.  out$=Esc$+"[1;33m"
  3058.  Call Scrn(out$)
  3059.  out$="██▓██"
  3060.  Call Scrn(out$)
  3061.  out$=Esc$+"[0;34m"
  3062.  Call Scrn(out$)
  3063.  out$="▒▒▓▓▓▓▓▓▓▓▓▓"
  3064.  Call Scrn(out$)
  3065.  out$=Esc$+"[1;37;44m"
  3066.  Call Scrn(out$)
  3067.  out$="▓▒░"
  3068.  Call Scrn(out$)
  3069.  out$=Esc$+"[0;34;40m"
  3070.  Call Scrn(out$)
  3071.  out$="▓▓"
  3072.  Call Scrn(out$)
  3073.  out$=Esc$+"[31m"
  3074.  Call Scrn(out$)
  3075.  out$="▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓"
  3076.  Call Scrn(out$)
  3077.  out$=Esc$+"[33;41m"
  3078.  Call Scrn(out$)
  3079.  out$="/"
  3080.  Call Scrn(out$)
  3081.  out$=Esc$+"[34;40m"
  3082.  Call Scrn(out$)
  3083.  out$="▓▓▓▓▓▓▓▓▓▓▒▓▒▓▒▒▓"
  3084.  Call Scrn(out$)
  3085.  out$=Esc$+"[32m"
  3086.  Call Scrn(out$)
  3087.  out$="████▓███▓█▓██████"
  3088.  Call Scrn(out$)
  3089.  out$=Esc$+"[1;33m"
  3090.  Call Scrn(out$)
  3091.  out$="████▓▓█"
  3092.  Call Scrn(out$)
  3093.  out$=Esc$+"[0;34m"
  3094.  Call Scrn(out$)
  3095.  out$="▒▒▒▒▒▒▒▓▒▓▒▓▒▓"
  3096.  Call Scrn(out$)
  3097.  Call Scrn(Chr$(13)+Chr$(10))
  3098.  out$=Esc$+"[A"
  3099.  Call Scrn(out$)
  3100.  out$=Esc$+"[38C"
  3101.  Call Scrn(out$)
  3102.  out$=Esc$+"[1;37;44m"
  3103.  Call Scrn(out$)
  3104.  out$="▒▓░▒"
  3105.  Call Scrn(out$)
  3106.  out$=Esc$+"[0;34;40m"
  3107.  Call Scrn(out$)
  3108.  out$="▒▒▒"
  3109.  Call Scrn(out$)
  3110.  out$=Esc$+"[31m"
  3111.  Call Scrn(out$)
  3112.  out$="▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  3113.  Call Scrn(out$)
  3114.  out$=Esc$+"[33;41m"
  3115.  Call Scrn(out$)
  3116.  out$="/"
  3117.  Call Scrn(out$)
  3118.  out$=Esc$+"[34;40m"
  3119.  Call Scrn(out$)
  3120.  out$="▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  3121.  Call Scrn(out$)
  3122.  out$=Esc$+"[32m"
  3123.  Call Scrn(out$)
  3124.  out$="██▓▓▓▓▓▓▓▓▓▓▓"
  3125.  Call Scrn(out$)
  3126.  out$=Esc$+"[1;33m"
  3127.  Call Scrn(out$)
  3128.  out$="▓▓▓▓█▓█▓▓▓▓▓▓▒"
  3129.  Call Scrn(out$)
  3130.  out$=Esc$+"[0;34m"
  3131.  Call Scrn(out$)
  3132.  out$="░░░▒▒▒▒▒▒▒"
  3133.  Call Scrn(out$)
  3134.  out$=Esc$+"[47m"
  3135.  Call Scrn(out$)
  3136.  out$="▓▒▓░"
  3137.  Call Scrn(out$)
  3138.  out$=Esc$+"[1;37;44m"
  3139.  Call Scrn(out$)
  3140.  out$="▓"
  3141.  Call Scrn(out$)
  3142.  out$=Esc$+"[0;34;40m"
  3143.  Call Scrn(out$)
  3144.  out$="▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░"
  3145.  Call Scrn(out$)
  3146.  out$=Esc$+"[1;33m"
  3147.  Call Scrn(out$)
  3148.  out$="▓▓▓▓▓▓▓▓▓▓▓"
  3149.  Call Scrn(out$)
  3150.  out$=Esc$+"[0;32m"
  3151.  Call Scrn(out$)
  3152.  out$="▓▓▓▒▓▒▓▒▒▓▒▓░▓"
  3153.  Call Scrn(out$)
  3154.  out$=Esc$+"[1;33m"
  3155.  Call Scrn(out$)
  3156.  out$="▒▓"
  3157.  Call Scrn(out$)
  3158.  Call Scrn(Chr$(13)+Chr$(10))
  3159.  out$=Esc$+"[A"
  3160.  Call Scrn(out$)
  3161.  out$=Esc$+"[16C"
  3162.  Call Scrn(out$)
  3163.  out$="▓▒▒▓▒▓▒▓▒▓▓▒▒"
  3164.  Call Scrn(out$)
  3165.  out$=Esc$+"[0;34m"
  3166.  Call Scrn(out$)
  3167.  out$="░░░░░▒░░"
  3168.  Call Scrn(out$)
  3169.  out$=Esc$+"[1;37;44m"
  3170.  Call Scrn(out$)
  3171.  out$="░"
  3172.  Call Scrn(out$)
  3173.  out$=Esc$+"[0;34;47m"
  3174.  Call Scrn(out$)
  3175.  out$="▒▓▒▓"
  3176.  Call Scrn(out$)
  3177.  out$=Esc$+"[1;37;44m"
  3178.  Call Scrn(out$)
  3179.  out$="░"
  3180.  Call Scrn(out$)
  3181.  out$=Esc$+"[0;34;40m"
  3182.  Call Scrn(out$)
  3183.  out$="░░░▒░▒░▒░░▒▒░▒░░░░░"
  3184.  Call Scrn(out$)
  3185.  out$=Esc$+"[1;33m"
  3186.  Call Scrn(out$)
  3187.  out$="▓▒▓▓▓▓▓▓▒▓▒▓▓▒▒▓▒▓"
  3188.  Call Scrn(out$)
  3189.  out$=Esc$+"[0;32m"
  3190.  Call Scrn(out$)
  3191.  out$="▒▓▒▒▒▒▒▒▒▒▒░"
  3192.  Call Scrn(out$)
  3193.  out$=Esc$+"[1;33m"
  3194.  Call Scrn(out$)
  3195.  out$="▒▒▒▒▒▒▒▒▓▒▒▓▒▓▒▓▒▓▒▒"
  3196.  Call Scrn(out$)
  3197.  out$=Esc$+"[0;34m"
  3198.  Call Scrn(out$)
  3199.  out$="░░░░"
  3200.  Call Scrn(out$)
  3201.  out$=Esc$+"[1;37;44m"
  3202.  Call Scrn(out$)
  3203.  out$="░"
  3204.  Call Scrn(out$)
  3205.  out$=Esc$+"[0;34;47m"
  3206.  Call Scrn(out$)
  3207.  out$="▓▓▒▓"
  3208.  Call Scrn(out$)
  3209.  out$=Esc$+"[1;37;44m"
  3210.  Call Scrn(out$)
  3211.  out$="░▒"
  3212.  Call Scrn(out$)
  3213.  out$=Esc$+"[0;34;40m"
  3214.  Call Scrn(out$)
  3215.  out$="░░░░░░░░░░░░░"
  3216.  Call Scrn(out$)
  3217.  out$=Esc$+"[1;33m"
  3218.  Call Scrn(out$)
  3219.  out$="▒▒"
  3220.  Call Scrn(out$)
  3221.  Call Scrn(Chr$(13)+Chr$(10))
  3222.  out$=Esc$+"[A"
  3223.  Call Scrn(out$)
  3224.  out$=Esc$+"[58C"
  3225.  Call Scrn(out$)
  3226.  out$="▒▓▒▓▒▒▓▒▓▒▓▓▒▒▒▒▒▓▒▒▒▒"
  3227.  Call Scrn(out$)
  3228.  out$=Esc$+"[0;32m"
  3229.  Call Scrn(out$)
  3230.  out$="▒▒▒░▒░▒░▒░░░░░"
  3231.  Call Scrn(out$)
  3232.  out$=Esc$+"[1;33m"
  3233.  Call Scrn(out$)
  3234.  out$="▒▒░▒▒▒▒▒▒▒▒▒▒▒▒▓▒▒▓▒▓▒▒▒▒▓▒▓▒▒▓▒▓▒▓▒▒▓▓▓▒▓▒▒▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒░▒▒░░▒"
  3235.  Call Scrn(out$)
  3236.  out$=Esc$+"[0;32m"
  3237.  Call Scrn(out$)
  3238.  out$="▒░▒░▒░░░░░"
  3239.  Call Scrn(out$)
  3240.  out$=Esc$+"[1;33m"
  3241.  Call Scrn(out$)
  3242.  out$="░▒░░░░▒░▒▒░▒▒▒▒░▒░▒░▒▒▒▒▒▒▒░▒░▒░▒▒░▒▒▒▒▒▒▒▒▒▒░▒░░▒▒▒▒▒░▒▒░▒░▒▒░░░░░░░░"
  3243.  Call Scrn(out$)
  3244.  out$=Esc$+"[0;32m"
  3245.  Call Scrn(out$)
  3246.  out$="░░░░░░░░░░░░░░░░░░░"
  3247.  Call Scrn(out$)
  3248.  out$=Esc$+"[1;33m"
  3249.  Call Scrn(out$)
  3250.  out$="░"
  3251.  Call Scrn(out$)
  3252.  Call Scrn(Chr$(13)+Chr$(10))
  3253.  out$=Esc$+"[A"
  3254.  Call Scrn(out$)
  3255.  out$=Esc$+"[20C"
  3256.  Call Scrn(out$)
  3257.  out$="░░░░░░░░░░░░░░░░▒░░░▒░▒▒▒▒░▒░▒░▒▒░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  3258.  Call Scrn(out$)
  3259.  out$=Esc$+"[0;37;40m"
  3260.  Call Scrn(out$)
  3261.  Call Scrn(Chr$(13)+Chr$(10))
  3262.  Call Key.Pressed
  3263. End Sub
  3264.  
  3265. Sub Scrn(var$)
  3266.  If Instr(var$,"$") Then
  3267.    For temp=1 To Len(var$)
  3268.      inregs.ax=&h0600
  3269.      inregs.dx=Asc(Mid$(var$,temp,1))
  3270.      Call Interrupt(&h21,inregs,outregs)
  3271.    Next
  3272.    Exit Sub
  3273.  Endif
  3274.  var$=var$+"$"
  3275.  inregsx.ax=&h0900
  3276.  inregsx.ds=Sseg(var$)
  3277.  inregsx.dx=Sadd(var$)
  3278.  Call InterruptX(&h21,inregsx,outregsx)
  3279. End Sub
  3280.