1 rem программа
2 clear xxxxx:go to usr 23872

если код загружать из бейсика или trdos надо учитывать размер буфера - 257 байтов.
randomize usr 15619:rem load "xxx" code 24129, после загрузки всё сдвинется на своё место