DIM reg 3:A%=&81:X%=0:Y%=&FF:!reg=USR &FFF4:IF ?(1+reg)<>1 THEN CHAIN "P.RUNDISC" ELSE CHAIN "LOADER"
