100 REM   ***************************
110 REM   *                         *
120 REM   *   DEMO - LAUFSCHRIFT    *
130 REM   *                         *
140 REM   *  VON N.NEBEL 21.2.1986  *
150 REM   *                         *
160 REM   ***************************
170 REM
175 IFA=0THENA=1:LOAD"LAUFSCHRIFT",8,1
180 POKE56,62:CLR:ZA=53248
190 PRINT"[147]2 TEXTE EINGEBEN, JEWEILS HOECHST. 24 Z."
200 INPUT"1.";A$:INPUT"2.";B$
210 PRINT"[147]"A$:PRINT""B$
220 FORI=15872TO16382:POKEI,0:NEXT
230 POKE56334,0:POKE1,51
240 FORA=0TO7:FORB=0TO2
250 AD=ZA+8*PEEK(1024+A*3+B)
260 A2=ZA+8*PEEK(1104+A*3+B)
270 FORI=0TO7:POKE15911+A*64+B+I*3,PEEK(AD+I)
280 POKE15872+A*64+B+I*3,PEEK(A2+I):NEXT
290 NEXT:NEXT
300 POKE1,55:POKE56334,1
310 POKE53280,0:POKE16383,255:SYS49152