shogun/pic.zabstr

31 lines
770 B
Plaintext

<BEGIN-SEGMENT 0>
<CONSTANT P-TITLE 1>
<CONSTANT YX-TBL <TABLE 0 0>>
<DEFINE-ROUTINE YCEILING>
<DEFINE-ROUTINE XCEILING>
<END-SEGMENT>
<BEGIN-SEGMENT STARTUP>
<DEFINE-ROUTINE TITLE-SCREEN>
<END-SEGMENT>
<BEGIN-SEGMENT 0>
<GLOBAL CURRENT-BORDER 0>
<DEFINE-ROUTINE DISPLAY-BORDER>
<DEFINE-ROUTINE CENTER-PIC-X>
<DEFINE-ROUTINE CENTER-PIC>
<GLOBAL TEXT-MARGIN 2>
<DEFINE-ROUTINE FLUSH-OLD-PICTURE>
<DEFINE-ROUTINE N-CRLF>
<DEFINE-ROUTINE MARGINAL-PIC>
<DEFINE-ROUTINE SET-MARGIN>
<GLOBAL PIC-SIDE <>>
<GLOBAL NEXT-PIC-WIDTH 0>
<GLOBAL NEXT-PIC-CRCNT 0>
<DEFINE-ROUTINE NEXT-MARGIN>
<DEFINE-ROUTINE RESET-MARGIN-1>
<BEGIN-SEGMENT HINTS>
<DEFINE-ROUTINE RESET-MARGIN>
<END-SEGMENT>
<BEGIN-SEGMENT 0>
<DEFINE-ROUTINE MAKE-ROOM-FOR>
<END-SEGMENT>