20 lines
493 B
Plaintext
20 lines
493 B
Plaintext
|
|
<BEGIN-SEGMENT 0>
|
|
<CONSTANT S-STATUS 1>
|
|
<CONSTANT STATUS-LINES 2>
|
|
<CONSTANT S-BORDER 6>
|
|
<GLOBAL BORDER-HEIGHT 32>
|
|
<BEGIN-SEGMENT HINTS>
|
|
<DEFINE-ROUTINE SETUP-TEXT-AND-STATUS>
|
|
<END-SEGMENT>
|
|
<BEGIN-SEGMENT 0>
|
|
<GLOBAL SCORE-START 0>
|
|
<CONSTANT SCORE-MARGIN 2>
|
|
<DEFINE-ROUTINE INIT-STATUS-LINE>
|
|
<GLOBAL DIGIT-WIDTH 0>
|
|
<GLOBAL SHERE <>>
|
|
<DEFINE-ROUTINE UPDATE-STATUS-LINE>
|
|
<DEFINE-ROUTINE ERASE-ALL-BUT>
|
|
<DEFINE-ROUTINE INTERLUDE-STATUS-LINE>
|
|
<DEFINE-ROUTINE RJNUM>
|
|
<END-SEGMENT> |