start bastext 1025
start tok64 d64-eue2JU
0 REM *******  transfer demo  *******
1 m=40000:REM starting address
2 sc=52069:REM addresses to transfer(row               collumn,and screen start
5 PRINT"{clear}{down*2}enter joy-stick port number":INPUT"{space*3}( 1 or 2 )";p:IFpTHENIFp>2THEN5
6 INPUT"{down}enter starting row down (0-12) ";y:IFy<0ORy>12GOTO6
7 PRINT"{down}enter starting collumn across (0-19) ":INPUT x:IFx<0ORx>19GOTO6
8 hi=INT((33792+40*y+x)/256):lo=(33792+40*y+x)-hi*256
9 x=40-x*2:y=24-y*2
10 POKEsc,x:POKEsc+1,y:POKEsc+2,lo:POKEsc+3,hi
11 SWITCH12,1:PRINT"{clear}":SWITCH 12,0:TRANSFER m,40
20 hz=BIT(p) x:vt=BIT(p) y:IFst GOTO500
30 mv=0:IF hz THEN m =m+hz:mv=1:GOSUB100
40 IF vt THEN m =m+vt*40:mv=1:GOSUB100
50 IF mv THENTRANSFER m,40
60 GOTO20
100 IFm>65536THENm=65536 :REM check if in range (0-65536)
110 IFm<0THENm=0
120 RETURN
500 REM reset screen vectors to normal
510 POKEsc,40:POKEsc+1,24:POKEsc+2,0:POKEsc+3,132:END
stop tok64
(bastext 1.0)