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 >
Wrap
Commodore BASIC
|
2022-10-26
|
363b
|
13 lines
10 print"[147][205]aschinenprogramme dynamisch gespeichert";
20 data160,255,169,116,162,228,133,176,134,177,200,177,176,240,5,32,210
21 data255,208,246,96
30 a$="":fori=1to21:reada:a$=a$+chr$(a):next
40 n1=65:s1=0:n2=0:s2=128:gosub2000
50 sys(peek(ad+1)+256*peek(ad+2))
60 print"dynamisch aufgerufen"
999 end
2000 poke180,n1ors1:poke181,n2ors2
2010 poke69,peek(180):poke70,peek(181):sys45287
2020 ad=peek(780)+256*peek(782)
2030 return