_PROGRAMsystemLCMd  0R 1,127,0,1,63,0 25,25," LCM finder." 40,42,"Beta v 1.0" 46,20,"Schmude & Harradine." 56,16,"(Press EXE to continue.)" 1  "GCD OF TWO POSITIVE" "INTEGERS." "1ST INTEGER="?A "2ND INTEGER="?B A0B0 1  AP BR PD RP DP(DP)R R>0 ABPL  1,1,"FOR" 5,1,A 1,2,"AND" 5,2,B 1,4,"LCM =" 7,4,L PROGRAMsystemLCMGAM