Возможно ли создать генератор игры Судоку скриптом БАТ

@echo off
setlocal enabledelayedexpansion
 
set "x=0"
set "y=0"
set "ix=0"
set "iy=0"
set "arr="
set "boolexist="
set "boolexisty="
set "boolx="
set "stepx=0"
set "stepy=0"
set arr00=asd
set arr10=ok
set "some=123456789"
set "tsome=%some%"
set "max=9"
set "tmax=%max%"
set "troubler=0"
:loopx
set /a pos=(%random%*%tmax%/32768)
set nrand=!tsome:~%pos%,1!
rem echo:===========%nrand% %tsome% %tmax%  %x% %y%
rem set "ix=0
rem set "iy=%y%"
rem call :ch_row
if not defined boolexist (set boolx=0) else (set "boolexist=")
if defined boolx (
 
    set "boolx="
    set "ix=%x%"
    set "iy=%y%"
    call :ch_column
    if not defined boolexisty (
        set "arr%x%%y%=%nrand%"&set/ax+=1
        set tsome=!tsome:%nrand%=!
        set/atmax-=1
    ) else (set "boolexisty=")
)
set/atroubler+=1
if %troubler%==33 (
    set "x=0"
    set "tsome=%some%"
    set "tmax=%max%"
    set "troubler=0"
)
if %x% lss 9 (goto:loopx) else (
    set "x=0"
    set/ay+=1
    set "tsome=%some%"
    set "tmax=%max%"
    set "troubler=0"
    echo:!y! line is done
 
)
if %y% lss 9 (goto:loopx)
echo:display
rem goto:eof
 
 
:loopout
if %stepx%==3 (<nul set/p=^|!arr%ix%%iy%!&set stepx=0) else (<nul set/p=!arr%ix%%iy%!)
set/aix+=1&set/astepx+=1
if %ix% lss 9 (goto:loopout) else (set "stepx=0")
set/aiy+=1&set /astepy+=1&set "ix=0"
if %stepy%==3 (echo:&echo:--- --- ---&set "stepy=0") else (echo:)
if %iy%==9 (
    echo:&echo:out
    goto:eof
)
goto:loopout
:ch_row
if !arr%ix%%iy%!==%nrand% (set boolexist=0&set "ix=0"&exit /b 0)
set/aix+=1
if %ix% lss 9 (goto:ch_row)
set "ix=0"
exit /b 0
:ch_column
rem echo:jjj
if %y%==0 (exit /b 0)
set/aiy-=1
rem echo:!arr%ix%%iy%!======%nrand%
rem <nul set/p=!arr%ix%%iy%!    
if !arr%ix%%iy%!==%nrand% (
    set boolexisty=0
    exit /b 0
)
rem echo:%iy%
if %iy% gtr 0 (goto:ch_column)
set "ix=0"
set "iy=0"
rem echo:
exit /b 0
:count
set "i=0"
set "tmp=%~1"
:count_loop
if not "!tmp:~%i%,1!"=="" (
    set/ai+=1
    goto:count_loop
)
set "tmp=%i%"
set "i="
exit /b 0