10000 REM *** SPEED TRANS ***¢10010 REM X=USR(1536,ADR,ADW,NO)¢10020 REM ADR ... Address Read¢10030 REM ADW ... Address Write40 REM NO ... Bytes To Move¢10050 RESTORE 10080:S=0:FOR I=0 TO 138:READ X:S=S+X:POKE 1536+I,X:NEXT I¢10060 READ X:IF X<>S THEN ? "DATA ERROR!":STOP ¢10070 END ¢10080 DATA 120,169,254,141,1,211,169,137,141,250,255,169,6,141,251,255,169¢10090 DATA 128,141,252,255,169,6,141,253,255,169,137,141,254,255,169,6,141¢10100 DATA 255,255,216,104,201,3,208,86,104,141,68,6,104,141,67,6,104,141¢10110 DATA 71,6,104,141,70,6,104,141,139,6,104,141,138,6,173,67,6,141,118¢10120 DATA 117,238,67,6,238,70,6,169,0,205,67,6,208,3,238,68,6,205,70,6¢10130 DATA 208,3,238,71,6,206,138,6,169,255,205,138,6,208,3,206,139,6,169¢10140 DATA 0,205,139,6,208,206,205,138,6,208,201,169,253,141,1,211,88,96¢10150 DATA 169,253,141,1,211,88,76,77,160,64,118,17815¢
