10 TP=4096:SCREEN 0:WIDTH 38
30 INPUT"Имя (символ '*' - для окончания)";N$
40 IF LEFT$(N$,1)="*"THEN 120
50 IF TP+LEN(N$)+1>16383 THEN PRINT"Память заполнена":GOTO 120
60 FOR I=1 TO LEN(N$)
70      VPOKE TP,ASC(MID$(N$,I,1)):TP=TP+1
90 NEXT
100 VPOKE TP,0:TP=TP+1
110 GOTO 30
120 CLS:I=4096
140 X=VPEEK(I)
150 IF X=0 THEN PRINT:GOTO 170
160 PRINT CHR$(X)
170 I=I+1
180 IF I<TP THEN 140
190 END