7860 IF ASC(A$) = 1 AND LEN(A$) = 1 THEN I$(I,J) = " ": GOTO 7880
7870 IF ASC(A$) = 1 THEN I$(I,J) = " " + RIGHT$(A$, LEN(A$) -1)
7880 NEXT : NEXT
7890 GOSUB 7500: RETURN
7900 REM **WRITE INDEX**
7910 GOSUB 7000: GOSUB 7100:B% = PNT/239
7920 IF PNT <2 THEN 7990
7925 PRINT D$"OPEN"F$"-IDX"
7930 PRINT D$"WRITE"F$"-IDX"
7940 FOR I = 1 TO T%(0,0): FOR J = 0 TO B%
7950 IF LEN(I$(I,J)) = 1 AND ASC(I$(I,J)) = 32 THEN I$(I,J) = CHR$(1): GOTO 7970
7960 IF ASC(I$(I,J)) = 32 THEN I$(I,J) = CHR$(1) + RIGHT$(I$(I,J), LEN(I$(I,J)) -1)
7970 PRINT I$(I,J)
7980 NEXT : NEXT
7990 GOSUB 7500: RETURN
8000 REM **INITIALIZE**
8010 DATA 8,CHECK-NUM,X,13,4,4,1,0,0,PAY-TO,X,10,6,30,2,0,0,MO,N,6,8,2,0,0,0,DAY,N,17,8,2,0,0,0,AMOUNT,$,10,10,8,0,0,0,POSTED,X,30,10,1,3,0,0,MAJ-CD,X,10,12,1,0,0,0,MIN-CD,X,23,12,1,0,0,0,49,3