元のRPGソースコード
H*****************************************************************
H* COPYRIGHT SEC 1995 *
H* LICENSED MATERIAL PROGRAM PROPERTY OF SEC.C *
H*****************************************************************
* *
* 評定入力ファイルﾜｰｸ･ﾌｧｲﾙ作成 *
* *
*****************************************************************
*評定入力ファイル
FJIKNYULBIF E K DISK
*評定入力ファイルﾜｰｸ
FJIKNYUW O E K DISK
****************************************************************
C *ENTRY PLIST
C PARM PRHTYY 40
C PARM PRKKKB 10
****************************************************************
*評定入力ファイル
C K\IN KLIST
C KFLD INHTYY
C KFLD INKKKB
C KFLD INSYCD
C K\IN2 KLIST
C KFLD INHTYY
C KFLD INKKKB
****************************************************************
* *
* 主 処 理 *
* *
****************************************************************
C Z-ADDPRHTYY INHTYY
C Z-ADDPRKKKB INKKKB
C Z-ADD*LOVAL INSYCD
C K\IN SETLLJIKNYU
C K\IN2 READEJIKNYU 91
C *IN91 DOWEQ*OFF
*
C EXSR \SET01
C WRITEJIKNYW
*
C K\IN2 READEJIKNYU 91
C ENDDO
*終了処理
C SETON LR
C RETRN
****************************************************************
* 項目セット
****************************************************************
C \SET01 BEGSR
*
C Z-ADDINSYCD IWSYCD
C Z-ADDINHTYY IWHTYY
C Z-ADDINBUCD IWBUCD
C Z-ADDINKKKB IWKKKB
C Z-ADDINCKKB IWCKKB
C Z-ADDINYKCD IWYKCD
C Z-ADDINSOCD IWSOCD
C Z-ADDINSSCD IWSSCD
C Z-ADDINKSST IWKSST
C Z-ADDINSYST IWSYST
C Z-ADDINSUST IWSUST
C Z-ADDINWIST IWWIST
C Z-ADDINSOST IWSOST
C MOVELINKSRK IWKSRK
C MOVELINHTRK IWHTRK
C MOVELINTNRK IWTNRK
C MOVELINJIRK IWJIRK
C MOVELINKTRK IWKTRK
C MOVELINHT01 IWHT01
C MOVELINHT02 IWHT02
C MOVELINHT03 IWHT03
C MOVELINHT04 IWHT04
C MOVELINHT05 IWHT05
C MOVELINHT06 IWHT06
C MOVELINHT07 IWHT07
C MOVELINHT08 IWHT08
C MOVELINHT09 IWHT09
C MOVELINHT10 IWHT10
C MOVELINHT11 IWHT11
C MOVELINHT12 IWHT12
C MOVELINHT13 IWHT13
C MOVELINHT14 IWHT14
C MOVELINHT15 IWHT15
C MOVELINHT16 IWHT16
C MOVELINHT17 IWHT17
C MOVELINHT18 IWHT18
C MOVELINHT19 IWHT19
C MOVELINHT20 IWHT20
C MOVELINHT21 IWHT21
C MOVELINHT22 IWHT22
C MOVELINHT23 IWHT23
C MOVELINHT24 IWHT24
C MOVELINHT25 IWHT25
C Z-ADDINUPDT IWUPDT
C Z-ADDINCKCD IWCKCD
C Z-ADDINGRP IWGRP
C Z-ADDINSKLV IWSKLV
C Z-ADDINCKC2 IWCKC2
C Z-ADDINGRP2 IWGRP2
C Z-ADDINSKL2 IWSKL2
C Z-ADDINTOU\ IWTOU\
C Z-ADDINZEN\ IWZEN\
C MOVELINKZRK IWKZRK
C MOVELINKORK IWKORK
C MOVELINSGRK IWSGRK
C Z-ADDINKZPT IWKZPT
C Z-ADDINKOPT IWKOPT
C Z-ADDINSGPT IWSGPT
C Z-ADDINTAIS IWTAIS
C Z-ADDINYGPC IWYGPC
C MOVELINSYRK IWSYRK
C Z-ADDINNKCD IWNKCD
C Z-ADDINNGKY IWNGKY
C Z-ADDINNTCD IWNTCD
C Z-ADDINNGRN IWNGRN
C Z-ADDINNSOC IWNSOC
C Z-ADDINNSCD IWNSCD
C Z-ADDINWAT1 IWWAT1
C Z-ADDINWAT2 IWWAT2
C MOVELINC1HT IWC1HT
C MOVELINC2HT IWC2HT
C MOVELINC3HT IWC3HT
C MOVELINC4HT IWC4HT
C MOVELINC5R1 IWC5R1
C MOVELINC5R2 IWC5R2
C MOVELINC5KK IWC5KK
C Z-ADDINC5P1 IWC5P1
C Z-ADDINC5P2 IWC5P2
C MOVELINK1N1 IWK1N1
C Z-ADDINK1WT IWK1WT
C MOVELINK1HT IWK1HT
C MOVELINK2N1 IWK2N1
C Z-ADDINK2WT IWK2WT
C MOVELINK2HT IWK2HT
C MOVELINK3N1 IWK3N1
C Z-ADDINK3WT IWK3WT
C MOVELINK3HT IWK3HT
C MOVELINK4N1 IWK4N1
C Z-ADDINK4WT IWK4WT
C MOVELINK4HT IWK4HT
C MOVELINK5N1 IWK5N1
C Z-ADDINK5WT IWK5WT
C MOVELINK5HT IWK5HT
C MOVELINKD01 IWKD01
C MOVELINKD02 IWKD02
C MOVELINKD03 IWKD03
C MOVELINKD04 IWKD04
C MOVELINKD05 IWKD05
C MOVELINKSR7 IWKSR7
C MOVELINHTR7 IWHTR7
C MOVELINTNR7 IWTNR7
C MOVELINJIR7 IWJIR7
C MOVELINKTR7 IWKTR7
C Z-ADDINHTCD IWHTCD
C Z-ADDINSCPT IWSCPT
C Z-ADDINAMGP IWAMGP
C Z-ADDINAMST IWAMST
C Z-ADDINAMPT IWAMPT
C Z-ADDINNPSK IWNPSK
C Z-ADDINNPKG IWNPKG
C Z-ADDINNPCJ IWNPCJ
C Z-ADDINNPCK IWNPCK
C Z-ADDINSGHK IWSGHK
C MOVELINTKKB IWTKKB
C Z-ADDINTKDT IWTKDT
C Z-ADDINHJNR IWHJNR
08.01C Z-ADDINNATU IWFUYU
08.01C Z-ADDINFUYU IWNATU
*
C ENDSR
フローチャート図で表現したもの
%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize':'15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;
classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;
%%データ項目
s([演算 開始])-->
1["14行目:
パラメータリスト：*ENTRYを定義する"]
2["15行目:
パラメータ：PRHTYYを定義する"]
3["16行目:
パラメータ：PRKKKBを定義する"]
4["19行目:
キーリスト：K¥INを定義する"]
5["20行目:
キー：INHTYYを定義する"]
6["21行目:
キー：INKKKBを定義する"]
7["22行目:
キー：INSYCDを定義する"]
8["23行目:
キーリスト：K¥IN2を定義する"]
9["24行目:
キー：INHTYYを定義する"]
10["25行目:
キー：INKKKBを定義する"]
11["31行目:【Z-ADD】
PRHTYYをINHTYYにゼロ加算する"]
12["32行目:【Z-ADD】
PRKKKBをINKKKBにゼロ加算する"]
13["33行目:【Z-ADD】
*LOVALをINSYCDにゼロ加算する"]
14["34行目:【SETLL】
JIKNYUファイルに対してK¥INを用いて位置設定する"]:::clrPatternR
15[/"35行目:【READE】
JIKNYUファイルに対して、K¥IN2を用いてREADE（
等価読み込み）実行する
読み込めなかった場合、標識 [91] をオンにセットする。"/]:::clrPatternR
16[/"36行目:【DOWEQ】
標識91が*OFFである間は
の条件でループをする"\]:::clrPattern2
17[["38行目:【EXSR】
¥SET01サブルーチンを実行する"]]:::clrPattern3
18[/"39行目:【WRITE】
JIKNYWに新しいレコードを追加する"/]:::clrPatternC
19[/"41行目:【READE】
JIKNYUファイルに対して、K¥IN2を用いてREADE（
等価読み込み）実行する
読み込めなかった場合、標識 [91] をオンにセットする。"/]:::clrPatternR
20[\"42行目:
ループを終了する"/]:::clrPattern2
21["44行目:【SETON】
標識[LR]をオンにセットする"]
22["45行目:【RETRN】
呼出し元へ戻る"]
%%ルート設定
1-->2
2-->3
3-->4
4-->5
5-->6
6-->7
7-->8
8-->9
9-->10
10-->11
11-->12
12-->13
13-->14
14-->15
15-->16
16-->|ループ開始|17
17-->18
18-->19
19-->20
20-->|ループ終了|21
20-->|ループ継続| 16
21-->22
22["45行目:【RETRN】
呼出し元へ戻る"]
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
style S14 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["CRUD＜Read＞"]
subgraph S14[" "]
14
end
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
style S15 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["CRUD＜Read＞"]
subgraph S15[" "]
15
end
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
style S18 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["CRUD＜Create＞"]
subgraph S18[" "]
18
end
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
style S19 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["CRUD＜Read＞"]
subgraph S19[" "]
19
end
end
%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize''15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;
classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#F0E68C,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPattern4 fill:#FFEFD5,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;
%%データ項目
23(["49行目:
¥SET01サブルーチンを開始する"])
24["51行目:【Z-ADD】
INSYCDをIWSYCDにゼロ加算する"]
25["52行目:【Z-ADD】
INHTYYをIWHTYYにゼロ加算する"]
26["53行目:【Z-ADD】
INBUCDをIWBUCDにゼロ加算する"]
27["54行目:【Z-ADD】
INKKKBをIWKKKBにゼロ加算する"]
28["55行目:【Z-ADD】
INCKKBをIWCKKBにゼロ加算する"]
29["56行目:【Z-ADD】
INYKCDをIWYKCDにゼロ加算する"]
30["57行目:【Z-ADD】
INSOCDをIWSOCDにゼロ加算する"]
31["58行目:【Z-ADD】
INSSCDをIWSSCDにゼロ加算する"]
32["59行目:【Z-ADD】
INKSSTをIWKSSTにゼロ加算する"]
33["60行目:【Z-ADD】
INSYSTをIWSYSTにゼロ加算する"]
34["61行目:【Z-ADD】
INSUSTをIWSUSTにゼロ加算する"]
35["62行目:【Z-ADD】
INWISTをIWWISTにゼロ加算する"]
36["63行目:【Z-ADD】
INSOSTをIWSOSTにゼロ加算する"]
37["64行目:【MOVEL】
INKSRKの値をIWKSRKに左詰めで移動する"]
38["65行目:【MOVEL】
INHTRKの値をIWHTRKに左詰めで移動する"]
39["66行目:【MOVEL】
INTNRKの値をIWTNRKに左詰めで移動する"]
40["67行目:【MOVEL】
INJIRKの値をIWJIRKに左詰めで移動する"]
41["68行目:【MOVEL】
INKTRKの値をIWKTRKに左詰めで移動する"]
42["69行目:【MOVEL】
INHT01の値をIWHT01に左詰めで移動する"]
43["70行目:【MOVEL】
INHT02の値をIWHT02に左詰めで移動する"]
44["71行目:【MOVEL】
INHT03の値をIWHT03に左詰めで移動する"]
45["72行目:【MOVEL】
INHT04の値をIWHT04に左詰めで移動する"]
46["73行目:【MOVEL】
INHT05の値をIWHT05に左詰めで移動する"]
47["74行目:【MOVEL】
INHT06の値をIWHT06に左詰めで移動する"]
48["75行目:【MOVEL】
INHT07の値をIWHT07に左詰めで移動する"]
49["76行目:【MOVEL】
INHT08の値をIWHT08に左詰めで移動する"]
50["77行目:【MOVEL】
INHT09の値をIWHT09に左詰めで移動する"]
51["78行目:【MOVEL】
INHT10の値をIWHT10に左詰めで移動する"]
52["79行目:【MOVEL】
INHT11の値をIWHT11に左詰めで移動する"]
53["80行目:【MOVEL】
INHT12の値をIWHT12に左詰めで移動する"]
54["81行目:【MOVEL】
INHT13の値をIWHT13に左詰めで移動する"]
55["82行目:【MOVEL】
INHT14の値をIWHT14に左詰めで移動する"]
56["83行目:【MOVEL】
INHT15の値をIWHT15に左詰めで移動する"]
57["84行目:【MOVEL】
INHT16の値をIWHT16に左詰めで移動する"]
58["85行目:【MOVEL】
INHT17の値をIWHT17に左詰めで移動する"]
59["86行目:【MOVEL】
INHT18の値をIWHT18に左詰めで移動する"]
60["87行目:【MOVEL】
INHT19の値をIWHT19に左詰めで移動する"]
61["88行目:【MOVEL】
INHT20の値をIWHT20に左詰めで移動する"]
62["89行目:【MOVEL】
INHT21の値をIWHT21に左詰めで移動する"]
63["90行目:【MOVEL】
INHT22の値をIWHT22に左詰めで移動する"]
64["91行目:【MOVEL】
INHT23の値をIWHT23に左詰めで移動する"]
65["92行目:【MOVEL】
INHT24の値をIWHT24に左詰めで移動する"]
66["93行目:【MOVEL】
INHT25の値をIWHT25に左詰めで移動する"]
67["94行目:【Z-ADD】
INUPDTをIWUPDTにゼロ加算する"]
68["95行目:【Z-ADD】
INCKCDをIWCKCDにゼロ加算する"]
69["96行目:【Z-ADD】
INGRPをIWGRPにゼロ加算する"]
70["97行目:【Z-ADD】
INSKLVをIWSKLVにゼロ加算する"]
71["98行目:【Z-ADD】
INCKC2をIWCKC2にゼロ加算する"]
72["99行目:【Z-ADD】
INGRP2をIWGRP2にゼロ加算する"]
73["100行目:【Z-ADD】
INSKL2をIWSKL2にゼロ加算する"]
74["101行目:【Z-ADD】
INTOU¥をIWTOU¥にゼロ加算する"]
75["102行目:【Z-ADD】
INZEN¥をIWZEN¥にゼロ加算する"]
76["103行目:【MOVEL】
INKZRKの値をIWKZRKに左詰めで移動する"]
77["104行目:【MOVEL】
INKORKの値をIWKORKに左詰めで移動する"]
78["105行目:【MOVEL】
INSGRKの値をIWSGRKに左詰めで移動する"]
79["106行目:【Z-ADD】
INKZPTをIWKZPTにゼロ加算する"]
80["107行目:【Z-ADD】
INKOPTをIWKOPTにゼロ加算する"]
81["108行目:【Z-ADD】
INSGPTをIWSGPTにゼロ加算する"]
82["109行目:【Z-ADD】
INTAISをIWTAISにゼロ加算する"]
83["110行目:【Z-ADD】
INYGPCをIWYGPCにゼロ加算する"]
84["111行目:【MOVEL】
INSYRKの値をIWSYRKに左詰めで移動する"]
85["112行目:【Z-ADD】
INNKCDをIWNKCDにゼロ加算する"]
86["113行目:【Z-ADD】
INNGKYをIWNGKYにゼロ加算する"]
87["114行目:【Z-ADD】
INNTCDをIWNTCDにゼロ加算する"]
88["115行目:【Z-ADD】
INNGRNをIWNGRNにゼロ加算する"]
89["116行目:【Z-ADD】
INNSOCをIWNSOCにゼロ加算する"]
90["117行目:【Z-ADD】
INNSCDをIWNSCDにゼロ加算する"]
91["118行目:【Z-ADD】
INWAT1をIWWAT1にゼロ加算する"]
92["119行目:【Z-ADD】
INWAT2をIWWAT2にゼロ加算する"]
93["120行目:【MOVEL】
INC1HTの値をIWC1HTに左詰めで移動する"]
94["121行目:【MOVEL】
INC2HTの値をIWC2HTに左詰めで移動する"]
95["122行目:【MOVEL】
INC3HTの値をIWC3HTに左詰めで移動する"]
96["123行目:【MOVEL】
INC4HTの値をIWC4HTに左詰めで移動する"]
97["124行目:【MOVEL】
INC5R1の値をIWC5R1に左詰めで移動する"]
98["125行目:【MOVEL】
INC5R2の値をIWC5R2に左詰めで移動する"]
99["126行目:【MOVEL】
INC5KKの値をIWC5KKに左詰めで移動する"]
100["127行目:【Z-ADD】
INC5P1をIWC5P1にゼロ加算する"]
101["128行目:【Z-ADD】
INC5P2をIWC5P2にゼロ加算する"]
102["129行目:【MOVEL】
INK1N1の値をIWK1N1に左詰めで移動する"]
103["130行目:【Z-ADD】
INK1WTをIWK1WTにゼロ加算する"]
104["131行目:【MOVEL】
INK1HTの値をIWK1HTに左詰めで移動する"]
105["132行目:【MOVEL】
INK2N1の値をIWK2N1に左詰めで移動する"]
106["133行目:【Z-ADD】
INK2WTをIWK2WTにゼロ加算する"]
107["134行目:【MOVEL】
INK2HTの値をIWK2HTに左詰めで移動する"]
108["135行目:【MOVEL】
INK3N1の値をIWK3N1に左詰めで移動する"]
109["136行目:【Z-ADD】
INK3WTをIWK3WTにゼロ加算する"]
110["137行目:【MOVEL】
INK3HTの値をIWK3HTに左詰めで移動する"]
111["138行目:【MOVEL】
INK4N1の値をIWK4N1に左詰めで移動する"]
112["139行目:【Z-ADD】
INK4WTをIWK4WTにゼロ加算する"]
113["140行目:【MOVEL】
INK4HTの値をIWK4HTに左詰めで移動する"]
114["141行目:【MOVEL】
INK5N1の値をIWK5N1に左詰めで移動する"]
115["142行目:【Z-ADD】
INK5WTをIWK5WTにゼロ加算する"]
116["143行目:【MOVEL】
INK5HTの値をIWK5HTに左詰めで移動する"]
117["144行目:【MOVEL】
INKD01の値をIWKD01に左詰めで移動する"]
118["145行目:【MOVEL】
INKD02の値をIWKD02に左詰めで移動する"]
119["146行目:【MOVEL】
INKD03の値をIWKD03に左詰めで移動する"]
120["147行目:【MOVEL】
INKD04の値をIWKD04に左詰めで移動する"]
121["148行目:【MOVEL】
INKD05の値をIWKD05に左詰めで移動する"]
122["149行目:【MOVEL】
INKSR7の値をIWKSR7に左詰めで移動する"]
123["150行目:【MOVEL】
INHTR7の値をIWHTR7に左詰めで移動する"]
124["151行目:【MOVEL】
INTNR7の値をIWTNR7に左詰めで移動する"]
125["152行目:【MOVEL】
INJIR7の値をIWJIR7に左詰めで移動する"]
126["153行目:【MOVEL】
INKTR7の値をIWKTR7に左詰めで移動する"]
127["154行目:【Z-ADD】
INHTCDをIWHTCDにゼロ加算する"]
128["155行目:【Z-ADD】
INSCPTをIWSCPTにゼロ加算する"]
129["156行目:【Z-ADD】
INAMGPをIWAMGPにゼロ加算する"]
130["157行目:【Z-ADD】
INAMSTをIWAMSTにゼロ加算する"]
131["158行目:【Z-ADD】
INAMPTをIWAMPTにゼロ加算する"]
132["159行目:【Z-ADD】
INNPSKをIWNPSKにゼロ加算する"]
133["160行目:【Z-ADD】
INNPKGをIWNPKGにゼロ加算する"]
134["161行目:【Z-ADD】
INNPCJをIWNPCJにゼロ加算する"]
135["162行目:【Z-ADD】
INNPCKをIWNPCKにゼロ加算する"]
136["163行目:【Z-ADD】
INSGHKをIWSGHKにゼロ加算する"]
137["164行目:【MOVEL】
INTKKBの値をIWTKKBに左詰めで移動する"]
138["165行目:【Z-ADD】
INTKDTをIWTKDTにゼロ加算する"]
139["166行目:【Z-ADD】
INHJNRをIWHJNRにゼロ加算する"]
140["167行目:【Z-ADD】
INNATUをIWFUYUにゼロ加算する"]
141["168行目:【Z-ADD】
INFUYUをIWNATUにゼロ加算する"]
142(["170行目:
¥SET01サブルーチンを終了する"])
%%ルート設定
23-->24
24-->25
25-->26
26-->27
27-->28
28-->29
29-->30
30-->31
31-->32
32-->33
33-->34
34-->35
35-->36
36-->37
37-->38
38-->39
39-->40
40-->41
41-->42
42-->43
43-->44
44-->45
45-->46
46-->47
47-->48
48-->49
49-->50
50-->51
51-->52
52-->53
53-->54
54-->55
55-->56
56-->57
57-->58
58-->59
59-->60
60-->61
61-->62
62-->63
63-->64
64-->65
65-->66
66-->67
67-->68
68-->69
69-->70
70-->71
71-->72
72-->73
73-->74
74-->75
75-->76
76-->77
77-->78
78-->79
79-->80
80-->81
81-->82
82-->83
83-->84
84-->85
85-->86
86-->87
87-->88
88-->89
89-->90
90-->91
91-->92
92-->93
93-->94
94-->95
95-->96
96-->97
97-->98
98-->99
99-->100
100-->101
101-->102
102-->103
103-->104
104-->105
105-->106
106-->107
107-->108
108-->109
109-->110
110-->111
111-->112
112-->113
113-->114
114-->115
115-->116
116-->117
117-->118
118-->119
119-->120
120-->121
121-->122
122-->123
123-->124
124-->125
125-->126
126-->127
127-->128
128-->129
129-->130
130-->131
131-->132
132-->133
133-->134
134-->135
135-->136
136-->137
137-->138
138-->139
139-->140
140-->141
141-->142