c RNDI#(D)(D) d TESTVAL(L,H,D)H#((H DL D)) Dd SIGN(F)$dc:Ydd: "ENTER SEED VALUE: ";SEED$:SEED#(SEED$)xdn SEED#::PLACESRNDI#()dxLOWSIGN(RNDI#())RNDI#( ):HIGHLOWRNDI#( )dFORMAT$"###"((PLACES),".")(PLACES,"+")e "LOW="; FORMAT$;LOW:e N% Ae FORMAT$:TESTVAL(LOW,HIGH,PLACES)Ne N%:me "HIGH="; FORMAT$;HIGH:; FORMAT$;LOW:e N% Ae FORMAT$:TESTVAL(LOW,HIGH,PLAC