isam cop
Rec1.Rbs
[d1]<records>Rec1.Rbs

yisam cop
Rec2.Rbs
[d1]<records>Rec2.Rbs

yisam cop
Rec3.Rbs
[d1]<records>Rec3.Rbs

yUBSCRIBE(DEASSIGNLOCALLASSIGNLOCALDEASSIGNL8ACCEPTv	L(ASSIGNv
LECHOSOME
LLOGSTATUStv^DISPLAYERRORMESSAGE REBOOTp( BROADCASTMESSAGESENDMAIL^FRONTPANELRUNNOWAITvDISPLAYLINELVRESTARTLABEL
NEXTFLOPPY:vDISPLAY=LPAUSEOFFvdLPAUSEONLvECHOOFFFt^ECHOONZhENDWHILEv)