start tok64 d64-l2TUwx 10 REM *** memorysnatcher *** 20 REM *** av mikael pawlo *** 30 REM *** syntax : *** 40 REM *** sys52000,x,y,"z",] *** 50 REM *** x=startadresss *** 60 REM *** y=slutadresss *** 70 REM *** z=filnamn *** 75 REM *** ]=enhet *** 80 FORt=52000TO52040:READbymp 90 POKEt,bymp:NEXTt 100 DATA 32,253,174,32,138,173,32,247 110 DATA 183,132,251,133,252,32,253,174 120 DATA 32,138,173,32,247,183,132,253 130 DATA 133,254,32,253,174,32,212,225 140 DATA 169,251,166,253,164,254,76,95 150 DATA 225 stop tok64 (bastext 1.0)