home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh26a.d64
/
ram_rom
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
811b
|
25 lines
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