<CALENDAR>   /*当年分４，１２月の管理表に曜日を記入するために必要*/
LET Z4=TODAY;LET V4=NUM$(Z4);LET V5=LEFT$(V4,4);LET V6=V5+"0101";
LET Z5=VAL(V5);LET Z6=Z5+1;LET V7=NUM$(Z6);;
G;WEEK/1;CPR;A;4*52;ATR;N;D;1;NUM;;;1;;%V6;;NF;;1;6/2/2/2/2;DR;@%V7年;;
DC;1/3/5;;CF;1/2;4;FILL;月;2;3;;DRL;C;1;DRL;C;N;
GROUP;;;2;;CALENDAR;G;1;CPB/P;CALENDAR;CALENDAR;4,2;4,2;2,3;Y;
STOP
<CALENDARN>   /*翌年分１，３月の管理表に曜日を記入するために必要*/
LET Z4=TODAY;LET V4=NUM$(Z4);LET V5=LEFT$(V4,4);
LET Z5=VAL(V5);LET Z6=Z5+1;LET V7=NUM$(Z6);LET V8=V7+"0101";
LET Z7=Z6+1;LET V9=NUM$(Z7);
G;WEEK/2;CPR;A;4*52;ATR;N;D;1;NUM;;;1;;%V8;;NF;;1;6/2/2/2/2;DR;@%V9年;;
DC;1/3/5;;CF;1/2;4;FILL;月;2;3;;DRL;C;1;DRL;C;N;
GROUP;;;2;;CALENDARN;G;1;CPB/P;CALENDARN;CALENDARN;4,2;4,2;2,3;Y;
STOP
<管理表4～12> /*基本表から当年４，１２月の時間外管理表バインダー作成*/
FOR X1= 4 TO 12;
 LET V1=NUM$(X1); LET V2=FORM$(V1,5);CPP;基本表;時間外管理表%V2月;;
NEXT;
STOP
<管理表1～3>  /*基本表から翌年１，３月の時間外管理表バインダー作成*/
FOR X1= 1 TO 3;
 LET V1=NUM$(X1); LET V2=FORM$(V1,5);CPP;基本表;時間外管理表%V2月;;
NEXT;
STOP
<曜日>/*４～１２月管理表にタイトル、曜日等記入*/
LET Z4=TODAY;LET V4=NUM$(Z4);LET V5=LEFT$(V4,4);
FOR X1=4 TO 12;
   LET V1=NUM$(X1); LET V2=FORM$(V1,5);
   G;CALENDAR/%X1;DC;1;;S;LET V40="時間外管理表"+V2+"月"; G;%V40/1;
   FOR X2=1 TO BINDER(V40);
      G;%X2;FILL;%X1月;2;4￥;;CT;時間外管理表 %V5年%X1月_%X2;P;*;LET X5=15;
      FOR X3={H} TO {T};
         LET V3={X3,@月 };LET [2,X5]=V3;LET X5=X5+3;
      NEXT;P;*;
   NEXT;
NEXT;
STOP
<曜日N>/*翌１～３月管理表にタイトル、曜日等記入*/
LET Z4=TODAY;LET V4=NUM$(Z4);LET V5=LEFT$(V4,4);LET Z5=VAL(V5);
LET Z5=Z5+1;LET V5=NUM$(Z5);
FOR X1=1 TO 3;
   LET V1=NUM$(X1); LET V2=FORM$(V1,5);
   G;CALENDARN/%X1;DC;1;;S;LET V40="時間外管理表"+V2+"月";G;%V40/1;
   FOR X2=1 TO BINDER(V40);
      G;%X2;FILL;%X1月;2;4￥;;CT;時間外管理表 %V5年%X1月_%X2;P;*;LET X5=15;
      FOR X3={H} TO {T};
         LET V3={X3,@月 };LET [2,X5]=V3;LET X5=X5+3;
      NEXT;P;*;
   NEXT;
NEXT;
STOP
<ON>      /*時間外データ入力*/
WR/T;入力定義表/2;;14;ENTRY;P;*;
STOP
<NEW>       /*前月迄の年間累計に当月の月間累計を加算して次月の表作成*/
$始め:LET V1="04月";LET V2="05月";LET V3="06月";LET V4="07月";
      LET V5="08月";LET V6="09月";LET V7="10月";LET V8="11月";
      LET V9="12月";LET V10="01月";LET V11="02月";LET V12="03月";
      LET V13="終了";
SELECT [72,2],"翌月を指定して[Home]",X1,V1,V2,V3,V4,V5,
「この行は用紙幅の都合上、分割しています」V6,V7,V8,V9,V10,V11,V12,V13;
      IF X1=1 THEN GOTO $04;IF X1=2 THEN GOTO $05;
      IF X1=3 THEN GOTO $06;IF X1=4 THEN GOTO $07;
      IF X1=5 THEN GOTO $08;IF X1=6 THEN GOTO $09;
      IF X1=7 THEN GOTO $08;IF X1=8 THEN GOTO $12;
      IF X1=9 THEN GOTO $01;IF X1=11 THEN GOTO $02;
      IF X1=12 THEN GOTO $03;IF X1=13 THEN GOTO $EX;
$04:  ACCEPT "４月の管理表を作りますか？  (Y/N) ",V1;
      IF ERR(0)=55 THEN GOTO $EX;IF INSTR(1,"YyNn",V1)=0 THEN GOTO $04;
      IF V1="N" OR "n" THEN GOTO $始め;
      FILL/P;時間外管理表４月;時間外管理表４月;;A;6,T;;Y;G;1;GOTO $EX;
$05:  ACCEPT "５月の管理表を作りますか？  (Y/N) ",V1;
      IF ERR(0)=55 THEN GOTO $EX;IF INSTR(1,"YyNn",V1)=0 THEN GOTO $05;
      IF V1="N" OR "n" THEN GOTO $始め;
      CA;時間外管理表５月;時間外管理表４月;1,5/S6,8/9,T;;
      時間外管理表５月;CAL/P;時間外管理表５月;時間外管理表５月;
      @年間累計 +@月間累計 =@年間累計;Y;
      FILL/P;時間外管理表５月;時間外管理表５月;;A;8,T;;Y;G;1;GOTO $EX;
$06:  ACCEPT "６月の管理表を作りますか？  (Y/N) ",V1;
      IF ERR(0)=55 THEN GOTO $EX;IF INSTR(1,"YyNn",V1)=0 THEN GOTO $06;
      IF V1="N" OR "n" THEN GOTO $始め;
      CA;時間外管理表６月;時間外管理表５月;1,5/S6,8/9,T;;
      時間外管理表６月;CAL/P;時間外管理表６月;時間外管理表６月;
      @年間累計 +@月間累計 =@年間累計;Y;
      FILL/P;時間外管理表６月;時間外管理表６月;;A;8,T;;Y;G;1;GOTO $EX;

以下プログラム省略