100 ! PROGRAM DELMAS.BAS
110 ! TO REMOVE A UIC FROM THE ACCOUNT MASTER INDEX
120 DIM A$[80],B$[80],C$[1],D$[80],R$[80]V,E$[6],T1$[3]V(2)
130 ! CLEAR FLAG FOR LINE INSERTED
140 F=0
150 R$="MASTER.INF/LN:80/RO/END:330"
160 OPEN #3,R$
170 R$="MASTER.INF/FX/LN:80/WR"
180 OPEN #4,R$
190 INPUT "ACCOUNT TO DELETE - (NO BRACKET) ",G,U
200 INPUT LINE #3,A$
210 B$=SBS$(A$,2,8)
220 B$=LTR$(TRM$(B$))
230 T1$(1)=PIECE$(B$,",",1)
240 T1$(2)=PIECE$(B$,",",2)
250 G1=VAL(T1$(1)) : U1=VAL(T1$(2))
260 IF G1=G AND U1=U THEN  GOTO 280
270 GOTO 300
280 PRINT "UIC DELETED"
290 GOTO 200
300 ! WRITE CURRENT DESCRIPTOR TO NEW FILE
310 PRINT #4,A$
320 GOTO 200
330 CLOSE 
340 RUN "MASTER"
350 END 
