,0080121001
,0080121001          ORG  333           RELOAD
L0313521001,008012   SW   8,12          GET READY
L0313591001,001      SW   1             GET READY...
L03136310011001      R    1             LOAD IT
L03136710011         R                  READ A CARD
L0313681001B3610801  B    *&5,80,A      IS IT A HEADER CARD?
L0313761001B421      B    421           WHAT WILL BE HERE?
L0313801001/340080   CS   RELOAD,80
l0313871001          DCW  #1
,0080121001  HDRS    EQU  1120          ALL PROGRAMS PUT HEADERS HERE
,0080121001  TITLEX  EQU  413           ALL PROGRAMS RETURN HERE
,0080121001          ORG  1200          TITLE PRINT ROUTINE
L031S1910012 TITLPR  W                  PRINT (SPACE).                              1  1200  2                    6
L031S201001,049      SW   49            SET WM FOR TITLE AND BLOCK NO.              4  1201  , 049                6
L031S241001L077277   LCA  77,277        LOAD TITLE AND BLOCK NO. IN PRINT AREA.     7  1205  L 077 277            6
L031S3110012         W                  PRINT TITLE AND BLOCK NO.                   1  1212  2                    6
L031S321001/277      CS   277           CLEAR PRINT AREA                            4  1213  / 277                6
L031S3610012         W                  PRINT (SPACE).                              1  1217  2                    6
L031S371001)/40/60   CW    HDRS&20,HDRS&40  CLEAR WORD MARKS IN SECOND              7  1218  ) /40 /60            6
L031S441001)/80      CW    HDRS&60      LINE STORED INFORMATION.                    4  1225  ) /80                7
L031S481001L/99280   LCA   HDRS&79,280  LOAD SECOND LINE.                           7  1229  L /99 280            7
L031S5510012         W                  PRINT SECOND LINE.                          1  1236  2                    7
L031S561001/280      CS    280          CLEAR PRINT AREA.                           4  1237  / 280                7
L031S6010012413      W     TITLEX       PRINT (SPACE) AND BRANCH TO MAIN PROGRA     4  1241  2 413                7
L031S641001          DCW   #1                                                       1  1245                       7
.111111
