home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64 / dynamisch (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  363 b   |  13 lines
  1. 10 print"[147][205]aschinenprogramme dynamisch gespeichert";
  2. 20 data160,255,169,116,162,228,133,176,134,177,200,177,176,240,5,32,210
  3. 21 data255,208,246,96
  4. 30 a$="":fori=1to21:reada:a$=a$+chr$(a):next
  5. 40 n1=65:s1=0:n2=0:s2=128:gosub2000
  6. 50 sys(peek(ad+1)+256*peek(ad+2))
  7. 60 print"dynamisch aufgerufen"
  8. 999 end
  9. 2000 poke180,n1ors1:poke181,n2ors2
  10. 2010 poke69,peek(180):poke70,peek(181):sys45287
  11. 2020 ad=peek(780)+256*peek(782)
  12. 2030 return
  13.