journal of all scince V.1. NO.1 | Page 40

-

: 48H

:

72

: 50 H
80
: 4 BH
75
: 4 DH
77
( ESC ) Scape : 1

START

START

START

START

j
-0
DH=12, DL=40 -1
+T (DH,DL) ? X 7 %
, :START -2
(
,
$
)x 8 % * %
-3
% 5 AH % W scan code %87 %
% P = -4
exit
AH=1 B% -5
R
AH<>75 B% -6
( PM5 *
i ')(
,
$
)x 8 % " " % %
-7
DL=DL-1 -8
START
DL>=0 B% -9
(
UW 8
8
V% 8
* B%)DL=79 -10
U
AH<>77 B% :R -11
( PM5 *
i ')(
,
$
)x 8 % " " % -12
DL=DL+1 -13
START
DL<=79 B% -14
( V% 8
8
UW 8
* B%)DL=0 -15
D
AH<>72 B% :U -16
( PM5 *
i ')(
,
$
)x 8 % " " % -17
DH=DH-1 -18
START
DH>=0 B% -19
(
UW A
8
V% A
* B%)DH=24 -20
start
AH<>80 B% :D -21
( PM5 *
i ')(
,
$
)x 8 % " " % -22
DH=DH+1 -23
START
DH<=24 B% -24
( V% A
8
UW A
* B%) DH=0 -25
' :exit -26

M

8Z/%