5 CLEAR:CLS:PRINTTAB(5);"ORDENACION ALFABETICA";:FORP=0TO300:NEXT:ONERRORGOTO100 10 PRINT:RESTORE#:READ#O$:INPUT"Nombre";A$:IFA$="\"THEN200ELSEIFA$="@"THEN201ELSEU=LEN(A$):B$=MID$(A$,1,1) 15 RESTORE#:RESTORE#B$:IFU=1THEN20ELSE40 20 READ#X$:Z$=MID$(X$,1,1):X=ASC(Z$):IFXR THEN40 55 IFQ