start tok64 d64-KHJXa3
10 REM" turbo load for ka43/61
20 :
100 ad=PEEK(55)+256*PEEK(56)-877:dh=INT(ad/256)
110 POKE643,ad-dh*256:POKE644,dh:POKE55,ad-dh*256:POKE56,dh:CLR
120 n=25:as=PEEK(45)+256*PEEK(46)-877:t=as-5*n:ad=PEEK(55)+256*PEEK(56)
130 SYS t-167,as,ad,877,t,n:REM" relocator
140 SYS ad
200 PRINT"{clear}{down*4}":PRINT"load";CHR$(34);"open sys ka43*":PRINT"{down*3}"
210 PRINT"poke peek(45)+256*peek(46)-1,234:run"
220 PRINT"{up*9}":POKE631,13:POKE632,13:POKE198,2:END
stop tok64
(bastext 1.0)