100 REM -------------------------------
110 REM         LAUFSCHRIFTDEMO
120 REM       ZU 'HYPERSCREEN II'
130 REM           BY R.FRAHM
140 REM -------------------------------
150 :
160 :
170 IF A=0 THEN A=1:LOAD "HYPERSCREEN II",8,1
180 IF A=1 THEN A=2:LOAD "SCROLL.OBJ",8,1
190 :
200 RESTORE:X=0
210 READ A$
220 : IF A$="@" THEN POKE 49652+X,0:GOTO 290
230 :  FOR I=1 TO LEN(A$)
240 :     POKE 49652+X,ASC(MID$(A$,I,1))
250 :     X=X+1
260 :  NEXT I
270 GOTO 210
280 :
290 POKE 49170,032:POKE 49171,208
300 POKE 49172,192:POKE 49324,032
310 POKE 49325,024:POKE 49326,193
320 :
330 SYS 49152
340 :
350 REM -AB HIER STEHEN DIE DATEN FUER-
360 REM ----DEN ZU SCROLLENDEN TEXT----
370 :
380 DATA "HYPERSCEEN II  GESCHRIEBEN VON"
390 DATA " R.FRAHM UND C.ZAENKER    "
400 DATA "@"