-../../../../as/YAKUWA/floatedit.casl:1:EDIT START
-../../../../as/YAKUWA/floatedit.casl:2:RETRY IN INAREA,INLENG
-../../../../as/YAKUWA/floatedit.casl:3: LAD GR1,0
-../../../../as/YAKUWA/floatedit.casl:4: OR GR1,INLENG
-../../../../as/YAKUWA/floatedit.casl:5: JZE FINISH
-../../../../as/YAKUWA/floatedit.casl:6: CPA GR1,TEN
-../../../../as/YAKUWA/floatedit.casl:7: JZE BEGIN
-../../../../as/YAKUWA/floatedit.casl:8: OUT ERRMSG,MSGLNG
-../../../../as/YAKUWA/floatedit.casl:9: JUMP RETRY
-../../../../as/YAKUWA/floatedit.casl:10:BEGIN LAD GR0,1
-../../../../as/YAKUWA/floatedit.casl:11: ST GR0,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl:12: LAD GR1,0
-../../../../as/YAKUWA/floatedit.casl:13: LAD GR2,-1
-../../../../as/YAKUWA/floatedit.casl:14: LAD GR3,0
-../../../../as/YAKUWA/floatedit.casl:15:LOOP LD GR0,MASK,GR3
-../../../../as/YAKUWA/floatedit.casl:16: PUSH 1,GR3
-../../../../as/YAKUWA/floatedit.casl:17: LD GR3,INAREA,GR1
-../../../../as/YAKUWA/floatedit.casl:18: LAD GR1,1,GR1
-../../../../as/YAKUWA/floatedit.casl:19: CPL GR0,DIGIT0
-../../../../as/YAKUWA/floatedit.casl:20: JZE ENDSPR
-../../../../as/YAKUWA/floatedit.casl:21: CPL GR0,DIGIT9
-../../../../as/YAKUWA/floatedit.casl:22: JNZ NONDGT
-../../../../as/YAKUWA/floatedit.casl:23: CPL GR3,DIGIT0
-../../../../as/YAKUWA/floatedit.casl:24: JNZ ENDSPR
-../../../../as/YAKUWA/floatedit.casl:25: LAD GR0,0
-../../../../as/YAKUWA/floatedit.casl:26: OR GR0,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl:27: JNZ SUPPRS
-../../../../as/YAKUWA/floatedit.casl:28:ENDSPR LD GR0,OTAREA,GR2
-../../../../as/YAKUWA/floatedit.casl:29: CPL GR0,SPACE
-../../../../as/YAKUWA/floatedit.casl:30: JNZ NOT1ST
-../../../../as/YAKUWA/floatedit.casl:31: LD GR0,MASK
-../../../../as/YAKUWA/floatedit.casl:32: ST GR0,OTAREA,GR2
-../../../../as/YAKUWA/floatedit.casl:33: LAD GR0,0
-../../../../as/YAKUWA/floatedit.casl:34: ST GR0,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl:35:NOT1ST LAD GR0,0,GR3
-../../../../as/YAKUWA/floatedit.casl:36: JUMP STORE
-../../../../as/YAKUWA/floatedit.casl:37:NONDGT LAD GR1,-1,GR1
-../../../../as/YAKUWA/floatedit.casl:38: LAD GR3,0
-../../../../as/YAKUWA/floatedit.casl:39: OR GR3,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl:40: JZE STORE
-../../../../as/YAKUWA/floatedit.casl:41:SUPPRS LD GR0,SPACE
-../../../../as/YAKUWA/floatedit.casl:42:STORE LAD GR2,1,GR2
-../../../../as/YAKUWA/floatedit.casl:43: ST GR0,OTAREA,GR2
-../../../../as/YAKUWA/floatedit.casl:44: POP GR3
-../../../../as/YAKUWA/floatedit.casl:45: CPA GR1,INLENG
-../../../../as/YAKUWA/floatedit.casl:46: JNZ LOOP
-../../../../as/YAKUWA/floatedit.casl:47: LAD GR2,1,GR2
-../../../../as/YAKUWA/floatedit.casl:48: ST GR2,OTLENG
-../../../../as/YAKUWA/floatedit.casl:49: OUT OTAREA,OTLENG
-../../../../as/YAKUWA/floatedit.casl:50: JUMP RETRY
-../../../../as/YAKUWA/floatedit.casl:51:FINISH RET
-../../../../as/YAKUWA/floatedit.casl:52:MASK DC '\99,999,990.99'
-../../../../as/YAKUWA/floatedit.casl:53:SPACE DC ' '
-../../../../as/YAKUWA/floatedit.casl:54:DIGIT0 DC '0'
-../../../../as/YAKUWA/floatedit.casl:55:DIGIT9 DC '9'
-../../../../as/YAKUWA/floatedit.casl:56:TEN DC 10
-../../../../as/YAKUWA/floatedit.casl:57:ERRMSG DC 'input error!'
-../../../../as/YAKUWA/floatedit.casl:58:MSGLNG DC 12
-../../../../as/YAKUWA/floatedit.casl:59:INAREA DS 80
-../../../../as/YAKUWA/floatedit.casl:60:INLENG DS 1
-../../../../as/YAKUWA/floatedit.casl:61:OTAREA DS 80
-../../../../as/YAKUWA/floatedit.casl:62:OTLENG DS 1
-../../../../as/YAKUWA/floatedit.casl:63:ZSFLAG DS 1
-../../../../as/YAKUWA/floatedit.casl:64: END
+../../../../as/YAKUWA/floatedit.casl: 1:EDIT START
+../../../../as/YAKUWA/floatedit.casl: 2:RETRY IN INAREA,INLENG
+../../../../as/YAKUWA/floatedit.casl: 3: LAD GR1,0
+../../../../as/YAKUWA/floatedit.casl: 4: OR GR1,INLENG
+../../../../as/YAKUWA/floatedit.casl: 5: JZE FINISH
+../../../../as/YAKUWA/floatedit.casl: 6: CPA GR1,TEN
+../../../../as/YAKUWA/floatedit.casl: 7: JZE BEGIN
+../../../../as/YAKUWA/floatedit.casl: 8: OUT ERRMSG,MSGLNG
+../../../../as/YAKUWA/floatedit.casl: 9: JUMP RETRY
+../../../../as/YAKUWA/floatedit.casl: 10:BEGIN LAD GR0,1
+../../../../as/YAKUWA/floatedit.casl: 11: ST GR0,ZSFLAG
+../../../../as/YAKUWA/floatedit.casl: 12: LAD GR1,0
+../../../../as/YAKUWA/floatedit.casl: 13: LAD GR2,-1
+../../../../as/YAKUWA/floatedit.casl: 14: LAD GR3,0
+../../../../as/YAKUWA/floatedit.casl: 15:LOOP LD GR0,MASK,GR3
+../../../../as/YAKUWA/floatedit.casl: 16: PUSH 1,GR3
+../../../../as/YAKUWA/floatedit.casl: 17: LD GR3,INAREA,GR1
+../../../../as/YAKUWA/floatedit.casl: 18: LAD GR1,1,GR1
+../../../../as/YAKUWA/floatedit.casl: 19: CPL GR0,DIGIT0
+../../../../as/YAKUWA/floatedit.casl: 20: JZE ENDSPR
+../../../../as/YAKUWA/floatedit.casl: 21: CPL GR0,DIGIT9
+../../../../as/YAKUWA/floatedit.casl: 22: JNZ NONDGT
+../../../../as/YAKUWA/floatedit.casl: 23: CPL GR3,DIGIT0
+../../../../as/YAKUWA/floatedit.casl: 24: JNZ ENDSPR
+../../../../as/YAKUWA/floatedit.casl: 25: LAD GR0,0
+../../../../as/YAKUWA/floatedit.casl: 26: OR GR0,ZSFLAG
+../../../../as/YAKUWA/floatedit.casl: 27: JNZ SUPPRS
+../../../../as/YAKUWA/floatedit.casl: 28:ENDSPR LD GR0,OTAREA,GR2
+../../../../as/YAKUWA/floatedit.casl: 29: CPL GR0,SPACE
+../../../../as/YAKUWA/floatedit.casl: 30: JNZ NOT1ST
+../../../../as/YAKUWA/floatedit.casl: 31: LD GR0,MASK
+../../../../as/YAKUWA/floatedit.casl: 32: ST GR0,OTAREA,GR2
+../../../../as/YAKUWA/floatedit.casl: 33: LAD GR0,0
+../../../../as/YAKUWA/floatedit.casl: 34: ST GR0,ZSFLAG
+../../../../as/YAKUWA/floatedit.casl: 35:NOT1ST LAD GR0,0,GR3
+../../../../as/YAKUWA/floatedit.casl: 36: JUMP STORE
+../../../../as/YAKUWA/floatedit.casl: 37:NONDGT LAD GR1,-1,GR1
+../../../../as/YAKUWA/floatedit.casl: 38: LAD GR3,0
+../../../../as/YAKUWA/floatedit.casl: 39: OR GR3,ZSFLAG
+../../../../as/YAKUWA/floatedit.casl: 40: JZE STORE
+../../../../as/YAKUWA/floatedit.casl: 41:SUPPRS LD GR0,SPACE
+../../../../as/YAKUWA/floatedit.casl: 42:STORE LAD GR2,1,GR2
+../../../../as/YAKUWA/floatedit.casl: 43: ST GR0,OTAREA,GR2
+../../../../as/YAKUWA/floatedit.casl: 44: POP GR3
+../../../../as/YAKUWA/floatedit.casl: 45: CPA GR1,INLENG
+../../../../as/YAKUWA/floatedit.casl: 46: JNZ LOOP
+../../../../as/YAKUWA/floatedit.casl: 47: LAD GR2,1,GR2
+../../../../as/YAKUWA/floatedit.casl: 48: ST GR2,OTLENG
+../../../../as/YAKUWA/floatedit.casl: 49: OUT OTAREA,OTLENG
+../../../../as/YAKUWA/floatedit.casl: 50: JUMP RETRY
+../../../../as/YAKUWA/floatedit.casl: 51:FINISH RET
+../../../../as/YAKUWA/floatedit.casl: 52:MASK DC '\99,999,990.99'
+../../../../as/YAKUWA/floatedit.casl: 53:SPACE DC ' '
+../../../../as/YAKUWA/floatedit.casl: 54:DIGIT0 DC '0'
+../../../../as/YAKUWA/floatedit.casl: 55:DIGIT9 DC '9'
+../../../../as/YAKUWA/floatedit.casl: 56:TEN DC 10
+../../../../as/YAKUWA/floatedit.casl: 57:ERRMSG DC 'input error!'
+../../../../as/YAKUWA/floatedit.casl: 58:MSGLNG DC 12
+../../../../as/YAKUWA/floatedit.casl: 59:INAREA DS 80
+../../../../as/YAKUWA/floatedit.casl: 60:INLENG DS 1
+../../../../as/YAKUWA/floatedit.casl: 61:OTAREA DS 80
+../../../../as/YAKUWA/floatedit.casl: 62:OTLENG DS 1
+../../../../as/YAKUWA/floatedit.casl: 63:ZSFLAG DS 1
+../../../../as/YAKUWA/floatedit.casl: 64: END