�< I                    �6 aQ G          	}& (	pq  v\ �c I{m v\ C*h ^	�s nv[ F'n K          eF mu� N
^ L                         o� J     7% ~          "%# #
D 5#�T )%i F&E s$tj H(f )s? 
*n                          0I� L     2W 3{1 j3
H :5(5 C64 g7ia 2�s G9'J "6�t P:�� >3� 0=�3 (                    B�� WCt� VD{-  E{, C          H�V 1H�V d          L
M ,M
# )Nn
 
O�@ ,          R�D [     TC k     V�r bW$      Yҡ      [� w['% I\\� .^
X ;          af {               e9 &                    j�- 6k�B j          n�. Loj�      q
 wq� o                         x%= p          {�� *|U D}�7 h~� E~z4 }e l� v��� Q     �*�  �� 2�
8      �?�      �{u :               �1� 1     �$O j�%k 2�
� H�uA K     �
; �� ;��/ 0�+N �]� ;          ���                               ��p G�e�                                                   �c5 	                         ��P Q     �'! 
�� 0�+l -���           �mq b�{( 
�,Y �n_                     ň }�Z4 >ƟU z�\� A               �J� w                    �
2 L     �  "�-� R                    �gs !و� xۆ0 ~�.* h�'7 <ށ! sۀE �g v��k m݅r '�&v                �}� }                    �S Q��H 	�^Z R�J� `�b      ��U �]      �
� i��Y t��T Z�dm \�+L �0 �� 7�$e e��� }�x� x     FLEX$INIT

#REPLACE CALCULATE MOVENUM
#REPLACE CALC MOVENUM
#REPLACE LT $0
#REPLACE LE $1
#REPLACE EQ $2
#REPLACE GE $3
#REPLACE GT $4
#REPLACE NE $5
#REPLACE TRUE $1
#REPLACE FALSE $0
#REPLACE NOT ~
#SET C$ 10
#REPLACE IN$0 $4000
#REPLACE IN$1 $4004
#REPLACE IN$2 $4008
#REPLACE IN$3 $400C
#REPLACE IN$4 $4010
#REPLACE IN$5 $4014
#REPLACE IN$GLANY |0
#REPLACE IN$GLALL |4
#REPLACE IN$GRANY |0
#REPLACE IN$GRALL |2
#REPLACE IN$GMOR |0
#REPLACE IN$GMAND |1
#REPLACE ERR |127
#REPLACE FINDERR |126
#REPLACE SEQEOF |125
#REPLACE SEQEOL |121
#REPLACE MULTIUSER |120
#REPLACE FIELDINDEX |VI1
#REPLACE WINDOWINDEX |VI2
#REPLACE LASTERR |VI5
#REPLACE KEYPRESS |123
#REPLACE TERMCHAR |VI3
#REPLACE FLEXKEY |VI4
#REPLACE SCREENEND |VI17
#REPLACE MEMAVAIL |VI18
#REPLACE LASTENTRY |VI19
#REPLACE KEY.RETURN |101
#REPLACE KEY.ESCAPE |103
#REPLACE KEY.FIELD |106
#REPLACE KEY.FIND |107
#REPLACE KEY.SFIND |108
#REPLACE KEY.SAVE |109
#REPLACE KEY.DELETE |110
#REPLACE KEY.CLEAR |113
#REPLACE KEY.USER |112
#REPLACE KEY.NEXT |115
#REPLACE KEY.PREVIOUS |114
#REPLACE KEY.UP |116
#REPLACE KEY.DOWN |117
#REPLACE KEY.HELP |118
#REPLACE NUMPAGE |VI28
#REPLACE NUMWINDOW |VI29
#REPLACE #$
#SET F$ 1
#REPLACE FOUND |254
#REPLACE STRMARK |VI12
#REPLACE STRLEN |VI13
#REPLACE LINECOUNT |VI10
#REPLACE PAGECOUNT |VI11
#REPLACE PAGEEND |VI25
#REPLACE PAGEFEED |VI26
#SET D$ 80
#SET P$ 0
#REPLACE AUTOFIND $C000
#REPLACE FINDREQ $C001
#REPLACE NOPUT $C002
#REPLACE NOENTER $C003
#REPLACE SKIPFOUND $C004
#REPLACE RETAINALL $C005
#REPLACE RETAIN $C006
#REPLACE FORCEPUT $C007
#REPLACE DISPLAYONLY $C002,$C003
#REPLACE CAPSLOCK $C023
#REPLACE SUPPRESS $C040=''
#REPLACE FLOAT$ $C026
#REPLACE UPPER $C023
#REPLACE SIGNRT $C027
#REPLACE CHECK $C012
#REPLACE RANGE $C013
#REPLACE REQUIRED $C022
#REPLACE PAGEBREAK |124
#REPLACE FILL $C040
#REPLACE POINTS $C080
#REPLACE FILENUMBER |VI15
#REPLACE ENT$PERMISSIVE |10
#REPLACE INDEX.1 |CI1
#REPLACE INDEX.2 |CI2
#REPLACE INDEX.3 |CI3
#REPLACE INDEX.4 |CI4
#REPLACE INDEX.5 |CI5
#REPLACE INDEX.6 |CI6
#REPLACE INDEX.7 |CI7
#REPLACE INDEX.8 |CI8
#REPLACE INDEX.9 |CI9
#REPLACE INDEX.10 |CI10
#REPLACE INDEX.BATCH |CI5
#REPLACE RECNUM |CI0
#INCLUDE FORMTAG.TMP
#NOISY 0
#ENDCOMMAND
MOVESTR
#ULG$ "TO" #UCLGR$ .
!A [] $080 !1 !3
#ENDCOMMAND
MOVENUM
#ULG "TO" #UCLGR .
!A [] $081 !1 !3
#ENDCOMMAND
MOVEINT
%#GULD "TO" #UCSDEGR .
!A [] $082 !1 !3
#ENDCOMMAND
MOVEDATE
%#ULI "TO" #UCSIEGR .
!A [] $084 !1 !3
#ENDCOMMAND
MOVE
#GUL "TO" #UGRCL .
#IFTYPE !3 "N"
!A [] $081 !1 !3
#ELSE
#IFTYPE !3 "D"
!A [] $084 !1 !3
#ELSE
#IFTYPE !3 "ILY"
MOVEINT !1 TO !3
#ELSE
!A [] $080 !1 !3
#ENDIF
#ENDIF
#ENDIF
#ENDCOMMAND
INCREMENT
#LCNSFWGRU .
!A [] $083 !1 |CI0
#ENDCOMMAND
ABORT
.
!A [] $040
#ENDCOMMAND
GOTO
RVFWSNDE#G .
#IFDEF !1
!A [] $041 !1
#ELSE
!A [] $041 |CL0
#FREF !1 !a
#ENDIF
#ENDCOMMAND
GOSUB
RVFWSNDE#G .
#IFDEF !1
!A [] $042 !1
#ELSE
!A [] $042 |CL0
#FREF !1 !a
#ENDIF
#ENDCOMMAND
RETURN
VFWSNDE#G .
#IF !0=0
!A [] $043 |CL0
#ELSE
#IFDEF !1
!A [] $043 !1
#ELSE
!A [] $043 |CL0
#FREF !1 !a
#ENDIF
#ENDIF
#ENDCOMMAND
DEBUG
.
!A [] $044
#ENDCOMMAND
ON
R "GOTO""GOSUB" R
#SET Q$ (!0-1)
INDICATE OK$1 AS !1 GT 0
INDICATE OK$2 AS !1 LT !q
#SET Q$ (!a+2)
#IFSAME !2 GOTO
!A [OK$1 OK$2] $041 |CE(!q+!1 )
#ELSE
!A [OK$1 OK$2] $042 |CE(!q+!1 )
#ENDIF
#SET Q$ (!a+!0)
!A [] $041 |CL!q
MULTI$ GOTO !3 !4 !5 !6 !7 !8 !9
#ENDCOMMAND
ERROR
#L%RGU #LUG .
!A [] $047 !1 !2
#ENDCOMMAND
CLEARWARNING
.
!A [] $048
#ENDCOMMAND
INDICATE
R
#IFSAME !1 ~
#IFDEF !2
#ELSE
#REPLACE !2 |!C
#ENDIF
INDICATE !2~ !3 !4 !5 !6 !7 !8 !9
#ELSE
#IFDEF !1
#CHECK !1 X
#ELSE
#REPLACE !1 |!C
#ENDIF
INDCT$!2 !1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
INDCT$AS
RX R #%UG "$0""$1""$2""$3""$4""$5""MATCH""IN" #%UGR .
#IFSAME !4 MATCH
!A [] $4031 !3 !5 !1 !6
#ELSE
#IFSAME !4 IN
!A [] $4030 !3 !5 !1 !6
#ELSE
#CHECK !3 U
#IFTYPE !3 "NDE"
!A [] IN!4 !3 !5 !1 !6 |1
#ELSE
#IFTYPE !3 "IL"
!A [] IN!4 !3 !5 !1 !6 |2
#ELSE
!A [] IN!4 !3 !5 !1 !6 |0
#ENDIF
#ENDIF
#ENDIF
#ENDIF
#ENDCOMMAND
INDCT$GROUP
XR "GROUP" R"ALL""ANY" CVFWSN#LRU "AND""OR""" "ANY""ALL""" CVFWSN#LU .
#IF !0>4
#CHECK !7 R
!A [] $4020 !4 !7 !1 IN$GL!3 IN$GR!6 IN$GM!5
#ELSE
!A [] $4020 !4 |GB[0] !1 IN$GL!3 |3
#ENDIF
#ENDCOMMAND
INDCT$$1
RX R .
!A [] $4028 |CI0 |CI0 !1~ !3
#ENDCOMMAND
INDCT$$0

!A [] $4028 |CI0 |CI0 !1 !3
#ENDCOMMAND
INDCT$STATUS
R R #LWCV
#IFDEF !3
!A [] $4029 !3 |CI0 !1 !4
#ELSE
#CHECK !3.RECNUM U#LWCV
!A [] $4029 !3.RECNUM |CI0 !1 !4
#ENDIF
#ENDCOMMAND
INDICATOR
RT
#REPLACE !1 |!C
#IF (!0>1)
INDICATOR !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
NUMBER
TR
#NUM !V
#REPLACE !1 |VN!v
#IF (!0>1)
NUMBER !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
DATE
TR
#NUM !V
#REPLACE !1 |VD!v
#IF (!0>1)
DATE !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
STRING
TR %#LWVFGSDU .
#IF (!2>0)
#STR !V !2
#ELSE
#STR !V 80
#ENDIF
#REPLACE !1 |VS!v
#ENDCOMMAND
INTEGER
TR
#REPLACE !1 |VI!D
#IF (!0>1)
INTEGER !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
SHOW
#ULRG$
!A [] $142 !1
#IF (!0>1)
SHOW !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
SHOWLN
#LGU$
#IF (!0>0)
SHOW !1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
!A [] $143
#ENDCOMMAND
GOTOXY
%#USGL %#USGLR .
!A [] $145 !1 !2
#ENDCOMMAND
CLEARSCREEN
.
!A [] $144
#ENDCOMMAND
STOP
.
!A [] $040
#ENDCOMMAND
CLEARXY
%#USGL %#USGLR .
!A [] $146 !1 !2
#ENDCOMMAND
INPUT
#ULGR #LUG .
#IFCLASS !1 C
!A [] $142 !1
INPUT !2 !3
#ELSE
#IF (!0>1)
!A [] $140 !1 !2
#ELSE
!A [] $140 !1 |CI79
#ENDIF
#ENDIF
#ENDCOMMAND
KEYCHECK

!A [] $046
#IF !0>0
[KEYPRESS] !1 !2 !3 !4 !5 !6 !7 !8
#ENDIF
#ENDCOMMAND
INKEY
#LUCR .
!A [] $147 !1
#ENDCOMMAND
SCREENMODE
#%LUGR
!A [] $148 !1
#ENDCOMMAND
OPEN
TR %FWSNDELG#U .
#INCLUDE !1.FD
#CHECK !1.X URW#LG
#IF (!0>1)
!A [] $180 !1.X !2
#ELSE
!A [] $180 !1.X |CI0
#ENDIF
#ENDCOMMAND
FIND
"$0""$1""$2""$3""$4""$5" R "BY""" % .
#IFCLASS !2 F
#CHECK !2 U#LGWV
#CHECK !3 .
!A [] $0C0 !2 |CI!1
#ELSE
#CHECK !2.X U#LGWV
#CHECK !4 RUL#GVFW
#SET Q$ !2.X
#SET Y$ !4
!A [] $0C6 |FS!q.!y |CI!1
#ENDIF
#ENDCOMMAND
SAVE
CVWR#LGR
#IFDEF !1
!A [] $C5 !1
!A [] $C2 !1
#ELSE
#CHECK !1.X CLVWLR#GU
!A [] $C5 !1.X
!A [] $C2 !1.X
#ENDIF
#IF !0>1
SAVE !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
SAVERECORD
CVWR#LGR
#IFDEF !1
!A [] $C2 !1
#ELSE
#CHECK !1.X CVWLR#GU
!A [] $C2 !1.X
#ENDIF
#IF !0>1
SAVERECORD !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
CLEAR
CVWR#LGR
#IFDEF !1
!A [] $C1 !1
#ELSE
#CHECK !1.X CVWLR#GU
!A [] $C1 !1.X
#ENDIF
#IF !0>1
CLEAR !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
DELETE
CVWR#LGR
#IFDEF !1
!A [] $C3 !1
#ELSE
#CHECK !1.X CVWLR#GU
!A [] $C3 !1.X
#ENDIF
#IF !0>1
DELETE !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
RELATE
CVWR#LGR
#IFDEF !1
!A [] $C4 !1
#ELSE
#CHECK !1.X CVWLR#GU
!A [] $C4 !1.X
#ENDIF
#IF !0>1
RELATE !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
ATTACH
CVWR#LGR
#IFDEF !1
!A [] $C5 !1
#ELSE
#CHECK !1.X CVWLR#GU
!A [] $C5 !1.X
#ENDIF
#IF !0>1
ATTACH !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
STATUS$
CVWR#LGR "TO" #LUGR
#IFDEF !1
!A [] $304 !1 !3
#ELSE
#CHECK !1.X CVWLR#GU
!A [] $304 !1.X !3
#ENDIF
#ENDCOMMAND
ZEROFILE
RT .
#CHECK !1.X
#SET Q$ !1.X
!A [] $308 |CI!q
#ENDCOMMAND
LOCK
.
!A [|120] $0C7
#ENDCOMMAND
UNLOCK
.
!A [|120] $0C8
#ENDCOMMAND
REREAD

#IF !0=0
!A [|120] $0C9
#ELSE
!A [|120] $0C7
RE$ !1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
RE$
T
#CHECK !1.RECNUM RUW%G
!A [|120] $C0 !1.RECNUM |CI2
#IF !0>1
RE$ !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
IFCHANGE
R R
#IFDEF !1
#CHECK !1 RFCV%G
!A [] $1C6 !1
#ELSE
#CHECK !1.X RWCV%G
!A [] $303 !1.X
#ENDIF
[|122] !2 !3 !4 !5 !6 !7 !8 !9
#ENDCOMMAND
SETCHANGE
RCVF%G .
!A [] $1C7 !1
#ENDCOMMAND
IF
R# R
#IFSAME !1 ~
IFNOT !2 !3 !4 !5 !6 !7 !8 !9
#ELSE
#IFSAME !1 STATUS
INDICATE LASTIF STATUS !2
[LASTIF] !3 !4 !5 !6 !7 !8 !9
#ELSE
INDICATE LASTIF AS !1 !2 !3
[LASTIF] !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF
#ENDCOMMAND
IFNOT
R# R
#IFSAME !1 ~
IF !2 !3 !4 !5 !6 !7 !8 !9
#ELSE
#IFSAME !1 STATUS
INDICATE LASTIF STATUS !2
[NOT LASTIF] !3 !4 !5 !6 !7 !8 !9
#ELSE
INDICATE LASTIF AS !1 !2 !3
[NOT LASTIF] !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF
#ENDCOMMAND
UNTIL
#LUG LUG #LUG .
#POP S$
#IFCLASS !1 $0123456789
[!1 !2 !3] GOTO BEGIN$!s
#ELSE
IFNOT !1 !2 !3 GOTO BEGIN$!s
#ENDIF
#$ END$!s:
#ENDCOMMAND
LOOP
.
#POP S$
#CHECK BEGIN$!s RVFWSNDEU
!A [] $041 BEGIN$!s
#$ END$!s:
#ENDCOMMAND
WHILE
#LUG LUG #LUG
#PUSH !R
GOTO WHILE$!r
#$ !A 0 0 0 $041 |CI!a
#FREF END$!r !a
#$ WHILE$!r:
#$ BEGIN$!r:
#IFCLASS !1 $0123456789
#$ [!1 !2 !3] GOTO END$!r
#ELSE
#$ IFNOT !1 !2 !3 GOTO END$!r
#ENDIF
#ENDCOMMAND
BEGIN
.
#PUSH !R
GOTO BEGIN$!r
#$ !A 0 0 0 $041 |CI!a
#FREF END$!r !a
#$ BEGIN$!r:
#ENDCOMMAND
REPEAT
.
#PUSH !R
GOTO BEGIN$!r
#$ !A 0 0 0 $041 |CI!a
#FREF END$!r !a
#$ WHILE#!r:
#$ BEGIN$!r:
#ENDCOMMAND
FOR
CFWGSNR#LU "FROM" %UGLR# "TO""" %UGL#
#PUSH !R
MOVEINT !3 TO !1
GOTO FOR$!r
#$ !A 0 0 0 $041 |CI!a
#FREF END$!r !a
#$ BEGIN$!r:
#$ WHILE$!r:
#IF !0=3
#$ !A [] $083 !1
#ELSE
#$ !A [] $083 !1 !5
#$ [|122] GOTO END$!r
#ENDIF
#$ FOR$!r:
#ENDCOMMAND
END
.
#POP S$
#IFDEF WHILE$!s
!A [] $041 WHILE$!s
#ENDIF
#$ END$!s:
#ENDCOMMAND
OUTFILE
NDIELU#G .
!A [] $200 !1
#ENDCOMMAND
OUTPUT
TR .
#CHECK !1.N #LUGFV
!A [] $202 !1.N
#ENDCOMMAND
OUTCLOSE
.
OUTFILE 'CON:'
#ENDCOMMAND
DIRECT_INPUT
DNEL#LGU .
!A [] $100 !1
#ENDCOMMAND
DIRECT_OUTPUT
DNEL#LGU .
!A [] $101 !1
#ENDCOMMAND
CLOSE_INPUT
.
!A [] $100 |CS'CON:'
#ENDCOMMAND
CLOSE_OUTPUT
.
!A [] $101 |CS'LST:'
#ENDCOMMAND
READLN
UCEL#G
#IF !0=0
!A [] $104 |CS''
#ENDIF
#IF !0=1
!A [] $104 !1
#ENDIF
#IF !0>1
!A [] $108 !1
READLN !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
READ
UCEL#GR
!A [] $108 !1
#IF !0>1
READ !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
WRITE
U#LGR$
!A [] $106 !1
#IF (!0>1)
WRITE !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
WRITELN
U#LG
#IF (!0>0)
WRITE !1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
!A [] $107
#ENDCOMMAND
AUTOPAGE
T %USNVL# .
#CHECK !1.N WFVSG#LU
#SET F$ !1.N
#SET E$ !2
#IF !e>0
#SET E$ !e-1
#ENDIF
#ENDCOMMAND
AUTO4$

!1 !2 !3 !4.!E
#CHECK !4.!e RUCVF#L
#ENDCOMMAND
AUTO2$

!1 !2.!E !3 !4 !5
#CHECK !2.!e RUCVF#L
#ENDCOMMAND
AUTO3$

!1 !2 !3.!E !4 !5
#CHECK !3.!e RUCVF#L
#ENDCOMMAND
NAME
R#L T
#IFDEF !1
#REPLACE !2 !1
#CHECK !3 .
#ELSE
#IFCLASS !1.1 W
AUTOPAGE !1
#ELSE
AUTO3$ #REPLACE !1 PAGE!f
#ENDIF
#IF !0>1
NAME !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF
#ENDCOMMAND
PAGE
T .
#CHECK !1.N RU#LG
!A [] $1C0 !1.N
#ENDCOMMAND
ACCEPT
#LG #LG #LGUC .
#IF !0=0
AUTO2$ ACCEPT PAGE!f
#ENDIF
#IF !0=1
#CHECK !1 CVF
!A [] $1C1 !1 |CI0
#ENDIF
#IF !0=2
#CHECK !1 "TO"
AUTO2$ ACCEPT PAGE!f TO !2
#ENDIF
#IF !0=3
#CHECK !1 CVF
#CHECK !2 "TO"
!A [] $1C1 !1 !3
#ENDIF
#ENDCOMMAND
DISPLAY
RUG#L "TO""" CVFG#LU
#IFSAME !2 TO
!A [] $1C2 !1 !3
#ELSE
AUTO4$ DISPLAY !1 TO PAGE!f
#ENDIF
#ENDCOMMAND
CLEARFORM
%CVFG#L  "THRU""THROUGH""" %CVFG#LU .
#IF !0>0
#IFDEF !1
!A [] $1C3 !1 !3 |CI0
#ELSE
#CHECK !1.N R#LGVU
!A [] $1C3 !1.N |CI0
#ENDIF
#ELSE
!A [] $1C3 |CI0
#ENDIF
#ENDCOMMAND
BLANKFORM
%CVFG#L  "THRU""THROUGH""" %CVFG#LU .
#IF !0>0
#IFDEF !1
!A [] $1C4 !1 !3
#ELSE
#CHECK !1.N #RLGVU
!A [] $1C4 !1.N
#ENDIF
#ELSE
!A [] $1C4 |CI0
#ENDIF
#ENDCOMMAND
HELP
T .
#IF !0>0
#CHECK !1.N U
!A [] $1C5 !1.N
#ELSE
!A [] $1C5 |CI0
#ENDIF
#ENDCOMMAND
CHAIN
RNELIG#LU .
!A [] $045 !1
#ENDCOMMAND
PAD
#ULG$ "TO" #ULGRC L%# .
#IF !0>3
!A [] $082 !4 STRMARK
#ENDIF
!A [] $240 !1 !3
#ENDCOMMAND
POS
#UGRL$ "IN" #UGRL$ #L% #L% .
!A [] $244 !1 !3
#IF !0>3
#CHECK !4 "TO"
!A [] $082 STRMARK !5
#ENDIF
#ENDCOMMAND
LEFT
#UGRL$ "TO" #UGRLC L#% .
#IF !0>3
!A [] $082 !4 STRMARK
#ENDIF
!A [] $241 !1 !3
#ENDCOMMAND
RIGHT
#UGRL$ "TO" #UGRLC L#% .
#IF !0>3
!A [] $082 !4 STRLEN
#ENDIF
!A [] $242 !1 !3
#ENDCOMMAND
MID
#UGRL$ "TO" #UGRLC #L%U #L% .
#IF !0>4
!A [] $082 !5 STRMARK
#ENDIF
!A [] $082 !4 STRLEN
!A [] $245 !1 !3
#ENDCOMMAND
APPEND
#LGULC$ #LGULR$
!A [] $243 !1 !2
#IF !0>2
APPEND !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
ASCII
#GRLU "TO" #UGRLC .
!A [] $247 !1 !3
#ENDCOMMAND
CHARACTER
#%GULD "TO" #GRULC .
!A [] $248 !1 !3
#ENDCOMMAND
UPPERCASE
C#LUGRND$ "TO""" C#LUG$ND .
#IF !0>1
!A [] $249 !1 !3
#ELSE
!A [] $249 !1 !1
#ENDIF
#ENDCOMMAND
LENGTH
#LRUG$ "TO" C#LRUG .
!A [] $246 !1 !3
#ENDCOMMAND
CMDLINE
#RLUG .
!A [] $24A !1 |CS''
#ENDCOMMAND
TRIM
#LRUG$ "TO" C#LRUG .
!A [] $24B !1 !3
#ENDCOMMAND
ENTRY
RWV#LUG UVC#LF UFVW#BC
#IF !0=1
AUTO3$ ENTRY !1 PAGE!f
#ELSE
#IFTYPE !2 O
AUTO3$ ENTRY !1 PAGE!f !2
#ELSE
#CHECK !2 RVC%L
#IFTYPE !1 E
!A [] $8000 !1 !2 {$C002,$C003 !3
#ELSE
!A [] $8000 !1 !2 !3
#ENDIF
#ENDIF
#ENDIF
#ENDCOMMAND
ENTUPDATE
VW#L .
#IF !0>0
!A [] $280 !1
#ELSE
!A [] $280 |CI0
#ENDIF
#ENDCOMMAND
ENTFIND
"$0""$1""$2""$3""$4""$5"
!A [] $281 |CI!1
#ENDCOMMAND
ENTSFIND
"$0""$1""$2""$3""$4""$5" .
!A [] $282 |CI!1
#ENDCOMMAND
ENTDISPLAY
CVWG#LR .
RELATE !1
!A [] $283
#ENDCOMMAND
ENTERMODE
.
!A [] $082 |CI!a |VI14
!A [] $286
#ENDCOMMAND
ENTAGAIN
.
!A [] $287
#ENDCOMMAND
BACKFIELD
.
!A [] $288
#ENDCOMMAND
MULTI$

#IF !0>1
!1 !2
#ENDIF
#IF !0>2
MULTI$ !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
MULTIBACK$

#IF !0>2
MULTIBACK$ !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#IF !0>1
!1 !2
#ENDIF
#ENDCOMMAND
KEYPROC
R%WSF .
#SET Q$ (!1-100)
#SET Y$ !a
#KEYPROC !q !Y
#ENDCOMMAND
ENTER
CVWSRL#
INDICATE CONTINUE TRUE
#REPLACE ENT$QUERY |9
INDICATE ENT$QUERY FALSE
#IF !0>0
#SET X$ !1.X
#ELSE
#SET X$ 0
#ENDIF
MOVEINT |CI!x TO |VI8
ENT$LP:
GOSUB ENTRYSEC
[KEY.ESCAPE] GOTO END_ENTER
INDICATE ERR FALSE
REREAD
[ENT$QUERY] GOSUB ENTER.EDIT
[NOT ERR] ENTUPDATE
[NOT ERR] GOSUB ENTER.SAVE
[NOT ERR] MULTIBACK$ SAVE !1 !2 !3 !4 !5 !6 !7 !8 !9
UNLOCK
[NOT ERR] GOSUB ENT$CLEAR
[CONTINUE] GOTO ENT$LP
GOTO END_ENTER
ENT$CLEAR: MULTIBACK$ CLEAR !1 !2 !3 !4 !5 !6 !7 !8 !9
INDICATE ENT$QUERY FALSE
!A [] $284
RETURN
KEYPROC KEY.SAVE
!A [] $285
RETURN
KEYPROC KEY.DELETE
INDICATE ERR FALSE
REREAD
[NOT ENT$QUERY] ERROR 71
[NOT ERR] GOSUB ENTER.DELETE
[NOT ERR] GOSUB ENTER.EDIT
[NOT ERR] DELETE !1
[NOT ERR] MULTIBACK$ SAVE !2 !3 !4 !5 !6 !7 !8 !9
UNLOCK
[NOT ERR] GOSUB ENT$CLEAR
RETURN ENTRYSEC
KEYPROC KEY.SFIND
KEYPROC KEY.FIND
KEYPROC KEY.NEXT
KEYPROC KEY.PREVIOUS
INDICATE WAS$QUERY GROUP ANY [ENT$QUERY]
[KEY.SFIND] INDICATE ENT$QUERY TRUE
[NOT ENT$QUERY] INDICATE ENT$QUERY AS |CI!x EQ |VI15
[KEY.SFIND] ENTSFIND GE
[KEY.FIND][ENT$QUERY][ENT$PERMISSIVE] ENTFIND GE
[KEY.FIND][ENT$QUERY][NOT ENT$PERMISSIVE] ENTSFIND GE
[KEY.FIND][NOT ENT$QUERY] ENTFIND GE
[KEY.NEXT][ENT$QUERY] ENTSFIND GT
[KEY.NEXT][NOT ENT$QUERY] ENTFIND GT
[KEY.PREVIOUS][ENT$QUERY] ENTSFIND LT
[KEY.PREVIOUS][NOT ENT$QUERY] ENTFIND LT
[FINDERR] INDICATE ENT$QUERY GROUP ANY [WAS$QUERY]
!A [FOUND] $283
ENTAGAIN
RETURN
KEYPROC KEY.FIELD
BACKFIELD
ENTXRET: RETURN
KEYPROC KEY.CLEAR
INDICATE ERR FALSE
GOSUB ENTER.CLEAR
[NOT ERR] GOSUB ENT$CLEAR
RETURN ENTRYSEC
KEYPROC KEY.ESCAPE
INDICATE ERR FALSE
GOSUB ENTER.EXIT
[NOT ERR] RETURN ENTXRET
RETURN
KEYPROC KEY.HELP
HELP
ENTAGAIN
RETURN
ENTRYSEC: ENTERMODE
#ENDCOMMAND
ENTEREND

MAKEDEF$ ENTER.SAVE ENTER.EDIT ENTER.DELETE ENTER.CLEAR ENTER.EXIT
RETURN
END_ENTER:
CLEARSCREEN
#ENDCOMMAND
ENTERGROUP
.
#IFDEF ENT$DISP
#ELSE
INTEGER ENT$START
#$ GOTO ENTK$END
ENT$KEY
#SET X$ 0
ENTK$END:
#ENDIF
ENTRYSEC!X: ENTERMODE
INDICATE ENT$QUERY FALSE
#ENDCOMMAND
ENDGROUP

ENTUPDATE
GOTO ENT$END!x
RETURN
ENT$END!x:
#ENDCOMMAND
ENT$KEY

KEYPROC KEY.FIND
ENTFIND GE
GOTO ENT$DISP
KEYPROC KEY.NEXT
ENTFIND GT
GOTO ENT$DISP
KEYPROC KEY.PREVIOUS
ENTFIND LT
GOTO ENT$DISP
KEYPROC KEY.FIELD
BACKFIELD
RETURN
KEYPROC KEY.CLEAR
INDICATE ERR FALSE
!A [] $284
RETURN
KEYPROC KEY.SAVE
!1 [] $285
RETURN
KEYPROC KEY.HELP
HELP
ENTAGAIN
RETURN
ENT$DISP:
!A [FOUND] $283
ENTAGAIN
RETURN
#ENDCOMMAND
FORMAT
RUVCFL#G RVCFWL#B .
#FORMAT !1 !2
#ENDCOMMAND
BREAKINIT

!A [] $207
#ENDCOMMAND
REPORT
T "BY" VFW%LGR "BREAK"""
#CHECK !1.X UVCWG%L
MOVEINT 20000 TO LINECOUNT
INTEGER RECCOUNT
MOVEINT 0 TO RECCOUNT
CLEARSCREEN
BREAKINIT
INDICATE FIRSTREC TRUE
FIND GE !1 BY !3
RPT.LOOP: INDICATE SELECT TRUE
GOSUB RPT.SELECTION
[NOT SELECT] GOTO RPT.CONT
BREAK$ !5 !6 !7 !8 !9
#SET X$ !p
[NOT FIRSTREC] BREAK$DOWN RPT.SUBTOTAL
#SET X$ 0
RELATE !1
BREAK$UP RPT.SUBHEADER
INCREMENT RECCOUNT
GOSUB RPT.BODY
INDICATE FIRSTREC FALSE
RPT.CONT: FIND GT !1 BY !3
KEYCHECK
[FOUND NOT KEYPRESS] GOTO RPT.LOOP
[KEYPRESS] GOSUB RPT.KEYPRESS
#SET X$ !p
END.OF.REPORT:
BREAK$DOWN RPT.SUBTOTAL $X
GOSUB RPT.TOTAL
GOTO END$OF$REPORT
NEWPAGE: GOSUB RPT.HEADER
#SET X$ 0
[NOT FIRSTREC] BREAK$PRT SUBHEADER
RETURN
RPT.SELECTION:
#ENDCOMMAND
SECTION
R .
#IFSAME !1 SELECTION
#ELSE
RETURN
RPT.!1:
#IFDEF !1.LINES
PAGECHECK !1.LINES
[PAGEBREAK] GOSUB NEWPAGE
AUTOPAGE !1
#ENDIF
#ENDIF
#ENDCOMMAND
BREAK$T3

#IF !x<!p
MAKEDEF$ RPT.SUBHEADER!X RPT.SUBTOTAL!x
BREAK$T3
#ENDIF
#ENDCOMMAND
BREAK$

#IF (!0>0)
BREAKPOINT |CI!P !1
#ENDIF
#IF (!0>1)
BREAK$ !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDCOMMAND
BREAK$DOWN
R
#IF !x>0
#IF !0>1
GOSUB !1!x
#ELSE
[!x] GOSUB !1!x
#ENDIF
#ENDIF
#SET X$ !x-1
#IF !x>0
BREAK$DOWN !1 !2
#ENDIF
#ENDCOMMAND
BREAK$UP

#IF !x<!p
#IF !0=1
[!X] GOSUB !1!x
#ELSE
GOSUB !1!X
#ENDIF
BREAK$UP !1 !2
#ENDIF
#ENDCOMMAND
BREAK$PRT

#IF !x<!p
#IFDEF !1!X.N
!A [~ !x] $202 !1!x.N
#ENDIF
BREAK$PRT !1 !2
#ENDIF
#ENDCOMMAND
REPORTEND

MAKEDEF$ RPT.HEADER RPT.SELECTION RPT.BODY RPT.TOTAL RPT.KEYPRESS
#SET X$ 0
BREAK$T3
RETURN
END$OF$REPORT:
#ENDCOMMAND
PAGECHECK
#LG% .
#IFDEF !1 |CI0
!A [] $203 !1 |CI0
#ELSE
#CHECK !1.LINES VFWU#LG
!A [] $203 !1.LINES |CI0
#ENDIF
#ENDCOMMAND
FORMFEED
.
!A [] $203 |CI500 |CI0
#ENDCOMMAND
PRINT
#L
#IF !0>1
#CHECK !2 "TO"
#CHECK !3 CVF#L
#IFTYPE !3 IND
!A [] $206 !1 !3
#ELSE
!A [] $205 !1 !3
#ENDIF
#ELSE
AUTO4$ PRINT !1 TO PAGE!f
#ENDIF
#ENDCOMMAND
SUBTOTAL
RFVC#LSD
PRINT !1% !2 !3 !4 !5
!A [] $082 |CI0 !1%
#ENDCOMMAND
BREAKPOINT
UVFW UCI
!A [] $204 !1 !2
#ENDCOMMAND
MAKEDEF$

#IF !0>0
#IFDEF !1
#ELSE
!1:
#ENDIF
#IF !0>1
MAKEDEF$ !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF
#ENDCOMMAND
RUNPROGRAM
R#LGU #LGU .
!A [] $2C0 !1 !2
#ENDCOMMAND
RUN$
R#LGU #LGU .
!A [] $2CA !1 !2
#ENDCOMMAND
ERASEFILE
R#LGU .
!A [] $2C1 !1
#ENDCOMMAND
RENAMEFILE
R#LGU "TO" R#LGU .
!A [] $2C2 !1 !3
#ENDCOMMAND
DIRECTORY
R#LGU .
!A [] $2C4 !1
#ENDCOMMAND
COPYFILE
R#LGU "TO" R#LGU .
!A [] $2C5 !1 !3
#ENDCOMMAND
SYSTEM
.
!A [] $2C7
#ENDCOMMAND
DESPOOL
.
!A [] $2C6
#ENDCOMMAND
FILELIST
R#%LG "TO""" #LUGC #LUCG
#IFSAME !1 NEXT
!A [] $301 !3 !4
#ELSE
#IFSAME !1 PATHNAME
!A [] $302 !3 !4
#ELSE
#CHECK !1 U
!A [] $82 !1 FILENUMBER
!A [] $300 !3 !4
#ENDIF
#ENDIF
#ENDCOMMAND
FILELIST$PUT
#LRU #LRU #LU
#IF !0>2
!A [] $309 !3
#ENDIF
!A [] $30A !1 !2
#ENDCOMMAND
REGISTRATION
#RLUGC #LUGC
!A [] $307 !1 !2
#ENDCOMMAND
OS$CALL
#LRU%DG #L%UG "TO""" #LCGU .
!A [] $2C8 !1 !2
#IF !0>3
MOVEINT STRMARK TO !4
#ENDIF
#ENDCOMMAND
SYSDATE
#RCUGL #CUGL #CUGL
!A [] $2C9 !1
#IF !0>1
MOVE STRLEN TO !2
#ENDIF
#IF !0>2
MOVE STRMARK TO !3
#ENDIF
#ENDCOMMAND
TE
#RCUGL #CUGL #CUGL
!A [] $2C9 !1
#IF !0>1
MOVE STRLEN TO !2
#ENDIF
#IF !0>2
MOVE STRMARK