home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / ram_rom (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  811b  |  25 lines
  1. 1 REM *********************************
  2. 2 REM *                               *
  3. 3 REM *        D E M O 1              *
  4. 4 REM *                               *
  5. 5 REM *  HEIMO PONNATH HAMBURG 1985   *
  6. 6 REM *                               *
  7. 7 REM *********************************
  8. 10 PRINTCHR$(147):POKE211,7:POKE214,10:SYS58640
  9. 15 PRINT"SO SIEHT EIN ROM-BEREICH AUS:":FORI=55296TO56295:POKEI,0:NEXT
  10. 20 J=1:W=128:GOSUB200:FORI=40960TO40960+1023:POKEI,PEEK(I):NEXT
  11. 25 GETA$:IFA$=""THEN25
  12. 30 J=3:W=48:GOSUB200:PRINTCHR$(147):POKE211,0:POKE214,10:SYS58640
  13. 35 PRINT"DAS IST DER VOM COMPUTER RESERVIERTE RAM"
  14. 37 FORI=55296TO56295:POKEI,0:NEXT
  15. 40 J=3:W=0:GOSUB200
  16. 45 GETA$:IFA$=""THEN45
  17. 50 POKE56576,151:POKE56578,63:POKE53272,21:POKE648,4:END
  18. 199 REM ++ UP.BILDSCHIRM VERSCHIEBEN ++
  19. 200 POKE56576,(PEEK(56576)AND252)ORJ
  20. 205 POKE56578,PEEK(56578)OR3
  21. 210 POKE53272,(PEEK(53272)AND15)ORW
  22. 215 P=(W/16*1024+16384*(3-J))/256
  23. 220 POKE648,P
  24. 225 RETURN
  25.