1 REM *********************************
2 REM *                               *
3 REM *        D E M O 1              *
4 REM *                               *
5 REM *  HEIMO PONNATH HAMBURG 1985   *
6 REM *                               *
7 REM *********************************
10 PRINTCHR$(147):POKE211,7:POKE214,10:SYS58640
15 PRINT"SO SIEHT EIN ROM-BEREICH AUS:":FORI=55296TO56295:POKEI,0:NEXT
20 J=1:W=128:GOSUB200:FORI=40960TO40960+1023:POKEI,PEEK(I):NEXT
25 GETA$:IFA$=""THEN25
30 J=3:W=48:GOSUB200:PRINTCHR$(147):POKE211,0:POKE214,10:SYS58640
35 PRINT"DAS IST DER VOM COMPUTER RESERVIERTE RAM"
37 FORI=55296TO56295:POKEI,0:NEXT
40 J=3:W=0:GOSUB200
45 GETA$:IFA$=""THEN45
50 POKE56576,151:POKE56578,63:POKE53272,21:POKE648,4:END
199 REM ++ UP.BILDSCHIRM VERSCHIEBEN ++
200 POKE56576,(PEEK(56576)AND252)ORJ
205 POKE56578,PEEK(56578)OR3
210 POKE53272,(PEEK(53272)AND15)ORW
215 P=(W/16*1024+16384*(3-J))/256
220 POKE648,P
225 RETURN