10 CLEAR 200,&H8800
20 BLOAD"ZALBAR.BIN":POKE &HFD9F,&HC9
30 DEF USR=&H8800:I=USR(0)