8] CODE$(2),CODENUM(2),C$(2)| "- - - PROGRAM - - CODE" I 2 CODE$(I)"XXX" I AUTHOR,SUE HAYDEN,MAY 1983 "THIS PROGRAM ALLOWS ASSIGNMENT OF CODES (UP TO 10 LETTERS) TO"B( "CORRESPOND TO EACH NUMBER IN A DATA SET"H)~* "YOU MAY ENTER (1) TO CREATE A CODE FILE, OR"+ " (2) TO EDIT AN EXISTING CODE FILE", "YOUR CHOICE";CHOICE- : CHOICE 2 "ENTER XXX TO STOP CODE ASSIGNMENTS""< I<P CODE$(I)"XXX"eZ "ENTER CODE FOR BEHAVIOR # ";Iwd CODE$(I)n IIx  "ENTER NAME OF YOUR DATA FILE ";FILNAM$ FILNAM$".COD" OUTPUT AS # OUTNAM$"CODE FILE NAME : "$ OUTNAM$,FILNAM$;".COD"*C #,OUTNAM$,FILNAM$Q #, " "p "NUMBER","ASSIGNED CODE" #,"NUMBER","ASSIGNED CODE"J SWITCH  CODE$(J)"XXX" #,J,CODE$(J) J,CODE$(J)JJ 9 "WHICH CODE FILE DO YOU WISH TO EDIT";NAMM$O NAMM$ AS #j #,DROP$,DROP$,DROP$y" I 2' #,A,B$,CODENUM(I)A1 CODE$(I)B$6 () @; I@ "ENTER CODE NUMBER YOU WISH TO CHANGE OR INSERT";I,E "CODE FOR BEHAVIOR ";I;" IS ";CODE$(I)DJ "CHANGE TO";C$(I)XO CODE$(I)C$(I)wT "MORE CHANGES (Y/N)";UP$Y UP$"Y" UP$"y" @^SWITCH  J 2 #,J,CODE$(J) J,CODE$(J) J& "HIT ANY KEY TO RETURN TO MENU": N$$()3 "MENU"