FGTTOGSTXIF E DISK

FTRANMAS O E K DISK

FTRANSAG O E K DISK

F*RSDUP O E K DISK

F*RMDUP O E K DISK

E ARR1 1500 1

E ARR2 50 1

E ARR3 50 50

**

I DS

I 1 2 G1

I 3 3 N1

I 4 5 A1

I 6 6 N2

I 7 10 Y1

I 1 10 DATE1

**

I DS

I 1 2 FBG

I 3 3 N3

I 4 5 FBA

I 6 6 N4

I 7 10 FBY

I 1 10 DATE2

**

I DS

I 1 2 FBTG

I 3 3 N5

I 4 6 FBTA

I 6 6 N6

I 7 10 FBTY

I 1 10 DATE3

**

I DS

I 1 2 DGUN

I 3 3 N7

I 4 50DGAY

I 6 6 N8

I 7 10 DGYIL

I 1 10 DATE4

**

C MOVEL*BLANKS DATE1

C MOVEL*BLANKS DATE2

C MOVEL*BLANKS DATE3

C MOVEL*BLANKS DATE4

**

C *IN99 DOWEQ*OFF

C READ FGTTOGS 99

C 99 LEAVE

C MOVEATEXT ARR1

C EXSR ISLEM

C ENDDO

C SETON LR

**

C ISLEM BEGSR

C Z-ADD1 I 50

C Z-ADD1 K 50

C Z-ADD1 S 50

C ARR1,I DOUEQ'|'

C ARR1,I IFEQ '™'

C EXSR DZYAZ

C MOVEAARR2 ARR3,S

C MOVEA*BLANKS ARR2

C ADD 1 S

C Z-ADD1 K

C ELSE

C MOVE ARR1,I ARR2,K

C ADD 1 K

C ENDIF

C ADD 1 I

C ENDDO

C EXSR KAYIT

C ENDSR

**

C DZYAZ BEGSR

C S IFEQ 2

C S OREQ 8

C S OREQ 12

C S OREQ 13

C S OREQ 14

C S OREQ 21

C S OREQ 22

C K SUB 1 T 20

C Z-ADD50 O 20

C T DOUEQ0

C ARR2,T IFEQ ','

C MOVEL*BLANKS ARR2,T

C ITER

C ENDIF

C MOVELARR2,T ARR2,O

C MOVEL*BLANKS ARR2,T

C SUB 1 T

C SUB 1 O

C ENDDO

C ENDIF

C ENDSR

**

C KAYIT BEGSR

C MOVELARR3,1 FREF

C MOVE ARR3,2 SUBE 3

C MOVE SUBE FSUBE

C MOVELARR3,3 DATE1

C MOVELG1 FTGUN

C MOVELA1 FTAY

C MOVELY1 FTYIL

C MOVELARR3,4 FPORT

C MOVELARR3,5 KOD 1 ANA

C KOD IFEQ '1'

C MOVEL'B' FMUS

C ENDIF

C KOD IFEQ '2'

C MOVEL'T' FMUS

C ENDIF

C KOD IFEQ '3'

C MOVEL'K' FMUS

C ENDIF

C KOD IFEQ '4'

C MOVEL'S' FMUS

C ENDIF

C Z-ADD4 FACNBK

C MOVELARR3,7 FSAD

C MOVE ARR3,8 TAR 6

C MOVE TAR FTAR

C FTAR IFEQ 7502

C Z-ADD7702 FTAR

C ENDIF

C FTAR IFEQ 7598

C Z-ADD7798 FTAR

C ENDIF

C MOVELARR3,9 DATE2

C MOVELFBG FBAGUN

C MOVELFBA FBAAY

C MOVELFBY FBAYIL

C MOVELARR3,10 DATE3

C MOVELFBTG FBTGUN

C MOVELFBTA FBTAY

C MOVELFBTY FBTYIL

C MOVE ARR3,12 SURE 2

C MOVE SURE FSURE

C MOVE ARR3,13 VEF 15

C MOVE VEF FVEF

C MOVE ARR3,14 PRIM 17

C MOVE PRIM FPRIM

C MULT 100 FPRIM

C MOVELARR3,15 FMENF

C MOVELARR3,16 FMURT

C MOVELARR3,17 FAD

C MOVELARR3,18 FSOY

C MOVELARR3,19 DATE4

C MOVELDGUN FDGUN

C MOVELDGAY FDGAY

C MOVELDGYIL FDGYIL

C MOVELARR3,20 FDGYER

C MOVELARR3,23 FADR1

C MOVE ARR3,23 FADR2

C MOVELARR3,25 FILCE

C MOVELARR3,24 FIL

C MOVELARR3,26 FPOS

C MOVELARR3,27 FCINS

C FCINS IFEQ '1'

C MOVEL'K' FCINS

C ELSE

C MOVEL'E' FCINS

C ENDIF

C MOVE ARR3,28 FMED

C FMED IFEQ '1'

C MOVEL'E' FMED

C ELSE

C MOVEL'B' FMED

C ENDIF

C MOVELARR3,29 FODAD

C MOVELARR3,30 FODADR

C Z-ADD*YEAR FSYIL

C Z-ADDUMONTH FSAY

C Z-ADDUDAY FSGUN

C* FREF CHAINTRMASF 88

C* *IN88 IFEQ *OFF

C* WRITETRMDUPF

C* ENDIF

C WRITETRMASF

**

C MOVE ARR3,21 FBOY

C MOVE ARR3,22 FKILO

C MOVELARR3,31 FKALPC

C MOVELARR3,32 FKALPA

C MOVELARR3,33 FTANSC

C MOVELARR3,34 FTANSA

C MOVELARR3,35 FDIYAC

C MOVELARR3,36 FDIYAA

C MOVELARR3,37 FKANSC

C MOVELARR3,38 FKANSA

C MOVELARR3,39 FROMTC

C MOVELARR3,40 FROMTA

C MOVELARR3,41 FBOBRC

C MOVELARR3,42 FBOBRA

C MOVELARR3,43 FAMELC

C MOVELARR3,44 FAMELA

C MOVELARR3,45 FAIDSC

C MOVELARR3,46 FAIDSA

C MOVELARR3,47 FSON3C

C MOVELARR3,48 FSON3A

C* FREF CHAINTRSAGF 88

C* *IN88 IFEQ *OFF

C* WRITETRSDUPF

C* ENDIF

C WRITETRSAGF

C MOVEA*BLANKS ARR3

C ENDSR