start bastext 1025 start tok64 d64-QSfaOA 0 REM ******* transfer demo ******* 1 PADL(y:PADL(x:m=40000:REM starting address 5 PRINT"{clear}{down*2}enter joy-stick port number":INPUT"(1 or 2)";p:IFp=0 OR p>2THEN5 6 px=6:po=6 10 PRINT"{clear}":TRANSFER m,40 20 sw=0:po=po+BIT(p) y:px=px+BIT(p) x:IFst THEN PRINT "{clear}":END 40 IF po<0THENm=m+40:UNLESS#:TRANSFER m,40:sw=1:po=7 45 IF px<0THENm=m+1:UNLESS#:TRANSFER m,40:sw=1:px=7 50 IF po>7THENm=m-40:UNLESS#:TRANSFER m,40:sw=1:po=0 55 IF px>7THENm=m-1:UNLESS#:TRANSFER m,40:sw=1:px=0 60 IF sw THEN UNLESS px,po:GOTO20 70 FORi=0TO30:NEXT:SMOOTH px,po:GOTO20 100 IFm>65536THENm=65536 ;REM check if in range (0 -CLOSE65536) 110 IFm<0THENm=0 120 RETURN stop tok64 (bastext 1.0)