0 REM *******************************
1 REM *                             *
2 REM * ERGAENZUNG ZU PSEUDO-SCROLL *
3 REM * FUER C-64 MIT ALTEN ROM'S   *
4 REM *                             *
5 REM * A.LAZAREVIC'                *
6 REM * IM GEYBERG 19               *
7 REM * 5165 HUERTGENWALD-GEY       *
8 REM * TELE.: (02429) 7171         *
9 REM *******************************
10 :
11 POKE49315,76:POKE49316,96:POKE49317,193:POKE49318,96
12 FORT=49504TO49534:READ DA:POKET,DA:NEXTT
13 INPUT"[147]FILENAMEN ";N$
14 OPEN 1,8,1,N$
15 PRINT#1,CHR$(0);CHR$(192);
16 FOR I=49152TO49534
17 PRINT#1,CHR$(PEEK(I));
18 NEXT I
19 CLOSE1
20 DATA157,232,6,232,208,250,160,0,162,216,132,248,134,249,173,134,2,145
21 DATA248,200,208,251,230,249,166,249,224,220,208,243,96