PRGEDIT 1,1 PRGINS "ABC" PRGEDIT 1,1 A$=PRGGET$() FOR I=0 TO LEN(A$)-1 C$=MID$(A$,I,1) PRINT ASC(C$),C$ NEXT A$="ABC" FOR I=0 TO LEN(A$)-1 C$=MID$(A$,I,1) PRINT ASC(C$),C$ NEXT