10 ' Addtopds/bas
20 ' Ken Kroninger
30 ' May 1, 1983
40 CLEAR 10000:DIM FILE$(100):F%=0
50 '
60 '
70 OPEN"i",1,"file/txt"
80 LINEINPUT#1,A$       ' Get rid of heading
90 IF EOF(1) THEN 220
100 LINEINPUT#1,A$
110 IF LEN(A$)<10 THEN 90
120 C%=INSTR(A$,CHR$(32))
130 B$=LEFT$(A$,C%-1)
140 PRINT B$,
150 PRINT"Add to PDS?"
160 O$=INKEY$
170 O$=INKEY$:IF O$="" THEN 170 ELSE IF O$="Y" OR O$="y" THEN 180 ELSE IF O$="N" OR O$="n" THEN 200 ELSE 170
180 FILE$(F%)=B$
190 F%=F%+1
200 A$=MID$(A$,20)
205 IF LEFT$(A$,1)=" " THEN A$=MID$(A$,2):GOTO 205
210 GOTO 110
220 CLOSE
230 FOR C%=0 TO F%-1
240 D$="pds (append) "+FILE$(C%)+" "+PDS$+".pds"
250 PRINT D$:CMD D$
260 NEXT
270 CMD"s"
