Commodore 1541 - Page 48

170 PRINT "RECORD0(1T')-t',AS(l)
175 K = 6-l
177 PRINTS,"P"CHR$(2 + 96)CHRS(I}CHR$(O>CHR5(25)
179 1NPUT#2,C$(I):PSINT"ADDITIONAL INFO:";C$(I)
180 NEXT I
181 PRINT "DO YOU WISH TO REPLACE A RECORD'MNPUT DS
182 IFDS="N"THEN 1S5
183
GOSUB 8000
184 GO TO 181
185 GOSUB 1000
186 J-I+l
190 PRINT "END OF READ";FOR DE= ] TO 1500;NEXT DE:GOSUB
6000:CLOSE2:CLOSE1:END
1000 INPUT#1,A,B$VC,D,:1FA < 20 THEN RETURN
1001 IFAO5GTHEN PRINT A,B$.C,D :STOP:RETURN
1999 END
2000 OPEN 15,8,15
2001 1NPU™5.A,BJ,C\D
2002 PRINT A3S,C,D
2003 CLOSE 15:END
5000 GET SS:IF SS= ""THEN 5000 :REM SCAN KEYBOARD FOR
FUNCTION KEY CHRS CODES
5001 IF SS = CHR$(133) THEN 6:REM ASSIGN Fl FUNCTION KEY
5002 IFSS = CHRJ(134) THEN 100:REM ASSIGN F3 FUNCTION KEY
5003 IF S$ = CHRS{D5) THEN 2000: REM ASSIGN F5 FUNCTION KEY
5004 RETURN
6000 PRINT "OHIT F7: FOR HARD COPY OR C TO CONTINUE"
6001 GET PS:1FP$< >CHRS(136) AND PS- "C" THEN RETURN
6002 FOR DE=1 TO 500:NEXT DE:IF PS = ""OR PS<>CHR$(136) THEN
6000
6003
OPEN 4,4 :CMD4
6004 PRINT#4,"THE "ZS" FILE CONSISTS OF:"
6005 FOR I = 1 TO 5
6010 PRIN™/'RECORD#M;I
6012 PRINT#4,"ADDITIONAL
6015 NEXT I
6020 CLOSE4:RETURN
7000 REM TO READ IN RECORDS IN REVERSE ORDER REMOVE THE
REM IN LINE #115 AND
7002 REM PUT A REM BEFORE LINE#110
7005 REM TO READ THE 1ST FIELD OF THE 1ST RECORD AND THE 2ND
FIELD OF THE LAST
7007 REM REPLACE THE CHRS(I> IN LINE 177 WITH CHRS(K)
8000 PRINT"WHICH RECORD ft DO YOU WANT REPLACED'MNPUT J
8001 1NPUT"ENTER NEW RECORD";AS(I)
S002 PRINT#1."P"CHRS(2 + 96)CHRS(])CHRS<O)CHRS(1):REM POSITION FILE
POINTER
8003 PRlNT#2hAS(I)
8004 INPUT-'ENTER NEW RECORD (FIELD 2r';CS(I)
42