: ASTERI JŽSENREKISTERI - TILITOIMISTOVALIKKO KOVALEVYLLE 
: ASTERI VALIKON (MENU.EXE) GENEROIMA VALIKKO
@ECHO OFF 
REM C: 
cls
if %1x==x GOTO :JRMenu
IF EXIST \ASTERIJR\%1\MENU.BAT GOTO :JRoon
IF %2x==ASTERIx GOTO :perusta
Echo Rekisteri„ %1 Ei liene perustetun
Echo Paina ENTER niin perustan %1 j„senrekisterin
Echo Paina [CTLR] [BREAK] niin en perusta vuokrankantoa
Pause >NUL
:perusta
CLS
ECHO Perustan %1 j„senrekisterin ...
CD \ASTERIJR
MD %1
CD %1
COPY \ASTERIJR\*.BAT  /V
COPY \ASTERIJR\*.OMA    /V
COPY \ASTERIJR\*.LSL    /V
COPY \ASTERIJR\*.TXT  /V
COPY \ASTERIJR\*.PSP  /V
ECHO ECHO OFF          >MENU.BAT
ECHO CLS              >>MENU.BAT
ECHO TYPE ..\JMENU.TXT >>MENU.BAT
JR %1
:JRMenu
CD \ASTERIJR
Type JrOhje.txt
DIR *.|sort|find "<DIR>"|more
DIR *.|sort|find "<HAK"|more
GOTO :loppu
:JRoon
CD \ASTERIJR\%1
:JR AFHELMI A  A ohjelman k„ynnistys
IF %2x==x GOTO :menu
IF NOT EXIST %2.BAT GOTO :menu
%2
GOTO :loppu
:menu
Type ..\jmenu.txt
:loppu