5 PRINT"1[146]BQ[146]([200][208][185][146][160]:"PEEK(3)"[157] ":POKE41,5:GETA$:POKE3,PEEK(3)-(A$="")+(A$=""):SYS1024:GOTO5
10 REM ANDREAS CARL
20 REM BERNSTEINRING 71
30 REM 1000 BERLIN 47
40 REM
50 REM LOOK PAGES IN RAM