5  'Инициализация компьютера.
10 CALL NETEND  
20 BSAVE"CAS:initio",0,3
30 BLOAD"CAS:initio",R,&HA000