0 REM ************************
1 REM ** PSEUDO-SCROLL-DEMO **
2 REM **--------------------**
3 REM **    (C) 1985 BY     **
4 REM **    N.BERGERHOFF    **
5 REM **    MEISENWEG 22    **
6 REM **   5020 FRECHEN 4   **
7 REM **  TEL. 02234/64610  **
8 REM ************************
9 IFA=0THENA=1:LOAD"PSEUDO-SCROLL",8,1
10 INIT=49152:EIN=49232:AUS=49400
11 SYSINIT
12 :
100 PRINT"[147]     [216][216][216]   [216][216][216] [216][216][216][216] [216]  [216] [216][216][216]  [216][216][216][216]
110 [153]"     (null)  (null) (null)    (null)    (null)  (null) (null)  (null) (null)  (null)
120 PRINT"     [216]  [216] [216]    [216]    [216]  [216] [216]  [216] [216]  [216]
130 [153]"     (null)(null)(null)   (null)(null)  (null)(null)(null)  (null)  (null) (null)  (null) (null)  (null)
140 PRINT"     [216]       [216] [216]    [216]  [216] [216]  [216] [216]  [216]
150 [153]"     (null)       (null) (null)    (null)  (null) (null)  (null) (null)  (null)
160 PRINT"     [216]    [216][216][216]  [216][216][216][216]  [216][216]  [216][216][216]  [216][216][216][216]
170 [153]
180 [153]"      (null)(null)(null)  (null)(null)(null) (null)(null)(null)  (null)(null)(null)(null) (null)    (null)
190 PRINT"     [216]    [216]    [216]  [216] [216]  [216] [216]    [216]
200 [153]"     (null)    (null)    (null)  (null) (null)  (null) (null)    (null)
210 PRINT"      [216][216]  [216]    [216][216][216]  [216]  [216] [216]    [216]
220 [153]"        (null) (null)    (null)  (null) (null)  (null) (null)    (null)
230 PRINT"        [216] [216]    [216]  [216] [216]  [216] [216]    [216]
240 [153]"     (null)(null)(null)   (null)(null)(null) (null)  (null) (null)(null)(null)(null) (null)(null)(null)(null) (null)(null)(null)(null)
250 SYSEIN,3,1,0
260 GOSUB1000:PRINT"[154][147]"
270 SYSEIN,3,0,0
280 PRINTTAB(11)"PSEUDO-SCROLL-DEMO"
290 PRINTTAB(17)"HOCH"
300 GOSUB1000
310 SYSEIN,3,1,1
320 PRINTTAB(16)"[145]RUNTER"
330 GOSUB1000
340 SYSEIN,1,1,1
350 PRINTTAB(16)"[145]SCHNELL"
360 GOSUB1000
370 SYSEIN,10,1,1
380 PRINTTAB(16)"[145]LANGSAM"
390 GOSUB1000
400 PRINT"[154][147]":SYSEIN,3,0,0
410 PRINTTAB(12)"TASTE[154][216]DRUECKEN"
420 WAIT198,255:POKE198,0:END
430 :
1000 FORI=1TO3000:NEXT:RETURN