13 lines
314 B
Plaintext
13 lines
314 B
Plaintext
|
|
<BEGIN-SEGMENT STARTUP>
|
|
<DEFINE-ROUTINE TITLE-SCREEN>
|
|
<END-SEGMENT>
|
|
<BEGIN-SEGMENT 0>
|
|
<CONSTANT YX-TBL <TABLE 0 0>>
|
|
<CONSTANT WIN-TBL <TABLE 0 0 0>>
|
|
<DEFINE-ROUTINE YCEILING>
|
|
<DEFINE-ROUTINE XCEILING>
|
|
<CONSTANT WTBL <LTABLE 0>>
|
|
<DEFINE-ROUTINE MARGINAL-PIC>
|
|
<DEFINE-ROUTINE RESET-MARGIN>
|
|
<END-SEGMENT> |