100 DIM A$(100)
110 FOR I=1 TO 100:A$(I)="DIES IST STRING NUMMER"+STR$(I):NEXT
120 PRINT CHR$(147)
130 NR=1:AN=20
140 SYS 49232,1,A$(NR),20
150 GET A$:IF A$="" THEN 150
160 IF A$=CHR$(29) THEN IF NR<81 THEN NR=NR+1
170 IF A$=CHR$(157) THEN IF NR>1 THEN NR=NR-1
180 GOTO 140