samarux/PROFPCW.SX at master · MiguelVis/samarux · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
# ---------------------- #
# SAMARUX START-UP : PCW #
# ---------------------- #
#
if banner.txt not exist goto Login
cat banner.txt
echo
echo SamaruX Start-Up sample for the Amstrad PCW.
echo
echo Available usernames are: Miguel.
echo
#
# Login:
#
echo -n 'login: '
read LOGNAME
#
if $LOGNAME eq Miguel goto IsMiguel
goto Login
#
# IsMiguel:
#
env HOME A00:
env BINDIR $HOME
env MANPATH $HOME
env TMPDIR M00:
goto Done
#
# Done:
#
alias h history 0
alias nl cat -n
alias logout exit
alias free mem
diralias sys a0:
diralias tmp m0:
env USER $LOGNAME
env TERM vt52
env ROWS 31
env COLUMNS 90
env PROMPT [%u@%w] %$
echo
echo Hi $USER welcome to SamaruX!
echo
echo Current command aliases:
alias
echo
echo Current directory aliases:
diralias
echo