@echo off
rem /* Add this if you don't have a Co-Processor */ 
set GO32=emu .\emu387
:start
mode co80
nhscreen.exe
:start2
nherlvcd.com

IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO a
IF ERRORLEVEL 97 IF NOT ERRORLEVEL 98 GOTO a
IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO b
IF ERRORLEVEL 98 IF NOT ERRORLEVEL 99 GOTO b
IF ERRORLEVEL 67 IF NOT ERRORLEVEL 68 GOTO c
IF ERRORLEVEL 99 IF NOT ERRORLEVEL 100 GOTO c
IF ERRORLEVEL 68 IF NOT ERRORLEVEL 69 GOTO d     
IF ERRORLEVEL 100 IF NOT ERRORLEVEL 101 GOTO d
IF ERRORLEVEL 69 IF NOT ERRORLEVEL 70 GOTO e     
IF ERRORLEVEL 101 IF NOT ERRORLEVEL 102 GOTO e
IF ERRORLEVEL 70 IF NOT ERRORLEVEL 71 GOTO f
IF ERRORLEVEL 102 IF NOT ERRORLEVEL 103 GOTO f
IF ERRORLEVEL 72 IF NOT ERRORLEVEL 73 GOTO h     
IF ERRORLEVEL 104 IF NOT ERRORLEVEL 105 GOTO h
IF ERRORLEVEL 73 IF NOT ERRORLEVEL 74 GOTO i     
IF ERRORLEVEL 105 IF NOT ERRORLEVEL 106 GOTO i
IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO k
IF ERRORLEVEL 107 IF NOT ERRORLEVEL 108 GOTO k
IF ERRORLEVEL 76 IF NOT ERRORLEVEL 77 GOTO l     
IF ERRORLEVEL 108 IF NOT ERRORLEVEL 109 GOTO l
IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO m
IF ERRORLEVEL 109 IF NOT ERRORLEVEL 110 GOTO m
IF ERRORLEVEL 80 IF NOT ERRORLEVEL 81 GOTO p
IF ERRORLEVEL 112 IF NOT ERRORLEVEL 113 GOTO p
IF ERRORLEVEL 82 IF NOT ERRORLEVEL 83 GOTO r
IF ERRORLEVEL 114 IF NOT ERRORLEVEL 115 GOTO r
IF ERRORLEVEL 83 IF NOT ERRORLEVEL 84 GOTO s
IF ERRORLEVEL 115 IF NOT ERRORLEVEL 116 GOTO s
IF ERRORLEVEL 84 IF NOT ERRORLEVEL 85 GOTO t
IF ERRORLEVEL 116 IF NOT ERRORLEVEL 117 GOTO t
IF ERRORLEVEL 85 IF NOT ERRORLEVEL 86 GOTO u
IF ERRORLEVEL 117 IF NOT ERRORLEVEL 118 GOTO u
IF ERRORLEVEL 86 IF NOT ERRORLEVEL 87 GOTO v
IF ERRORLEVEL 118 IF NOT ERRORLEVEL 119 GOTO v
IF ERRORLEVEL 87 IF NOT ERRORLEVEL 88 GOTO w
IF ERRORLEVEL 119 IF NOT ERRORLEVEL 120 GOTO w
IF ERRORLEVEL 81 IF NOT ERRORLEVEL 82 GOTO q
IF ERRORLEVEL 113 IF NOT ERRORLEVEL 114 GOTO q
IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO y
IF ERRORLEVEL 121 IF NOT ERRORLEVEL 122 GOTO y
IF ERRORLEVEL 90 IF NOT ERRORLEVEL 91 GOTO z
IF ERRORLEVEL 122 IF NOT ERRORLEVEL 123 GOTO z

GOTO start2

:a
cls
chrset
nethack -u Indy -A

GOTO start

:b
cls
chrset
nethack -u Groyok -B

GOTO start

:c
cls
chrset
nethack -u Ignaros -C

GOTO start

:d
cls
chrset
nethack -u Morph -D

GOTO start

:e
cls
chrset
nethack -u Thruir -E

GOTO start

:f
cls
chrset
nethack -u Burnie -F

GOTO start

:h
cls
chrset
nethack -u Bones -H

GOTO start

:i
cls
chrset
nethack -u Sub˙Zero -I

GOTO start

:k
cls
chrset
nethack -u Sir˙Dram -K

GOTO start

:l
cls
chrset
nethack -u Valcahis -L

GOTO start

:m
cls
chrset
nethack -u Enigma -M

GOTO start

:p
cls
chrset
nethack -u Chi˙Lung -P

GOTO start

:r
cls
chrset
nethack -u Shadow -R

GOTO start

:s
cls
chrset
nethack -u Takashi -S

GOTO start

:t
cls
chrset
nethack -u Bob -T

GOTO start

:u
cls
chrset
nethack -u Mandrake -U

GOTO start

:v
cls
chrset
nethack -u Korlira -V

GOTO start

:w
cls
chrset
nethack -u Milathus -W

GOTO start

:y
cls
chrset
nethack 

GOTO start

:z
chrset
nethack -utalden -Z

GOTO start

:q
mode co80
cd\
cls
