start tok64 d64-7hBjV1
0 REM 84-10-24
1 REM       block-move
2 REM        commando
3 REM sys 49152,start,end,antal bytes
5 FOR i=49152 TO 49226
6 READ d:POKE i,d:NEXT
10 DATA 32,65,192,132,251,133,252,32
11 DATA 65,192,132,253,133,254,32,65
12 DATA 192,140,252,3,141,253,3,160
13 DATA 0,177,251,145,253,230,251,196
14 DATA 251,208,2,230,252,230,253,196
15 DATA 253,208,2,230,254,206,252,3
16 DATA 204,252,3,208,8,204,253,3
17 DATA 240,6,206,253,3,76,25,192
18 DATA 96,32,253,174,32,138,173,32
19 DATA 247,183,96,*
stop tok64
(bastext 1.0)