10  DIM A$[100],B$[100],C$[100]
20  PRINT "UNR PRO LOC PRI ";
30  INPUT C$
40  C$[4,4]="-"
50  A$="CAT-"
60  SYSTEM B$,A$
70  IF LEN(B$)=0 THEN 130
80  C$[5,10]=B$[1,6]
90  SYSTEM R,C$
100  A$[5,9]=B$[1,5]
110  A$[10,10]=CHR$(NUM(B$[6,6])+1)
120  GOTO 60
130  END 
